1
0
forked from GitHub/gf-core

fixed some spurious errors in romance

This commit is contained in:
aarne
2008-10-31 14:39:47 +00:00
parent 88fa05749b
commit 0c1f5cf9f2
9 changed files with 20 additions and 21 deletions

View File

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

View File

@@ -28,8 +28,6 @@ resource ParadigmsIta =
open
(Predef=Predef),
Prelude,
CommonRomance,
ResIta,
MorphoIta,
BeschIta,
CatIta in {

View File

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