From f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 Mon Sep 17 00:00:00 2001 From: "john.j.camilleri" Date: Mon, 16 Sep 2013 07:17:27 +0000 Subject: Remove contribs and examples Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb --- examples/SUMO/RGLExt/ExtensionRon.gf | 62 ------------------------------------ 1 file changed, 62 deletions(-) delete mode 100644 examples/SUMO/RGLExt/ExtensionRon.gf (limited to 'examples/SUMO/RGLExt/ExtensionRon.gf') 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 -- cgit v1.2.3