Add support for SOFT_BIND (which PGF runtime doesn't support)

This commit is contained in:
John J. Camilleri
2021-02-16 14:51:29 +01:00
parent 4d1217b06d
commit 23e49cddb7
5 changed files with 29 additions and 15 deletions

View File

@@ -1,9 +1,10 @@
concrete BindCnc of Bind = open Prelude in {
lincat
S = Str ;
F = { s : Str } ;
S = SS ;
lin
f1 = { s = "hello the" ++ BIND ++ "re" } ;
f2 = { s = "good" ++ "bye" } ;
FtoS f = f.s ;
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) ;
}