msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Minor updates to Maltese RGL

Browse Source 
removed "definiteness" as a noun param; articles should be treated separately.
This commit is contained in:
john.j.camilleri
2012-02-29 08:33:56 +00:00
parent eb1b4ecf3f
commit aae0ddc22a
2 changed files with 7 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
lib/src/maltese/ParadigmsMlt.gf
View File

@@ -107,21 +107,10 @@ resource ParadigmsMlt = open
let
gender = if_then_else (Gender) (isNil sing) (inferNounGender coll) (inferNounGender sing) ;
in
{
s = table {
Singular Singulative => buildNounTable sing ;
Singular Collective => buildNounTable coll ;
Dual => buildNounTable dual ;
Plural Determinate => buildNounTable det ;
Plural Indeterminate => buildNounTable ind
} ;
g = gender ;
} ;
mkNounWorst sing coll dual det ind gender ;
} ; --end of mkNoun overload
-- Take the singular and infer gender.
-- No other plural forms.
-- Params:
@@ -191,55 +180,15 @@ resource ParadigmsMlt = open
-- Gender
mkNounWorst : Str -> Str -> Str -> Str -> Str -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
s = table {
Singular Singulative => buildNounTable sing ;
Singular Collective => buildNounTable coll ;
Dual => buildNounTable dual ;
Plural Determinate => buildNounTable det ;
Plural Indeterminate => buildNounTable ind
Singular Singulative => sing ;
Singular Collective => coll ;
Dual => dual ;
Plural Determinate => det ;
Plural Indeterminate => ind
} ;
g = gen ;
} ;
-- Build a definiteness table for a single noun number form
-- Params:
-- noun form (eg NEMLA, NEMEL, NEMLIET)
buildNounTable : Str -> (Definiteness => Str) = \noun ->
table {
Definite => addDefinitePreposition "il" noun ;
Indefinite => noun
};
{-
-- Build a definiteness/case table for a single noun number form
-- Params:
-- noun form (eg NEMLA, NEMEL, NEMLIET)
buildNounTable : Str -> (Definiteness => Case => Str) = \noun ->
table {
Definite => table {
Benefactive => addDefinitePreposition "għall" noun;
Comitative => addDefinitePreposition "mal" noun ;
Dative => addDefinitePreposition "lill" noun ;
Elative => addDefinitePreposition "mill" noun ;
Equative => addDefinitePreposition "bħall" noun ;
Genitive => addDefinitePreposition "tal" noun ;
Inessive => addDefinitePreposition "fil" noun;
Instrumental=> addDefinitePreposition "bil" noun;
Lative => addDefinitePreposition "sal" noun ;
Nominative => addDefinitePreposition "il" noun
} ;
Indefinite => table {
Benefactive => abbrevPrepositionIndef "għal" noun;
Comitative => abbrevPrepositionIndef "ma'" noun ;
Dative => abbrevPrepositionIndef "lil" noun ;
Elative => abbrevPrepositionIndef "minn" noun ;
Equative => abbrevPrepositionIndef "bħal" noun ;
Genitive => abbrevPrepositionIndef "ta'" noun ;
Inessive => abbrevPrepositionIndef "fi" noun;
Instrumental=> abbrevPrepositionIndef "bi" noun;
Lative => abbrevPrepositionIndef "sa" noun ;
Nominative => noun
}
};
-}
{-
-- Correctly abbreviate definite prepositions and join with noun
-- Params:

2
lib/src/maltese/ResMlt.gf
View File

@@ -244,7 +244,7 @@ resource ResMlt = PatternsMlt ** open Prelude in {
} ;
-}
Noun : Type = {
s : Noun_Number => Definiteness => Str ;
s : Noun_Number => Str ;
g : Gender ;
} ;