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

Cleaning PhrasebookCat

Browse Source
This commit is contained in:
jordi.saludes
2010-05-26 15:58:12 +00:00
parent d1f0b24145
commit 26fad2dfe2
2 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/phrasebook/SentencesCat.gf
View File

@@ -47,7 +47,6 @@ oper
False => placeNPAdj sup.ord kind False => placeNPAdj sup.ord kind
} ; } ;
-- "el mejor aeropuerto"
placeNPDet : Ord -> CNPlace -> NPPlace = \ord,kind -> placeNPDet : Ord -> CNPlace -> NPPlace = \ord,kind ->
let name : NP = mkNP (mkDet the_Art ord) kind.name in { let name : NP = mkNP (mkDet the_Art ord) kind.name in {
name = name ; name = name ;
@@ -55,7 +54,7 @@ oper
to = SyntaxCat.mkAdv kind.to name ; to = SyntaxCat.mkAdv kind.to name ;
}; };
-- "el aeropuerto más grande"
placeNPAdj : Ord -> CNPlace -> NPPlace = \ord,kind -> placeNPAdj : Ord -> CNPlace -> NPPlace = \ord,kind ->
let name : NP = mkNP the_Art (mkCN kind.name (mkAP ord)) in { let name : NP = mkNP the_Art (mkCN kind.name (mkAP ord)) in {
name = name ; name = name ;

25
examples/phrasebook/WordsCat.gf
View File

@@ -75,20 +75,19 @@ lin
CitRestaurant cit = mkCNPlace (mkCN cit (mkN "restaurant")) dative dative ; CitRestaurant cit = mkCNPlace (mkCN cit (mkN "restaurant")) dative dative ;
-- currencies -- currencies
oper oper corona : A -> CN = \adj ->
Corona : A -> CN = \adj -> let corona_N = (mkN "corona")
let corona = (mkN "corona") in mkCN adj corona_N | mkCN corona_N ;
in mkCN adj corona | mkCN corona ;
lin lin
DanishCrown = Corona (mkA "danès" "danesa" "danesos" "daneses" "a la danesa") ; DanishCrown = corona (mkA "danès" "danesa" "danesos" "daneses" "a la danesa") ;
Dollar = mkCN (mkN "dollar") ; Dollar = mkCN (mkN "dollar") ;
Euro = mkCN (mkN "euro" "euro" masculine) ; Euro = mkCN (mkN "euro" masculine) ;
Lei = mkCN (mkN "leu" "lei" masculine) ; Lei = mkCN (mkN "leu" "lei" masculine) ;
Leva = mkCN (mkN "lev" "lev" masculine) ; Leva = mkCN (mkN "lev" "lev" masculine) ;
NorwegianCrown = Corona (mkA "noruec" "noruega" "noruecs" "noruegues" "a la noruega") ; NorwegianCrown = corona (mkA "noruec" "noruega" "noruecs" "noruegues" "a la noruega") ;
Pound = mkCN (mkN "lliura") ; Pound = mkCN (mkN "lliura") ;
Rouble = mkCN (mkN "ruble") ; Rouble = mkCN (mkN "ruble") ;
SwedishCrown = Corona (mkA "suec" "sueca" "suecs" "sueques" "a la sueca") ; SwedishCrown = corona (mkA "suec" "sueca" "suecs" "sueques" "a la sueca") ;
Zloty = mkCN (mkN "zloty" "zloty" masculine) ; Zloty = mkCN (mkN "zloty" "zloty" masculine) ;
-- nationalities -- nationalities
@@ -181,8 +180,6 @@ lin
PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ;
PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ;
PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ;
-- Building phrases from strings is complicated: the solution is to use
-- mkText : Text -> Text -> Text ;
PSeeYouPlaceDate p d = PSeeYouPlaceDate p d =
mkText (lin Text (ss ("a reveure"))) mkText (lin Text (ss ("a reveure")))
(mkText (mkPhrase (mkUtt d)) (mkPhrase (mkUtt p.at))) ; (mkText (mkPhrase (mkUtt d)) (mkPhrase (mkUtt p.at))) ;
@@ -190,11 +187,6 @@ lin
-- PSeeYou d = mkText (lin Text (ss ("fins aviat"))) (mkPhrase (mkUtt d)) ; -- PSeeYou d = mkText (lin Text (ss ("fins aviat"))) (mkPhrase (mkUtt d)) ;
PSeeYouDate d = mkText (lin Text (ss ("a reveure"))) (mkPhrase (mkUtt d)) ; PSeeYouDate d = mkText (lin Text (ss ("a reveure"))) (mkPhrase (mkUtt d)) ;
-- Relations are expressed as "my wife" or "the wife of my son", as defined by $xOf$
-- below. Languages with productive genitives can use an equivalent of
-- "my son's wife" for non-pronouns, as e.g. in English.
-- family relations -- family relations
Wife = xOf sing (mkN "dona") ; Wife = xOf sing (mkN "dona") ;
@@ -274,8 +266,11 @@ lin
xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> mkRelative n (mkCN x) p ; xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> mkRelative n (mkCN x) p ;
open_A = mkA "obert" ; open_A = mkA "obert" ;
closed_A = mkA "tancat" ; closed_A = mkA "tancat" ;
cheap_A = mkA "barat" ; cheap_A = mkA "barat" ;
expensive_A = mkA "car" ; expensive_A = mkA "car" ;
} }