mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 17:12:50 -06:00
Minor updates to Maltese RGL
removed "definiteness" as a noun param; articles should be treated separately.
This commit is contained in:
@@ -107,21 +107,10 @@ resource ParadigmsMlt = open
|
|||||||
let
|
let
|
||||||
gender = if_then_else (Gender) (isNil sing) (inferNounGender coll) (inferNounGender sing) ;
|
gender = if_then_else (Gender) (isNil sing) (inferNounGender coll) (inferNounGender sing) ;
|
||||||
in
|
in
|
||||||
{
|
mkNounWorst sing coll dual det ind gender ;
|
||||||
s = table {
|
|
||||||
Singular Singulative => buildNounTable sing ;
|
|
||||||
Singular Collective => buildNounTable coll ;
|
|
||||||
Dual => buildNounTable dual ;
|
|
||||||
Plural Determinate => buildNounTable det ;
|
|
||||||
Plural Indeterminate => buildNounTable ind
|
|
||||||
} ;
|
|
||||||
g = gender ;
|
|
||||||
} ;
|
|
||||||
|
|
||||||
|
|
||||||
} ; --end of mkNoun overload
|
} ; --end of mkNoun overload
|
||||||
|
|
||||||
|
|
||||||
-- Take the singular and infer gender.
|
-- Take the singular and infer gender.
|
||||||
-- No other plural forms.
|
-- No other plural forms.
|
||||||
-- Params:
|
-- Params:
|
||||||
@@ -191,55 +180,15 @@ resource ParadigmsMlt = open
|
|||||||
-- Gender
|
-- Gender
|
||||||
mkNounWorst : Str -> Str -> Str -> Str -> Str -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
|
mkNounWorst : Str -> Str -> Str -> Str -> Str -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
|
||||||
s = table {
|
s = table {
|
||||||
Singular Singulative => buildNounTable sing ;
|
Singular Singulative => sing ;
|
||||||
Singular Collective => buildNounTable coll ;
|
Singular Collective => coll ;
|
||||||
Dual => buildNounTable dual ;
|
Dual => dual ;
|
||||||
Plural Determinate => buildNounTable det ;
|
Plural Determinate => det ;
|
||||||
Plural Indeterminate => buildNounTable ind
|
Plural Indeterminate => ind
|
||||||
} ;
|
} ;
|
||||||
g = gen ;
|
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
|
-- Correctly abbreviate definite prepositions and join with noun
|
||||||
-- Params:
|
-- Params:
|
||||||
|
|||||||
@@ -244,7 +244,7 @@ resource ResMlt = PatternsMlt ** open Prelude in {
|
|||||||
} ;
|
} ;
|
||||||
-}
|
-}
|
||||||
Noun : Type = {
|
Noun : Type = {
|
||||||
s : Noun_Number => Definiteness => Str ;
|
s : Noun_Number => Str ;
|
||||||
g : Gender ;
|
g : Gender ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user