compatibility modules started to deal with WebALT grammars

This commit is contained in:
aarne
2008-09-08 16:02:05 +00:00
parent 940f7894ec
commit 5fde12f8f4
4 changed files with 42 additions and 0 deletions

View File

@@ -0,0 +1,11 @@
--# -path=.:../romance:../abstract:../common
concrete CompatibilitySpa of Compatibility = CatSpa ** open Prelude, CommonRomance in {
-- from Noun 19/4/2008
lin
NumInt n = {s = \\_ => n.s ; isNum = True ; n = Pl} ;
OrdInt n = {s = \\_ => n.s ++ "."} ; ---
}