source: _old/app/src/compdic/lst2fstext @ 8f395c8

Last change on this file since 8f395c8 was 93afab8, checked in by tom <tom@…>, 13 years ago

dodany komponent compdic - kompilator slownikow dla lem, cor, kor, gue
(compdic zastepuje compiledic)

  • Property mode set to 100755
File size: 243 bytes
Line 
1#!/usr/bin/env perl
2
3use locale;
4
5$s=1;
6
7$f=1;
8while(<>)
9{
10    chomp;
11    @cs = split('');
12    ++$s;
13    print "0 $s <eps>\n";
14    while($c = shift @cs)
15    {
16        print $s . ' ' . ++$s . " $c\n";
17    } 
18    print "$s $f <eps>\n";
19}
20print "$f\n";
Note: See TracBrowser for help on using the repository browser.