Changeset f5d3b20 for app


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

Location:
app/src
Files:
2 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; 
  • app/src/ser/ser

    re2bde98 rf5d3b20  
    2626my $flex=0; 
    2727my $morfield='lem'; 
     28my $tags=0; 
    2829 
    2930#read configuration files########################### 
     
    5657                        $flextemplate=$value; 
    5758                } 
     59                elsif($name eq "tags"){ 
     60                        $tags=$value; 
     61                } 
    5862                elsif($name eq "flex"){ 
    5963                        $flex=1; 
     
    7579           "macros=s" => \$macros, 
    7680           "flex-template=s" => \$flextemplate, 
     81           "tags=s" => \$tags, 
    7782           "flex" => \$flex, 
    7883           "help|h" => \$help); 
     
    8994   --macros=FILE                  Read macrodefinitions from FILE. 
    9095   --flex-template=FILE           Read flex code template from FILE. 
     96   --tags=STRING                  Morphosyntactic tag format. 
    9197   --only-matching -m             Print only fragments matching PATTERN. 
    9298   --no-markers -M                Do not print BOM and EOM markers [TODO]. 
     
    107113    $macros or 
    108114    -e "$LIB_DIR/terms.m4" and $macros="$LIB_DIR/terms.m4"; 
     115 
     116die("$0: $tags.tag2re program not found") unless 
     117    1; #JAK NAPISAC WARUNEK??? 
     118 
     119die("$0: undefined tagset format (tags option missing)") unless 
     120    $tags; 
    109121 
    110122 
     
    128140 
    129141# <> expansion 
    130 $flexpattern =~ s/<([^>]+)>/`echo $1 | tag2re`/ge; 
     142$flexpattern =~ s/<([^>]+)>/`echo $1 | $tags.tag2re`/ge; 
    131143 
    132144# restricting the value of the . special symbol 
Note: See TracChangeset for help on using the changeset viewer.