mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-28 09:28:54 -06:00
55 lines
1.9 KiB
Plaintext
55 lines
1.9 KiB
Plaintext
concrete ExtraLat of ExtraLatAbs =
|
|
CatLat, ExtraLexiconLat, ConjunctionLat **
|
|
open ResLat, ParadigmsLat, Coordination, Prelude in {
|
|
lincat CS = Str ;
|
|
lin
|
|
useS s = combineSentence s ! SPreO ! PreO ! SOV ;
|
|
-- PastPartAP : VPSlash -> AP ; -- lost (opportunity) ; (opportunity) lost in space
|
|
-- PastPartAP vp = { s = vp.part ! VPassPerf } ;
|
|
|
|
UsePronNonDrop p = -- Pron -> NP
|
|
{
|
|
g = p.pers.g ;
|
|
n = p.pers.n ;
|
|
p = p.p ;
|
|
s = p.pers.s ! PronNonDrop ! PronNonRefl ;
|
|
adv = "" ;
|
|
preap, postap = { s = \\_ => "" } ;
|
|
det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = p.pers.n } ;
|
|
} ;
|
|
|
|
AdjCNPre ap cn = -- AP -> CN -> CN
|
|
addAdjToCN (lin AP ap) (lin CN cn) Post ;
|
|
|
|
-- ConjNP : Conj -> ListNP -> NP ; -- she or we
|
|
ConjNPque conj nps =
|
|
{
|
|
s = case conj.c of {
|
|
And => case nps.isBase of {
|
|
False => (conjunctDistrTable Case conj (nps.l ! And)).s ;
|
|
True => \\c => (nps.l ! And).s1 ! c ++ (nps.l ! And).s2 ! c ++ BIND ++ "que"
|
|
} ;
|
|
c => (conjunctDistrTable Case conj (nps.l ! And)).s
|
|
} ;
|
|
n = case conj.c of { And => Pl ; _ => nps.n } ;
|
|
g = nps.g ;
|
|
p = nps.p ;
|
|
adv = nps.adv ;
|
|
preap = nps.preap ;
|
|
postap = nps.postap ;
|
|
det = { s = \\_,_ => "" ; sp = \\_,_ => "" ; n = nps.n };
|
|
} ;
|
|
|
|
everybodyFem_NP = regNP "quisque" "quemque" "cuiusque" "cuique" "quoque" "quisque" Fem Sg ;-- regNP "quisquae" Sg ; -- L...
|
|
somebodyFem_NP = regNP "aliquis" "aliquem" "alicuius" "clicui" "aliquo" "aliquis" Fem Sg ; -- Bayer-Lindauer 60.1
|
|
nobodyFem_NP = regNP "nemo" "neminem" "neminis" "nemini" "nemine" "nemo" Fem Sg ; -- Bayer Lindauer 60.4
|
|
|
|
Nom_Prep = mkPrep "" Nom ;
|
|
Gen_Prep = mkPrep "" Gen ;
|
|
Acc_Prep = mkPrep "" Acc ;
|
|
Dat_Prep = mkPrep "" Dat ;
|
|
Abl_Prep = mkPrep "" Abl ;
|
|
inAbl_Prep = mkPrep "in" Abl ;
|
|
onAbl_Prep = mkPrep "in" Abl ; -- L...
|
|
}
|