forked from GitHub/gf-core
fixed some spurious errors in romance
This commit is contained in:
@@ -358,4 +358,8 @@ lin
|
||||
question_N = regN "domanda" ;
|
||||
today_Adv = mkAdv "oggi" ;
|
||||
|
||||
ready_A = mkA "pronto" ;
|
||||
reason_N = mkN "raggione" feminine ;
|
||||
uncertain_A = mkA "insicuro" ;
|
||||
|
||||
} ;
|
||||
|
||||
@@ -28,8 +28,6 @@ resource ParadigmsIta =
|
||||
open
|
||||
(Predef=Predef),
|
||||
Prelude,
|
||||
CommonRomance,
|
||||
ResIta,
|
||||
MorphoIta,
|
||||
BeschIta,
|
||||
CatIta in {
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
concrete StructuralIta of Structural = CatIta **
|
||||
open PhonoIta, MorphoIta, ParadigmsIta, BeschIta, Prelude in {
|
||||
open
|
||||
PhonoIta, MorphoIta,
|
||||
ParadigmsIta, BeschIta, Prelude in {
|
||||
|
||||
flags optimize=all ; coding=utf8 ;
|
||||
|
||||
@@ -82,7 +84,7 @@ lin
|
||||
something_NP = pn2np (mkPN ["qualche cosa"] Masc) ;
|
||||
somewhere_Adv = ss ["qualche parte"] ;
|
||||
that_Quant = let
|
||||
quello : Str -> Str -> Number => Gender => Case => Str =
|
||||
quello : Str -> Str -> ParadigmsIta.Number => ParadigmsIta.Gender => Case => Str =
|
||||
\quel, quelli -> table {
|
||||
Sg => \\g,c => prepCase c ++ genForms quel "quella" ! g ;
|
||||
Pl => \\g,c => prepCase c ++ genForms quelli "quelle" ! g ---- quegli
|
||||
@@ -104,7 +106,7 @@ lin
|
||||
Masc Pl P3 ;
|
||||
|
||||
this_Quant = let
|
||||
questo : Number => Gender => Case => Str = table {
|
||||
questo : ParadigmsIta.Number => ParadigmsIta.Gender => Case => Str = table {
|
||||
Sg => \\g,c => prepCase c ++ genForms "questo" "questa" ! g ;
|
||||
Pl => \\g,c => prepCase c ++ genForms "questi" "queste" ! g
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user