diff options
| author | ramona.enache <ramona.enache@chalmers.se> | 2010-05-28 12:15:28 +0000 |
|---|---|---|
| committer | ramona.enache <ramona.enache@chalmers.se> | 2010-05-28 12:15:28 +0000 |
| commit | 8f9eb4f7f32560803d690be2b75e9dcc6cb08502 (patch) | |
| tree | 595441a5b991f7576d221025515b6b37469692e8 /examples/phrasebook/SentencesI.gf | |
| parent | 2d44390bbf681b060574bbcfd95811a4459935db (diff) | |
added inherent number to places, fixed places in French
Diffstat (limited to 'examples/phrasebook/SentencesI.gf')
| -rw-r--r-- | examples/phrasebook/SentencesI.gf | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/examples/phrasebook/SentencesI.gf b/examples/phrasebook/SentencesI.gf index be7170a93..f2b76653a 100644 --- a/examples/phrasebook/SentencesI.gf +++ b/examples/phrasebook/SentencesI.gf @@ -99,8 +99,10 @@ incomplete concrete SentencesI of Sentences = Numeral ** Too property = mkAP too_AdA (mkAP property) ; PropQuality property = mkAP property ; - ThePlace kind = placeNP the_Det kind ; - APlace kind = placeNP a_Det kind ; + ThePlace kind = let dd = if_then_else Det kind.isPl thePl_Det theSg_Det + in placeNP dd kind ; + APlace kind = let dd = if_then_else Det kind.isPl thePl_Det theSg_Det + in placeNP dd kind ; IMale, IFemale = mkPerson i_Pron ; YouFamMale, YouFamFemale = mkPerson youSg_Pron ; @@ -155,12 +157,20 @@ oper } ; NPPlace : Type = {name : NP ; at : Adv ; to : Adv} ; - CNPlace : Type = {name : CN ; at : Prep ; to : Prep} ; + CNPlace : Type = {name : CN ; at : Prep ; to : Prep; isPl : Bool} ; mkCNPlace : CN -> Prep -> Prep -> CNPlace = \p,i,t -> { name = p ; at = i ; - to = t + to = t ; + isPl = False + } ; + + mkCNPlacePl : CN -> Prep -> Prep -> CNPlace = \p,i,t -> { + name = p ; + at = i ; + to = t ; + isPl = True } ; placeNP : Det -> CNPlace -> NPPlace = \det,kind -> |