/[stem-hr]/StemHR.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /StemHR.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Fri Feb 25 23:14:44 2005 UTC revision 2 by dpavlin, Fri Feb 25 23:40:18 2005 UTC
# Line 27  sub kgh { Line 27  sub kgh {
27          $replace =~ s/[cè]/k/g;          $replace =~ s/[cè]/k/g;
28          $replace =~ s/[z¾]/g/g;          $replace =~ s/[z¾]/g/g;
29          $replace =~ s/[s¹]/h/g;          $replace =~ s/[s¹]/h/g;
30          return $pre . $replace . $post . "\tkgh";          return $pre . $replace . $post;
31  }  }
32    
33  # samoglasnici  # samoglasnici
# Line 44  while(<>) { Line 44  while(<>) {
44          # vrsta a          # vrsta a
45    
46          unless (          unless (
47                    # kgh
48                    s/(${sa})([è¾¹czs])(i|e|ima)$/kgh($1,$2,' 1')/gex ||
49                    s/(${sa}[kgh])(a|u|om)$/$1 2/g ||
50                    s/(${su})([è¾¹czs])(i|e|ima)$/kgh($1,"a$2",' 3')/gex ||
51                  # nepostojano a                  # nepostojano a
52                  s/(${su}a{$su})a/$1 1/g ||                  s/(${su}a{$su})a/$1 4/g ||
53                  s/(${su})(${su})(a|u|i|e|om|ima)$/$1a$2\t3/g                  s/(${su})(${su})(a|u|i|e|om|ima)$/$1a$2 5/g
54          ) {          ) {
                 # kgh  
                 s/(${su}${sa})([è¾¹czs])(i|e|ima)$/kgh($1,$2,'')/gex;  
 #               s/${su}${sa}[c](i|ima) 4//g;  
                 s/(${su}${sa}[kgh])(a|u|om)\t5/$1/g;  
55    
56                  # mno¾ina                  # mno¾ina
57                  s/(${su})(ov|ev)*(i|a|ima|e|in|ina)$/$1\t6/g;                  s/(${su})(ov|ev)*(i|a|ima|e|in|ina)$/$1 6/g;
58                  # jednina                  # jednina
59                  s/(o|e|a|u|om|em)$/\t7/g;                  s/(o|e|a|u|om|em)$/ 7/g;
60          }          }
61    
62            s/\s(\d+)$/\t$1/g;
63    
64          printf("%-15s %s\n",$orig,$_);          printf("%-15s %s\n",$orig,$_);
65  }  }
Legend:
Removed from v.1  
changed lines
  Added in v.2
  ViewVC Help
Powered by ViewVC 1.1.26