mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-03 04:28:33 -06:00
zulu inclusion
This commit is contained in:
Executable
+27
@@ -0,0 +1,27 @@
|
||||
concrete AdverbZul of Adverb = CatZul ** open ResZul, Prelude in {
|
||||
|
||||
lin
|
||||
PositAdvAdj a = {
|
||||
s = "ka" ++BIND++ a.s!AF1 ;
|
||||
reqLocS = False
|
||||
} ;
|
||||
-- ComparAdvAdj cadv a np = {
|
||||
-- s = cadv.s ! Pos ++ a.s ! AAdv ++ cadv.p ++ np.s ! npNom
|
||||
-- } ;
|
||||
-- ComparAdvAdjS cadv a s = {
|
||||
-- s = cadv.s ! Pos ++ a.s ! AAdv ++ cadv.p ++ s.s
|
||||
-- } ;
|
||||
--
|
||||
-- PrepNP prep np = {s = preOrPost prep.isPre prep.s (np.s ! NPAcc)} ;
|
||||
--
|
||||
-- AdAdv = cc2 ;
|
||||
-- PositAdAAdj a = {s = a.s ! AAdv} ;
|
||||
|
||||
-- SubjS subj s = {
|
||||
-- s = subj.s ++ s.subjs ;
|
||||
-- reqLocS = False
|
||||
-- } ;
|
||||
|
||||
-- AdnCAdv cadv = {s = cadv.s ! Pos ++ cadv.p} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user