diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2018-07-04 10:09:58 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2018-07-04 10:09:58 +0200 |
| commit | c6f4edaea5f1074ba682fac5d711016f0136998f (patch) | |
| tree | bb49b8bac2e3cafd3c1f997115bf5bb841554eab /examples/phrasebook/SentencesFin.gf | |
| parent | 00476ae38687fb7d33081130822cbd4e8f34cfd3 (diff) | |
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.
Diffstat (limited to 'examples/phrasebook/SentencesFin.gf')
| -rw-r--r-- | examples/phrasebook/SentencesFin.gf | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/examples/phrasebook/SentencesFin.gf b/examples/phrasebook/SentencesFin.gf deleted file mode 100644 index ae9dff1eb..000000000 --- a/examples/phrasebook/SentencesFin.gf +++ /dev/null @@ -1,56 +0,0 @@ ---# -coding=latin1 -concrete SentencesFin of Sentences = NumeralFin ** SentencesI - - [Is, IsMass, NameNN, ObjMass, - IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale, - WeMale, WeFemale, YouPlurFamMale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, - NPPlace, CNPlace, placeNP, mkCNPlace, mkCNPlacePl, - GObjectPlease, - NPNationality, mkNPNationality, - Country, PCountry - ] with - (Syntax = SyntaxFin), - (Symbolic = SymbolicFin), - (Lexicon = LexiconFin) ** - open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin), Prelude in { - - flags optimize = noexpand ; - - lincat - Country = {np : NP ; isExternal : Bool} ; - lin - PCountry x = mkPhrase (mkUtt x.np) ; - oper - NPNationality = {lang : NP ; prop : A ; country : {np : NP ; isExternal : Bool}} ; - NPPlace = {name : NP ; at : Adv ; to : Adv ; from : Adv} ; - CNPlace = {name : CN ; isExternal : Bool ; isPl : Bool} ; - - placeNP : Det -> CNPlace -> NPPlace = \det,kind -> - let name : NP = mkNP det kind.name in { - name = name ; - at = mkAdv (P.casePrep (if_then_else P.Case kind.isExternal P.adessive P.inessive)) name ; - to = mkAdv (P.casePrep (if_then_else P.Case kind.isExternal P.allative P.illative)) name ; - from = mkAdv (P.casePrep (if_then_else P.Case kind.isExternal P.ablative P.elative)) name - } ; - - lin - Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista - IsMass mass prop = mkCl (mkNP a_Det mass) (V.UseComp (CompPartAP prop)) ; -- pizza on herkullista - NameNN = mkNP (P.mkPN (P.mkN "NN" "NN:iä")) ; - - IMale, IFemale = - {name = mkNP (ProDrop i_Pron) ; isPron = True ; poss = ProDropPoss i_Pron} ; - YouFamMale, YouFamFemale = - {name = mkNP (ProDrop youSg_Pron) ; isPron = True ; poss = ProDropPoss youSg_Pron} ; - YouPolMale, YouPolFemale = - {name = mkNP (ProDrop youPol_Pron) ; isPron = True ; poss = ProDropPoss youPol_Pron} ; - WeMale, WeFemale = - {name = mkNP (ProDrop we_Pron) ; isPron = True ; poss = ProDropPoss we_Pron} ; - YouPlurFamMale, YouPlurFamFemale, YouPlurPolMale, YouPlurPolFemale = - {name = mkNP (ProDrop youPl_Pron) ; isPron = True ; poss = ProDropPoss youPl_Pron} ; - - ObjMass = PartCN ; - - GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) (lin Voc (ss "kiitos"))) ; - - - } |
