Changeset 3748bd1 for app/src/dgp/dgc
- Timestamp:
- 05/09/08 10:38:46 (17 years ago)
- Branches:
- master, help
- Children:
- 6ac84d8
- Parents:
- 9b57c4d
- git-author:
- obrebski <obrebski@…> (05/09/08 10:38:46)
- git-committer:
- obrebski <obrebski@…> (05/09/08 10:38:46)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
app/src/dgp/dgc
radb4c8d r3748bd1 38 38 next unless length; 39 39 my ($name, $value) = split(/\s*=\s*/, $_, 2); 40 if(($name eq "cat file")or($name eq "c")){40 if(($name eq "categories")or($name eq "c")){ 41 41 $catfile=$value; 42 42 } 43 elsif(($name eq "dic file")or($name eq "d")){43 elsif(($name eq "dictionary")or($name eq "d")){ 44 44 $dicfile=$value; 45 45 } 46 elsif(($name eq "gram file")or($name eq "g")){46 elsif(($name eq "grammar")or($name eq "g")){ 47 47 $gramfile=$value; 48 48 } … … 61 61 62 62 GetOptions("help|h" => \$help, 63 "cat file|c=s" => \$catfile,64 "dic file|d=s" => \$dicfile,65 "gram file|g=s" => \$gramfile,63 "categories|c=s" => \$catfile, 64 "dictionary|d=s" => \$dicfile, 65 "grammar|g=s" => \$gramfile, 66 66 "outputfile|o=s" => \$outputfile); 67 68 my $homedir = $ENV{'HOME'}; 69 $catfile =~ s/~/$homedir/; 70 $dicfile =~ s/~/$homedir/; 71 $gramfile =~ s/~/$homedir/; 72 $outputfile =~ s/~/$homedir/; 73 67 74 68 75 if($help) … … 72 79 73 80 Options: 74 --cat file-c filename List of syntactic categories.75 --dic file -d filenameDictionary.76 --gram file-g filename List of grammar rules.77 --outputfile -o filename Output file name.81 --categories -c filename List of syntactic categories. 82 --dictionary -d filename Dictionary. 83 --grammar -g filename List of grammar rules. 84 --outputfile -o filename Output file name. 78 85 --help -h Help. 79 86 END
Note: See TracChangeset
for help on using the changeset viewer.