--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)
-}

}