1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#
# igkbl s/s fnvkpzs, stb. alakok legenerlsa, lsd igesgen
#
BEGIN {
while ((getline var < "ige_mely.1") > 0) { mely[var]=1; }
while ((getline var < "ige_tat_kiv.1") > 0) { tat_kiv[var]=1; }
while ((getline var < "ige_ikes_kiv.1") > 0) { ikes_kiv[var]=1; }
}
# mly hangrend igk + i
(MELYRAG=="tat" || MELYRAG=="gat") && (tat_kiv[$0]==1 || ikes_kiv[$0]) { next }
! (MELYRAG=="" || MELYRAG=="s") && ikes_kiv[$0] { next }
#/$/ {print $1 "v" MELYRAG }
#/$/ {print substr($1,1,length($1)-1) "ov" MELYRAG}
#/$/ {print substr($1,1,length($1)-1) "iv" MELYRAG}
/[uoa][bcdfghjklmnpqrstvwxyz]*ik$/ { print substr($1,1,length($1)-2) MELYRAG }
/[uoa][bcdfghjklmnpqrstvwxyz]*t$/ { print $1 MELYRAG }
/[uoa][bcdfghjklmnpqrstvwxyz]+$/ && ! /(ik|t)$/ { print $1 MELYRAG }
# magas
mely[$0]==1 { RAG=MELYRAG }
mely[$0]!=1 { RAG=MAGASRAG }
/[ie][bcdfghjklmnpqrstvwxyz]*ik$/ { print substr($1,1,length($1)-2) RAG; next }
/[ie][bcdfghjklmnpqrstvwxyz]*t$/ { print $1 RAG; next }
/[ie][bcdfghjklmnpqrstvwxyz]+$/ && ! /(ik|t)$/ { print $1 RAG }
|
