- Timestamp:
- 05/07/08 14:48:49 (17 years ago)
- 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)
- Location:
- app/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
app/src/grp/grp
r20b4e44 rf5d3b20 28 28 my $eos="seg(EOS)"; 29 29 my $morfield='lem'; 30 my $tags=0; 30 31 31 32 #read configuration files########################### … … 61 62 $action; 62 63 } 64 elsif($name eq "tags"){ 65 $tags=$value; 66 } 63 67 elsif(($name eq "help")or($name eq "h")){ 64 68 $help=1; … … 78 82 "command" => \$show_command, 79 83 "action=s" => \$action, 84 "tags=s" => \$tags, 80 85 "help|h" => \$help); 81 86 … … 97 102 P - postprocess 98 103 (default pgP) 104 --tags=STRING Morphosyntactic tag format. 99 105 --command Print the shell command to be executed and exit. 100 106 --help -h Help. … … 109 115 $macrofile or 110 116 -e "$LIB_DIR/terms.m4" and $macrofile="$LIB_DIR/terms.m4"; 117 118 die("$0: undefined tagset format (tags option missing)") unless 119 $tags; 120 121 die("$0: $tags.tag2re program not found") unless 122 1; #JAK NAPISAC WARUNEK??? 123 111 124 112 125 my $uncompress = ($action =~ /u/) ? ' lzop -cd | ' : ''; … … 132 145 # <> expansion 133 146 134 $grepre =~ s/<([^>]+)>/`echo $1 | tag2re`/ge;147 $grepre =~ s/<([^>]+)>/`echo $1 | $tags.tag2re`/ge; 135 148 136 149 $grepre =~ s/\./[^ [:cntrl:]]/g; -
app/src/ser/ser
re2bde98 rf5d3b20 26 26 my $flex=0; 27 27 my $morfield='lem'; 28 my $tags=0; 28 29 29 30 #read configuration files########################### … … 56 57 $flextemplate=$value; 57 58 } 59 elsif($name eq "tags"){ 60 $tags=$value; 61 } 58 62 elsif($name eq "flex"){ 59 63 $flex=1; … … 75 79 "macros=s" => \$macros, 76 80 "flex-template=s" => \$flextemplate, 81 "tags=s" => \$tags, 77 82 "flex" => \$flex, 78 83 "help|h" => \$help); … … 89 94 --macros=FILE Read macrodefinitions from FILE. 90 95 --flex-template=FILE Read flex code template from FILE. 96 --tags=STRING Morphosyntactic tag format. 91 97 --only-matching -m Print only fragments matching PATTERN. 92 98 --no-markers -M Do not print BOM and EOM markers [TODO]. … … 107 113 $macros or 108 114 -e "$LIB_DIR/terms.m4" and $macros="$LIB_DIR/terms.m4"; 115 116 die("$0: $tags.tag2re program not found") unless 117 1; #JAK NAPISAC WARUNEK??? 118 119 die("$0: undefined tagset format (tags option missing)") unless 120 $tags; 109 121 110 122 … … 128 140 129 141 # <> expansion 130 $flexpattern =~ s/<([^>]+)>/`echo $1 | tag2re`/ge;142 $flexpattern =~ s/<([^>]+)>/`echo $1 | $tags.tag2re`/ge; 131 143 132 144 # restricting the value of the . special symbol
Note: See TracChangeset
for help on using the changeset viewer.