forked from GitHub/gf-rgl
added CompoundN
This commit is contained in:
@@ -19,8 +19,14 @@ concrete ExtendDan of Extend = CatDan **
|
|||||||
GenRP
|
GenRP
|
||||||
]
|
]
|
||||||
with (Grammar = GrammarDan)
|
with (Grammar = GrammarDan)
|
||||||
** {
|
** open Prelude in {
|
||||||
|
|
||||||
flags coding=utf8 ;
|
flags coding=utf8 ;
|
||||||
|
|
||||||
|
lin CompoundN n1 n2 = {
|
||||||
|
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
|
||||||
|
co = n1.co ++ BIND ++ n2.co ;
|
||||||
|
g = n2.g
|
||||||
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -19,8 +19,14 @@ concrete ExtendNor of Extend = CatNor **
|
|||||||
GenRP
|
GenRP
|
||||||
]
|
]
|
||||||
with (Grammar = GrammarNor)
|
with (Grammar = GrammarNor)
|
||||||
** {
|
** open Prelude in {
|
||||||
|
|
||||||
flags coding=utf8 ;
|
flags coding=utf8 ;
|
||||||
|
|
||||||
|
lin CompoundN n1 n2 = {
|
||||||
|
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
|
||||||
|
co = n1.co ++ BIND ++ n2.co ;
|
||||||
|
g = n2.g
|
||||||
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -19,8 +19,14 @@ concrete ExtendNno of Extend = CatNno **
|
|||||||
GenRP
|
GenRP
|
||||||
]
|
]
|
||||||
with (Grammar = GrammarNno)
|
with (Grammar = GrammarNno)
|
||||||
** {
|
** open Prelude in {
|
||||||
|
|
||||||
flags coding=utf8 ;
|
flags coding=utf8 ;
|
||||||
|
|
||||||
|
lin CompoundN n1 n2 = {
|
||||||
|
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
|
||||||
|
co = n1.co ++ BIND ++ n2.co ;
|
||||||
|
g = n2.g
|
||||||
|
} ;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user