--- stem-hr.pl	2005/02/26 16:19:22	6
+++ stem-hr.pl	2005/02/26 18:13:14	7
@@ -35,6 +35,14 @@
 
 my $palatal = '(lj|nj|j|ć|ž|š|ž|št|žd)';
 
+# glagolni razredi
+my $g_1r = '[td]';
+my $g_2r = '[sz]';
+my $g_3r = '[pb]';
+my $g_4r = '[kgh]';
+my $g_5r = '[nm]';
+my $g_6r = '(:?nu|n)';
+
 my %rules;
 my %stem_words;
 my $words = 0;
@@ -64,9 +72,19 @@
 
 	my $orig = $_;
 
-	# imenice
 
 	unless (
+		# infinitiv
+		s/(${sa})(ti|ći)$/$1.$2 100/g ||
+		# 1. razred
+		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 ||
+		# 2. razred
+		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/ ||
+		# 3. razdred
+		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/ ||
+
+		# imenice
+
 		# vrsta a
 		s/(${su}st)a$/$1 13/g ||
 		s/(${su})c[ae]$/$1ce 17/g ||