forked from GitHub/gf-core
34 lines
908 B
Plaintext
34 lines
908 B
Plaintext
instance LexAttemptoIta of LexAttempto =
|
|
open ExtraIta, SyntaxIta, ParadigmsIta, ConstructX,
|
|
MakeStructuralIta, (P = Prelude)
|
|
in {
|
|
|
|
oper
|
|
possible_A = mkA "possibile" ;
|
|
necessary_A = mkA "necessario" ;
|
|
own_A = mkA "proprio" ;
|
|
have_VV = SyntaxIta.must_VV ;
|
|
provably_Adv = mkAdv "dimostrabilmente" ;
|
|
provable_A = mkA "dimostrabile" ;
|
|
false_A = mkA "falso" ;
|
|
such_A = mkA "tale" ;
|
|
|
|
genitiveNP np cn = mkNP (mkNP the_Art cn) (SyntaxIta.mkAdv possess_Prep np) ;
|
|
|
|
each_Det = every_Det ; ----
|
|
|
|
that_Subj = mkSubj "che" ;
|
|
|
|
comma_and_Conj = mkConj [] ", e" plural ;
|
|
comma_or_Conj = mkConj [] ", o" singular ;
|
|
slash_Conj = mkConj [] "/" singular ;
|
|
|
|
whose_IDet = mkIDet (mkIQuant "de chi") ; ----
|
|
|
|
eachOf np = mkNP (mkPredet "ciascuno" "ciascuna" genitive P.True) np ;
|
|
|
|
adj_thatCl : A -> S -> Cl = \a,s ->
|
|
mkCl (mkVP (mkVP (mkAP a)) (SyntaxIta.mkAdv that_Subj s)) ;
|
|
|
|
}
|