Changeset f5d3b20 for app/src/grp/grp


Ignore:
Timestamp:
05/07/08 14:48:49 (17 years ago)
Author:
obrebski <obrebski@…>
Branches:
master, help
Children:
7562131
Parents:
df77b87
git-author:
obrebski <obrebski@…> (05/07/08 14:48:49)
git-committer:
obrebski <obrebski@…> (05/07/08 14:48:49)
Message:

ser i grp obsluguja tags

git-svn-id: svn://atos.wmid.amu.edu.pl/utt@38 e293616e-ec6a-49c2-aa92-f4a8b91c5d16

File:
1 edited

Legend:

Unmodified
Added
Removed
  • app/src/grp/grp

    r20b4e44 rf5d3b20  
    2828my $eos="seg(EOS)"; 
    2929my $morfield='lem'; 
     30my $tags=0; 
    3031 
    3132#read configuration files########################### 
     
    6162                        $action; 
    6263                } 
     64                elsif($name eq "tags"){ 
     65                        $tags=$value; 
     66                } 
    6367                elsif(($name eq "help")or($name eq "h")){ 
    6468                        $help=1; 
     
    7882           "command" => \$show_command, 
    7983           "action=s" => \$action, 
     84           "tags=s" => \$tags, 
    8085           "help|h" => \$help); 
    8186 
     
    97102                                    P - postprocess 
    98103                                (default pgP) 
     104   --tags=STRING                Morphosyntactic tag format. 
    99105   --command                    Print the shell command to be executed and exit. 
    100106   --help -h                    Help. 
     
    109115    $macrofile or 
    110116    -e "$LIB_DIR/terms.m4" and $macrofile="$LIB_DIR/terms.m4"; 
     117 
     118die("$0: undefined tagset format (tags option missing)") unless 
     119    $tags; 
     120 
     121die("$0: $tags.tag2re program not found") unless 
     122    1; #JAK NAPISAC WARUNEK??? 
     123 
    111124 
    112125my $uncompress = ($action =~ /u/) ? ' lzop -cd | '  : ''; 
     
    132145# <> expansion 
    133146 
    134 $grepre =~ s/<([^>]+)>/`echo $1 | tag2re`/ge; 
     147$grepre =~ s/<([^>]+)>/`echo $1 | $tags.tag2re`/ge; 
    135148 
    136149$grepre =~ s/\./[^ [:cntrl:]]/g; 
Note: See TracChangeset for help on using the changeset viewer.