|
Last change
on this file since 93afab8 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:
762 bytes
|
| Line | |
|---|
| 1 | #! /usr/bin/env perl |
|---|
| 2 | |
|---|
| 3 | use locale; |
|---|
| 4 | use strict; |
|---|
| 5 | |
|---|
| 6 | ################################################## |
|---|
| 7 | # Skrypt transformuje s³ownik u¿ytkownika # |
|---|
| 8 | # do s³ownika rozumianego przez gue. # |
|---|
| 9 | # Format wej¶ciowy: # |
|---|
| 10 | # pref*kon~waga;opis # |
|---|
| 11 | # Format wyj¶ciowy: # |
|---|
| 12 | # nok_pref~waga;opis # |
|---|
| 13 | # # |
|---|
| 14 | # Prefiks mo¿e byæ pusty, koñcówka te¿ # |
|---|
| 15 | ################################################## |
|---|
| 16 | |
|---|
| 17 | while (<>) { |
|---|
| 18 | /^(\w*)\*(\w*)(~.*)$/; |
|---|
| 19 | my $pref = $1; |
|---|
| 20 | my $kon = $2; |
|---|
| 21 | my $desc = $3; |
|---|
| 22 | |
|---|
| 23 | print reverse(split("",$kon)); |
|---|
| 24 | |
|---|
| 25 | if ($pref != "") { |
|---|
| 26 | print "_$pref"; |
|---|
| 27 | } |
|---|
| 28 | print "$desc\n"; |
|---|
| 29 | |
|---|
| 30 | |
|---|
| 31 | } |
|---|
Note: See
TracBrowser
for help on using the repository browser.
