35 |
|
|
36 |
my $palatal = '(lj|nj|j|ć|ž|š|ž|št|žd)'; |
my $palatal = '(lj|nj|j|ć|ž|š|ž|št|žd)'; |
37 |
|
|
38 |
|
# glagolni razredi |
39 |
|
my $g_1r = '[td]'; |
40 |
|
my $g_2r = '[sz]'; |
41 |
|
my $g_3r = '[pb]'; |
42 |
|
my $g_4r = '[kgh]'; |
43 |
|
my $g_5r = '[nm]'; |
44 |
|
my $g_6r = '(:?nu|n)'; |
45 |
|
|
46 |
my %rules; |
my %rules; |
47 |
my %stem_words; |
my %stem_words; |
48 |
my $words = 0; |
my $words = 0; |
72 |
|
|
73 |
my $orig = $_; |
my $orig = $_; |
74 |
|
|
|
# imenice |
|
75 |
|
|
76 |
unless ( |
unless ( |
77 |
|
# infinitiv |
78 |
|
s/(${sa})(ti|ći)$/$1.$2 100/g || |
79 |
|
# 1. razred |
80 |
|
s/([^s])[td](em|eš|emo|ete|oh|osmo|oste|oše|ijah|ijaše|ijasno|ijaste|ijahu|imo|ite|en|ena|eni)$/$1.sti 101/g || |
81 |
|
# 2. razred |
82 |
|
s/(${sa}[sz])(em|eš|ešemo|ete|u|oh|e|osmo|oste|oše|ijah|ijaše|ijasmo|ijaste|ijahu|imo|ite|ući|avši|ao|la|lo|li|le|la|en|ena|eni)$/$1.sti 102/ || |
83 |
|
# 3. razdred |
84 |
|
s/(p|b|sp|su)(em|eš|e|emo|ete|u|oh|osmo|oste|oše|ah|aše|asmo|aste|ahu|ijah|ijaše|i|imo|ite||ući|avši|ao|la|lo|en|ena|eni)$/$1.sti 103/ || |
85 |
|
|
86 |
|
# imenice |
87 |
|
|
88 |
# vrsta a |
# vrsta a |
89 |
s/(${su}st)a$/$1 13/g || |
s/(${su}st)a$/$1 13/g || |
90 |
s/(${su})c[ae]$/$1ce 17/g || |
s/(${su})c[ae]$/$1ce 17/g || |