mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 09:52:55 -06:00
compatibility modules started to deal with WebALT grammars
This commit is contained in:
9
lib/resource/abstract/Compatibility.gf
Normal file
9
lib/resource/abstract/Compatibility.gf
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
abstract Compatibility = Cat ** {
|
||||||
|
|
||||||
|
-- from Noun 19/4/2008
|
||||||
|
|
||||||
|
fun
|
||||||
|
NumInt : Int -> Num ; -- 57
|
||||||
|
OrdInt : Int -> Ord ; -- 57
|
||||||
|
|
||||||
|
}
|
||||||
11
lib/resource/english/CompatibilityEng.gf
Normal file
11
lib/resource/english/CompatibilityEng.gf
Normal 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"} ;
|
||||||
|
|
||||||
|
}
|
||||||
11
lib/resource/spanish/CompatibilitySpa.gf
Normal file
11
lib/resource/spanish/CompatibilitySpa.gf
Normal 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 ++ "."} ; ---
|
||||||
|
|
||||||
|
}
|
||||||
11
lib/resource/swedish/CompatibilitySwe.gf
Normal file
11
lib/resource/swedish/CompatibilitySwe.gf
Normal 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} ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user