From 51ae8bbce18d4af930f79d22293c9dc7614a9e3d Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Thu, 30 May 2013 13:16:35 +0000 Subject: the Bulgarian phrasebook works again --- examples/phrasebook/SentencesBul.gf | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook/SentencesBul.gf') diff --git a/examples/phrasebook/SentencesBul.gf b/examples/phrasebook/SentencesBul.gf index 4f6d6317f..1b5d453c7 100644 --- a/examples/phrasebook/SentencesBul.gf +++ b/examples/phrasebook/SentencesBul.gf @@ -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 ; -- cgit v1.2.3