Added binary numeral grammars.

This commit is contained in:
bringert
2005-12-01 13:11:01 +00:00
parent bb82938d72
commit 30bb51372f
2 changed files with 21 additions and 0 deletions

View File

@@ -0,0 +1,10 @@
abstract Binary = {
cat Bin;
fun End : Bin ;
fun Zero : Bin -> Bin ;
fun One : Bin -> Bin ;
}

View File

@@ -0,0 +1,11 @@
concrete BinaryDigits of Binary = {
flags startcat=Bin ;
lincat Bin = { s : Str } ;
lin End = { s = "" } ;
lin Zero b = { s = "0" ++ b.s } ;
lin One b = { s = "1" ++ b.s } ;
}