forked from GitHub/gf-rgl
48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
|
|
--1 Idiom: Idiomatic Expressions
|
|
|
|
concrete IdiomEus of Idiom = CatEus ** open Prelude, ResEus, VerbEus in {
|
|
|
|
-- This module defines constructions that are formed in fixed ways,
|
|
-- often different even in closely related languages.
|
|
|
|
lin
|
|
|
|
-- : VP -> Cl ; -- it is hot
|
|
ImpersCl = clFromVP empty_NP ;
|
|
|
|
-- : VP -> Cl ; -- one sleeps
|
|
GenericCl = clFromVP empty_NP ;
|
|
{-
|
|
CleftNP : NP -> RS -> Cl ; -- it is I who did it
|
|
CleftAdv : Adv -> S -> Cl ; -- it is here she slept
|
|
-}
|
|
-- : NP -> Cl ; -- there is a house
|
|
ExistNP np = let vp = UseComp (CompNP np)
|
|
in clFromVP empty_NP vp ;
|
|
|
|
{- ExistIP : IP -> QCl ; -- which houses are there
|
|
|
|
-- 7/12/2012 generalizations of these
|
|
|
|
ExistNPAdv : NP -> Adv -> Cl ; -- there is a house in Paris
|
|
ExistIPAdv : IP -> Adv -> QCl ; -- which houses are there in Paris
|
|
-}
|
|
-- : VP -> VP ; -- garbitzen ari ziren
|
|
ProgrVP vp = vp ** { prc = \\tns => vp.prc ! Pres ++ "ari" } ;
|
|
|
|
-- : VP -> Utt ; -- let's go
|
|
ImpPl1 vp = { s = linVPPrc vp ! Gu } ;
|
|
{-
|
|
|
|
ImpP3 : NP -> VP -> Utt ; -- let John walk
|
|
|
|
-- 3/12/2013 non-reflexive uses of "self"
|
|
|
|
SelfAdvVP : VP -> VP ; -- is at home himself
|
|
SelfAdVVP : VP -> VP ; -- is himself at home
|
|
SelfNP : NP -> NP ; -- the president himself (is at home)
|
|
-}
|
|
|
|
}
|