forked from GitHub/gf-rgl
(Por) change mkPrep paradigm
- add Por to Make.hs - rm elisDe (PhonoPor) - change mkPrep paradigm, and make necessary changes - rm ParsePor
This commit is contained in:
@@ -5,26 +5,7 @@ concrete NounPor of Noun = CatPor ** NounRomance with
|
||||
-- not implemented for romance languages, maybe because it can't
|
||||
-- be done elegantly?
|
||||
CountNP det np = heavyNPpol np.isNeg
|
||||
{s = \\c => det.s ! np.a.g ! c ++ elisDe ++ (np.s ! c).ton ;
|
||||
{s = \\c => det.s ! np.a.g ! c ++ (np.s ! c).ton ;
|
||||
a = np.a ** {n = det.n} } ;
|
||||
|
||||
} ;
|
||||
{--
|
||||
NounPhrase : Type = {
|
||||
s : Case => {c1,c2,comp,ton : Str} ;
|
||||
a : Agr ;
|
||||
hasClit : Bool ;
|
||||
isPol : Bool ; --- only needed for French complement agr
|
||||
isNeg : Bool --- needed for negative NP's such as "personne"
|
||||
} ;
|
||||
|
||||
Det = {
|
||||
s : Gender => Case => Str ;
|
||||
n : Number ;
|
||||
s2 : Str ; -- -ci
|
||||
sp : Gender => Case => Str ; -- substantival: mien, mienne
|
||||
isNeg : Bool -- negative element, e.g. aucun
|
||||
} ;
|
||||
|
||||
Bool -> {s : Case => Str ; a : Agr} -> NounPhrase
|
||||
--}
|
||||
Reference in New Issue
Block a user