mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 17:08:54 -06:00
33 lines
1.1 KiB
Plaintext
33 lines
1.1 KiB
Plaintext
--# -path=.:../scandinavian:../abstract:../common:prelude
|
|
concrete ExtendDan of Extend = CatDan **
|
|
ExtendFunctor -
|
|
[
|
|
GenNP, GenModNP, ComplBareVS, CompBareCN,
|
|
ApposNP, DetNPMasc, DetNPFem,
|
|
StrandRelSlash, EmptyRelSlash, StrandQuestSlash,
|
|
PassVPSlash, PassAgentVPSlash, UttVPShort, ByVP, InOrderToVP,
|
|
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
|
|
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, RelVPS,
|
|
MkVPS2, ConjVPS2, ComplVPS2, ReflVPS2, MkVPI2, ConjVPI2, ComplVPI2,
|
|
ICompAP,ProDrop,EmbedSSlash,
|
|
AdAdV, PositAdVAdj, GerundCN, GerundNP, GerundAdv, PresPartAP, PastPartAP, PastPartAgentAP,
|
|
RNP, RNPList, ReflRNP, ReflPron, ReflPoss, PredetRNP, ConjRNP,
|
|
Base_rr_RNP, Base_nr_RNP, Base_rn_RNP, Cons_rr_RNP, Cons_nr_RNP, ReflPossPron,
|
|
CompoundN, CompoundAP, AdvIsNP,
|
|
A2VPSlash, N2VPSlash,
|
|
CardCNCard,
|
|
GenRP
|
|
]
|
|
with (Grammar = GrammarDan)
|
|
** open Prelude in {
|
|
|
|
flags coding=utf8 ;
|
|
|
|
lin CompoundN n1 n2 = {
|
|
s = \\n,s,c => n1.co ++ BIND ++ n2.s ! n ! s ! c ;
|
|
co = n1.co ++ BIND ++ n2.co ;
|
|
g = n2.g
|
|
} ;
|
|
|
|
}
|