MorphoLav.gf

--# -path=.:../../prelude

--1 A Simple English Resource Morphology
--
-- Aarne Ranta 2002 -- 2005
--
-- This resource morphology contains definitions needed in the resource
-- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which
-- gives a higher-level access to this module.

resource MorphoLav = open Prelude, (Predef=Predef), ResLav in {

  flags optimize=all ;

--2 Determiners
{-
  oper

  mkDeterminer : Number -> Str ->
    {s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s ->
    {s = s;
     sp = \\c => regGenitiveS s ! npcase2case c ;
     n = n ;
     hasNum = True ; -- doesn't matter since s = sp
     } ;

--2 Pronouns


  mkPron : (i,me,my,mine : Str) -> Number -> Person -> Gender ->
    {s : NPCase => Str ; sp : Case => Str ; a : Agr} =
     \i,me,my,mine,n,p,g -> {
     s = table {
       NCase Nom => i ;
       NPAcc => me ;
       NCase Gen => my
       } ;
     a = toAgr n p g ;
     sp = regGenitiveS mine
   } ;
-}
} ;