|
Last change
on this file since 7bed30f was
a6e708f,
checked in by tom <tom@…>, 13 years ago
|
|
ANULOWANIE POPRZEDNIEGO COMMITU
Revert "Replacing old implementation with working implementation"
This reverts commit 1e121f45e2d091fcd34a893291b8453e350d5884.
Please enter the commit message for your changes. Lines starting
with '#' will be ignored, and an empty message aborts the commit.
Committer: tom <tom@lim.(none)>
On branch master
Changes to be committed:
(use "git reset HEAD <file>..." to unstage)
modified: _old/app/Makefile
deleted: _old/app/conf/Makefile
deleted: _old/app/conf/compiledic.conf
deleted: _old/app/conf/cor.conf
deleted: _old/app/conf/dgc.conf
deleted: _old/app/conf/dgp.conf
deleted: _old/app/conf/gph.conf
deleted: _old/app/conf/grp.conf
deleted: _old/app/conf/gue.conf
deleted: _old/app/conf/kor.conf
deleted: _old/app/conf/lem.conf
deleted: _old/app/conf/mar.conf
deleted: _old/app/conf/ser.conf
deleted: _old/app/conf/utt.conf
modified: _old/app/src/common/Makefile
modified: _old/app/src/compiledic/Makefile
modified: _old/app/src/compiledic/aut2fsa.cc
modified: _old/app/src/cor/Makefile
modified: _old/app/src/dgp/Makefile
new file: _old/app/src/dgp/canonize
new file: _old/app/src/dgp/dgc
modified: _old/app/src/dgp/grammar.hh
modified: _old/app/src/dgp/mgraph.hh
modified: _old/app/src/dgp/sgraph.hh
modified: _old/app/src/dgp/thesymbols.hh
new file: _old/app/src/dgp/tre
modified: _old/app/src/gue/Makefile
modified: _old/app/src/gue/guess.cc
modified: _old/app/src/kor/Makefile
modified: _old/app/src/kor/corlist.cc
modified: _old/app/src/kor/corr.cc
new file: _old/app/src/kor/corr.hh
modified: _old/app/src/kor/main.cc
modified: _old/app/src/lem/Makefile
modified: _old/app/src/lem/lem.cc
modified: _old/app/src/lib/Makefile
modified: _old/app/src/lib/auttools.cc
modified: _old/app/src/lib/symtab.cc
modified: _old/app/src/lib/tft.h
modified: _old/app/src/lib/tfti.h
modified: _old/app/src/lib/ttrans.h
modified: _old/app/src/lib/word.cc
modified: _old/app/src/lib/word.h
modified: _old/app/src/tok.c/Makefile
modified: _old/app/src/tok.c/cmdline_tok.ggo
modified: _old/app/src/tok.c/common_tok.cc
modified: _old/app/src/tok/Makefile
modified: _old/nawszelkiwypadek/tools/aut2fsa
modified: _old/nawszelkiwypadek/tools/cor_dic/makeLabels.pl
modified: _old/nawszelkiwypadek/tools/cor_dic/prep.pl
modified: _old/nawszelkiwypadek/tools/fsm2aut
modified: _old/nawszelkiwypadek/tools/gue_dic/canon.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/compile_user_dict.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/count_prefs.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/cut_prefs.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/makeLabels.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/prep.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/prep_user_dict.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/rmDup.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/stat.pl
modified: _old/nawszelkiwypadek/tools/gue_dic/stat_pre.pl
modified: _old/nawszelkiwypadek/tools/lem_dic/makeLabels.pl
modified: _old/nawszelkiwypadek/tools/lem_dic/prep.pl
modified: auto/defaults
modified: auto/options
modified: auto/output/Makefile
modified: auto/output/config_h
modified: auto/summary
modified: configure
|
-
Property mode set to
100755
|
|
File size:
622 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | |
|---|
| 3 | #package: UAM TExt Tools |
|---|
| 4 | #component: canonize |
|---|
| 5 | #version: 1.0 |
|---|
| 6 | #author: Tomasz Obrebski |
|---|
| 7 | |
|---|
| 8 | use lib "/usr/local/lib/utt"; |
|---|
| 9 | use lib "$ENV{'HOME'}/.local/lib/utt"; |
|---|
| 10 | |
|---|
| 11 | use strict; |
|---|
| 12 | use Getopt::Long; |
|---|
| 13 | use attr; |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | my $help; |
|---|
| 17 | |
|---|
| 18 | GetOptions("help|h" => \$help); |
|---|
| 19 | |
|---|
| 20 | if($help) |
|---|
| 21 | { |
|---|
| 22 | print <<'END' |
|---|
| 23 | |
|---|
| 24 | Transforms syntactic categories to their canonical form. |
|---|
| 25 | |
|---|
| 26 | Usage: canonize |
|---|
| 27 | |
|---|
| 28 | Options: |
|---|
| 29 | --help -h Help. |
|---|
| 30 | |
|---|
| 31 | END |
|---|
| 32 | ; |
|---|
| 33 | exit 0; |
|---|
| 34 | } |
|---|
| 35 | |
|---|
| 36 | #$|=1; |
|---|
| 37 | |
|---|
| 38 | my %tra; |
|---|
| 39 | |
|---|
| 40 | while(<>) |
|---|
| 41 | { |
|---|
| 42 | s/$attr::pos_re\/$attr::avlist_re/trans($&)/ge; |
|---|
| 43 | print; |
|---|
| 44 | } |
|---|
| 45 | |
|---|
| 46 | sub trans |
|---|
| 47 | { |
|---|
| 48 | my $cat=shift; |
|---|
| 49 | exists($tra{$cat}) ? $tra{$cat} : ( $tra{$cat} = attr::canonize $cat ); |
|---|
| 50 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
