GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Significant advances in Maltese verb morphology

Browse Source
This commit is contained in:
john.j.camilleri
2012-07-19 16:19:56 +00:00
parent 4884087c2f
commit 01c58b4e23
10 changed files with 1584 additions and 798 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
lib/src/maltese/AdjectiveMlt.gf
View File

@@ -6,6 +6,44 @@
concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in { concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {
-- AP lin
-- A -> AP
PositA a = {
s = \\gn => a.s ! (APosit gn) ;
isPre = True -- TO CHECK
} ;
-- A -> NP -> AP
ComparA a np = {
s = \\gn => case a.hasComp of {
True => a.s ! ACompar ;
_ => compMore ++ a.s ! (APosit gn)
}
++ conjThan ++ np.s ! Nom ;
isPre = False -- TO CHECK
} ;
-- A -> AP
UseComparA a = {
s = \\gn => case a.hasComp of {
True => a.s ! ACompar ;
_ => compMore ++ a.s ! (APosit gn)
} ;
isPre = False -- TO CHECK
} ;
-- Ord -> AP
-- AdjOrd ord = {
-- s = \\_ => ord.s ! Nom ;
-- isPre = True
-- } ;
oper
-- TODO: Don't know where these should go
compMore : Str = "iktar" | "iżjed" ;
compLess : Str = "inqas" ;
conjThan : Str = "minn" ;
} }

134
lib/src/maltese/CatMlt.gf
View File

@@ -4,63 +4,115 @@
-- John J. Camilleri, 2012 -- John J. Camilleri, 2012
-- Licensed under LGPL -- Licensed under LGPL
--concrete CatMlt of Cat = CommonX ** open ResMlt, Prelude, ParamX in { {-
All code in comments was copied from CatEng.gf and may need to be corrected for Maltese.
The same overall structure should be maintained.
-}
concrete CatMlt of Cat = CommonX ** open ResMlt, Prelude in { concrete CatMlt of Cat = CommonX ** open ResMlt, Prelude in {
flags optimize=all_subs ; flags
optimize=all_subs ;
lincat lincat
-- S = {s : Str} ;
-- Cl = {s : ResMlt.Tense => Bool => Str} ;
-- NP = ResMlt.NP ; -- {s : Case => {clit,obj : Str ; isClit : Bool} ; a : Agr} ;
-- VP = ResMlt.VP ; -- {v : Verb ; clit : Str ; clitAgr : ClitAgr ; obj : Agr => Str} ;
-- AP = {s : Gender => Number => Str ; isPre : Bool} ;
-- CN = ResMlt.Noun ; -- {s : Number => Str ; g : Gender} ;
-- Det = {s : Gender => Case => Str ; n : Number} ;
N = ResMlt.Noun ;
N2 = ResMlt.Noun ;
N3 = ResMlt.Noun ;
A = ResMlt.Adj ;
V = ResMlt.Verb ;
-- V2 = ResMlt.Verb ** {c : Case} ;
-- AdA = {s : Str} ;
-- Pol = {s : Str ; b : Bool} ;
-- Tense = {s : Str ; t : ResMlt.Tense} ;
-- Conj = {s : Str ; n : Number} ;
-- Tensed/Untensed
-- Cardinal or ordinal in WORDS (not digits) -- S = {s : Str} ;
-- QS = {s : QForm => Str} ;
-- RS = {s : Agr => Str ; c : NPCase} ; -- c for it clefts
-- SSlash = {s : Str ; c2 : Str} ;
-- Sentence
-- Cl = {s : ResMlt.Tense => Anteriority => Polarity => Order => Str} ;
-- ClSlash = {
-- s : ResMlt.Tense => Anteriority => Polarity => Order => Str ;
-- c2 : Str
-- } ;
-- Imp = {s : Polarity => ImpForm => Str} ;
-- Question
-- QCl = {s : ResMlt.Tense => Anteriority => Polarity => QForm => Str} ;
-- IP = {s : NPCase => Str ; n : Number} ;
-- IComp = {s : Str} ;
-- IDet = {s : Str ; n : Number} ;
-- IQuant = {s : Number => Str} ;
-- Relative
-- RCl = {
-- s : ResMlt.Tense => Anteriority => Polarity => Agr => Str ;
-- c : NPCase
-- } ;
-- RP = {s : RCase => Str ; a : RAgr} ;
-- Verb
-- VP = ResMlt.VP ;
-- VPSlash = ResMlt.VP ** {c2 : Str} ;
-- Comp = {s : Agr => Str} ;
-- Adjective
-- AP = {s : Agr => Str ; isPre : Bool} ;
AP = {s : GenNum => Str ; isPre : Bool} ;
-- Noun
CN = Noun ;
NP = {s : NPCase => Str ; a : Agr} ;
-- Pron = {s : NPCase => Str ; sp : Case => Str ; a : Agr} ;
Det = {s : Str ; n : Num_Number ; hasNum : Bool} ;
-- Det = {s : Str ; sp : NPCase => Str ; n : Number ; hasNum : Bool} ;
-- Predet = {s : Str} ;
-- Ord = { s : Case => Str } ;
Num = {s : Num_Case => Str ; n : Num_Number ; hasCard : Bool} ;
-- Card = {s : Case => Str ; n : Number} ;
-- Quant = {s : Bool => Number => Str ; sp : Bool => Number => NPCase => Str} ;
Quant = {s : Bool => Num_Number => Str} ;
-- Numeral
-- Cardinal or ordinal in WORDS (not digits) [JJC]
Numeral = { Numeral = {
s : CardOrd => Num_Case => Str ; s : CardOrd => Num_Case => Str ;
n : Num_Number n : Num_Number
} ; } ;
-- Cardinal or ordinal in DIGITS (not words) -- Cardinal or ordinal in DIGITS (not words) [JJC]
Digits = { Digits = {
s : Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese s : Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese
n : Num_Number ; n : Num_Number ;
tail : DTail tail : DTail
}; };
{-
-- These below are just examples, I believe they came form Italian. -- Structural
S = {s : Str} ;
Cl = {s : ResMlt.Tense => Bool => Str} ; -- Conj = {s1,s2 : Str ; n : Number} ;
NP = {s : Case => {clit,obj : Str ; isClit : Bool} ; a : Agr} ; -- ---b Conj = {s : Str ; n : Number} ;
VP = {v : Verb ; clit : Str ; clitAgr : ClitAgr ; obj : Agr => Str} ; -- ---b DConj = {s1,s2 : Str ; n : Number} ;
AP = {s : Gender => Number => Str ; isPre : Bool} ; -- Subj = {s : Str} ;
CN = {s : Number => Str ; g : Gender} ; Prep = {s : Str} ;
Det = {s : Gender => Case => Str ; n : Number} ;
N = {s : Number => Str ; g : Gender} ; -- Open lexical classes, e.g. Lexicon
N2 = {s : Number => Str ; g : Gender} ;
A = {s : Number => Str ; isPre : Bool} ; V, VS, VQ, VA = Verb ; -- = {s : VForm => Str} ;
V = ResMlt.Verb ; V2, V2A, V2Q, V2S = Verb ** {c2 : Str} ;
V2 = ResMlt.Verb ** {c : Case} ; V3 = Verb ** {c2, c3 : Str} ;
AdA = {s : Str} ; -- VV = {s : VVForm => Str ; typ : VVType} ;
Pol = {s : Str ; b : Bool} ; -- V2V = Verb ** {c2,c3 : Str ; typ : VVType} ;
Tense = {s : Str ; t : ResMlt.Tense} ;
Conj = {s : Str ; n : Number} ; -- [JJC]
-} A = Adjective ** {hasComp : Bool} ; -- Does the adjective have a comparative form (e.g. ISBAĦ)?
-- A2 = Adjective ** {c2 : Str} ;
-- [JJC]
N, N3 = Noun ;
N2 = Noun ** {c2 : Str} ;
-- N3 = Noun ** {c2,c3 : Str} ;
PN = ProperNoun ;
} }

4
lib/src/maltese/IdiomMlt.gf
View File

@@ -6,9 +6,5 @@
concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in { concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {
-- Cl
-- QCl
-- VP
-- Utt
} }

501
lib/src/maltese/LexiconMlt.gf
View File

@@ -7,390 +7,357 @@
--# -path=.:../abstract:../common:../prelude --# -path=.:../abstract:../common:../prelude
concrete LexiconMlt of Lexicon = CatMlt ** concrete LexiconMlt of Lexicon = CatMlt **
--open ParadigmsMlt, ResMlt, Prelude in { open Prelude, ParadigmsMlt, IrregMlt in {
open ParadigmsMlt, IrregMlt, ResMlt in {
flags optimize=values ; coding=utf8 ; flags
optimize=values ;
coding=utf8 ;
lin lin
{- ===== My Verbs ===== -}
{-
cut_V2 = mkVerb "qata'" "aqta'" "aqtgħu" ;
write_V2 = mkVerb "kiteb" ;
break_V2 = mkVerb "kiser" ;
find_V2 = mkVerb "sab" ;
throw_V2 = mkVerb "tefa'" ;
hear_V2 = mkVerb "sama'" "isma'" "isimgħu" ;
fear_V2 = mkVerb "beża'" ;
pray_V = mkVerb "talab" "itlob" "itolbu" ;
understand_V2 = mkVerb "fehem" ;
pull_V2 = mkVerb "ġibed" ;
walk_V = mkVerb "mexa'" ;
-}
-- die_V = mkVerb "miet" ;
die_V = mkVerb "qarmeċ" ;
{- ===== My Nouns ===== -}
--airplane_N = mkNoun "ajruplan" Masc ;
airplane_N = mkNoun "ajruplan" ;
--apple_N = mkNoun "tuffieħa" Fem ;
apple_N = mkNounColl "tuffieħ" ;
bench_N = mkNoun "bank" "bankijiet" ;
{- ===== Required by RGL ===== -}
-- add_V3 -- add_V3
-- alas_Interj -- alas_Interj
-- already_Adv -- already_Adv
animal_N = mkNoun "annimal" ; animal_N = mkN "annimal" ;
-- answer_V2S -- answer_V2S
apartment_N = mkNoun "appartament" ; apartment_N = mkN "appartament" ;
art_N = mkNounNoPlural "arti" Fem ; art_N = mkNNoPlural "arti" feminine ;
-- ashes_N = mkNoun "rmied" ; -- ashes_N = mkN "rmied" ;
-- ask_V2Q -- ask_V2Q
baby_N = mkNoun "tarbija" "trabi" ; baby_N = mkN "tarbija" "trabi" ;
back_N = mkNoun "dahar" "dhur" ; back_N = mkN "dahar" "dhur" ; -- pronSuffix
-- bad_A bad_A = brokenA "ħażin" "hżiena" "agħar" ;
bank_N = mkNoun "bank" "bankijiet" ; -- BANEK is for lotto booths! bank_N = mkN "bank" "bankijiet" ; -- BANEK is for lotto booths!
bark_N = mkNoun "qoxra" "qoxriet" ; bark_N = mkN "qoxra" "qoxriet" ;
-- beautiful_A beautiful_A = brokenA "sabiħ" "sbieħ" "isbaħ" ;
-- become_VA -- become_VA
beer_N = mkNoun "birra" "birer" ; beer_N = mkN "birra" "birer" ;
-- beg_V2V -- beg_V2V
belly_N = mkNoun "żaqq" "żquq" ; belly_N = mkN "żaqq" "żquq" ; -- pronSuffix
-- big_A big_A = brokenA "kbir" "kbar" "ikbar" ;
bike_N = mkNoun "rota" ; bike_N = mkN "rota" ;
bird_N = mkNoun "għasfur" "għasafar" ; -- what about GĦASFURA? bird_N = mkN "għasfur" "għasafar" ; -- what about GĦASFURA?
-- bite_V2 -- bite_V2
-- black_A black_A = mkA "iswed" "sewda" "suwed" ;
blood_N = mkNoun [] "demm" [] "dmija" [] ; blood_N = mkN [] "demm" [] "dmija" [] ; -- pronSuffix
-- blow_V -- blow_V
-- blue_A blue_A = sameA "blu" ;
boat_N = mkNoun "dgħajsa" "dgħajjes" ; boat_N = mkN "dgħajsa" "dgħajjes" ;
bone_N = mkNounColl "għadam" ; bone_N = mkNColl "għadam" ;
book_N = mkNoun "ktieb" "kotba" ; book_N = mkN "ktieb" "kotba" ;
boot_N = mkNoun "żarbun" "żraben" ; -- what about ŻARBUNA? boot_N = mkN "żarbun" "żraben" ; -- what about ŻARBUNA?
boss_N = mkNoun "mgħallem" "mgħallmin" ; boss_N = mkN "mgħallem" "mgħallmin" ;
boy_N = mkNoun "tifel" "tfal" ; boy_N = mkN "tifel" "tfal" ;
bread_N = mkNounColl "ħobż" ; bread_N = mkNColl "ħobż" ;
-- break_V2 -- break_V2
breast_N = mkNoun "sider" "sdur" ; -- also ISDRA breast_N = mkN "sider" "sdur" ; -- also ISDRA -- pronSuffix
-- breathe_V -- breathe_V
-- broad_A broad_A = mkA "wiesgħa" "wiesgħa" "wiesgħin" ;
brother_N2 = mkNoun "ħu" "aħwa" ; brother_N2 = mkN2 (mkN "ħu" "aħwa") (mkPrep "ta'") ; -- pronSuffix
-- brown_A brown_A = sameA "kannella" ;
-- burn_V -- burn_V
butter_N = mkNoun [] "butir" [] "butirijiet" [] ; butter_N = mkN [] "butir" [] "butirijiet" [] ;
-- buy_V2 -- buy_V2
camera_N = mkNoun "kamera" "kameras" ; camera_N = mkN "kamera" "kameras" ;
cap_N = mkNoun "beritta" ; cap_N = mkN "beritta" ;
car_N = mkNoun "karozza" ; car_N = mkN "karozza" ;
carpet_N = mkNoun "tapit" ; -- TAPITI or TWAPET ? carpet_N = mkN "tapit" ; -- TAPITI or TWAPET ?
cat_N = mkNoun "qattus" "qtates" ; -- what about QATTUSA ? cat_N = mkN "qattus" "qtates" ; -- what about QATTUSA ?
ceiling_N = mkNoun "saqaf" "soqfa"; ceiling_N = mkN "saqaf" "soqfa";
chair_N = mkNoun "siġġu" "siġġijiet" ; chair_N = mkN "siġġu" "siġġijiet" ;
cheese_N = mkNounColl "ġobon" ; cheese_N = mkNColl "ġobon" ;
-- child_N = mkNoun "tfajjel" ; -- Not an easy one... -- child_N = mkN "tfajjel" ; -- Not an easy one...
church_N = mkNoun "knisja" "knejjes" ; church_N = mkN "knisja" "knejjes" ;
city_N = mkNoun "belt" "bliet" Fem ; city_N = mkN "belt" "bliet" feminine ; -- pronSuffix
-- clean_A clean_A = brokenA "nadif" "nodfa" ;
-- clever_A clever_A = regA "bravu" ;
-- close_V2 -- close_V2
cloud_N = mkNounColl "sħab" ; cloud_N = mkNColl "sħab" ;
coat_N = mkNoun "kowt" "kowtijiet" ; coat_N = mkN "kowt" "kowtijiet" ;
-- cold_A cold_A = mkA "kiesaħ" "kiesħa" "kesħin" ;
-- come_V -- come_V
computer_N = mkNoun "kompjuter" "kompjuters" ; computer_N = mkN "kompjuter" "kompjuters" ;
-- correct_A correct_A = regA "korrett" ;
-- count_V2 -- count_V2
country_N = mkNoun "pajjiż" ; country_N = mkN "pajjiż" ; -- pronSuffix
cousin_N = mkNoun "kuġin" ; cousin_N = mkN "kuġin" ; -- pronSuffix
cow_N = mkNoun "baqra" "baqar" "baqartejn" [] [] ; cow_N = mkN "baqra" "baqar" "baqartejn" [] [] ;
-- cut_V2 -- cut_V2
day_N = mkNoun "ġurnata" "ġranet" ; day_N = mkN "ġurnata" "ġranet" ;
-- dig_V -- dig_V
-- dirty_A dirty_A = regA "maħmuġ" ;
distance_N3 = mkNoun "distanza" ; distance_N3 = mkN "distanza" ;
-- do_V2 -- do_V2
doctor_N = mkNoun "tabib" "tobba" ; -- what about TABIBA ? doctor_N = mkN "tabib" "tobba" ; -- what about TABIBA ?
dog_N = mkNoun "kelb" "klieb" ; dog_N = mkN "kelb" "klieb" ;
door_N = mkNoun "bieb" "bibien" ; -- what about BIEBA ? door_N = mkN "bieb" "bibien" ; -- what about BIEBA ?
-- drink_V2 -- drink_V2
-- dry_A dry_A = regA "niexef" ;
-- dull_A dull_A = sameA "tad-dwejjaq" ;
dust_N = mkNounColl "trab" ; -- not sure but sounds right dust_N = mkNColl "trab" ; -- not sure but sounds right
ear_N = mkNounDual "widna" ; ear_N = mkNDual "widna" ; -- pronSuffix
earth_N = mkNoun "art" "artijiet" Fem ; earth_N = mkN "art" "artijiet" feminine ;
-- easy_A2V -- easy_A2V
-- eat_V2 -- eat_V2
egg_N = mkNounColl "bajd" ; egg_N = mkNColl "bajd" ;
-- empty_A empty_A = mkA "vojt" "vojta" "vojta" ;
enemy_N = mkNoun "għadu" "għedewwa" ; enemy_N = mkN "għadu" "għedewwa" ;
eye_N = mkNounWorst "għajn" [] "għajnejn" "għajnejn" "għejun" Fem ; eye_N = mk5N "għajn" [] "għajnejn" "għajnejn" "għejun" feminine ; -- pronSuffix
factory_N = mkNoun "fabbrika" ; factory_N = mkN "fabbrika" ;
-- fall_V -- fall_V
-- far_Adv -- far_Adv
fat_N = mkNounColl "xaħam" ; fat_N = mkNColl "xaħam" ;
father_N2 = mkNoun "missier" "missierijiet" ; father_N2 = mkN2 (mkN "missier" "missierijiet") (mkPrep "ta'") ; -- pronSuffix
-- fear_V2 -- fear_V2
-- fear_VS -- fear_VS
feather_N = mkNounColl "rix" ; feather_N = mkNColl "rix" ;
-- fight_V2 -- fight_V2
-- find_V2 -- find_V2
fingernail_N = mkNoun "difer" [] "difrejn" "dwiefer" [] ; fingernail_N = mkN "difer" [] "difrejn" "dwiefer" [] ; -- pronSuffix
fire_N = mkNoun "nar" "nirien" ; fire_N = mkN "nar" "nirien" ;
fish_N = mkNounColl "ħut" ; fish_N = mkNColl "ħut" ;
-- float_V -- float_V
earth_N = mkNoun "art" "artijiet" Fem ; earth_N = mkN "art" "artijiet" feminine ;
-- flow_V -- flow_V
flower_N = mkNoun "fjura" ; flower_N = mkN "fjura" ;
-- fly_V -- fly_V
fog_N = mkNoun [] "ċpar" [] [] [] ; fog_N = mkN [] "ċpar" [] [] [] ;
foot_N = mkNounWorst "sieq" [] "saqajn" "saqajn" [] Fem ; foot_N = mk5N "sieq" [] "saqajn" "saqajn" [] feminine ; -- pronSuffix
forest_N = mkNoun "foresta" ; -- also MASĠAR forest_N = mkN "foresta" ; -- also MASĠAR
-- forget_V2 -- forget_V2
-- freeze_V -- freeze_V
fridge_N = mkNoun "friġġ" "friġġijiet" ; fridge_N = mkN "friġġ" "friġġijiet" ;
friend_N = mkNoun "ħabib" "ħbieb" ; friend_N = mkN "ħabib" "ħbieb" ; -- pronSuffix
fruit_N = mkNounColl "frott" ; fruit_N = mkNColl "frott" ;
-- full_A full_A = regA "mimli" ;
-- fun_AV -- fun_AV
garden_N = mkNoun "ġnien" "ġonna" ; garden_N = mkN "ġnien" "ġonna" ;
girl_N = mkNoun "tifla" "tfal" ; girl_N = mkN "tifla" "tfal" ;
-- give_V3 -- give_V3
glove_N = mkNoun "ingwanta" ; glove_N = mkN "ingwanta" ;
-- go_V -- go_V
gold_N = mkNoun [] "deheb" [] "dehbijiet" [] ; gold_N = mkN [] "deheb" [] "dehbijiet" [] ;
-- good_A good_A = mkA "tajjeb" "tajba" "tajbin" ;
grammar_N = mkNoun "grammatika" ; grammar_N = mkN "grammatika" ;
grass_N = mkNounWorst "ħaxixa" "ħaxix" [] [] "ħxejjex" Masc ; -- Dict says ĦAXIX = n.koll.m.s., f. -a, pl.ind. ĦXEJJEX grass_N = mk5N "ħaxixa" "ħaxix" [] [] "ħxejjex" masculine ; -- Dict says ĦAXIX = n.koll.m.s., f. -a, pl.ind. ĦXEJJEX
-- green_A green_A = mkA "aħdar" "ħadra" "ħodor" ;
guts_N = mkNoun "musrana" [] [] "musraniet" "msaren" ; guts_N = mkN "musrana" [] [] "musraniet" "msaren" ; -- pronSuffix
hair_N = mkNoun "xagħar" [] [] "xagħariet" "xgħur" ; hair_N = mkN "xagħar" [] [] "xagħariet" "xgħur" ; -- pronSuffix
hand_N = mkNounWorst "id" [] "idejn" "idejn" [] Fem ; hand_N = mk5N "id" [] "idejn" "idejn" [] feminine ; -- pronSuffix
harbour_N = mkNoun "port" "portijiet" ; harbour_N = mkN "port" "portijiet" ;
hat_N = mkNoun "kappell" "kpiepel" ; hat_N = mkN "kappell" "kpiepel" ;
-- hate_V2 -- hate_V2
head_N = mkNoun "ras" "rjus" Fem ; head_N = mkN "ras" "rjus" feminine ; -- pronSuffix
-- hear_V2 -- hear_V2
heart_N = mkNoun "qalb" "qlub" Fem ; heart_N = mkN "qalb" "qlub" feminine ; -- pronSuffix
-- heavy_A heavy_A = brokenA "tqil" "tqal" "itqal" ;
hill_N = mkNoun "għolja" "għoljiet" ; hill_N = mkN "għolja" "għoljiet" ;
-- hit_V2 -- hit_V2
-- hold_V2 -- hold_V2
-- hope_VS -- hope_VS
horn_N = mkNoun "ħorn" "ħornijiet" ; horn_N = mkN "ħorn" "ħornijiet" ;
horse_N = mkNoun "żiemel" "żwiemel" ; horse_N = mkN "żiemel" "żwiemel" ;
-- hot_A hot_A = brokenA "sħun" "sħan" ;
house_N = mkNoun "dar" "djar" Fem ; house_N = mkN "dar" "djar" feminine ;
-- hunt_V2 -- hunt_V2
husband_N = mkNoun "raġel" "rġiel" ; husband_N = mkN "raġel" "rġiel" ; -- pronSuffix ŻEWĠI
ice_N = mkNoun "silġ" "silġiet" ; ice_N = mkN "silġ" "silġiet" ;
-- important_A important_A = sameA "importanti" ;
industry_N = mkNoun "industrija" ; industry_N = mkN "industrija" ;
iron_N = mkNounWorst "ħadida" "ħadid" [] "ħadidiet" "ħdejjed" Masc ; iron_N = mk5N "ħadida" "ħadid" [] "ħadidiet" "ħdejjed" masculine ;
-- john_PN -- john_PN
-- jump_V -- jump_V
-- kill_V2 -- kill_V2
king_N = mkNoun "re" "rejjiet" ; king_N = mkN "re" "rejjiet" ;
knee_N = mkNoun "rkoppa" [] "rkopptejn" "rkoppiet" [] ; -- TODO use mkNounDual knee_N = mkN "rkoppa" [] "rkopptejn" "rkoppiet" [] ; -- TODO use mkNDual -- pronSuffix
-- know_V2 -- know_V2
-- know_VQ -- know_VQ
-- know_VS -- know_VS
lake_N = mkNoun "għadira" "għadajjar" ; lake_N = mkN "għadira" "għadajjar" ;
lamp_N = mkNoun "lampa" ; lamp_N = mkN "lampa" ;
language_N = mkNoun "lingwa" ; -- lsien? language_N = mkN "lingwa" ; -- lsien?
-- laugh_V -- laugh_V
leaf_N = mkNoun "werqa" "weraq" "werqtejn" "werqiet" [] ; leaf_N = mkN "werqa" "weraq" "werqtejn" "werqiet" [] ;
-- learn_V2 -- learn_V2
leather_N = mkNoun "ġilda" "ġild" [] "ġildiet" "ġlud" ; -- mkNounColl "ġild" ; leather_N = mkN "ġilda" "ġild" [] "ġildiet" "ġlud" ; -- mkNColl "ġild" ;
-- leave_V2 -- leave_V2
-- left_Ord -- left_Ord
leg_N = mkNoun "riġel" [] "riġlejn" [] [] ; -- sieq? leg_N = mkN "riġel" [] "riġlejn" [] [] ; -- sieq? -- pronSuffix
-- lie_V -- lie_V
-- like_V2 -- like_V2
-- listen_V2 -- listen_V2
-- live_V -- live_V
liver_N = mkNoun "fwied" [] [] [] "ifdwa" ; liver_N = mkN "fwied" [] [] [] "ifdwa" ; -- pronSuffix
-- long_A long_A = brokenA "twil" "twal" "itwal" ;
-- lose_V2 -- lose_V2
louse_N = mkNoun "qamla" "qamliet" ; louse_N = mkN "qamla" "qamliet" ;
love_N = mkNoun "mħabba" "mħabbiet" ; -- hmmm love_N = mkN "mħabba" "mħabbiet" ; -- hmmm
-- love_V2 -- love_V2
man_N = mkNoun "raġel" "rġiel" ; man_N = mkN "raġel" "rġiel" ;
-- married_A2 -- married_A2
meat_N = mkNoun "laħam" [] [] "laħmiet" "laħmijiet" ; meat_N = mkN "laħam" [] [] "laħmiet" "laħmijiet" ;
milk_N = mkNoun [] "ħalib" [] "ħalibijiet" "ħlejjeb" ; milk_N = mkN [] "ħalib" [] "ħalibijiet" "ħlejjeb" ;
moon_N = mkNoun "qamar" "oqmra" ; -- qmura? moon_N = mkN "qamar" "oqmra" ; -- qmura?
mother_N2 = mkNoun "omm" "ommijiet" Fem ; mother_N2 = mkN2 (mkN "omm" "ommijiet" feminine) (mkPrep "ta'") ; -- pronSuffix
mountain_N = mkNoun "muntanja" ; mountain_N = mkN "muntanja" ;
mouth_N = mkNoun "ħalq" "ħluq" ; mouth_N = mkN "ħalq" "ħluq" ; -- pronSuffix
music_N = mkNoun "musika" ; -- plural? music_N = mkN "musika" ; -- plural?
name_N = mkNoun "isem" "ismijiet" ; name_N = mkN "isem" "ismijiet" ; -- pronSuffix
-- narrow_A narrow_A = mkA "dejjaq" "dejqa" "dojoq" "idjaq" ;
-- near_A near_A = regA "viċin" ;
neck_N = mkNoun "għonq" "għenuq" ; neck_N = mkN "għonq" "għenuq" ; -- pronSuffix
-- new_A new_A = brokenA "ġdid" "ġodda" ;
newspaper_N = mkNoun "gazzetta" ; newspaper_N = mkN "gazzetta" ;
night_N = mkNoun "lejl" "ljieli" ; night_N = mkN "lejl" "ljieli" ;
nose_N = mkNoun "mnieħer" "mniħrijiet" ; nose_N = mkN "mnieħer" "mniħrijiet" ; -- pronSuffix
-- now_Adv -- now_Adv
number_N = mkNoun "numru" ; number_N = mkN "numru" ;
oil_N = mkNoun "żejt" "żjut" ; oil_N = mkN "żejt" "żjut" ;
-- old_A old_A = brokenA "qadim" "qodma" "eqdem" ;
-- open_V2 -- open_V2
-- paint_V2A -- paint_V2A
paper_N = mkNoun "karta" ; paper_N = mkN "karta" ;
-- paris_PN -- paris_PN
peace_N = mkNoun "paċi" "paċijiet" Fem ; peace_N = mkN "paċi" "paċijiet" feminine ;
pen_N = mkNoun "pinna" "pinen" ; pen_N = mkN "pinna" "pinen" ;
person_N = mkNounWorst [] "persuna" [] "persuni" [] Masc ; person_N = mk5N [] "persuna" [] "persuni" [] masculine ;
planet_N = mkNoun "pjaneta" ; planet_N = mkN "pjaneta" ;
plastic_N = mkNounNoPlural "plastik" ; plastic_N = mkNNoPlural "plastik" ;
-- play_V -- play_V
-- play_V2 -- play_V2
policeman_N = mkNounNoPlural "pulizija" ; policeman_N = mkNNoPlural "pulizija" ;
priest_N = mkNoun "qassis" "qassisin" ; priest_N = mkN "qassis" "qassisin" ;
-- probable_AS -- probable_AS
-- pull_V2 -- pull_V2
-- push_V2 -- push_V2
-- put_V2 -- put_V2
queen_N = mkNoun "reġina" "rġejjen" ; queen_N = mkN "reġina" "rġejjen" ;
question_N = mkNoun "mistoqsija" "mistoqsijiet" ; -- domanda? question_N = mkN "mistoqsija" "mistoqsijiet" ; -- domanda?
radio_N = mkNoun "radju" "radjijiet" ; radio_N = mkN "radju" "radjijiet" ;
rain_N = mkNounNoPlural "xita" ; rain_N = mkNNoPlural "xita" ;
-- rain_V0 -- rain_V0
-- read_V2 -- read_V2
-- ready_A ready_A = regA "lest" ;
reason_N = mkNoun "raġun" "raġunijiet" ; reason_N = mkN "raġun" "raġunijiet" ;
-- red_A red_A = mkA "aħmar" "ħamra" "ħomor" ;
religion_N = mkNoun "reliġjon" "reliġjonijiet" ; religion_N = mkN "reliġjon" "reliġjonijiet" ;
restaurant_N = mkNoun "restorant" ; restaurant_N = mkN "restorant" ;
-- right_Ord -- right_Ord
river_N = mkNoun "xmara" "xmajjar" ; river_N = mkN "xmara" "xmajjar" ;
road_N = mkNounWorst "triq" [] [] "triqat" "toroq" Fem ; road_N = mk5N "triq" [] [] "triqat" "toroq" feminine ;
rock_N = mkNoun "blata" "blat" [] "blatiet" "blajjiet" ; -- in dictionary BLAT and BLATA are separate! rock_N = mkN "blata" "blat" [] "blatiet" "blajjiet" ; -- in dictionary BLAT and BLATA are separate!
roof_N = mkNoun "saqaf" "soqfa" ; roof_N = mkN "saqaf" "soqfa" ;
root_N = mkNoun "qħerq" "qħeruq" ; root_N = mkN "qħerq" "qħeruq" ;
rope_N = mkNoun "ħabel" "ħbula" ; rope_N = mkN "ħabel" "ħbula" ;
-- rotten_A rotten_A = mkA "mħassar" "mħassra" "mħassrin" ;
-- round_A round_A = regA "tond" ;
-- rub_V2 -- rub_V2
rubber_N = mkNoun "gomma" "gomom" ; rubber_N = mkN "gomma" "gomom" ;
rule_N = mkNoun "regola" ; rule_N = mkN "regola" ;
-- run_V -- run_V
salt_N = mkNoun "melħ" "melħiet" ; salt_N = mkN "melħ" "melħiet" ;
sand_N = mkNoun "ramla" "ramel" [] "ramliet" "rmiel" ; sand_N = mkN "ramla" "ramel" [] "ramliet" "rmiel" ;
-- say_VS -- say_VS
school_N = mkNoun "skola" "skejjel" ; school_N = mkN "skola" "skejjel" ;
science_N = mkNoun "xjenza" ; science_N = mkN "xjenza" ;
-- scratch_V2 -- scratch_V2
sea_N = mkNoun "baħar" [] "baħrejn" "ibħra" [] ; sea_N = mkN "baħar" [] "baħrejn" "ibħra" [] ;
-- see_V2 -- see_V2
seed_N = mkNoun "żerriegħa" "żerrigħat" ; seed_N = mkN "żerriegħa" "żerrigħat" ;
-- seek_V2 -- seek_V2
-- sell_V3 -- sell_V3
-- send_V3 -- send_V3
-- sew_V -- sew_V
-- sharp_A sharp_A = mkA "jaqta" "taqta" "jaqtgħu" ; -- TODO: apostrophe?
sheep_N = mkNoun "nagħġa" "nagħaġ" [] "nagħġiet" [] ; sheep_N = mkN "nagħġa" "nagħaġ" [] "nagħġiet" [] ;
ship_N = mkNoun "vapur" ; ship_N = mkN "vapur" ;
shirt_N = mkNoun "qmis" "qomos" Fem ; shirt_N = mkN "qmis" "qomos" feminine ;
shoe_N = mkNoun "żarbun" "żraben" ; shoe_N = mkN "żarbun" "żraben" ;
shop_N = mkNoun "ħanut" "ħwienet" ; shop_N = mkN "ħanut" "ħwienet" ;
-- short_A short_A = brokenA "qasir" "qosra" "iqsar" ;
silver_N = mkNoun "fidda" "fided" ; silver_N = mkN "fidda" "fided" ;
-- sing_V -- sing_V
sister_N = mkNoun "oħt" "aħwa" Fem ; sister_N = mkN "oħt" "aħwa" feminine ; -- pronSuffix
-- sit_V -- sit_V
skin_N = mkNoun "ġilda" "ġildiet" ; skin_N = mkN "ġilda" "ġildiet" ;
sky_N = mkNoun "sema" "smewwiet" Masc ; sky_N = mkN "sema" "smewwiet" masculine ;
-- sleep_V -- sleep_V
-- small_A small_A = brokenA "zgħir" "zgħar" "iżgħar" ;
-- smell_V -- smell_V
smoke_N = mkNoun "duħħan" "dħaħen" ; smoke_N = mkN "duħħan" "dħaħen" ;
-- smooth_A smooth_A = regA "lixx" ;
snake_N = mkNoun "serp" "sriep" ; snake_N = mkN "serp" "sriep" ;
snow_N = mkNoun [] "borra" [] [] [] ; snow_N = mkN [] "borra" [] [] [] ;
sock_N = mkNoun "kalzetta" ; sock_N = mkN "kalzetta" ;
song_N = mkNoun "kanzunetta" ; song_N = mkN "kanzunetta" ;
-- speak_V2 -- speak_V2
-- spit_V -- spit_V
-- split_V2 -- split_V2
-- squeeze_V2 -- squeeze_V2
-- stab_V2 -- stab_V2
-- stand_V -- stand_V
star_N = mkNoun "stilla" "stilel" ; star_N = mkN "stilla" "stilel" ;
steel_N = mkNounNoPlural "azzar" ; steel_N = mkNNoPlural "azzar" ;
stick_N = mkNoun "lasta" ; stick_N = mkN "lasta" ;
stone_N = mkNoun "ġebla" "ġebel" [] "ġebliet" "ġbiel" ; stone_N = mkN "ġebla" "ġebel" [] "ġebliet" "ġbiel" ;
-- stop_V -- stop_V
stove_N = mkNoun "kuker" "kukers" ; -- fuklar? stove_N = mkN "kuker" "kukers" ; -- fuklar?
-- straight_A straight_A = regA "dritt" ;
student_N = mkNoun "student" ; student_N = mkN "student" ;
-- stupid_A stupid_A = mkA "iblah" "belha" "boloh" ; -- these are really nouns...
-- suck_V2 -- suck_V2
sun_N = mkNoun "xemx" "xmux" Fem ; sun_N = mkN "xemx" "xmux" feminine ;
-- swell_V -- swell_V
-- swim_V -- swim_V
-- switch8off_V2 -- switch8off_V2
-- switch8on_V2 -- switch8on_V2
table_N = mkNoun "mejda" "mwejjed" ; table_N = mkN "mejda" "mwejjed" ;
tail_N = mkNoun "denb" "dnieb" ; tail_N = mkN "denb" "dnieb" ; -- pronSuffix
-- talk_V3 -- talk_V3
-- teach_V2 -- teach_V2
teacher_N = mkNoun "għalliem" "għalliema" ; -- għalliema ? teacher_N = mkN "għalliem" "għalliema" ; -- għalliema ?
television_N = mkNoun "televixin" "televixins" ; television_N = mkN "televixin" "televixins" ;
-- thick_A thick_A = mkA "oħxon" "ħoxna" "ħoxnin" "eħxen" ;
-- thin_A thin_A = brokenA "irqiq" "irqaq" "irqaq" ;
-- think_V -- think_V
-- throw_V2 -- throw_V2
-- tie_V2 -- tie_V2
-- today_Adv -- today_Adv
tongue_N = mkNoun "lsien" "ilsna" ; tongue_N = mkN "lsien" "ilsna" ; -- pronSuffix
tooth_N = mkNoun "sinna" [] [] "sinniet" "snien" ; -- darsa? tooth_N = mkN "sinna" [] [] "sinniet" "snien" ; -- darsa? -- pronSuffix
train_N = mkNoun "ferrovija" ; train_N = mkN "ferrovija" ;
-- travel_V -- travel_V
tree_N = mkNoun "siġra" "siġar" [] "siġriet" [] ; tree_N = mkN "siġra" "siġar" [] "siġriet" [] ;
-- turn_V -- turn_V
-- ugly_A ugly_A = mkA "ikrah" "kerha" "koroh" ; -- ikreh?
-- uncertain_A uncertain_A = regA "inċert" ;
-- understand_V2 -- understand_V2
university_N = mkNoun "università" "universitàjiet" ; university_N = mkN "università" "universitàjiet" ;
village_N = mkNoun "raħal" "rħula" ; -- villaġġ ? village_N = mkN "raħal" "rħula" ; -- villaġġ ? -- pronSuffix
-- vomit_V -- vomit_V
-- wait_V2 -- wait_V2
-- walk_V -- walk_V
war_N = mkNoun "gwerra" "gwerrer" ; war_N = mkN "gwerra" "gwerrer" ;
-- warm_A warm_A = hot_A ;
-- wash_V2 -- wash_V2
-- watch_V2 -- watch_V2
water_N = mkNoun "ilma" "ilmijiet" Masc ; water_N = mkN "ilma" "ilmijiet" masculine ;
-- wet_A wet_A = mkA "imxarrab" "imxarrba" "imxarrbin" ;
-- white_A white_A = mkA "abjad" "bajda" "bojod" ;
-- wide_A wide_A = broad_A ;
wife_N = mkNoun "mara" "nisa" ; wife_N = mkN "mara" "nisa" ; -- pronSuffix MARTI
-- win_V2 -- win_V2
wind_N = mkNoun "riħ" [] [] "rjieħ" "rjiħat" ; wind_N = mkN "riħ" [] [] "rjieħ" "rjiħat" ;
window_N = mkNoun "tieqa" "twieqi" ; window_N = mkN "tieqa" "twieqi" ;
wine_N = mkNoun [] "nbid" [] [] "nbejjed" ; wine_N = mkN [] "nbid" [] [] "nbejjed" ;
wing_N = mkNoun "ġewnaħ" "ġwienaħ" ; wing_N = mkN "ġewnaħ" "ġwienaħ" ;
-- wipe_V2 -- wipe_V2
woman_N = mkNoun "mara" "nisa" ; woman_N = mkN "mara" "nisa" ;
-- wonder_VQ -- wonder_VQ
wood_N = mkNoun "injam" "injamiet" ; wood_N = mkN "injam" "injamiet" ;
worm_N = mkNoun "dudu" "dud" [] "dudiet" "dwied" ; -- duda worm_N = mkN "dudu" "dud" [] "dudiet" "dwied" ; -- duda
-- write_V2 -- write_V2
year_N = mkNoun "sena" [] "sentejn" "snin" [] ; year_N = mkN "sena" [] "sentejn" "snin" [] ; -- pronSuffix SNINI (only plural though!)
-- yellow_A yellow_A = mkA "isfar" "safra" "sofor" ;
-- young_A young_A = small_A ;
} ; } ;

44
lib/src/maltese/NounMlt.gf
View File

@@ -5,7 +5,49 @@
-- Licensed under LGPL -- Licensed under LGPL
concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in { concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
flags optimize=noexpand ;
flags
optimize=noexpand ;
lin
-- Det -> CN -> NP
DetCN det cn = {
s = \\c => det.s ++ cn.s ! numnum2nounnum det.n ! NRegular ;
a = case (numnum2nounnum det.n) of {
Singular _ => AgP3Sg cn.g ;
_ => AgP3Pl
}
-- s = \\c => det.s ++ cn.s ! det.n ! npcase2case c ;
-- a = agrgP3 det.n cn.g
} ;
-- Quant -> Num -> Det
DetQuant quant num = {
s = quant.s ! num.hasCard ! num.n ++ num.s ! NumNominative;
-- sp = \\c => case num.hasCard of {
-- False => quant.sp ! num.hasCard ! num.n ! c ++ num.s ! Nom ;
-- True => quant.sp ! num.hasCard ! num.n ! npNom ++ num.s ! npcase2case c
-- } ;
n = num.n ;
hasNum = num.hasCard
} ;
-- Quant
DefArt = {
s = \\hasCard,n => artDef ;
-- sp = \\hasCard,n => case <n,hasCard> of {
-- <Sg,False> => table { NCase Gen => "its"; _ => "it" } ;
-- <Pl,False> => table { NCase Nom => "they"; NPAcc => "them"; NCase Gen => "theirs" } ;
-- _ => \\c => artDef
-- }
} ;
-- Num
NumSg = {s = \\c => []; n = Num_Sg ; hasCard = False} ;
NumPl = {s = \\c => []; n = Num_Pl ; hasCard = False} ;
UseN n = n ;
UseN2 n = n ;
-- Card -- Card
-- CN -- CN

130
lib/src/maltese/NumeralMlt.gf
View File

@@ -79,18 +79,18 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
-- adjectival, eg ŻEWĠ -- adjectival, eg ŻEWĠ
-- teen, eg TNAX -- teen, eg TNAX
-- ten, eg GĦOXRIN -- ten, eg GĦOXRIN
-- number, eg NumDual -- number, eg Num_Dl
--mkNum : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Num_Number -> Form1 = \unit,ordunit,adjectival,teen,ten,hundred,thousand,num -> { --mkNum : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Num_Number -> Form1 = \unit,ordunit,adjectival,teen,ten,hundred,thousand,num -> {
mkNum : Str -> Str -> Str -> Str -> Str -> Num_Number -> Form1 = \unit,ordunit,adjectival,teen,ten,num -> mkNum : Str -> Str -> Str -> Str -> Str -> Num_Number -> Form1 = \unit,ordunit,adjectival,teen,ten,num ->
let let
hundred = case num of { hundred = case num of {
NumSg => "mija" ; Num_Sg => "mija" ;
NumDual => "mitejn" ; Num_Dl => "mitejn" ;
_ => adjectival _ => adjectival
} ; } ;
thousand = case num of { thousand = case num of {
NumSg => "wieħed" ; Num_Sg => "wieħed" ;
NumDual => "elfejn" ; Num_Dl => "elfejn" ;
_ => case adjectival of { _ => case adjectival of {
_ + "'" => (init adjectival) + "t" ; -- eg SEBA' -> SEBAT _ + "'" => (init adjectival) + "t" ; -- eg SEBA' -> SEBAT
_ + "t" => adjectival ; -- eg SITT -> SITT _ + "t" => adjectival ; -- eg SITT -> SITT
@@ -104,7 +104,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
NumNominative => unit ; -- eg TNEJN NumNominative => unit ; -- eg TNEJN
NumAdjectival => adjectival -- eg ŻEWĠ NumAdjectival => adjectival -- eg ŻEWĠ
} ; } ;
NOrd => \\numcase => definiteArticle ++ ordunit -- eg IT-TIENI NOrd => \\numcase => artDef ++ ordunit -- eg IT-TIENI
} ; } ;
Teen => table { Teen => table {
NCard => table { NCard => table {
@@ -112,35 +112,35 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
NumAdjectival => teen + "-il" -- eg TNAX-IL NumAdjectival => teen + "-il" -- eg TNAX-IL
} ; } ;
NOrd => table { NOrd => table {
NumNominative => definiteArticle ++ teen ; -- eg IT-TNAX NumNominative => artDef ++ teen ; -- eg IT-TNAX
NumAdjectival => definiteArticle ++ (teen + "-il") -- eg IT-TNAX-IL NumAdjectival => artDef ++ (teen + "-il") -- eg IT-TNAX-IL
} }
} ; } ;
Ten => table { Ten => table {
NCard => \\numcase => ten ; -- eg TLETIN NCard => \\numcase => ten ; -- eg TLETIN
NOrd => \\numcase => definiteArticle ++ ten -- eg IT-TLETIN NOrd => \\numcase => artDef ++ ten -- eg IT-TLETIN
} ; } ;
Hund => table { Hund => table {
NCard => case num of { NCard => case num of {
NumSg => table { Num_Sg => table {
NumNominative => "mija" ; -- ie MIJA NumNominative => "mija" ; -- ie MIJA
NumAdjectival => "mitt" -- ie MITT suldat NumAdjectival => "mitt" -- ie MITT suldat
} ; } ;
NumDual => \\numcase => hundred ; -- ie MITEJN Num_Dl => \\numcase => hundred ; -- ie MITEJN
_ => table { _ => table {
NumNominative => hundred ++ "mija" ; -- eg MIJA, SEBA' MIJA NumNominative => hundred ++ "mija" ; -- eg MIJA, SEBA' MIJA
NumAdjectival => hundred ++ "mitt" -- eg MITT, SEBA' MITT suldat NumAdjectival => hundred ++ "mitt" -- eg MITT, SEBA' MITT suldat
} }
} ; } ;
NOrd => case num of { NOrd => case num of {
NumSg => table { Num_Sg => table {
NumNominative => definiteArticle ++ "mija" ; -- ie IL-MIJA NumNominative => artDef ++ "mija" ; -- ie IL-MIJA
NumAdjectival => definiteArticle ++ "mitt" -- ie IL-MITT suldat NumAdjectival => artDef ++ "mitt" -- ie IL-MITT suldat
} ; } ;
NumDual => \\numcase => definiteArticle ++ hundred ; -- ie IL-MITEJN, IL-MITEJN suldat Num_Dl => \\numcase => artDef ++ hundred ; -- ie IL-MITEJN, IL-MITEJN suldat
_ => table { _ => table {
NumNominative => definiteArticle ++ hundred ++ "mija" ; -- eg IS-SEBA' MIJA NumNominative => artDef ++ hundred ++ "mija" ; -- eg IS-SEBA' MIJA
NumAdjectival => definiteArticle ++ hundred ++ "mitt" -- eg IS-SEBA' MITT suldat NumAdjectival => artDef ++ hundred ++ "mitt" -- eg IS-SEBA' MITT suldat
} }
} }
} }
@@ -152,14 +152,14 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
lin lin
-- Unit Ord.Unit Adjectival Teen Ten Number -- Unit Ord.Unit Adjectival Teen Ten Number
n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" NumDual ; n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" Num_Dl ;
n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" NumPl ; -- TODO tlett / tliet ? n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" Num_Pl ; -- TODO tlett / tliet ?
n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" NumPl ; n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" Num_Pl ;
n5 = mkNum "ħamsa" "ħames" "ħames" "ħmistax" "ħamsin" NumPl ; n5 = mkNum "ħamsa" "ħames" "ħames" "ħmistax" "ħamsin" Num_Pl ;
n6 = mkNum "sitta" "sitt" "sitt" "sittax" "sittin" NumPl ; n6 = mkNum "sitta" "sitt" "sitt" "sittax" "sittin" Num_Pl ;
n7 = mkNum "sebgħa" "seba'" "seba'" "sbatax" "sebgħin" NumPl ; n7 = mkNum "sebgħa" "seba'" "seba'" "sbatax" "sebgħin" Num_Pl ;
n8 = mkNum "tmienja" "tmin" "tmin" "tmintax" "tmenin" NumPl ; n8 = mkNum "tmienja" "tmin" "tmin" "tmintax" "tmenin" Num_Pl ;
n9 = mkNum "disgħa" "disa'" "disa'" "dsatax" "disgħin" NumPl ; n9 = mkNum "disgħa" "disa'" "disa'" "dsatax" "disgħin" Num_Pl ;
oper oper
-- Helper functions for below -- Helper functions for below
@@ -173,7 +173,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
} ; } ;
--thou = card ; --thou = card ;
thou = { s = card ; treatAs = form } ; thou = { s = card ; treatAs = form } ;
n = NumPl ; n = Num_Pl ;
f = form ; f = form ;
} ; } ;
@@ -186,13 +186,13 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
} ; } ;
--NOrd => \\numcase => addDefiniteArticle ord --NOrd => \\numcase => addDefiniteArticle ord
NOrd => table { NOrd => table {
NumNominative => definiteArticle ++ ord ; NumNominative => artDef ++ ord ;
NumAdjectival => definiteArticle ++ adj NumAdjectival => artDef ++ adj
} }
} ; } ;
--thou = thousand ; --thou = thousand ;
thou = { s = thousand ; treatAs = form } ; thou = { s = thousand ; treatAs = form } ;
n = NumPl ; n = Num_Pl ;
f = form ; f = form ;
} ; } ;
@@ -206,7 +206,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
} ; } ;
treatAs = form ; treatAs = form ;
} ; } ;
n = NumPl ; n = Num_Pl ;
f = form ; f = form ;
} ; } ;
@@ -219,10 +219,10 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
-- Sub10 ; 1 -- Sub10 ; 1
-- Unit Ord.Unit Adjectival Teen Ten Number -- Unit Ord.Unit Adjectival Teen Ten Number
pot01 = mkNum "wieħed" "ewwel" "wieħed" [] [] NumSg ; pot01 = mkNum "wieħed" "ewwel" "wieħed" [] [] Num_Sg ;
-- Digit -> Sub10 ; d * 1 -- Digit -> Sub10 ; d * 1
pot0 d = d ** {n = case d.n of { NumDual => NumDual ; _ => NumPl } } ; pot0 d = d ** {n = case d.n of { Num_Dl => Num_Dl ; _ => Num_Pl } } ;
-- Sub100 ; 10, 11 -- Sub100 ; 10, 11
-- Cardinal Ordinal Adjectival Thousand Form -- Cardinal Ordinal Adjectival Thousand Form
@@ -241,7 +241,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
NCard => "għaxart" ; NCard => "għaxart" ;
NOrd => addDefiniteArticle "għaxart" NOrd => addDefiniteArticle "għaxart"
} ; } ;
n = NumPl ; n = Num_Pl ;
f = Ten ; f = Ten ;
} ; } ;
-} -}
@@ -273,7 +273,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
let unit = (n.s ! Unit ! NCard ! NumNominative) in let unit = (n.s ! Unit ! NCard ! NumNominative) in
mkForm2 mkForm2
(unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative)) (unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
(definiteArticle ++ unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative)) (artDef ++ unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
Ten Ten
; ;
@@ -285,13 +285,13 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
s = m.s ! Hund ; s = m.s ! Hund ;
thou = { thou = {
s = case m.n of { s = case m.n of {
NumSg => "mitt" ; -- Special case for "mitt elf" Num_Sg => "mitt" ; -- Special case for "mitt elf"
NumDual => "mitejn" ; -- Special case for "mitejn elf" Num_Dl => "mitejn" ; -- Special case for "mitejn elf"
_ => m.thou.s _ => m.thou.s
} ; } ;
treatAs = Hund ; treatAs = Hund ;
} ; } ;
n = NumPl ; n = Num_Pl ;
f = Hund ; f = Hund ;
} ; } ;
@@ -306,18 +306,18 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
NumAdjectival => hund ++ "u" ++ n.s ! NCard ! NumAdjectival NumAdjectival => hund ++ "u" ++ n.s ! NCard ! NumAdjectival
} ; } ;
NOrd => table { NOrd => table {
NumNominative => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumNominative ; NumNominative => artDef ++ hund ++ "u" ++ n.s ! NCard ! NumNominative ;
NumAdjectival => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumAdjectival NumAdjectival => artDef ++ hund ++ "u" ++ n.s ! NCard ! NumAdjectival
} }
} ; } ;
thou = { thou = {
s = hund ++ "u" ++ n.thou.s ; s = hund ++ "u" ++ n.thou.s ;
treatAs = case n.n of { treatAs = case n.n of {
NumSg => Ten ; -- specific case for mija u wiehed elf Num_Sg => Ten ; -- specific case for mija u wiehed elf
_ => n.f -- eg So that "106,000" is treated as "6,000" _ => n.f -- eg So that "106,000" is treated as "6,000"
} ; } ;
} ; } ;
n = NumPl ; n = Num_Pl ;
f = Hund ; f = Hund ;
} ; } ;
@@ -328,18 +328,18 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
pot3 m = { pot3 m = {
s = s =
case <m.n, m.thou.treatAs> of { case <m.n, m.thou.treatAs> of {
<NumSg ,_> => numTable "elf" ; -- 1 * 1000 <Num_Sg ,_> => numTable "elf" ; -- 1 * 1000
<NumDual,_> => numTable "elfejn" ; -- 2 * 2000 <Num_Dl,_> => numTable "elfejn" ; -- 2 * 2000
<NumPl ,Unit> => numTable m.thou.s "elef" ; -- 3-10 * 1000 <Num_Pl ,Unit> => numTable m.thou.s "elef" ; -- 3-10 * 1000
<NumPl ,_> => numTable m.thou.s "elf" -- 11+ * 1000 <Num_Pl ,_> => numTable m.thou.s "elf" -- 11+ * 1000
} ; } ;
{- {-
case m.f of { case m.f of {
Unit => numTable m.thou "elef" ; -- Unit => numTable m.thou "elef" ; --
_ => case m.n of { _ => case m.n of {
NumSg => numTable "elf" ; -- Num_Sg => numTable "elf" ; --
NumDual => numTable "elfejn" ; -- Num_Dl => numTable "elfejn" ; --
NumPl => numTable m.thou "elf" -- Num_Pl => numTable m.thou "elf" --
} }
} ; } ;
-} -}
@@ -347,7 +347,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
s = m.thou.s ; s = m.thou.s ;
treatAs = m.f ; treatAs = m.f ;
} ; } ;
n = NumPl ; n = Num_Pl ;
f = Hund ; -- NOT IMPORTANT f = Hund ; -- NOT IMPORTANT
} ; } ;
@@ -361,15 +361,15 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
} }
in in
case <m.n, m.thou.treatAs> of { case <m.n, m.thou.treatAs> of {
<NumSg ,_> => numTable "elf" ukemm ; <Num_Sg ,_> => numTable "elf" ukemm ;
<NumDual,_> => numTable "elfejn" ukemm ; <Num_Dl,_> => numTable "elfejn" ukemm ;
<NumPl ,Unit> => numTable (m.thou.s ++ "elef") ukemm ; <Num_Pl ,Unit> => numTable (m.thou.s ++ "elef") ukemm ;
<NumPl ,_> => numTable (m.thou.s ++ "elf") ukemm <Num_Pl ,_> => numTable (m.thou.s ++ "elf") ukemm
} ; } ;
{- {-
NumSg => elf2 "elf" ukemm ; Num_Sg => elf2 "elf" ukemm ;
NumDual => elf2 "elfejn" ukemm ; Num_Dl => elf2 "elfejn" ukemm ;
NumPl => case m.f of { Num_Pl => case m.f of {
Unit => elf2 m.thou ("elef" ++ ukemm) ; Unit => elf2 m.thou ("elef" ++ ukemm) ;
_ => elf2 m.thou ("elf" ++ ukemm) _ => elf2 m.thou ("elf" ++ ukemm)
} }
@@ -378,7 +378,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
s = m.thou.s ; s = m.thou.s ;
treatAs = m.f ; treatAs = m.f ;
} ; } ;
n = NumPl ; n = Num_Pl ;
f = Hund ; -- NOT IMPORTANT f = Hund ; -- NOT IMPORTANT
} ; } ;
@@ -388,12 +388,12 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
numTable : Str -> (CardOrd => Num_Case => Str) = \thou -> table { numTable : Str -> (CardOrd => Num_Case => Str) = \thou -> table {
NCard => \\numcase => thou ; NCard => \\numcase => thou ;
NOrd => \\numcase => definiteArticle ++ thou NOrd => \\numcase => artDef ++ thou
} ; } ;
numTable : Str -> Str -> (CardOrd => Num_Case => Str) = \thou,attach -> table { numTable : Str -> Str -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
NCard => \\numcase => thou ++ attach ; NCard => \\numcase => thou ++ attach ;
NOrd => \\numcase => definiteArticle ++ thou ++ attach NOrd => \\numcase => artDef ++ thou ++ attach
} ; } ;
numTable : Str -> (Num_Case => Str) -> (CardOrd => Num_Case => Str) = \thou,attach -> table { numTable : Str -> (Num_Case => Str) -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
@@ -402,8 +402,8 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
NumAdjectival => thou ++ (attach ! NumAdjectival) NumAdjectival => thou ++ (attach ! NumAdjectival)
} ; } ;
NOrd => table { NOrd => table {
NumNominative => definiteArticle ++ thou ++ (attach ! NumNominative) ; NumNominative => artDef ++ thou ++ (attach ! NumNominative) ;
NumAdjectival => definiteArticle ++ thou ++ (attach ! NumAdjectival) NumAdjectival => artDef ++ thou ++ (attach ! NumAdjectival)
} }
} ; } ;
@@ -447,7 +447,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
mkDig : Dig = overload { mkDig : Dig = overload {
mkDig : Str -> Dig = \digit -> lin Dig { mkDig : Str -> Dig = \digit -> lin Dig {
s = digit ; s = digit ;
n = NumPl n = Num_Pl
} ; } ;
mkDig : Str -> Num_Number -> Dig = \digit,num -> lin Dig { mkDig : Str -> Num_Number -> Dig = \digit,num -> lin Dig {
s = digit ; s = digit ;
@@ -468,8 +468,8 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
lin lin
D_0 = mkDig "0" ; D_0 = mkDig "0" ;
D_1 = mkDig "1" NumSg ; D_1 = mkDig "1" Num_Sg ;
D_2 = mkDig "2" NumDual ; D_2 = mkDig "2" Num_Dl ;
D_3 = mkDig "3" ; D_3 = mkDig "3" ;
D_4 = mkDig "4" ; D_4 = mkDig "4" ;
D_5 = mkDig "5" ; D_5 = mkDig "5" ;
@@ -484,7 +484,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
-- Create Digits from combining Dig with Digits -- Create Digits from combining Dig with Digits
IIDig d i = { IIDig d i = {
s = d.s ++ (commaIf i.tail) ++ i.s ; s = d.s ++ (commaIf i.tail) ++ i.s ;
n = NumPl ; n = Num_Pl ;
tail = inc i.tail tail = inc i.tail
} ; } ;

9
lib/src/maltese/OrthoMlt.gf
View File

@@ -1,9 +0,0 @@
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2012
-- Licensed under LGPL
resource OrthoMlt = open Prelude, Predef in {
flags coding=utf8 ;
}

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

File diff suppressed because it is too large Load Diff

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

@@ -6,32 +6,31 @@
--# -path=.:../abstract:../common:../prelude --# -path=.:../abstract:../common:../prelude
{- resource ResMlt = ParamX - [Tense] ** open Prelude, Predef in {
Verb types summary:
===================
- Strong verb: none of radicals are semi-vowels eg ĦAREĠ (Ħ-R-Ġ)
- Defective verb: third radical is semivowel GĦ eg QATA' (Q-T-GĦ)
- Weak verb: third radical is semivowel J eg MEXA (M-X-J)
- Hollow verb: long A or IE btw radicals 1 & 3 eg QAL (Q-W-L) or SAB (S-J-B)
- Double/Geminated verb: radicals 2 & 3 identical eg ĦABB (Ħ-B-B)
- Quadriliteral verb: 4 radicals eg QARMEĊ (Q-R-M-Ċ)
-}
resource ResMlt = PatternsMlt ** open Prelude in {
flags coding=utf8 ; flags coding=utf8 ;
param param
-- Used in the NumeralMlt module Gender = Masc | Fem ;
NPCase = Nom | Gen ;
{- Numerals -}
CardOrd = NCard | NOrd ; CardOrd = NCard | NOrd ;
DTail = T1 | T2 | T3 ; -- This is already defined in ParamX...
Num_Number = Num_Number =
NumSg Num_Sg
| NumDual | Num_Dl
| NumPl | Num_Pl
; ;
-- oper
-- Num_Number : Type = { n : Number ; isDual : Bool } ;
param
DForm = DForm =
Unit -- 0..10 Unit -- 0..10
| Teen -- 11-19 | Teen -- 11-19
@@ -41,32 +40,11 @@ resource ResMlt = PatternsMlt ** open Prelude in {
--| Thou -- 1000+ --| Thou -- 1000+
; ;
Num_Case = Num_Case =
NumNominative NumNominative -- TNEJN, ĦAMSA, TNAX, MIJA
| NumAdjectival ; | NumAdjectival ; -- ŻEWĠ, ĦAMES, TNAX-IL, MITT
{- Nouns -}
{-
Note: NNQ = Non-numerically quantifiable
Nouns can have the following forms:
o Singular
- Singulative (1, >10)
- Collective (NNQ)
o Dual (2)
o Plural
- Determinate (2-10)
- Indeterminate (NNQ)
- Sound
- Broken
- Plural of Plural
Typical combinations thereof (* marks base form):
- Singulative, no plural!
- Singulative*, Plural
- Singulative* (1), Dual (2), Plural (>2)
- Singulative (1, >10), Collective* (NNQ), Determinate Plural (2-10)
- Singulative, Collective*, Determinate Plural, Indeterminate Plural -> very few nouns have these 4 forms
-}
Noun_Sg_Type = Noun_Sg_Type =
Singulative -- eg ĦUTA Singulative -- eg ĦUTA
| Collective -- eg ĦUT | Collective -- eg ĦUT
@@ -81,17 +59,13 @@ resource ResMlt = PatternsMlt ** open Prelude in {
| Plural Noun_Pl_Type -- eg ĦUTIET / ĦWIET | Plural Noun_Pl_Type -- eg ĦUTIET / ĦWIET
; ;
{- NForm =
Noun_PluralType = NRegular -- WIĊĊ
Sound -- External (affix), eg FERGĦA -> FERGĦAT | NPronSuffix Agr ; -- WIĊĊU
| Broken -- Internal, eg FERGĦA -> FRIEGĦI
| Irregular -- eg MARA -> NISA
| PluralOfPlural -- eg TARF -> TRUF -> TRUFIJIET
| Foreign -- eg KARTI, PRATTIĊI, TELEVIXINS
;
-}
Gender = Masc | Fem ; {- Other... -}
GenNum = GSg Gender | GPl ; -- masc/fem/plural, e.g. adjective inflection
Animacy = Animacy =
Animate Animate
@@ -101,167 +75,194 @@ resource ResMlt = PatternsMlt ** open Prelude in {
Definiteness = Definiteness =
Definite -- eg IL-KARTA. In this context same as Determinate Definite -- eg IL-KARTA. In this context same as Determinate
| Indefinite -- eg KARTA | Indefinite -- eg KARTA
; ;
{-
-- CASE AS DEFINED BY GRAMMATIKA MALTIJA, p132
-- Noun cases
Case =
Nominative -- referent as subject, eg IT-TARBIJA ...
| Genitive -- referent as possessor, eg ... TAT-TARBIJA
| Accusative -- referent as direct object
| Dative -- referent as indirect object, eg ... LIT-TARBIJA
| Ablative -- referent as instrument, cause, location, source or time, eg ... MINN TARBIJA
| Vocative -- referent being adressed, eg AA TARBIJA (lol)
;
-}
{-
-- CASE AS DEFINED BY ME
-- Noun cases (note my examples include DEFINITE ARTICLE)
-- Commented lines mean that noun iflection is unchanged, not that the case does not occur in Maltese!
Case =
-- Absessive -- lack or absence of referent (MINGĦAJR)
-- | Ablative -- referent as instrument, cause, location, source or time
-- | Absolutive -- subject of intransitive or object of transitive verb (in ergative-absolutive languages)
-- | Accusative -- referent as direct object (in nominative-accusative languages)
-- | Allative -- motion towards referent (LEJN)
-- | Additive -- synonym of Allative (above)
Benefactive -- referent as recipient, eg GĦAT-TARBIJA. cf Dative.
-- | Causative -- referent as the cause of a situation (MINĦABBA)
| Comitative -- with, eg MAT-TARBIJA
| Dative -- referent as indirect object, eg LIT-TARBIJA. cf Benefactive.
-- | Delative -- motion downward from referent
| Elative -- motion away from referent, eg MIT-TARBIJA
| Equative -- likeness or identity, eg BĦAT-TARBIJA
-- | Ergative -- subject of transitive verb (in ergative-absolutive languages)
-- | Essive -- temporary state / while / in capacity of (BĦALA)
| Genitive -- referent as possessor, eg TAT-TARBIJA
-- | Illative -- motion into / towards referent, eg SAT-TARBIJA. cf Allative.
| Inessive -- within referent, eg ĠOT-TARBIJA, FIT-TARBIJA
| Instrumental -- referent as instrument, eg BIT-TARBIJA. cf Ablative.
| Lative -- motion up to referent, eg SAT-TARBIJA
-- | Locative -- location at referent
| Nominative -- referent as subject, eg IT-TARBIJA
-- | Partitive -- partial nature of referent
-- | Prolative -- motion along / beside referent
-- | Superessive -- on / upon (FUQ)
-- | Translative -- referent noun or adjective as result of process of change
-- | Vocative -- referent being adressed, eg AA TARBIJA (lol)
;
-}
-- Person = P1 | P2 | P3 ; -- Person = P1 | P2 | P3 ;
-- State = Def | Indef | Const ; -- State = Def | Indef | Const ;
-- Mood = Ind | Cnj | Jus ; -- Mood = Ind | Cnj | Jus ;
-- Voice = Act | Pas ; -- Voice = Act | Pas ;
Origin =
Semitic
| Romance
| English
;
-- Order = Verbal | Nominal ; -- Order = Verbal | Nominal ;
-- Just for my own use
-- Mamma = Per3 Sg Masc ;
-- Shortcut type
-- GenNum = gn Gender Number2 ;
Person_Number = Sg | Pl ;
-- Agreement features -- Agreement features
Agr = Agr =
Per1 Person_Number -- Jiena, Aħna AgP1 Number -- Jiena, Aħna
| Per2 Person_Number -- Inti, Intom | AgP2 Number -- Inti, Intom
| Per3Sg Gender -- Huwa, Hija | AgP3Sg Gender -- Huwa, Hija
| Per3Pl -- Huma | AgP3Pl -- Huma
; ;
-- Agr : Type = {g : Gender ; n : Number ; p : Person} ;
-- Ag : Gender -> Number -> Person -> Agr = \g,n,p -> {g = g ; n = n ; p = p} ;
-- agrP1 : Number -> Agr = \n -> Ag {} n P1 ;
-- agrP3 : Gender -> Number -> Agr = \g,n -> Ag g n P3 ;
-- Possible tenses -- Possible tenses
Tense = -- Tense =
Perf -- Perfect tense, eg SERAQ -- Perf -- Perfect tense, eg SERAQ
| Impf -- Imperfect tense, eg JISRAQ -- | Impf -- Imperfect tense, eg JISRAQ
| Imp -- Imperative, eg ISRAQ -- | Imp -- Imperative, eg ISRAQ
-- | PresPart -- Present Particible. Intransitive and 'motion' verbs only, eg NIEŻEL -- | PresPart -- Present Particible. Intransitive and 'motion' verbs only, eg NIEŻEL
-- | PastPart -- Past Particible. Both verbal & adjectival function, eg MISRUQ -- | PastPart -- Past Particible. Both verbal & adjectival function, eg MISRUQ
-- | VerbalNoun -- Verbal Noun, eg SERQ -- | VerbalNoun -- Verbal Noun, eg SERQ
; -- ;
-- Possible verb forms (tense + person) -- Possible verb forms (tense + person)
VForm = VForm =
VPerf Agr -- Perfect tense in all pronoun cases VPerf Agr -- Perfect tense in all pronoun cases
| VImpf Agr -- Imperfect tense in all pronoun cases | VImpf Agr -- Imperfect tense in all pronoun cases
| VImp Person_Number -- Imperative is always Per2, Sg & Pl | VImp Number -- Imperative is always P2, Sg & Pl
-- | VPresPart GenNum -- Present Particible for Gender/Number -- | VPresPart GenNum -- Present Particible for Gender/Number
-- | VPastPart GenNum -- Past Particible for Gender/Number -- | VPastPart GenNum -- Past Particible for Gender/Number
-- | VVerbalNoun -- Verbal Noun -- | VVerbalNoun -- Verbal Noun
; ;
-- Possible verb types VDerivedForm =
VType = FormI
Strong -- Strong verb: none of radicals are semi-vowels eg ĦAREĠ (Ħ-R-Ġ) | FormII
| Defective -- Defective verb: third radical is semivowel GĦ eg QATA' (Q-T-GĦ) | FormIII
| Weak -- Weak verb: third radicl is semivowel J eg MEXA (M-X-J) | FormIV
| Hollow -- Hollow verb: long A or IE btw radicals 1 & 3 eg QAL (Q-W-L) or SAB (S-J-B) | FormV
| Double -- Double/Geminated verb: radicals 2 & 3 identical eg ĦABB (Ħ-B-B) | FormVI
| Quad -- Quadliteral verb eg KARKAR (K-R-K-R), MAQDAR (M-Q-D-R), LEMBEB (L-M-B-B) | FormVII
| FormVIII
| FormXI
| FormX
;
-- Verb classification
VClass =
Strong VStrongClass
| Weak VWeakClass
| Loan --- temporary
-- | Romance
-- | English
;
VStrongClass =
Regular
| LiquidMedial
| Reduplicative
| Quad
;
VWeakClass =
Assimilative
| Hollow
| WeakFinal
| Defective
| QuadWeakFinal
;
-- VQuadClass =
-- BiradicalBase
-- | RepeatedC3
-- | RepeatedC1
-- | AdditionalC4
-- ;
VRomanceClass =
Integrated
| NonIntegrated
;
-- Inflection of verbs for pronominal suffixes
VSuffixForm =
VNone -- eg FTAĦT
| VDir Agr -- eg FTAĦTU
| VInd Agr -- eg FTAĦTLU
| VDirInd Agr Agr -- eg FTAĦTHULU
;
-- For Adjectives
AForm =
-- AF Degree GenNum
APosit GenNum
| ACompar
| ASuperl
; ;
oper oper
-- Roots & Patterns -- Roots & Patterns
Pattern : Type = {v1, v2 : Str} ; -- vowel1, vowel2 Pattern : Type = {V1, V2 : Str} ;
-- Root3 : Type = {K, T, B : Str} ; -- Root3 : Type = {K, T, B : Str} ;
-- Root4 : Type = Root3 ** {L : Str} ; -- Root4 : Type = Root3 ** {L : Str} ;
Root : Type = {K, T, B, L : Str} ; Root : Type = {C1, C2, C3, C4 : Str} ;
-- Some classes. I need to include "c" because currently "ċ" gets downgraded to "c" in input :/ mkRoot : Root = overload {
Consonant : pattern Str = #( "b" | "c" | "ċ" | "d" | "f" | "ġ" | "g" | "għ" | "ħ" | "h" | "j" | "k" | "l" | "m" | "n" | "p" | "q" | "r" | "s" | "t" | "v" | "w" | "x" | "ż" | "z" ); mkRoot : Root =
CoronalConsonant : pattern Str = #( "c" | "ċ" | "d" | "n" | "r" | "s" | "t" | "x" | "ż" | "z" ); -- "konsonanti xemxin" { C1=[] ; C2=[] ; C3=[] ; C4=[] } ;
mkRoot : Str -> Root = \root ->
let root = toLower root in
case (charAt 1 root) of {
"-" => { C1=(charAt 0 root) ; C2=(charAt 2 root) ; C3=(charAt 4 root) ; C4=(charAt 6 root) } ; -- "k-t-b"
_ => { C1=(charAt 0 root) ; C2=(charAt 1 root) ; C3=(charAt 2 root) ; C4=(charAt 3 root) } -- "ktb"
} ;
mkRoot : Str -> Str -> Str -> Root = \c1,c2,c3 ->
{ C1=c1 ; C2=c2 ; C3=c3 ; C4=[] } ;
mkRoot : Str -> Str -> Str -> Str -> Root = \c1,c2,c3,c4 ->
{ C1=c1 ; C2=c2 ; C3=c3 ; C4=c4 } ;
} ;
mkPattern : Pattern = overload {
mkPattern : Pattern =
{ V1=[] ; V2=[] } ;
mkPattern : Str -> Pattern = \v1 ->
{ V1=v1 ; V2=[] } ;
mkPattern : Str -> Str -> Pattern = \v1,v2 ->
{ V1=v1 ; V2=v2 } ;
} ;
-- Some character classes
Consonant : pattern Str = #( "b" | "ċ" | "d" | "f" | "ġ" | "g" | "għ" | "ħ" | "h" | "j" | "k" | "l" | "m" | "n" | "p" | "q" | "r" | "s" | "t" | "v" | "w" | "x" | "ż" | "z" );
CoronalCons : pattern Str = #( "ċ" | "d" | "n" | "r" | "s" | "t" | "x" | "ż" | "z" ); -- "konsonanti xemxin"
ImpfDoublingCons : pattern Str = #( "d" | "ġ" | "s" | "t" | "ż" ); -- require doubling in imperfect, eg (inti) IDDUM, IĠĠOR, ISSIB, ITTIR, IŻŻID. --- only used in hollow paradigm (?)
LiquidCons : pattern Str = #( "l" | "m" | "n" | "r" | "għ" ); LiquidCons : pattern Str = #( "l" | "m" | "n" | "r" | "għ" );
WeakCons : pattern Str = #( "j" | "w" );
Vowel : pattern Str = #( "a" | "e" | "i" | "o" | "u" ); Vowel : pattern Str = #( "a" | "e" | "i" | "o" | "u" );
Digraph : pattern Str = #( "ie" ); Digraph : pattern Str = #( "ie" );
SemiVowel : pattern Str = #( "għ" | "j" ); SemiVowel : pattern Str = #( "għ" | "j" );
{- ===== Type declarations ===== -} {- ===== Type declarations ===== -}
-- VP = {
-- v : Verb ;
-- clit : Str ;
-- clitAgr : ClitAgr ;
-- obj : Agr => Str
-- } ;
-- NP = {
-- s : Case => {clit,obj : Str ; isClit : Bool} ;
-- a : Agr
-- } ;
{-
Noun : Type = { Noun : Type = {
s : Number5 => Str ; s : Noun_Number => NForm => Str ;
g : Gender ;
} ;
-}
Noun : Type = {
s : Noun_Number => Str ;
g : Gender ; g : Gender ;
-- anim : Animacy ; -- is the noun animate? e.g. TABIB
} ; } ;
Adj : Type = { ProperNoun : Type = {
s : Gender => Person_Number => Str ; s : Str ;
-- isPre : Bool ; g : Gender ;
} ; } ;
Verb : Type = { Verb : Type = {
s : VForm => Str ; -- Give me the form (tense, person etc) and I'll give you the string s : VForm => Str ;
t : VType ; -- Inherent - Strong/Hollow etc -- s : VForm => VSuffixForm => Str ;
o : Origin ; -- Inherent - a verb of Semitic or Romance origins? c : VClass ;
} ; } ;
Adjective : Type = {
s : AForm => Str ;
} ;
{- ===== Conversions ===== -}
numnum2nounnum : Num_Number -> Noun_Number = \n ->
case n of {
Num_Sg => Singular Singulative ;
_ => Plural Determinate
} ;
{- ===== Useful helper functions ===== -} {- ===== Useful helper functions ===== -}
-- Get the character at the specific index (0-based).
-- Negative indexes behave as 0 (first character). Out of range indexes return the empty string.
charAt : Int -> Str -> Str ;
charAt i s = take 1 (drop i s) ;
addDefinitePreposition : Str -> Str -> Str = \prep,n -> (getDefinitePreposition prep n) ++ n ; addDefinitePreposition : Str -> Str -> Str = \prep,n -> (getDefinitePreposition prep n) ++ n ;
addDefiniteArticle = addDefinitePreposition "il" ; addDefiniteArticle = addDefinitePreposition "il" ;
getDefiniteArticle = getDefinitePreposition "il" ; getDefiniteArticle = getDefinitePreposition "il" ;
@@ -288,12 +289,14 @@ resource ResMlt = PatternsMlt ** open Prelude in {
"il" => "l" + "-" ; "il" => "l" + "-" ;
_ => prep + "-" _ => prep + "-"
}; };
K@#CoronalConsonant + _ => prepStem + K + "-" ; -- IĊ-ĊISK K@#CoronalCons + _ => prepStem + K + "-" ; -- IĊ-ĊISK
#Consonant + _ => prep + "-" ; -- IL-QADDIS #Consonant + _ => prep + "-" ; -- IL-QADDIS
_ => [] -- ? _ => [] -- ?
} ; } ;
definiteArticle : Str = artIndef = [] ;
artDef : Str =
pre { pre {
"il-" ; "il-" ;
"l-" / strs { "a" ; "e" ; "i" ; "o" ; "u" ; "h" ; "għ" } ; "l-" / strs { "a" ; "e" ; "i" ; "o" ; "u" ; "h" ; "għ" } ;
@@ -308,4 +311,113 @@ resource ResMlt = PatternsMlt ** open Prelude in {
"iz-" / strs { "z" } "iz-" / strs { "z" }
} ; } ;
{- ===== Worst-case functions ===== -}
-- Noun: Takes all forms and a gender
-- Params:
-- Singulative, eg KOXXA
-- Collective, eg KOXXOX
-- Double, eg KOXXTEJN
-- Determinate Plural, eg KOXXIET
-- Indeterminate Plural
-- Gender
-- mkNoun : (_,_,_,_,_ : NForm => Str) -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
-- s = table {
-- Singular Singulative => sing ;
-- Singular Collective => coll ;
-- Dual => dual ;
-- Plural Determinate => det ;
-- Plural Indeterminate => ind
-- } ;
-- g = gen ;
-- -- anim = Inanimate ;
-- } ;
-- Make a noun animate
animateNoun : Noun -> Noun ;
animateNoun = \n -> n ** {anim = Animate} ;
-- Build an empty pronominal suffix table
nullSuffixTable : Str -> (NForm => Str) ;
nullSuffixTable = \s -> table {
NRegular => s ;
NPronSuffix _ => []
} ;
-- Build a noun's pronominal suffix table
mkSuffixTable : (NForm => Str) = overload {
mkSuffixTable : (_ : Str) -> (NForm => Str) = \wicc ->
table {
NRegular => wicc ;
NPronSuffix (AgP1 Sg) => wicc + "i" ;
NPronSuffix (AgP2 Sg) => wicc + "ek" ;
NPronSuffix (AgP3Sg Masc) => wicc + "u" ;
NPronSuffix (AgP3Sg Fem) => wicc + "ha" ;
NPronSuffix (AgP1 Pl) => wicc + "na" ;
NPronSuffix (AgP2 Pl) => wicc + "kom" ;
NPronSuffix (AgP3Pl) => wicc + "hom"
} ;
mkSuffixTable : (_,_,_,_,_,_,_,_ : Str) -> (NForm => Str) = \isem,ismi,ismek,ismu,isimha,isimna,isimkom,isimhom ->
table {
NRegular => isem ;
NPronSuffix (AgP1 Sg) => ismi ;
NPronSuffix (AgP2 Sg) => ismek ;
NPronSuffix (AgP3Sg Masc) => ismu ;
NPronSuffix (AgP3Sg Fem) => isimha ;
NPronSuffix (AgP1 Pl) => isimna ;
NPronSuffix (AgP2 Pl) => isimkom ;
NPronSuffix (AgP3Pl) => isimhom
} ;
} ;
-- mkNoun = overload {
-- mkNoun : (_,_,_,_,_ : Str) -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
-- s = table {
-- Singular Singulative => (nullSuffixTable sing) ;
-- Singular Collective => (nullSuffixTable coll) ;
-- Dual => (nullSuffixTable dual) ;
-- Plural Determinate => (nullSuffixTable det) ;
-- Plural Indeterminate => (nullSuffixTable ind)
-- } ;
-- g = gen ;
-- -- anim = Inanimate ;
-- } ;
mkNoun : (_,_,_,_,_ : NForm => Str) -> Gender -> Noun = \sing,coll,dual,det,ind,gen -> {
s = table {
Singular Singulative => sing ;
Singular Collective => coll ;
Dual => dual ;
Plural Determinate => det ;
Plural Indeterminate => ind
} ;
g = gen ;
-- anim = Inanimate ;
} ;
-- } ;
-- Adjective: Takes all forms (except superlative)
-- Params:
-- Masculine, eg SABIĦ
-- Feminine, eg SABIĦA
-- Plural, eg SBIEĦ
-- Comparative, eg ISBAĦ
mkAdjective : (_,_,_,_ : Str) -> Adjective = \masc,fem,plural,compar -> {
s = table {
APosit gn => case gn of {
GSg Masc => masc ;
GSg Fem => fem ;
GPl => plural
} ;
ACompar => compar ;
ASuperl => addDefiniteArticle compar
} ;
} ;
} }

6
lib/src/maltese/StructuralMlt.gf
View File

@@ -7,6 +7,10 @@
concrete StructuralMlt of Structural = CatMlt ** concrete StructuralMlt of Structural = CatMlt **
open MorphoMlt, ResMlt, ParadigmsMlt, Prelude in { open MorphoMlt, ResMlt, ParadigmsMlt, Prelude in {
flags optimize=all ; coding=utf8 ; flags
optimize=all ;
coding=utf8 ;
lin language_title_Utt = ss "Malti" ;
} }