diff options
Diffstat (limited to 'next-lib/src/latin/NounLat.gf')
| -rw-r--r-- | next-lib/src/latin/NounLat.gf | 132 |
1 files changed, 0 insertions, 132 deletions
diff --git a/next-lib/src/latin/NounLat.gf b/next-lib/src/latin/NounLat.gf deleted file mode 100644 index 01eb80a25..000000000 --- a/next-lib/src/latin/NounLat.gf +++ /dev/null @@ -1,132 +0,0 @@ -concrete NounLat of Noun = CatLat ** open ResLat, Prelude in { - - flags optimize=all_subs ; - - lin - DetCN det cn = { - s = \\c => det.s ! cn.g ! c ++ cn.s ! det.n ! c ; - n = det.n ; g = cn.g ; p = P3 - } ; - --- 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 --- } ; --- --- DetQuantOrd quant num ord = { --- s = quant.s ! num.hasCard ! num.n ++ num.s ++ ord.s ; --- sp = quant.sp ! num.hasCard ! num.n ++ num.s ++ ord.s ; --- n = num.n --- } ; --- - DetQuant quant num = { - s = \\g,c => quant.s ! num.n ! g ! c ++ num.s ! g ! c ; - sp = \\g,c => quant.sp ! num.n ! g ! c ++ num.s ! g ! c ; - n = num.n - } ; - - DetNP det = { - s = det.sp ! Neutr ; - g = Neutr ; n = det.n ; p = P3 - } ; - --- PossPron p = { --- s = \\_,_ => p.s ! Gen ; --- sp = \\_,_ => p.sp --- } ; --- - NumSg = {s = \\_,_ => [] ; n = Sg} ; - NumPl = {s = \\_,_ => [] ; n = Pl} ; - --- 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 = adn.s ++ num.s ; n = num.n} ; --- --- OrdSuperl a = {s = a.s ! AAdj Superl} ; - - DefArt = { - s = \\_,_,_ => [] ; - sp = \\n,g => (personalPronoun g n P3).s - } ; - --- IndefArt = { --- s = \\c,n => case <n,c> of { --- <Sg,False> => artIndef ; --- _ => [] --- } ; --- sp = \\c,n => case <n,c> of { --- <Sg,False> => "one" ; --- <Pl,False> => "ones" ; --- _ => [] --- } --- } ; --- --- 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 ! cn.g ! n ! c) (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} ; --- -} |
