mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-21 10:49:33 -06:00
14 lines
417 B
Plaintext
14 lines
417 B
Plaintext
concrete BindCnc of Bind = open Prelude in {
|
|
lincat
|
|
S = SS ;
|
|
lin
|
|
f1 = ss ("hello the" ++ BIND ++ "re") ;
|
|
f2 = ss ("good" ++ SOFT_BIND ++ "bye") ;
|
|
concat a b = ss (a.s ++ b.s) ;
|
|
bind a b = ss (a.s ++ BIND ++ b.s) ;
|
|
softbind a b = ss (a.s ++ SOFT_BIND ++ b.s) ;
|
|
softspace a b = ss (a.s ++ SOFT_SPACE ++ b.s) ;
|
|
capit a = ss (CAPIT ++ a.s) ;
|
|
allcapit a = ss (ALL_CAPIT ++ a.s) ;
|
|
}
|