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

refinementsUrdPnb-2011-05-11

Browse Source
This commit is contained in:
virk.shafqat
2011-05-11 00:11:52 +00:00
parent d106bdd54a
commit b7e638e534
2 changed files with 7 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
examples/phrasebook/SentencesUrd.gf
View File

@@ -1,13 +1,4 @@
concrete SentencesUrd of Sentences = NumeralUrd ** SentencesI - [sing,YouFamFemale] with concrete SentencesUrd of Sentences = NumeralUrd ** SentencesI - [sing] with
(Syntax = SyntaxUrd), (Syntax = SyntaxUrd),
(Symbolic = SymbolicUrd), (Symbolic = SymbolicUrd),
(Lexicon = LexiconUrd) ** (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} ;
} ;

10
examples/phrasebook/WordsUrd.gf
View File

@@ -130,7 +130,7 @@ flags coding = utf8 ;
AHasAge p num = mkCl p.name (mkNP num (mkCN (modN L.year_N))); 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) ; AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ;
AHasRoom p num = mkCl p.name have_V2 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 AHasTable 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 (mkN "شخص")))) ;
AHasName p name = mkCl (nameOf p) name ; AHasName p name = mkCl (nameOf p) name ;
@@ -160,10 +160,10 @@ flags coding = utf8 ;
PropOpen p = mkCl p.name open_Adv ; PropOpen p = mkCl p.name open_Adv ;
PropClosed p = mkCl p.name closed_Adv ; PropClosed p = mkCl p.name closed_Adv ;
PropOpenDate p d = mkCl p.name (mkVP (mkVP open_Adv) d) ; PropOpenDate p d = mkCl p.name (mkVP (mkVP d) open_Adv) ;
PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_Adv) d) ; PropClosedDate p d = mkCl p.name (mkVP (mkVP d) closed_Adv) ;
PropOpenDay p d = mkCl p.name (mkVP (mkVP open_Adv) d.habitual) ; PropOpenDay p d = mkCl p.name (mkVP (mkVP d.habitual) open_Adv);
PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_Adv) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP d.habitual) closed_Adv) ;
-- Building phrases from strings is complicated: the solution is to use -- Building phrases from strings is complicated: the solution is to use
-- mkText : Text -> Text -> Text ; -- mkText : Text -> Text -> Text ;