diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2018-07-04 13:09:39 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2018-07-04 13:09:39 +0200 |
| commit | f64b17eef7cef49debb9f42e943e02da48089f06 (patch) | |
| tree | bb49b8bac2e3cafd3c1f997115bf5bb841554eab /examples/phrasebook/SentencesFin.gf | |
| parent | 7bfd6199d600f00233fb29806eed8e894644f439 (diff) | |
| parent | c6f4edaea5f1074ba682fac5d711016f0136998f (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/GF
Conflicts:
examples/phrasebook/SentencesBul.gf
examples/phrasebook/WordsBul.gf
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"))) ; - - - } |
