mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
103 lines
2.9 KiB
Plaintext
103 lines
2.9 KiB
Plaintext
--# -path=.:prelude
|
|
|
|
concrete SyntaxIta of Syntax = open Prelude, MorphoIta in {
|
|
|
|
lincat
|
|
Phr = {s : Str} ;
|
|
S = {s : Str} ;
|
|
QS = {s : Str} ;
|
|
NP = {s : Str ; g : Gender ; n : Number} ;
|
|
IP = {s : Str ; g : Gender ; n : Number} ;
|
|
CN = Noun ;
|
|
Det = {s : Gender => Str ; n : Number} ;
|
|
AP = {s : Gender => Number => Str} ;
|
|
AdA = {s : Str} ;
|
|
VP = {s : Bool => Gender => Number => Str} ;
|
|
|
|
N = Noun ;
|
|
A = Adjective ;
|
|
V = Verb ;
|
|
V2 = Verb2 ;
|
|
|
|
lin
|
|
PhrS = postfixSS "." ;
|
|
PhrQS = postfixSS "?" ;
|
|
|
|
PosVP np vp = {s = np.s ++ vp.s ! True ! np.g ! np.n} ;
|
|
NegVP np vp = {s = np.s ++ vp.s ! False ! np.g ! np.n} ;
|
|
QPosVP np vp = {s = np.s ++ vp.s ! True ! np.g ! np.n} ;
|
|
QNegVP np vp = {s = np.s ++ vp.s ! False ! np.g ! np.n} ;
|
|
IPPosVP np vp = {s = np.s ++ vp.s ! True ! np.g ! np.n} ;
|
|
IPNegVP np vp = {s = np.s ++ vp.s ! False ! np.g ! np.n} ;
|
|
|
|
IPPosV2 ip np v2 = {s = v2.c ++ ip.s ++ v2.s ! np.n ++ np.s} ;
|
|
IPNegV2 ip np v2 = {s = v2.c ++ ip.s ++ "non" ++ v2.s ! np.n ++ np.s} ;
|
|
|
|
ComplV2 v2 np = {s = \\b,_,n => posneg b ++ v2.s ! n ++ v2.c ++ np.s} ;
|
|
ComplAP ap = {s = \\b,g,n => posneg b ++ copula n ++ ap.s ! g ! n} ;
|
|
|
|
DetCN det cn = {s = det.s ! cn.g ++ cn.s ! det.n ; g = cn.g ; n = det.n} ;
|
|
|
|
ModCN ap cn = {s = \\n => cn.s ! n ++ ap.s ! cn.g ! n ; g = cn.g} ;
|
|
|
|
AdAP ada ap = {s = \\n,g => ada.s ++ ap.s ! n ! g} ;
|
|
|
|
WhichCN cn = {s = "quale" ++ cn.s ! Sg ; g = cn.g ; n = Sg} ;
|
|
|
|
UseN n = n ;
|
|
UseA a = a ;
|
|
UseV v = {s = \\b,_,n => posneg b ++ v.s ! n} ;
|
|
|
|
|
|
this_Det = mkDet Sg (regAdjective "questo") ;
|
|
that_Det = mkDet Sg (regAdjective "quello") ;
|
|
these_Det = mkDet Pl (regAdjective "questo") ;
|
|
those_Det = mkDet Pl (regAdjective "quello") ;
|
|
every_Det = {s = \\_ => "ogni" ; n = Sg} ;
|
|
theSg_Det = {s = artDef Sg ; n = Sg} ;
|
|
thePl_Det = {s = artDef Pl ; n = Pl} ;
|
|
indef_Det = {s = artIndef ; n = Sg} ;
|
|
plur_Det = {s = \\_ => [] ; n = Pl} ;
|
|
two_Det = {s = \\_ => "due" ; n = Pl} ;
|
|
|
|
very_AdA = {s = "molto"} ;
|
|
|
|
|
|
oper
|
|
copula : Number -> Str = \n -> case n of {
|
|
Sg => "è" ;
|
|
Pl => "sono"
|
|
} ;
|
|
|
|
posneg : Bool -> Str = \b -> case b of {
|
|
True => [] ;
|
|
False => "non"
|
|
} ;
|
|
|
|
mkDet : Number -> Adjective -> Det = \n,adj -> {
|
|
s = \\g => adj.s ! g ! n ;
|
|
n = n ;
|
|
lock_Det = <>
|
|
} ;
|
|
|
|
artDef : Number -> Gender => Str = \n -> case n of {
|
|
Sg => table {
|
|
Masc => pre {"il" ; "lo" / sImpuro} ;
|
|
Fem => "la"
|
|
} ;
|
|
Pl => table {
|
|
Masc => pre {"i" ; "gli" / sImpuro ; "gli" / vowel} ;
|
|
Fem => "le"
|
|
}
|
|
} ;
|
|
|
|
artIndef : Gender => Str = table {
|
|
Masc => pre {"un" ; "uno" / sImpuro} ;
|
|
Fem => pre {"una" ; "un'" / vowel}
|
|
} ;
|
|
|
|
sImpuro : Strs = strs {"sb" ; "sp" ; "sy" ; "z"} ;
|
|
vowel : Strs = strs {"a" ; "e" ; "i" ; "o" ; "u"} ;
|
|
|
|
}
|