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

fixed English, Dutch, French and Romanian phrasebooks

Browse Source
This commit is contained in:
ramona.enache
2010-05-02 11:14:27 +00:00
parent 4e85f8ada3
commit 608b3264fe
6 changed files with 200 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
examples/phrasebook/SentencesRon.gf
View File

@@ -7,21 +7,31 @@ concrete SentencesRon of Sentences = NumeralRon ** SentencesI - [
(Syntax = SyntaxRon),
(Symbolic = SymbolicRon),
(Lexicon = LexiconRon) **
open SyntaxRon, ExtraRon in {
open SyntaxRon, ExtraRon, (R = ResRon), (P = ParamX), (PR = ParadigmsRon) in {
oper
NPNationalityRon : Type = {lang : NP ; country : NP ; propObj : A; propPers : A};
CitizenshipRon : Type = {pers : A; prop : A};
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 -> A -> NPNationalityRon = \la,co,pro, prp ->
mkNPNationalityRon : NP -> NP -> A -> Str -> Str -> Str -> Str -> NPNationalityRon = \la,co,pro, s1,s2,s3,s4 ->
{lang = la ;
country = co ;
propObj = pro ;
propPers = prp
propPers = mkCitiPers s1 s2 s3 s4
} ;
mkCitizenshipRon : A -> A -> CitizenshipRon = \aobj, apers -> {pers = apers; prop = aobj};
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
@@ -41,7 +51,7 @@ lin
to = if_then_else Adv kind.at.needIndef (mkAdv kind.to name) (mkAdv kind.at (mkNP kind.name))
} ;
CitiNat n = {pers = n.propPers; prop = n.propObj} ;
ACitizen p n = mkCl p.name n.pers ;
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 ;
}