mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-15 18:10:12 -06:00
1cad178ec8
NP.s : Bool => Case => Str and NP.w = WDefArt
np.s ! False : Case => Str is the ordinary paradigm; if the np has a
definite article, np.w = WDefArt, and np.s ! True : Case => Str is the
paradigm with definite article omitted, if np.a = Ag g Sg p.
Prepositions now have type
Prep = {s : GenNum => Str ; s2 :Str ; c : Case ; isPrep : PrepType},
and |Prep| = |Case|*|isPrep| = 4 * 3 = 12, independent of |PCase| >= 18.
A preposition p with p.isPrep = isPrepDefArt has in p.s ! (GSg g) : Str
the preposition glued with definite article of a following np in singular.
The modified linearization categories for Prep, NP, Det, DAP, Quant,
Predet are no longer Prep', NP' etc., but Prep, NP etc. in CatGer.
They are now also used in gf-rgl/tests/german/TestLangGer.gf.
The previous auxiliary files abstract/Adjective'.gf etc. are removed.
BUT: for complexitiy reasons,
- the glueing is omitted in SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash,
- SlashVP : NP -> SlashVP -> ClSlash (in SentenceGer and TestLanGer)
are commented out.
SlashVP causes grammar compilation to crash due to memory limits, probably
because mkClause and its modification mkClSlash are too detailed.
32 lines
1.0 KiB
Plaintext
32 lines
1.0 KiB
Plaintext
--# -path=.:../abstract:../common:prelude -- HL
|
|
concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
lin
|
|
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
|
|
|
UttS s = {s = s.s ! Main} ;
|
|
UttQS qs = {s = qs.s ! QDir} ;
|
|
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg False} ;
|
|
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Pl False} ;
|
|
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! ImpF Sg True} ;
|
|
|
|
UttIP ip = {s = ip.s ! Nom} ; --- Acc also
|
|
UttIAdv iadv = iadv ;
|
|
UttNP np = {s = np.s ! False ! Nom ++ bigNP np} ;
|
|
UttVP vp = {s = useInfVP True vp} ; -- without zu
|
|
UttAdv adv = adv ;
|
|
UttCN n = {s = n.s ! Strong ! Sg ! Nom ++ n.adv ++ n.ext ++ n.rc ! Sg} ;
|
|
UttCard n = {s = n.s ! Neutr ! Nom} ;
|
|
UttAP ap = {s = ap.c.p1 ++ ap.s ! APred ++ ap.c.p2 ++ ap.ext} ;
|
|
UttInterj i = i ;
|
|
|
|
NoPConj = {s = []} ;
|
|
PConjConj conj = ss (conj.s2) ;
|
|
|
|
NoVoc = {s = []} ;
|
|
VocNP np = {s = "," ++ np.s ! False ! Nom ++ bigNP np} ;
|
|
|
|
}
|