diff options
| author | virk.shafqat <virk.shafqat@gmail.com> | 2011-05-11 00:11:52 +0000 |
|---|---|---|
| committer | virk.shafqat <virk.shafqat@gmail.com> | 2011-05-11 00:11:52 +0000 |
| commit | b7e638e534db04bbf4411f5408b684371c86f7f8 (patch) | |
| tree | 14be1135ce5051b049e8008c2b887495520c79f5 /examples/phrasebook/WordsUrd.gf | |
| parent | d106bdd54aa5155b1972257c2584def8084a0977 (diff) | |
refinementsUrdPnb-2011-05-11
Diffstat (limited to 'examples/phrasebook/WordsUrd.gf')
| -rw-r--r-- | examples/phrasebook/WordsUrd.gf | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/examples/phrasebook/WordsUrd.gf b/examples/phrasebook/WordsUrd.gf index 73e023726..8160f818d 100644 --- a/examples/phrasebook/WordsUrd.gf +++ b/examples/phrasebook/WordsUrd.gf @@ -130,7 +130,7 @@ flags coding = utf8 ; AHasAge p num = mkCl p.name (mkNP num (mkCN (modN L.year_N))); AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ; AHasRoom p num = mkCl p.name have_V2 - (mkNP (mkNP a_Det (mkN "كمرہ")) (SyntaxUrd.mkAdv for_Prep (mkNP num (mkN "شخص")))) ; + (mkNP (mkNP a_Det (mkN "كمرہ")) (SyntaxUrd.mkAdv for_Prep (mkNP num (P.mkN "شخص" "شخص" "شخص" "اشخاص" "اشخاص" "شخصو" masculine)))) ; AHasTable p num = mkCl p.name have_V2 (mkNP (mkNP a_Det (mkN "میز")) (SyntaxUrd.mkAdv for_Prep (mkNP num (mkN "شخص")))) ; AHasName p name = mkCl (nameOf p) name ; @@ -160,10 +160,10 @@ flags coding = utf8 ; PropOpen p = mkCl p.name open_Adv ; PropClosed p = mkCl p.name closed_Adv ; - PropOpenDate p d = mkCl p.name (mkVP (mkVP open_Adv) d) ; - PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_Adv) d) ; - PropOpenDay p d = mkCl p.name (mkVP (mkVP open_Adv) d.habitual) ; - PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_Adv) d.habitual) ; + PropOpenDate p d = mkCl p.name (mkVP (mkVP d) open_Adv) ; + PropClosedDate p d = mkCl p.name (mkVP (mkVP d) closed_Adv) ; + PropOpenDay p d = mkCl p.name (mkVP (mkVP d.habitual) open_Adv); + PropClosedDay p d = mkCl p.name (mkVP (mkVP d.habitual) closed_Adv) ; -- Building phrases from strings is complicated: the solution is to use -- mkText : Text -> Text -> Text ; |