diff options
Diffstat (limited to 'examples/SUMO/RGLExt/ExtensionRon.gf')
| -rw-r--r-- | examples/SUMO/RGLExt/ExtensionRon.gf | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/examples/SUMO/RGLExt/ExtensionRon.gf b/examples/SUMO/RGLExt/ExtensionRon.gf deleted file mode 100644 index 50a94e88b..000000000 --- a/examples/SUMO/RGLExt/ExtensionRon.gf +++ /dev/null @@ -1,62 +0,0 @@ -concrete ExtensionRon of Extension = CatRon ** open MorphoRon, ResRon, ConjunctionRon, StructuralRon, Prelude, Coordination,ParamBasic, ParadigmsRon, NounRon in {
-
-
-lincat
- PolSentence = {s : SentForm => Polarity => Str ; flag : Flag};
- [CN] = {s1,s2 : Number => Species => ACase => Str; g : NGender; a : Animacy ; isComp : Bool} ;
- StmtS = {s : Str};
-lin
-
-VerbToNounV2 v2 = VerbToNoun v2 ** {c2 = v2.c2};
-
-
-VerbToNoun vp = { s = \\n,sp,c => vp.s ! PPasse Masc n sp c ;
- g = NNeut ; a = Inanimate };
-
-
-VerbToGerundA vp = {s = \\af => vp.s ! Ger;
- isPre = False
- };
-
-VerbToParticipeA v = {s = \\af => case af of
- {AF g n sp c => v.s ! PPasse g n sp c;
- AA => v.s ! PPasse Masc Sg Indef ANomAcc
- };
- isPre = False
- };
-
-mkPolSent cl = {s = \\f,b => cl.s ! DDir ! RPres ! Simul ! b ! Indic ;
- flag = NothingS ;
- lock_PolSentence = <>
- };
-
-sentToNoun ps = heavyNP {s = \\_ => "\"" ++ ps.s ! Indep ! Pos ++ "\"";
- a = agrP3 Masc Sg; hasClit = HasClit ; isComp = True ;
- ss = "\"" ++ ps.s ! Indep ! Pos ++ "\""
- };
-
-ConjCN conj ss = conjunctDistrTable3 Number Species ACase conj ss ** {
- g = ss.g; a = ss.a; isComp = ss.isComp; needsRefForm = False
- };
-
-
-BaseCN x y ={
- s1 = \\n,sp,c => x.s ! n ! sp ! c ;
- s2 = \\n,sp,c => y.s ! n ! sp ! c ;
- g = x.g; a = x.a ; isComp = x.isComp;
- needsRefForm = False};
-
-ConsCN xs x = consrTable3 Number Species ACase comma xs x ** {g = x.g; a = x.a; isComp = x.isComp; needsRefForm = False} ;
-
-at_Prep = mkPrep "la" Ac True;
-per_Prep = mkPrep "per" Ac True;
-
-UsePolSentence p ps = {s = ps.s ! Indep ! p.p};
-
-O1 = UsePN (mkPN "o1") ;
-O2 = UsePN (mkPN "o2") ;
-O3 = UsePN (mkPN "o3") ;
-O4 = UsePN (mkPN "o4") ;
-O5 = UsePN (mkPN "o5") ;
-
-}
\ No newline at end of file |
