GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 07:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

family relations in PhrasebookBul

Browse Source
This commit is contained in:
krasimir
2010-05-20 13:11:02 +00:00
parent bc7d8f75c3
commit af4cfd5b9d
1 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
examples/phrasebook/WordsBul.gf
View File

@@ -175,11 +175,11 @@ concrete WordsBul of Words = SentencesBul **
-- below. Languages without productive genitives must use an equivalent of -- below. Languages without productive genitives must use an equivalent of
-- "the wife of my son" for non-pronouns. -- "the wife of my son" for non-pronouns.
-- Wife = xOf sing (mkN "wife") ; Wife = xOf sing (mkN041 "съпруга") ;
-- Husband = xOf sing (mkN "husband") ; Husband = xOf sing (mkN015 "съпруг") ;
-- Son = xOf sing (mkN "son") ; Son = xOf sing (mkN018 "син") ;
-- Daughter = xOf sing (mkN "daughter") ; Daughter = xOf sing (mkN047 "дъщеря") ;
-- Children = xOf plur L.child_N ; Children = xOf plur L.child_N ;
-- week days -- week days
@@ -216,8 +216,8 @@ concrete WordsBul of Words = SentencesBul **
-- open_Adv = P.mkAdv "open" ; -- open_Adv = P.mkAdv "open" ;
-- closed_Adv = P.mkAdv "closed" ; -- closed_Adv = P.mkAdv "closed" ;
-- xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p ->
-- relativePerson n (mkCN x) (\a,b,c -> mkNP (GenNP b) a c) p ; relativePerson n (mkCN x) (\a,b,c -> mkNP (mkNP the_Quant a c) (SyntaxBul.mkAdv (mkPrep "" R.Dat) b)) p ;
-- nameOf : NPPerson -> NP = \p -> (xOf sing (mkN "name") p).name ; -- nameOf : NPPerson -> NP = \p -> (xOf sing (mkN "name") p).name ;