1
0
forked from GitHub/gf-rgl

added CompoundN

This commit is contained in:
Krasimir Angelov
2025-08-29 22:35:56 +02:00
parent 52b6305cf2
commit e78497e46d
3 changed files with 21 additions and 3 deletions

View File

@@ -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
} ;
} }

View File

@@ -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
} ;
} }

View File

@@ -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
} ;
} }