- Timestamp:
- 03/14/08 14:05:07 (17 years ago)
- Branches:
- master, help
- Children:
- b2647de
- Parents:
- 8d3e6ab
- git-author:
- pawelk <pawelk@…> (03/14/08 14:05:07)
- git-committer:
- pawelk <pawelk@…> (03/14/08 14:05:07)
- Location:
- app
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
app/doc/utt.texinfo
r25ae32e r246900a 630 630 631 631 @example 632 @file{/ etc/utt/conf/@var{program}.conf}632 @file{/usr/local/etc/utt/@var{program}.conf} 633 633 @end example 634 634 … … 636 636 637 637 @example 638 @file{~/.utt/ conf/@var{program}.conf}638 @file{~/.utt/@var{program}.conf} 639 639 @end example 640 640 -
app/src/compiledic/Makefile
r8d3e6ab r246900a 5 5 6 6 compiledic: 7 7 8 8 9 aut2fsa: aut2fsa.cc -
app/src/kon/kon
reedf648 r246900a 18 18 my $help=0; 19 19 20 my $ configfile1="../../conf/con.conf";21 my $ configfile2="../conf/con.conf";20 my $systemconfigfile='/usr/local/etc/utt/kon.conf'; 21 my $userconfigfile="$ENV{'HOME'}/.utt/kon.conf"; 22 22 23 23 #read configuration files########################### 24 24 my $file; 25 foreach $file ($ configfile1, $configfile2){25 foreach $file ($systemconfigfile, $userconfigfile){ 26 26 if(open(CONFIG, $file)){ 27 27 while (<CONFIG>) { 28 chomp; 29 s/#.*//; 30 s/^\s+//; 31 s/\s+$//; 32 next unless length; 28 chomp; 29 s/#.*//; 30 s/^\s+//; 31 s/\s+$//; 32 next unless length; 33 33 my ($name, $value) = split(/\s*=\s*/, $_, 2); 34 34 if(($name eq "left")or($name eq "l")){ … … 65 65 $help=1; 66 66 } 67 68 } 67 68 } 69 69 close CONFIG; 70 70 } … … 485 485 white_into_symbols(\$right_string); 486 486 #ponizsza linijka dodana 18 listopada 487 white_into_symbols(\${$CENTER_REF}[$index]); 487 white_into_symbols(\${$CENTER_REF}[$index]); 488 488 } 489 489 -
app/src/kot/kot
r25ae32e r246900a 8 8 my $spaces=0; 9 9 10 my $ configfile1="../../conf/kot.conf";11 my $ configfile2="../conf/kot.conf";10 my $systemconfigfile='/usr/local/etc/utt/kot.conf'; 11 my $userconfigfile="$ENV{'HOME'}/.utt/kot.conf"; 12 12 13 13 #read configuration files########################### 14 14 my $file; 15 foreach $file ($ configfile1, $configfile2){15 foreach $file ($systemconfigfile, $userconfigfile){ 16 16 if(open(CONFIG, $file)){ 17 17 while (<CONFIG>) { 18 chomp; 19 s/#.*//; 20 s/^\s+//; 21 s/\s+$//; 22 next unless length; 18 chomp; 19 s/#.*//; 20 s/^\s+//; 21 s/\s+$//; 22 next unless length; 23 23 my ($name, $value) = split(/\s*=\s*/, $_, 2); 24 24 if(($name eq "gap-fill")or($name eq "g")){ … … 31 31 $help=1; 32 32 } 33 34 } 33 34 } 35 35 close CONFIG; 36 36 } … … 49 49 Options: 50 50 --gap-fill -g Help. 51 --spaces -r 51 --spaces -r 52 52 --define=FILE Read macrodefinitions from FILE. 53 53 --flex-template=FILE Read flex code template from FILE. … … 71 71 { 72 72 my ($start,$len,$type,$form) = /^\s*(\d+)\s+(\d+)\s+(\S+)\s+(\S+)/; 73 73 74 74 if($start > $prevend) 75 75 { … … 78 78 79 79 $prevend=$start+$len; 80 80 81 81 next if $len==0;# || $form eq "*"; 82 82 … … 94 94 print $form; 95 95 } 96 97 #print $gap_fill;98 99 # print "\n"; -
app/src/tok/tok
r25ae32e r246900a 7 7 my $help; 8 8 9 my $ configfile1=".../../conf/tok.conf";10 my $ configfile2="../conf/tok.conf";9 my $systemconfigfile='/usr/local/etc/utt/tok.conf'; 10 my $userconfigfile="$ENV{'HOME'}/.utt/tok.conf"; 11 11 12 12 #read configuration files########################### 13 13 my $file; 14 foreach $file ($ configfile1, $configfile2){14 foreach $file ($systemconfigfile, $userconfigfile){ 15 15 if(open(CONFIG, $configfile1)){ 16 16 while (<CONFIG>) { 17 chomp; 18 s/#.*//; 19 s/^\s+//; 20 s/\s+$//; 21 next unless length; 17 chomp; 18 s/#.*//; 19 s/^\s+//; 20 s/\s+$//; 21 next unless length; 22 22 my ($name, $value) = split(/\s*=\s*/, $_, 2); 23 23 if(($name eq "interactive")or($name eq "i")){ … … 27 27 $help=1; 28 28 } 29 } 29 } 30 30 close CONFIG; 31 31 } … … 56 56 while(<>) 57 57 { 58 1 while 58 1 while 59 59 / [[:alpha:]]+ (?{seg('W',$&)}) 60 60 | \d+ (?{seg('N',$&)}) … … 96 96 $offset += $len; 97 97 } 98
Note: See TracChangeset
for help on using the changeset viewer.