forked from GitHub/gf-core
examples for transfer
This commit is contained in:
12
grammars/numerals/Symb.gf
Normal file
12
grammars/numerals/Symb.gf
Normal file
@@ -0,0 +1,12 @@
|
||||
concrete Symb of Nat = open Prelude in {
|
||||
lincat Nat, Bin = SS ;
|
||||
|
||||
lin
|
||||
One = ss "1" ;
|
||||
Succ = postfixSS "'" ;
|
||||
|
||||
BOne = ss "1" ;
|
||||
BX = postfixSS "0" ;
|
||||
BXPlus = postfixSS "1" ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user