From 10e10298d9716c35080c16887a3d50ac4668916a Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 30 May 2018 23:04:40 +0200 Subject: implemented compound nounds which work like adverbs --- examples/phrasebook/SentencesBul.gf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook') diff --git a/examples/phrasebook/SentencesBul.gf b/examples/phrasebook/SentencesBul.gf index cf886f27d..12638fba5 100644 --- a/examples/phrasebook/SentencesBul.gf +++ b/examples/phrasebook/SentencesBul.gf @@ -30,11 +30,11 @@ lin ACitizen p cit = let noun : N = case p.name.a.gn of { R.GSg g => lin N {s = \\nf => cit.s1 ! g ! nf; - rel = cit.s2.s; + rel = cit.s2.s; relPost = False; 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; + rel = cit.s2.s; relPost = False; g = R.AMasc R.Human } } ; -- cgit v1.2.3 From 92d9e20f1994bbb46f06539d0408376973d30f31 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Fri, 15 Jun 2018 13:14:53 +0200 Subject: (Dut) Extend vs. Extra --- examples/phrasebook/WordsDut.gf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook') diff --git a/examples/phrasebook/WordsDut.gf b/examples/phrasebook/WordsDut.gf index 2ba3f3d78..12cab7861 100644 --- a/examples/phrasebook/WordsDut.gf +++ b/examples/phrasebook/WordsDut.gf @@ -3,7 +3,7 @@ concrete WordsDut of Words = SentencesDut ** - open SyntaxDut, (P = ParadigmsDut), (I = IrregDut), (L = LexiconDut), (R=ResDut), ExtraDut, Prelude in { + open SyntaxDut, (P = ParadigmsDut), (I = IrregDut), (L = LexiconDut), (R=ResDut), (E=ExtendDut), Prelude in { lin @@ -173,7 +173,7 @@ ik ga te voet/ ik ga lopend -- miscellaneous QWhatName p = mkQS (mkQCl how_IAdv (mkCl p.name I.heten_V)) ; --hoe heet je - QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ; + QWhatAge p = mkQS (mkQCl (E.ICompAP (mkAP L.old_A)) p.name) ; HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (P.mkV "kosten"))) ; --hoeveel kost... ItCost item price = prop (mkCl item (P.mkV2 (P.mkV "kosten")) price) ; --..item.. kost ..price.. -- cgit v1.2.3