mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-07 02:02:51 -06:00
48 lines
1.0 KiB
Plaintext
48 lines
1.0 KiB
Plaintext
--# -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
|
|
-- } ;
|
|
--
|
|
--} ;
|
|
--
|
|
|
|
}
|