File: mellek_sag.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 (14 lines) | stat: -rw-r--r-- 459 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#
# mellknevekbl -sg/-sg fnvkpzs alakok ellltsa
#
BEGIN { 
    while ((getline var < "melleknev_mely.1") > 0) { mely[var]=1; }
}
/ss$/ || /rs$/ || /lcs$/ { next }
/[aou][bcdfghjklmnpqrstvwxyz]*$/ || 
/^[bcdfghjklmnpqrstvwxyz]*[bcdfghjklmnpqrstvwxyz]*$/ ||
/^.*[uoa][bcdfghjklmnpqrstvwxyz]*i[bcdfghjklmnpqrstvwxyz]*$/ && ! /^$/ { 
    print $1 "sg"; next; }
! /^[ 	]*$/ { if (mely[$1]==1) { print $1 "sg" }
    else { print $1 "sg"; } 
}