File: fonev_gen3.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 (24 lines) | stat: -rw-r--r-- 543 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#
# morfonetikus alternns fnevek ragozsi csoportba sorolsa
#
# kls vltoz: kulon_e (tulajdonnevek esetn kikapcs. szsszettel,
# ha kulon_e==1)
#
BEGIN { 
    while ((getline var < "fonev_kulon.1") > 0) { kulonszo[var]=1; }
    while ((getline var < "fonev_osszetett.1") > 0) { osszetett[var]=1; }
}

function kulon(st) {
    s=""
    if (kulon_e==1) return "";
    if (osszetett[$1]==1) s="/y";
    if (kulonszo[st]!=1) {
	return s "/x"
#	return "/Y" # MYSPELL
    } else {
	return ""    
    }
}

{ print $1 "/I/n" RAG kulon($1); }