diff options
| author | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-06-22 15:39:08 +0000 |
| commit | e89fdae2fa1626348d8025824a7469252fa85e42 (patch) | |
| tree | c7d46bbd0494043b4bd6f917a25a7687517d0547 /next-lib/src/english/NounEng.gf | |
| parent | 3049b59b35b25381a7c6787444165c200d66e08b (diff) | |
next-lib renamed to lib, lib to old-lib
Diffstat (limited to 'next-lib/src/english/NounEng.gf')
| -rw-r--r-- | next-lib/src/english/NounEng.gf | 138 |
1 files changed, 0 insertions, 138 deletions
diff --git a/next-lib/src/english/NounEng.gf b/next-lib/src/english/NounEng.gf deleted file mode 100644 index 31fe24659..000000000 --- a/next-lib/src/english/NounEng.gf +++ /dev/null @@ -1,138 +0,0 @@ -concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in { - - flags optimize=all_subs ; - - lin - DetCN det cn = { - s = \\c => det.s ++ cn.s ! det.n ! c ; - a = agrgP3 det.n cn.g - } ; - - UsePN pn = pn ** {a = agrgP3 Sg pn.g} ; - UsePron p = p ; - - PredetNP pred np = { - s = \\c => pred.s ++ np.s ! c ; - a = np.a - } ; - - PPartNP np v2 = { - s = \\c => np.s ! c ++ v2.s ! VPPart ; - a = np.a - } ; - - RelNP np rs = { - s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ; - a = np.a - } ; - - AdvNP np adv = { - s = \\c => np.s ! c ++ adv.s ; - a = np.a - } ; - - DetQuant quant num = { - s = quant.s ! num.hasCard ! num.n ++ num.s ! Nom; - sp = \\c => case num.hasCard of { - False => quant.sp ! num.hasCard ! num.n ! c ++ num.s ! Nom ; - True => quant.sp ! num.hasCard ! num.n ! Nom ++ num.s ! c - } ; - n = num.n - } ; - - DetQuantOrd quant num ord = { - s = quant.s ! num.hasCard ! num.n ++ num.s ! Nom ++ ord.s ! Nom; - sp = \\c => quant.sp ! num.hasCard ! num.n ! Nom ++ num.s ! Nom ++ ord.s ! c ; - n = num.n - } ; - - DetNP det = { - s = det.sp ; - a = agrP3 det.n - } ; - - PossPron p = { - s = \\_,_ => p.s ! Gen ; - sp = \\_,_ => p.sp - } ; - - NumSg = {s = \\c => []; n = Sg ; hasCard = False} ; - NumPl = {s = \\c => []; n = Pl ; hasCard = False} ; ----b NoOrd = {s = []} ; - - NumCard n = n ** {hasCard = True} ; - - NumDigits n = {s = n.s ! NCard ; n = n.n} ; - OrdDigits n = {s = n.s ! NOrd} ; - - NumNumeral numeral = {s = numeral.s ! NCard; n = numeral.n} ; - OrdNumeral numeral = {s = numeral.s ! NOrd} ; - - AdNum adn num = {s = \\c => adn.s ++ num.s!c ; n = num.n} ; - - OrdSuperl a = {s = \\c => a.s ! AAdj Superl c } ; - - DefArt = { - s = \\hasCard,n => artDef ; - sp = \\hasCard,n => case <n,hasCard> of { - <Sg,False> => table { Gen => "its"; _ => "it" } ; - <Pl,False> => table { Nom => "they"; Acc => "them"; Gen => "theirs" } ; - _ => \\c => artDef - } - } ; - - IndefArt = { - s = \\hasCard,n => case <n,hasCard> of { - <Sg,False> => artIndef ; - _ => [] - } ; - sp = \\hasCard,n => case <n,hasCard> of { - <Sg,False> => table { Gen => "one's"; _ => "one" }; - <Pl,False> => table { Gen => "ones'"; _ => "ones" } ; - _ => \\c => [] - } - } ; - - MassNP cn = { - s = cn.s ! Sg ; - a = agrP3 Sg - } ; - - UseN n = n ; - UseN2 n = n ; ----b UseN3 n = n ; - - Use2N3 f = { - s = \\n,c => f.s ! n ! Nom ; - g = f.g ; - c2 = f.c2 - } ; - - Use3N3 f = { - s = \\n,c => f.s ! n ! Nom ; - g = f.g ; - c2 = f.c3 - } ; - - ComplN2 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c ; g = f.g} ; - ComplN3 f x = { - s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c ; - g = f.g ; - c2 = f.c3 - } ; - - AdjCN ap cn = { - s = \\n,c => preOrPost ap.isPre (ap.s ! agrgP3 n cn.g) (cn.s ! n ! c) ; - g = cn.g - } ; - RelCN cn rs = { - s = \\n,c => cn.s ! n ! c ++ rs.s ! agrgP3 n cn.g ; - g = cn.g - } ; - AdvCN cn ad = {s = \\n,c => cn.s ! n ! c ++ ad.s ; g = cn.g} ; - - SentCN cn sc = {s = \\n,c => cn.s ! n ! c ++ sc.s ; g = cn.g} ; - - ApposCN cn np = {s = \\n,c => cn.s ! n ! Nom ++ np.s ! c ; g = cn.g} ; - -} |
