forked from GitHub/gf-core
78 lines
2.4 KiB
Plaintext
78 lines
2.4 KiB
Plaintext
concrete ChunkEng of Chunk =
|
|
RGLBaseEng - [Pol,Tense],
|
|
NDPredEng
|
|
|
|
** open (PI=PredInstanceEng), ResEng, Prelude in {
|
|
|
|
lincat
|
|
Chunks = {s : Str} ;
|
|
Chunk = {s : Str};
|
|
|
|
lin
|
|
OneChunk c = c ;
|
|
PlusChunk c cs = cc2 c cs ;
|
|
|
|
ChunkPhr c = c ;
|
|
|
|
lin
|
|
|
|
|
|
AP_Chunk ap = allAgrSS (\a -> ap.s ! a) ;
|
|
AdA_Chunk ada = ada ;
|
|
Adv_Chunk adv = adv ;
|
|
AdV_Chunk adv = adv ;
|
|
AdN_Chunk adn = adn ;
|
|
Cl_Chunk cl = ss (PI.declCl cl) ;
|
|
CN_Pl_Chunk cn = ss (cn.s ! Pl ! Nom) ;
|
|
CN_Sg_Chunk cn = ss (cn.s ! Sg ! Nom) ;
|
|
CN_Pl_Gen_Chunk cn = ss (cn.s ! Pl ! Gen) ;
|
|
CN_Sg_Gen_Chunk cn = ss (cn.s ! Sg ! Gen) ;
|
|
Conj_Chunk conj = ss conj.s2 ;
|
|
IAdv_Chunk iadv = iadv ;
|
|
IP_Chunk ip = ss (ip.s ! NCase Nom) ;
|
|
NP_Nom_Chunk np = ss (np.s ! NCase Nom) ;
|
|
NP_Acc_Chunk np = ss (np.s ! NPAcc) ;
|
|
NP_Gen_Chunk np = ss (np.s ! NCase Gen) | ss (np.s ! NPNomPoss) ;
|
|
Numeral_Nom_Chunk num = ss (num.s ! NCard ! Nom) ;
|
|
Numeral_Gen_Chunk num = ss (num.s ! NCard ! Gen) ;
|
|
Ord_Nom_Chunk ord = ss (ord.s ! Nom) ;
|
|
Ord_Gen_Chunk ord = ss (ord.s ! Gen) ;
|
|
Predet_Chunk predet = predet ;
|
|
Prep_Chunk prep = prep ;
|
|
RP_Nom_Chunk rp = ss (rp.s ! RC Neutr (NCase Nom)) ;
|
|
RP_Acc_Chunk rp = ss (rp.s ! RPrep Masc) ; ----
|
|
RP_Gen_Chunk rp = ss (rp.s ! RC Neutr (NCase Gen)) ;
|
|
Subj_Chunk subj = subj ;
|
|
VP_none_Chunk, VP_np_Chunk, VP_s_Chunk, VP_v_VChunk = \vp ->
|
|
let verb = vp.v ! (PI.VASgP1 | PI.VASgP3 | PI.VAPl)
|
|
in
|
|
allAgrSS (\a ->
|
|
verb.p1 ++ verb.p2 ++ vp.adV ++ verb.p3 ++ vp.part ++
|
|
vp.adj ! a ++ vp.c1 ++ vp.obj1.p1 ! a ++ vp.c2 ++ vp.obj2.p1 ! a ++ vp.adv ++ vp.ext
|
|
) ;
|
|
|
|
refl_SgP3_Chunk = ss "himself" | ss "herself" | ss "itself" ;
|
|
neg_Chunk = ss "not" | ss "doesn't" | ss "don't" ;
|
|
copula_Chunk = ss "is" | ss "are" | ss "am" ;
|
|
copula_neg_Chunk = ss "isn't" | ss "aren't" ;
|
|
past_copula_Chunk = ss "was" | ss "were" ;
|
|
past_copula_neg_Chunk = ss "wasn't" | ss "weren't" ;
|
|
future_Chunk = ss "will" ;
|
|
future_neg_Chunk = ss "won't" ;
|
|
cond_Chunk = ss "would" ;
|
|
cond_neg_Chunk = ss "wouldn't" ;
|
|
perfect_Chunk = ss "has" | ss "have" ;
|
|
perfect_neg_Chunk = ss "hasn't" | ss "haven't" ;
|
|
past_perfect_Chunk = ss "had" ;
|
|
past_perfect_neg_Chunk = ss "hadn't" ;
|
|
|
|
|
|
oper
|
|
allAgrSS : (Agr -> Str) -> SS = \f ->
|
|
ss (f (AgP3Sg Masc)) ;
|
|
---- | ss (f (AgP3Sg Fem)) | ss (f (AgP3Sg Neutr)) |
|
|
---- ss (f (AgP1 Sg)) | ss (f (AgP1 Pl)) | ss (f (AgP2 Sg)) | ss (f (AgP2 Pl)) |
|
|
---- ss (f (AgP3Pl)) ;
|
|
|
|
|
|
} |