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 | |
| parent | d106bdd54aa5155b1972257c2584def8084a0977 (diff) | |
refinementsUrdPnb-2011-05-11
| -rw-r--r-- | examples/phrasebook/SentencesUrd.gf | 13 | ||||
| -rw-r--r-- | examples/phrasebook/WordsUrd.gf | 10 |
2 files changed, 7 insertions, 16 deletions
diff --git a/examples/phrasebook/SentencesUrd.gf b/examples/phrasebook/SentencesUrd.gf index be3538ba3..154ca1d7d 100644 --- a/examples/phrasebook/SentencesUrd.gf +++ b/examples/phrasebook/SentencesUrd.gf @@ -1,13 +1,4 @@ -concrete SentencesUrd of Sentences = NumeralUrd ** SentencesI - [sing,YouFamFemale] with +concrete SentencesUrd of Sentences = NumeralUrd ** SentencesI - [sing] with (Syntax = SyntaxUrd), (Symbolic = SymbolicUrd), - (Lexicon = LexiconUrd) ** - open - (S=SyntaxUrd), - (P=ParadigmsUrd) in { -lin YouFamFemale = mkPersonUrd youSg_Pron "تیری" ; - -oper - mkPersonUrd : Pron -> Str -> {name : NP ; isPron : Bool ; poss : Quant} = \p,s -> - {name = mkNP (P.mkN s) ; isPron = True ; poss = mkQuant p} ; - } ; + (Lexicon = LexiconUrd) 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 ; |