GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52: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 be00a3fd39
commit 9ee6ab002a
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
-- "the wife of my son" for non-pronouns.
-- Wife = xOf sing (mkN "wife") ;
-- Husband = xOf sing (mkN "husband") ;
-- Son = xOf sing (mkN "son") ;
-- Daughter = xOf sing (mkN "daughter") ;
-- Children = xOf plur L.child_N ;
Wife = xOf sing (mkN041 "съпруга") ;
Husband = xOf sing (mkN015 "съпруг") ;
Son = xOf sing (mkN018 "син") ;
Daughter = xOf sing (mkN047 "дъщеря") ;
Children = xOf plur L.child_N ;
-- week days
@@ -216,8 +216,8 @@ concrete WordsBul of Words = SentencesBul **
-- open_Adv = P.mkAdv "open" ;
-- closed_Adv = P.mkAdv "closed" ;
-- xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p ->
-- relativePerson n (mkCN x) (\a,b,c -> mkNP (GenNP b) a c) p ;
xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,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 ;