mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
Add support for SOFT_SPACE
This commit is contained in:
@@ -6,4 +6,5 @@ abstract Bind = {
|
||||
concat : S -> S -> S ;
|
||||
bind : S -> S -> S ;
|
||||
softbind : S -> S -> S ;
|
||||
softspace : S -> S -> S ;
|
||||
}
|
||||
|
||||
@@ -12,3 +12,6 @@ BindCnc: hello theregoodbye
|
||||
|
||||
Bind: softbind f1 f2
|
||||
BindCnc: hello theregoodbye
|
||||
|
||||
Bind: softspace f1 f2
|
||||
BindCnc: hello there goodbye
|
||||
|
||||
@@ -3,3 +3,4 @@ f2
|
||||
concat f1 f2
|
||||
bind f1 f2
|
||||
softbind f1 f2
|
||||
softspace f1 f2
|
||||
|
||||
@@ -7,4 +7,5 @@ concrete BindCnc of Bind = open Prelude in {
|
||||
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) ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user