From c6f4edaea5f1074ba682fac5d711016f0136998f Mon Sep 17 00:00:00 2001 From: "John J. Camilleri" Date: Wed, 4 Jul 2018 10:09:58 +0200 Subject: Remove examples directory; these now live in gf-contrib All changes have been reflected in the gf-contrib repository: https://github.com/GrammaticalFramework/gf-contrib Now, for WebSetup to build the example grammars, one must have gf-contrib cloned in the same top-level directory as GF. When this isn't the case, WebSetup displays a notice without failing. --- examples/phrasebook/SentencesRon.gf | 71 ------------------------------------- 1 file changed, 71 deletions(-) delete mode 100644 examples/phrasebook/SentencesRon.gf (limited to 'examples/phrasebook/SentencesRon.gf') diff --git a/examples/phrasebook/SentencesRon.gf b/examples/phrasebook/SentencesRon.gf deleted file mode 100644 index 70d3e34d0..000000000 --- a/examples/phrasebook/SentencesRon.gf +++ /dev/null @@ -1,71 +0,0 @@ - -concrete SentencesRon of Sentences = NumeralRon ** SentencesI - [ - IsMass, - IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale, - ThePlace, Nationality, CitiNat, Citizenship, ACitizen, PCitizenship, PropCit -] - with - (Syntax = SyntaxRon), - (Symbolic = SymbolicRon), - (Lexicon = LexiconRon) ** - open SyntaxRon, ExtraRon, (R = ResRon), (P = ParamX), (PR = ParadigmsRon) in { - -oper - NPNationalityRon : Type = {lang : NP ; - country : NP ; - propObj : A; - propPers : R.Gender => P.Number => Str}; - CitizenshipRon : Type = {pers : R.Gender => P.Number => Str; - prop : A}; - - - mkNPNationalityRon : NP -> NP -> A -> Str -> Str -> Str -> Str -> NPNationalityRon = \la,co,pro, s1,s2,s3,s4 -> - {lang = la ; - country = co ; - propObj = pro ; - propPers = mkCitiPers s1 s2 s3 s4 - } ; - - mkCitizenshipRon : A -> Str -> Str -> Str -> Str -> CitizenshipRon = \aobj, ap1, ap2, ap3, ap4 -> {pers = mkCitiPers ap1 ap2 ap3 ap4; prop = aobj}; - - mkCitiPers : Str -> Str -> Str -> Str -> (R.Gender => P.Number => Str) = \francez, franceza, francezi, franceze -> -table {R.Masc => table {P.Sg => francez; - P.Pl => francezi}; - R.Fem => table {P.Sg => franceza; - P.Pl => franceze}}; - - -lincat - Nationality = NPNationalityRon ; - Citizenship = CitizenshipRon ; - -lin - IsMass m q = mkCl (mkNP the_Det m) q ; -- le vin allemand est bon - - IFemale = {name = mkNP i8fem_Pron ; isPron = True ; poss = mkQuant i_Pron} ; - YouFamFemale = {name = mkNP youSg8fem_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ; - YouPolFemale = {name = mkNP youPol8fem_Pron ; isPron = True ; poss = mkQuant youPol_Pron}; - IMale = {name = mkNP i_Pron ; isPron = True ; poss = mkQuant i_Pron} ; - YouFamMale = {name = mkNP youSg_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ; - YouPolMale = {name = mkNP youPol_Pron ; isPron = True ; poss = mkQuant youPol_Pron} ; - ThePlace kind = let name : NP = mkNP the_Quant kind.name ; - condAt : Bool = needIndefPlace kind.name kind.at ; - condTo : Bool = needIndefPlace kind.name kind.to in { - name = name ; - at = if_then_else Adv condAt (mkAdv kind.at (mkNP the_Art kind.name)) (mkAdv kind.at name); - to = if_then_else Adv condTo (mkAdv kind.at (mkNP the_Art kind.name)) (mkAdv kind.to name) - } ; -CitiNat n = {pers = n.propPers; prop = n.propObj} ; -ACitizen p n = mkCl p.name (PR.mkAdv (n.pers ! (p.name.a.g) ! (p.name.a.n))) ; -PCitizenship x = mkPhrase (mkUtt (mkAP x.prop)) ; -PropCit p = p.prop ; - - -oper needIndefPlace : CN -> Prep -> Bool = \cn,prep -> - case of - { => True ; - => False ; - _ => True - }; -} - -- cgit v1.2.3