msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Copula and lexical corrections to PhrasebookCat

Browse Source
This commit is contained in:
inari.listenmaa
2013-03-26 16:47:36 +00:00
parent 2cb7ed5734
commit 8c8c63b2e9
2 changed files with 48 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/phrasebook/SentencesCat.gf
View File

@@ -3,7 +3,8 @@ concrete SentencesCat of Sentences = NumeralCat ** SentencesI - [
IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
WeMale, WeFemale, YouPlurFamMale, YouPlurFamFemale, YouPlurPolFemale, YouPlurPolMale, TheyMale, TheyFemale,
PImperativeFamNeg, PImperativePolNeg, PImperativePlurNeg, --negative imperatives in subjunctive
Superlative
Superlative,
AKnowPerson
]
with
(Syntax = SyntaxCat),
@@ -11,7 +12,7 @@ concrete SentencesCat of Sentences = NumeralCat ** SentencesI - [
(Lexicon = LexiconCat) **
open ParadigmsCat, BeschCat, SyntaxCat, ExtraCat, Prelude in {
flags coding = utf8 ;
--flags coding = utf8 ;
lincat
Superlative = OrdSuperlative ; -- {ord: Ord ; isPre: Bool}
@@ -56,6 +57,9 @@ lin
PImperativePolNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPol_Pron)) v) ;
PImperativePlurNeg v = phrasePlease (ImpNeg (mkNP (ProDrop youPl_Pron)) v) ;
AKnowPerson p q =
let coneixer : V2 = mkV2 (mkV (conèixer_27 "conèixer"))
in mkCl p.name coneixer q.name ;
oper