first compilable LangDut

This commit is contained in:
aarne
2009-11-06 17:58:07 +00:00
parent 0faaecf65a
commit c20326e9dc
28 changed files with 3298 additions and 0 deletions
+27
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 ;
}