forked from GitHub/gf-core
37 lines
1.0 KiB
Plaintext
37 lines
1.0 KiB
Plaintext
resource ResIta = open Prelude in {
|
|
param
|
|
Number = Sg | Pl ;
|
|
Gender = Masc | Fem ;
|
|
oper
|
|
NounPhrase : Type =
|
|
{s : Str ; g : Gender ; n : Number} ;
|
|
Noun : Type = {s : Number => Str ; g : Gender} ;
|
|
Adjective : Type = {s : Gender => Number => Str} ;
|
|
|
|
det : Number -> Str -> Str -> Noun -> NounPhrase =
|
|
\n,m,f,cn -> {
|
|
s = table {Masc => m ; Fem => f} ! cn.g ++
|
|
cn.s ! n ;
|
|
g = cn.g ;
|
|
n = n
|
|
} ;
|
|
noun : Str -> Str -> Gender -> Noun =
|
|
\vino,vini,g -> {
|
|
s = table {Sg => vino ; Pl => vini} ;
|
|
g = g
|
|
} ;
|
|
adjective : (nero,nera,neri,nere : Str) -> Adjective =
|
|
\nero,nera,neri,nere -> {
|
|
s = table {
|
|
Masc => table {Sg => nero ; Pl => neri} ;
|
|
Fem => table {Sg => nera ; Pl => nere}
|
|
}
|
|
} ;
|
|
regAdj : Str -> Adjective = \nero ->
|
|
let ner : Str = init nero
|
|
in
|
|
adjective nero (ner+"a") (ner+"i") (ner+"e") ;
|
|
copula : Number => Str =
|
|
table {Sg => "è" ; Pl => "sono"} ;
|
|
}
|