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 CompatibilityPor of Compatibility = CatPor ** 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

@@ -294,4 +294,7 @@ instance DiffPor of DiffRomance - [iAdvQuestionInv,chooseTA,otherInv,partAgr,sta
param
HasArt = NoArt | UseArt ;
oper
superlCanBePost = False ;
} ;

View File

@@ -252,6 +252,7 @@ oper
mkOrdinal : A -> Ord = \adj ->
lin Ord {
s = \\ag => adj.s ! genNum2Aform ag.g ag.n ;
s2 = \\_ => []
} ;
mkQuantifier : (esse,essa,esses,essas,esso : Str) -> Quant = \esse,essa,esses,essas,esso->
@@ -273,7 +274,7 @@ oper
s,sp = \\g,c => prepCase c ++ genForms muito muita ! g ;
spn = \\c => prepCase c ++ muito ;
n = number;
s2 = [] ;
s2 = \\g => [] ;
isNeg = neg
} ;