Dutch syntax complete (but not checked)

This commit is contained in:
aarne
2009-11-17 10:29:33 +00:00
parent 8ed9fe442d
commit 200b1d5473
11 changed files with 309 additions and 320 deletions

View File

@@ -1,49 +1,42 @@
concrete ConjunctionDut of Conjunction =
CatDut ** open ResDut, Coordination, Prelude in
{
--{
--
-- flags optimize=all_subs ;
--
-- lin
--
-- ConjS conj ss = conjunctDistrTable Order conj ss ;
--
-- ConjAdv conj ss = conjunctDistrSS conj ss ;
--
-- ConjNP conj ss = conjunctDistrTable Case conj ss ** {
-- a = {g = Fem ; n = conjNumber conj.n ss.a.n ; p = ss.a.p}
-- } ;
--
-- ConjAP conj ss = conjunctDistrTable AForm conj ss ** {
-- isPre = ss.isPre
-- } ;
--
-- ConjRS conj ss = conjunctDistrTable GenNum conj ss ** {
-- c = ss.c
-- } ;
--
--
---- These fun's are generated from the list cat's.
--
-- BaseS = twoTable Order ;
-- ConsS = consrTable Order comma ;
-- BaseAdv = twoSS ;
-- ConsAdv = consrSS comma ;
-- BaseNP x y = twoTable Case x y ** {a = conjAgr x.a y.a} ;
-- ConsNP xs x = consrTable Case comma xs x ** {a = conjAgr xs.a x.a} ;
-- BaseAP x y = twoTable AForm x y ** {isPre = andB x.isPre y.isPre} ;
-- ConsAP xs x = consrTable AForm comma xs x ** {isPre = andB xs.isPre x.isPre} ;
-- BaseRS x y = twoTable GenNum x y ** {c = y.c} ;
-- ConsRS xs x = consrTable GenNum comma xs x ** {c = xs.c} ;
--
-- lincat
-- [S] = {s1,s2 : Order => Str} ;
-- [Adv] = {s1,s2 : Str} ;
-- [NP] = {s1,s2 : Case => Str ; a : Agr} ;
-- [AP] = {s1,s2 : AForm => Str ; isPre : Bool} ;
-- [RS] = {s1,s2 : GenNum => Str ; c : Case} ;
--
--}
CatDut ** open ResDut, Coordination, Prelude in {
flags optimize=all_subs ;
lin
ConjS conj ss = conjunctDistrTable Order conj ss ;
ConjAdv conj ss = conjunctDistrSS conj ss ;
ConjNP conj ss = conjunctDistrTable NPCase conj ss ** {
a = {g = Utr ; n = conjNumber conj.n ss.a.n ; p = ss.a.p}
} ;
ConjAP conj ss = conjunctDistrTable AForm conj ss ** {
isPre = ss.isPre
} ;
ConjRS conj ss = conjunctDistrTable2 Gender Number conj ss ;
-- These fun's are generated from the list cat's.
BaseS = twoTable Order ;
ConsS = consrTable Order comma ;
BaseAdv = twoSS ;
ConsAdv = consrSS comma ;
BaseNP x y = twoTable NPCase x y ** {a = conjAgr x.a y.a} ;
ConsNP xs x = consrTable NPCase comma xs x ** {a = conjAgr xs.a x.a} ;
BaseAP x y = twoTable AForm x y ** {isPre = andB x.isPre y.isPre} ;
ConsAP xs x = consrTable AForm comma xs x ** {isPre = andB xs.isPre x.isPre} ;
BaseRS x y = twoTable2 Gender Number x y ** {c = y.c} ;
ConsRS xs x = consrTable2 Gender Number comma xs x ;
lincat
[S] = {s1,s2 : Order => Str} ;
[Adv] = {s1,s2 : Str} ;
[NP] = {s1,s2 : NPCase => Str ; a : Agr} ;
[AP] = {s1,s2 : AForm => Str ; isPre : Bool} ;
[RS] = {s1,s2 : Gender => Number => Str} ;
}