mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
(Som) Add GenericCl
This commit is contained in:
@@ -6,13 +6,14 @@ concrete IdiomSom of Idiom = CatSom ** open Prelude, ResSom, VerbSom in {
|
||||
-- This module defines constructions that are formed in fixed ways,
|
||||
-- often different even in closely related languages.
|
||||
|
||||
--lin
|
||||
lin
|
||||
|
||||
-- : VP -> Cl ; -- it is hot
|
||||
--ImpersCl = ;
|
||||
|
||||
-- : VP -> Cl ; -- one sleeps
|
||||
--GenericCl = ;
|
||||
GenericCl vp = predVP impersNP (passVP vp) ;
|
||||
|
||||
{-
|
||||
CleftNP : NP -> RS -> Cl ; -- it is I who did it
|
||||
CleftAdv : Adv -> S -> Cl ; -- it is here she slept
|
||||
|
||||
@@ -671,9 +671,11 @@ oper
|
||||
c2 = P v2.c2
|
||||
} ;
|
||||
|
||||
passV2 : Verb2 -> VerbPhrase = \v2 -> useV v2 ** {
|
||||
passV2 : Verb2 -> VerbPhrase = \v2 -> passVP (useV v2) ;
|
||||
|
||||
passVP : VerbPhrase -> VerbPhrase = \vp -> vp ** {
|
||||
c2 = Passive ;
|
||||
c3 = v2.c2 ;
|
||||
c3 = pp2prep vp.c2 ;
|
||||
} ;
|
||||
|
||||
complSlash : VPSlash -> VerbPhrase = \vps -> let np = vps.obj2 in vps ** {
|
||||
|
||||
Reference in New Issue
Block a user