File: iges.awk

package info (click to toggle)
magyarispell 0.99.4-1.1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 3,988 kB
  • ctags: 132
  • sloc: sh: 883; awk: 337; makefile: 240
file content (23 lines) | stat: -rw-r--r-- 1,083 bytes parent folder | download | duplicates (6)
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 }