mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-17 07:02:51 -06:00
first compilable LangDut
This commit is contained in:
27
lib/src/dutch/AdverbDut.gf
Normal file
27
lib/src/dutch/AdverbDut.gf
Normal 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 ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user