started hungarian project

lib/src/hungarian/MorphoHun.gf

@@ -0,0 +1,47 @@
+--# -path=.:../../prelude
+
+--1 A Simple Hunlish 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 $ParadigmsHun$, which
+-- gives a higher-level access to this module.
+
+resource MorphoHun = open Prelude, (Predef=Predef), ResHun 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
+--   } ;
+--
+--} ;
+--
+
+}