Updating romance langs (mkMU) (#442)

* updating romance langs for percentage in Spa

* Delete Setup_compare.hs
This commit is contained in:
Andrea Carrión
2023-09-12 10:29:33 +02:00
committed by GitHub
parent 03d3a8cbc2
commit 3640421022
17 changed files with 25 additions and 18 deletions
+5 -1
View File
@@ -1,4 +1,4 @@
incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
incomplete concrete CatRomance of Cat = CommonX - [SC,Pol,MU]
** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
flags optimize=all_subs ;
@@ -147,4 +147,8 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
N = \n -> n.s ! Sg ;
N2 = \n -> n.s ! Sg ++ n.c2.s ;
N3 = \n -> n.s ! Sg ++ n.c2.s ++ n.c3.s ;
lincat MU = {s : Str ; isPre : Bool ; hasArt : Bool} ;
}
+5 -2
View File
@@ -208,9 +208,12 @@ incomplete concrete NounRomance of Noun =
DetDAP det = det ;
QuantityNP n m = heavyNPpol False {
s = \\c => preOrPost m.isPre m.s (n.s ! NCard Masc);
s = \\c => case <c,m.hasArt> of {
<Acc,True>|<CPrep _,True> => artDef False Masc Sg c ++ preOrPost m.isPre m.s (n.s ! NCard Masc);
_ => preOrPost m.isPre m.s (n.s ! NCard Masc)};
a = agrP3 Masc n.n ;
hasClit = False
} ;
}
}