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

Italian "quello" corrected

Browse Source
This commit is contained in:
aarne
2008-10-01 12:11:29 +00:00
parent c2d41e70be
commit 8fbdf3e57c
3 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/tutorial/food/FoodIta.gf
View File

@@ -6,7 +6,7 @@ concrete FoodIta of Food = {
lin
Is item quality = {s = item.s ++ "è" ++ quality.s} ;
This kind = {s = "questo" ++ kind.s} ;
That kind = {s = "quello" ++ kind.s} ;
That kind = {s = "quel" ++ kind.s} ;
QKind quality kind = {s = kind.s ++ quality.s} ;
Wine = {s = "vino"} ;
Cheese = {s = "formaggio"} ;

4
examples/tutorial/foods/FoodsIta.gf
View File

@@ -12,9 +12,9 @@ concrete FoodsIta of Foods = open Prelude in {
Is item quality =
ss (item.s ++ copula item.n ++ quality.s ! item.g ! item.n) ;
This = det Sg "questo" "questa" ;
That = det Sg "quello" "quella" ;
That = det Sg "quel" "quella" ;
These = det Pl "questi" "queste" ;
Those = det Pl "quelli" "quelle" ;
Those = det Pl "quei" "quelle" ;
QKind quality kind = {
s = \\n => kind.s ! n ++ quality.s ! kind.g ! n ;
g = kind.g

10
examples/tutorial/syntax/GrammarIta.gf
View File

@@ -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"} ;