mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
46 lines
1.0 KiB
Plaintext
46 lines
1.0 KiB
Plaintext
incomplete concrete AppFunctor of App =
|
|
|
|
Translate - [
|
|
-- Verb
|
|
SlashV2a,ComplSlash, -- replaced by a more efficient inlined version
|
|
SlashV2V,
|
|
Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A,
|
|
SlashVV, SlashV2VNP,
|
|
AdvVPSlash, AdVVPSlash, VPSlashPrep,
|
|
-- Sentence
|
|
SlashVP, SlashVS,
|
|
PredSCVP,
|
|
AdvSlash, SlashPrep, SlashVS,
|
|
EmbedS, EmbedQS, EmbedVP, RelS,
|
|
-- Question
|
|
ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP,
|
|
-- Idiom
|
|
CleftNP, CleftAdv,
|
|
ImpP3,
|
|
-- Construction
|
|
-- Extensions
|
|
PassVPSlash, PassAgentVPSlash -- not reachable anyway
|
|
]
|
|
|
|
** open Syntax in {
|
|
|
|
flags
|
|
literal=Symb ;
|
|
|
|
lin
|
|
ComplV2 v np = mkVP v np ;
|
|
|
|
ComplV2V v np vp = mkVP v np vp ;
|
|
-- ComplV2A v np vp = mkVP v np vp ;
|
|
-- ComplV2Q v np vp = mkVP v np vp ;
|
|
-- ComplV2S v np vp = mkVP v np vp ;
|
|
ComplV3 v np vp = mkVP v np vp ;
|
|
|
|
|
|
|
|
PassV2 v2 = passiveVP v2 ;
|
|
RelV2 rp np v2 = mkRCl rp (mkClSlash np (mkVPSlash v2)) ;
|
|
QuestV2 ip np v2 = mkQCl ip (mkClSlash np (mkVPSlash v2)) ;
|
|
|
|
}
|