GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

the Bulgarian phrasebook works again

Browse Source
This commit is contained in:
kr.angelov
2013-05-30 13:16:35 +00:00
parent 0893473aac
commit 51ae8bbce1
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
examples/phrasebook/SentencesBul.gf
View File

@@ -29,8 +29,14 @@ lin YouFamMale = mkPerson youSg_Pron ;
lin ACitizen p cit =
let noun : N
= case p.name.a.gn of {
R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf; g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut}} ;
R.GPl => lin N {s = \\nf => cit.s1 ! R.Masc ! nf; g = R.AMasc R.Human}
R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf;
rel = cit.s2.s;
g = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut}
} ;
R.GPl => lin N {s = \\nf => cit.s1 ! R.Masc ! nf;
rel = cit.s2.s;
g = R.AMasc R.Human
}
} ;
in mkCl p.name noun ;