first compilable LangDut

This commit is contained in:
aarne
2009-11-06 17:58:07 +00:00
parent 1823d1b896
commit 0ed7853c6b
28 changed files with 3298 additions and 0 deletions

View File

@@ -0,0 +1,27 @@
concrete AdverbDut of Adverb = CatDut ** open ResDut, Prelude in
{
--{
--
-- lin
-- PositAdvAdj a = {s = a.s ! Posit ! APred} ;
--
-- ComparAdvAdj cadv a np = {
-- s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ np.s ! Nom
-- } ;
-- ComparAdvAdjS cadv a s = {
-- s = cadv.s ++ a.s ! Posit ! APred ++ cadv.p ++ s.s ! Sub
-- } ;
--
-- PrepNP prep np = {s = appPrep prep np.s} ;
--
-- AdAdv = cc2 ;
--
-- SubjS subj s = {s = subj.s ++ s.s ! Sub} ;
--
-- AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
--
--}
--
-----b AdvSC s = s ;
}