forked from GitHub/gf-core
Add Phrasebook to testsuite. Move grammars into subfolders. Add run-bench script.
This commit is contained in:
13
testsuite/lpgf/unittests/BindCnc.gf
Normal file
13
testsuite/lpgf/unittests/BindCnc.gf
Normal file
@@ -0,0 +1,13 @@
|
||||
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) ;
|
||||
}
|
||||
Reference in New Issue
Block a user