source: src/compdic/lst2fstext

Last change on this file was b242df2, checked in by Tomasz Obrebski <to@…>, 13 years ago

fixed bug in lst2fstext (compdic component)
conf/Makefile updated

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