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,9 @@
abstract Compatibility = Cat ** {
-- from Noun 19/4/2008
fun
NumInt : Int -> Num ; -- 57
OrdInt : Int -> Ord ; -- 57
}

View File

@@ -0,0 +1,11 @@
--# -path=.:../abstract:../common
concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
-- from Noun 19/4/2008
lin
NumInt n = {s = n.s ; n = Pl ; hasCard = True} ;
OrdInt n = {s = n.s ++ "th"} ;
}

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 ++ "."} ; ---
}

View File

@@ -0,0 +1,11 @@
--# -path=.:../scandinavian:../abstract:../common
concrete CompatibilitySwe of Compatibility = CatSwe ** open Prelude, CommonScand in {
-- from Noun 19/4/2008
lin
NumInt n = {s = \\_ => n.s ; isDet = True ; n = Pl} ;
OrdInt n = {s = n.s ++ ":e" ; isDet = True} ;
}