more compatibility modules

This commit is contained in:
aarne
2008-09-09 14:06:46 +00:00
parent 4f560ea668
commit 95866cbe6c
3 changed files with 33 additions and 0 deletions

View File

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

View File

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

View File

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