Changeset f5d3b20 for app/src/grp/grp
- 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)
- File:
-
- 1 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;
Note: See TracChangeset
for help on using the changeset viewer.