mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-30 02:58:35 -06:00
Updating romance langs (mkMU) (#442)
* updating romance langs for percentage in Spa * Delete Setup_compare.hs
This commit is contained in:
@@ -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} ;
|
||||
|
||||
|
||||
}
|
||||
|
||||
@@ -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
|
||||
} ;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user