fix the word order for superlatives

This commit is contained in:
Krasimir Angelov
2023-11-04 15:04:15 +01:00
parent 14825b5617
commit e97205e04d
23 changed files with 91 additions and 51 deletions

View File

@@ -6,6 +6,6 @@ concrete CompatibilitySpa of Compatibility = CatSpa ** open Prelude, CommonRoman
lin
NumInt n = {s = \\_ => n.s ; isNum = True ; n = Pl} ;
OrdInt n = {s = \\_ => n.s ++ SOFT_BIND ++ "."} ; ---
OrdInt n = {s = \\_ => n.s ++ SOFT_BIND ++ "." ; s2 = \\_ => []} ; ---
}

View File

@@ -240,4 +240,7 @@ instance DiffSpa of DiffRomance - [iAdvQuestionInv,otherInv,partAgr,stare_V,vpAg
param
HasArt = NoArt | UseArt ;
oper
superlCanBePost = True ;
}

View File

@@ -60,7 +60,7 @@ oper
s,sp = \\_,c => prepCase c ++ piu ;
spn = \\c => prepCase c ++ piu ;
n = n ;
s2 = [] ;
s2 = \\g => [] ;
isNeg = False
} ;
-- Inflects for number
@@ -68,7 +68,7 @@ oper
s,sp = \\g,c => prepCase c ++ genForms alcuni alcune ! g ;
spn = \\c => prepCase c ++ alcuni ;
n = n ;
s2 = [] ;
s2 = \\g => [] ;
isNeg = False
} ;
} ;

View File

@@ -237,6 +237,7 @@ oper
mkOrdinal : A -> Ord = \adj->
lin Ord {
s = \\ag => adj.s ! genNum2Aform ag.g ag.n ;
s2 = \\_ => []
} ;
mkQuantifier : (ese,esa,esos,esas,eso : Str) -> Quant = \ese,esa,esos,esas,eso->
@@ -261,7 +262,7 @@ oper
s,sp = \\g,c => prepCase c ++ genForms mucho mucha ! g ;
spn = \\c => prepCase c ++ mucho ;
n = number;
s2 = [] ;
s2 = \\c => [] ;
isNeg = neg
} ;