File: tovek4.awk

package info (click to toggle)
magyarispell 1.2%2Brepack-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 4,952 kB
  • sloc: sh: 1,032; awk: 404; makefile: 265; sed: 153; lisp: 102
file content (21 lines) | stat: -rw-r--r-- 500 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#
# tvek felvtele a tulajdonnevek mellknvkpzs alakjaihoz
#
/.	./ {
    l1 = length($1);
    l2 = length($2);
    # ha a tulajdonnv s a mellknv megegyezik (els bett s a kpzt nem nzzk)
    if (substr($1, 2, l1-1) == substr($2, 2, l1-1)) {
	if (l1 != l2) {
	    print $2 "\t" $1
	} else {
	    # a mretk megegyezik (pl. Hawaii/hawaii)
	    print $2 "\t" $1
	}
    } else {
	# egybknt ha nem -y (vagyis i vagy j vg)
	if (match($1,"[^ij]$")) {
	    print $2 "\t" $1	    
	}
    }
}