From 8fbdf3e57c84fbfa6b84cab351c9f2b97bd0ce8e Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 1 Oct 2008 12:11:29 +0000 Subject: Italian "quello" corrected --- examples/tutorial/syntax/GrammarIta.gf | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'examples/tutorial/syntax') diff --git a/examples/tutorial/syntax/GrammarIta.gf b/examples/tutorial/syntax/GrammarIta.gf index 04b112ed9..81c0e79fe 100644 --- a/examples/tutorial/syntax/GrammarIta.gf +++ b/examples/tutorial/syntax/GrammarIta.gf @@ -66,9 +66,9 @@ concrete GrammarIta of Grammar = open Prelude, MorphoIta in { UseV v = {s = \\b,_,n => posneg b ++ v.s ! n} ; this_Det = mkDet Sg (regAdjective "questo") ; - that_Det = mkDet Sg (regAdjective "quello") ; + that_Det = mkDet Sg quello ; these_Det = mkDet Pl (regAdjective "questo") ; - those_Det = mkDet Pl (regAdjective "quello") ; + those_Det = mkDet Pl quello ; every_Det = {s = \\_ => "ogni" ; n = Sg} ; theSg_Det = {s = artDef Sg ; n = Sg} ; thePl_Det = {s = artDef Pl ; n = Pl} ; @@ -125,6 +125,12 @@ concrete GrammarIta of Grammar = open Prelude, MorphoIta in { _ => h } ; + quello : Adjective = + let + quel = pre {"quel" ; "quello" / sImpuro ; "quell'" / vowel} ; + quei = pre {"quei" ; "quegli" / sImpuro ; "quegli" / vowel} ; + in mkAdjective quel "quella" quei "quelle" ; + sImpuro : Strs = strs {"sb" ; "sp" ; "sy" ; "z"} ; vowel : Strs = strs {"a" ; "e" ; "i" ; "o" ; "u"} ; -- cgit v1.2.3