GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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),
(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)

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)));
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 ;