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

Maltese RGL: removed 'case' inflections from nouns

Browse Source
This commit is contained in:
john.j.camilleri
2012-02-21 14:39:19 +00:00
parent cf221bd363
commit 8c00c7bcd6
29 changed files with 1672 additions and 1668 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,7 @@
-- AdjectiveMlt.gf: adjectives
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {

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

@@ -1,7 +1,7 @@
-- AdverbMlt.gf: adverbial phrases
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete AdverbMlt of Adverb = CatMlt ** open ResMlt, Prelude in {

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

@@ -1,7 +1,7 @@
-- AllMlt.gf: common grammar plus language-dependent extensions
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:prelude:../abstract:../common

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

@@ -1,7 +1,7 @@
-- AllMlt.gf: common grammar plus language-dependent extensions
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:prelude:../abstract:../common

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

@@ -1,66 +1,66 @@
-- CatMlt.gf: the common type system
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--concrete CatMlt of Cat = CommonX ** open ResMlt, Prelude, ParamX in {
concrete CatMlt of Cat = CommonX ** open ResMlt, Prelude in {
flags optimize=all_subs ;
flags optimize=all_subs ;
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} ;
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} ;
-- Cardinal or ordinal in WORDS (not digits)
Numeral = {
s : CardOrd => Num_Case => Str ;
n : Num_Number
} ;
-- Cardinal or ordinal in WORDS (not digits)
Numeral = {
s : CardOrd => Num_Case => Str ;
n : Num_Number
} ;
-- Cardinal or ordinal in DIGITS (not words)
Digits = {
s : Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese
n : Num_Number ;
tail : DTail
};
-- Cardinal or ordinal in DIGITS (not words)
Digits = {
s : Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese
n : Num_Number ;
tail : DTail
};
{-
-- These below are just examples, I believe they came form Italian.
S = {s : Str} ;
Cl = {s : ResMlt.Tense => Bool => Str} ;
NP = {s : Case => {clit,obj : Str ; isClit : Bool} ; a : Agr} ;
VP = {v : Verb ; clit : Str ; clitAgr : ClitAgr ; obj : Agr => Str} ;
AP = {s : Gender => Number => Str ; isPre : Bool} ;
CN = {s : Number => Str ; g : Gender} ;
Det = {s : Gender => Case => Str ; n : Number} ;
N = {s : Number => Str ; g : Gender} ;
N2 = {s : Number => Str ; g : Gender} ;
A = {s : Number => Str ; isPre : Bool} ;
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} ;
S = {s : Str} ;
Cl = {s : ResMlt.Tense => Bool => Str} ;
NP = {s : Case => {clit,obj : Str ; isClit : Bool} ; a : Agr} ;
VP = {v : Verb ; clit : Str ; clitAgr : ClitAgr ; obj : Agr => Str} ;
AP = {s : Gender => Number => Str ; isPre : Bool} ;
CN = {s : Number => Str ; g : Gender} ;
Det = {s : Gender => Case => Str ; n : Number} ;
N = {s : Number => Str ; g : Gender} ;
N2 = {s : Number => Str ; g : Gender} ;
A = {s : Number => Str ; isPre : Bool} ;
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} ;
-}
}

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

@@ -1,7 +1,7 @@
-- ConjunctionMlt.gf: co-ordination
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete ConjunctionMlt of Conjunction = CatMlt ** open ResMlt, Coordination, Prelude in {

12
lib/src/maltese/ExtraMlt.gf
View File

@@ -1,17 +1,17 @@
-- ExtraMlt.gf: extra stuff
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete ExtraMlt of ExtraMltAbs = CatMlt **
open ResMlt, ParadigmsMlt in {
open ResMlt, ParadigmsMlt in {
flags coding=utf8 ;
flags coding=utf8 ;
-- lin
-- thigh_N = mkNounDual "koxxa" ;
-- sailor_N = mkNoun "baħri" ;
-- lin
-- thigh_N = mkNounDual "koxxa" ;
-- sailor_N = mkNoun "baħri" ;
}

8
lib/src/maltese/ExtraMltAbs.gf
View File

@@ -1,13 +1,13 @@
-- ExtraMltAbs.gf: abstract grammar for extra stuff
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
abstract ExtraMltAbs = Cat ** {
-- fun
-- thigh_N : N ;
-- sailor_N : N ;
-- fun
-- thigh_N : N ;
-- sailor_N : N ;
}

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

@@ -1,7 +1,7 @@
-- GrammarMlt.gf: common syntax
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:../abstract:../common:../prelude
@@ -22,6 +22,6 @@ concrete GrammarMlt of Grammar =
IdiomMlt
** {
flags coding=utf8 ;
flags coding=utf8 ;
}

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

@@ -1,7 +1,7 @@
-- IdiomMlt.gf: idiomatic expressions
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {

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

@@ -1,7 +1,7 @@
-- IrregMlt.gf: irregularly inflected words (mostly verbs)
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:prelude:../abstract:../common

8
lib/src/maltese/IrregMltAbs.gf
View File

@@ -1,7 +1,7 @@
-- IrregMltAbs.gf: abstract grammar for irregularly inflected words (mostly verbs)
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:prelude:../abstract:../common
@@ -11,9 +11,9 @@ abstract IrregMltAbs = Cat ** {
{-
fun
awake_V : V ;
bear_V : V ;
beat_V : V ;
awake_V : V ;
bear_V : V ;
beat_V : V ;
-}
}

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

@@ -1,7 +1,7 @@
-- LangMlt.gf: common syntax and lexicon
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:../abstract:../common:../prelude

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

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

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

@@ -1,10 +1,10 @@
-- MorphoMlt.gf: morphology
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
resource MorphoMlt = ResMlt ** open Prelude in {
flags optimize=all ; coding=utf8 ;
flags optimize=all ; coding=utf8 ;
}

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

@@ -1,11 +1,11 @@
-- NounMlt.gf: noun phrases and nouns
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
flags optimize=noexpand ;
flags optimize=noexpand ;
-- Card
-- CN

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

@@ -1,495 +1,491 @@
-- NumeralMlt.gf: cardinals and ordinals
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt in {
flags coding=utf8 ;
flags coding=utf8 ;
-- Numeral, Digit
-- Dig, Digits
{-
-- This code taken from examples/numerals/maltese.sty in GF darcs repository, July 2011.
-- Original author unknown
-- This code taken from examples/numerals/maltese.sty in GF darcs repository, July 2011.
-- Original author unknown
-- ABSTRACT definitions copied from lib/src/abstract/Numeral.gf
-- ABSTRACT definitions copied from lib/src/abstract/Numeral.gf
-- Numerals from 1 to 999999 in decimal notation
cat
Numeral ; -- 0..
Digit ; -- 2..9
Sub10 ; -- 1..9
Sub100 ; -- 1..99
Sub1000 ; -- 1..999
Sub1000000 ; -- 1..999999
-- Numerals from 1 to 999999 in decimal notation
cat
Numeral ; -- 0..
Digit ; -- 2..9
Sub10 ; -- 1..9
Sub100 ; -- 1..99
Sub1000 ; -- 1..999
Sub1000000 ; -- 1..999999
data
num : Sub1000000 -> Numeral ;
data
num : Sub1000000 -> Numeral ;
n2, n3, n4, n5, n6, n7, n8, n9 : Digit ;
n2, n3, n4, n5, n6, n7, n8, n9 : Digit ;
pot01 : Sub10 ; -- 1
pot0 : Digit -> Sub10 ; -- d * 1
pot110 : Sub100 ; -- 10
pot111 : Sub100 ; -- 11
pot1to19 : Digit -> Sub100 ; -- 10 + d
pot0as1 : Sub10 -> Sub100 ; -- coercion of 1..9
pot1 : Digit -> Sub100 ; -- d * 10
pot1plus : Digit -> Sub10 -> Sub100 ; -- d * 10 + n
pot1as2 : Sub100 -> Sub1000 ; -- coercion of 1..99
pot2 : Sub10 -> Sub1000 ; -- m * 100
pot2plus : Sub10 -> Sub100 -> Sub1000 ; -- m * 100 + n
pot2as3 : Sub1000 -> Sub1000000 ; -- coercion of 1..999
pot3 : Sub1000 -> Sub1000000 ; -- m * 1000
pot3plus : Sub1000 -> Sub1000 -> Sub1000000 ; -- m * 1000 + n
pot01 : Sub10 ; -- 1
pot0 : Digit -> Sub10 ; -- d * 1
pot110 : Sub100 ; -- 10
pot111 : Sub100 ; -- 11
pot1to19 : Digit -> Sub100 ; -- 10 + d
pot0as1 : Sub10 -> Sub100 ; -- coercion of 1..9
pot1 : Digit -> Sub100 ; -- d * 10
pot1plus : Digit -> Sub10 -> Sub100 ; -- d * 10 + n
pot1as2 : Sub100 -> Sub1000 ; -- coercion of 1..99
pot2 : Sub10 -> Sub1000 ; -- m * 100
pot2plus : Sub10 -> Sub100 -> Sub1000 ; -- m * 100 + n
pot2as3 : Sub1000 -> Sub1000000 ; -- coercion of 1..999
pot3 : Sub1000 -> Sub1000000 ; -- m * 1000
pot3plus : Sub1000 -> Sub1000 -> Sub1000000 ; -- m * 1000 + n
-}
oper
Form1 = {
s : DForm => CardOrd => Num_Case => Str ;
--thou : CardOrd => Str ;
thou : { s : Str ; treatAs : DForm } ;
n : Num_Number ;
} ;
Form2 = {
s : CardOrd => Num_Case => Str ;
--thou : CardOrd => Str ;
thou : { s : Str ; treatAs : DForm } ;
n : Num_Number ;
f : DForm ;
} ;
oper
Form1 = {
s : DForm => CardOrd => Num_Case => Str ;
--thou : CardOrd => Str ;
thou : { s : Str ; treatAs : DForm } ;
n : Num_Number ;
} ;
Form2 = {
s : CardOrd => Num_Case => Str ;
--thou : CardOrd => Str ;
thou : { s : Str ; treatAs : DForm } ;
n : Num_Number ;
f : DForm ;
} ;
lincat
Digit = Form1 ;
Sub10 = Form1 ;
Sub100 = Form2 ;
Sub1000 = Form2 ;
Sub1000000 = Form2 ;
lincat
Digit = Form1 ;
Sub10 = Form1 ;
Sub100 = Form2 ;
Sub1000 = Form2 ;
Sub1000000 = Form2 ;
oper
oper
-- Make a "number" (in this case a Form1)
-- Should be moved to ResMlt ?
-- Params:
-- unit, eg TNEJN
-- ordinal unit (without article), eg TIENI
-- adjectival, eg ŻEWĠ
-- teen, eg TNAX
-- ten, eg GĦOXRIN
-- number, eg NumDual
--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 ->
let
hundred = case num of {
NumSg => "mija" ;
NumDual => "mitejn" ;
_ => adjectival
} ;
thousand = case num of {
NumSg => "wieħed" ;
NumDual => "elfejn" ;
_ => case adjectival of {
_ + "'" => (init adjectival) + "t" ; -- eg SEBA' -> SEBAT
_ + "t" => adjectival ; -- eg SITT -> SITT
_ => adjectival + "t" -- eg ĦAMES -> ĦAMEST
}
}
in {
s = table {
Unit => table {
NCard => table {
NumNominative => unit ; -- eg TNEJN
NumAdjectival => adjectival -- eg ŻEWĠ
} ;
NOrd => \\numcase => definiteArticle ++ ordunit -- eg IT-TIENI
} ;
Teen => table {
NCard => table {
NumNominative => teen ; -- eg TNAX
NumAdjectival => teen + "-il" -- eg TNAX-IL
} ;
NOrd => table {
NumNominative => definiteArticle ++ teen ; -- eg IT-TNAX
NumAdjectival => definiteArticle ++ (teen + "-il") -- eg IT-TNAX-IL
}
} ;
Ten => table {
NCard => \\numcase => ten ; -- eg TLETIN
NOrd => \\numcase => definiteArticle ++ ten -- eg IT-TLETIN
} ;
Hund => table {
NCard => case num of {
NumSg => table {
NumNominative => "mija" ; -- ie MIJA
NumAdjectival => "mitt" -- ie MITT suldat
} ;
NumDual => \\numcase => hundred ; -- ie MITEJN
_ => table {
NumNominative => hundred ++ "mija" ; -- eg MIJA, SEBA' MIJA
NumAdjectival => hundred ++ "mitt" -- eg MITT, SEBA' MITT suldat
}
} ;
NOrd => case num of {
NumSg => table {
NumNominative => definiteArticle ++ "mija" ; -- ie IL-MIJA
NumAdjectival => definiteArticle ++ "mitt" -- ie IL-MITT suldat
} ;
NumDual => \\numcase => definiteArticle ++ hundred ; -- ie IL-MITEJN, IL-MITEJN suldat
_ => table {
NumNominative => definiteArticle ++ hundred ++ "mija" ; -- eg IS-SEBA' MIJA
NumAdjectival => definiteArticle ++ hundred ++ "mitt" -- eg IS-SEBA' MITT suldat
}
}
}
} ;
-- thou = thousand ;
thou = { s = thousand ; treatAs = Unit } ;
n = num ;
} ;
-- Make a "number" (in this case a Form1)
-- Should be moved to ResMlt ?
-- Params:
-- unit, eg TNEJN
-- ordinal unit (without article), eg TIENI
-- adjectival, eg ŻEWĠ
-- teen, eg TNAX
-- ten, eg GĦOXRIN
-- number, eg NumDual
--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 ->
let
hundred = case num of {
NumSg => "mija" ;
NumDual => "mitejn" ;
_ => adjectival
} ;
thousand = case num of {
NumSg => "wieħed" ;
NumDual => "elfejn" ;
_ => case adjectival of {
_ + "'" => (init adjectival) + "t" ; -- eg SEBA' -> SEBAT
_ + "t" => adjectival ; -- eg SITT -> SITT
_ => adjectival + "t" -- eg ĦAMES -> ĦAMEST
}
}
in {
s = table {
Unit => table {
NCard => table {
NumNominative => unit ; -- eg TNEJN
NumAdjectival => adjectival -- eg ŻEWĠ
} ;
NOrd => \\numcase => definiteArticle ++ ordunit -- eg IT-TIENI
} ;
Teen => table {
NCard => table {
NumNominative => teen ; -- eg TNAX
NumAdjectival => teen + "-il" -- eg TNAX-IL
} ;
NOrd => table {
NumNominative => definiteArticle ++ teen ; -- eg IT-TNAX
NumAdjectival => definiteArticle ++ (teen + "-il") -- eg IT-TNAX-IL
}
} ;
Ten => table {
NCard => \\numcase => ten ; -- eg TLETIN
NOrd => \\numcase => definiteArticle ++ ten -- eg IT-TLETIN
} ;
Hund => table {
NCard => case num of {
NumSg => table {
NumNominative => "mija" ; -- ie MIJA
NumAdjectival => "mitt" -- ie MITT suldat
} ;
NumDual => \\numcase => hundred ; -- ie MITEJN
_ => table {
NumNominative => hundred ++ "mija" ; -- eg MIJA, SEBA' MIJA
NumAdjectival => hundred ++ "mitt" -- eg MITT, SEBA' MITT suldat
}
} ;
NOrd => case num of {
NumSg => table {
NumNominative => definiteArticle ++ "mija" ; -- ie IL-MIJA
NumAdjectival => definiteArticle ++ "mitt" -- ie IL-MITT suldat
} ;
NumDual => \\numcase => definiteArticle ++ hundred ; -- ie IL-MITEJN, IL-MITEJN suldat
_ => table {
NumNominative => definiteArticle ++ hundred ++ "mija" ; -- eg IS-SEBA' MIJA
NumAdjectival => definiteArticle ++ hundred ++ "mitt" -- eg IS-SEBA' MITT suldat
}
}
}
} ;
-- thou = thousand ;
thou = { s = thousand ; treatAs = Unit } ;
n = num ;
} ;
lin
-- Unit Ord.Unit Adjectival Teen Ten Number
n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" NumDual ;
n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" NumPl ; -- TODO tlett / tliet ?
n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" NumPl ;
n5 = mkNum "ħamsa" "ħames" "ħames" "ħmistax" "ħamsin" NumPl ;
n6 = mkNum "sitta" "sitt" "sitt" "sittax" "sittin" NumPl ;
n7 = mkNum "sebgħa" "seba'" "seba'" "sbatax" "sebgħin" NumPl ;
n8 = mkNum "tmienja" "tmin" "tmin" "tmintax" "tmenin" NumPl ;
n9 = mkNum "disgħa" "disa'" "disa'" "dsatax" "disgħin" NumPl ;
lin
-- Unit Ord.Unit Adjectival Teen Ten Number
n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" NumDual ;
n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" NumPl ; -- TODO tlett / tliet ?
n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" NumPl ;
n5 = mkNum "ħamsa" "ħames" "ħames" "ħmistax" "ħamsin" NumPl ;
n6 = mkNum "sitta" "sitt" "sitt" "sittax" "sittin" NumPl ;
n7 = mkNum "sebgħa" "seba'" "seba'" "sbatax" "sebgħin" NumPl ;
n8 = mkNum "tmienja" "tmin" "tmin" "tmintax" "tmenin" NumPl ;
n9 = mkNum "disgħa" "disa'" "disa'" "dsatax" "disgħin" NumPl ;
oper
-- Helper functions for below
mkForm2 : Form2 = overload {
oper
-- Helper functions for below
mkForm2 : Form2 = overload {
-- Infer adjectival, thousands
mkForm2 : Str -> Str -> DForm -> Form2 = \card,ord,form -> {
s = table {
NCard => \\numcase => card ;
NOrd => \\numcase => ord
} ;
--thou = card ;
thou = { s = card ; treatAs = form } ;
n = NumPl ;
f = form ;
} ;
-- Infer adjectival, thousands
mkForm2 : Str -> Str -> DForm -> Form2 = \card,ord,form -> {
s = table {
NCard => \\numcase => card ;
NOrd => \\numcase => ord
} ;
--thou = card ;
thou = { s = card ; treatAs = form } ;
n = NumPl ;
f = form ;
} ;
-- Explicit everything
mkForm2 : Str -> Str -> Str -> Str -> DForm -> Form2 = \card,ord,adj,thousand,form -> {
s = table {
NCard => table {
NumNominative => card ;
NumAdjectival => adj
} ;
--NOrd => \\numcase => addDefiniteArticle ord
NOrd => table {
NumNominative => definiteArticle ++ ord ;
NumAdjectival => definiteArticle ++ adj
}
} ;
--thou = thousand ;
thou = { s = thousand ; treatAs = form } ;
n = NumPl ;
f = form ;
} ;
-- Explicit everything
mkForm2 : Str -> Str -> Str -> Str -> DForm -> Form2 = \card,ord,adj,thousand,form -> {
s = table {
NCard => table {
NumNominative => card ;
NumAdjectival => adj
} ;
--NOrd => \\numcase => addDefiniteArticle ord
NOrd => table {
NumNominative => definiteArticle ++ ord ;
NumAdjectival => definiteArticle ++ adj
}
} ;
--thou = thousand ;
thou = { s = thousand ; treatAs = form } ;
n = NumPl ;
f = form ;
} ;
-- Given an existing table
mkForm2 : (CardOrd => Num_Case => Str) -> DForm -> Form2 = \tab,form -> {
s = tab ;
thou = {
s = case form of {
Teen => tab ! NCard ! NumAdjectival ;
_ => tab ! NCard ! NumNominative
} ;
treatAs = form ;
} ;
n = NumPl ;
f = form ;
} ;
-- Given an existing table
mkForm2 : (CardOrd => Num_Case => Str) -> DForm -> Form2 = \tab,form -> {
s = tab ;
thou = {
s = case form of {
Teen => tab ! NCard ! NumAdjectival ;
_ => tab ! NCard ! NumNominative
} ;
treatAs = form ;
} ;
n = NumPl ;
f = form ;
} ;
}; -- end of mkForm2 overload
}; -- end of mkForm2 overload
lin
lin
-- Sub1000000 -> Numeral
num x = x ;
-- Sub1000000 -> Numeral
num x = x ;
-- Sub10 ; 1
-- Unit Ord.Unit Adjectival Teen Ten Number
pot01 = mkNum "wieħed" "ewwel" "wieħed" [] [] NumSg ;
-- Sub10 ; 1
-- Unit Ord.Unit Adjectival Teen Ten Number
pot01 = mkNum "wieħed" "ewwel" "wieħed" [] [] NumSg ;
-- Digit -> Sub10 ; d * 1
pot0 d = d ** {n = case d.n of { NumDual => NumDual ; _ => NumPl } } ;
-- Digit -> Sub10 ; d * 1
pot0 d = d ** {n = case d.n of { NumDual => NumDual ; _ => NumPl } } ;
-- Sub100 ; 10, 11
-- Cardinal Ordinal Adjectival Thousand Form
pot110 = mkForm2 "għaxra" "għaxar" "għaxar" "għaxart" Unit ;
pot111 = mkForm2 "ħdax" "ħdax" "ħdax-il" "ħdax-il" Teen ;
-- Sub100 ; 10, 11
-- Cardinal Ordinal Adjectival Thousand Form
pot110 = mkForm2 "għaxra" "għaxar" "għaxar" "għaxart" Unit ;
pot111 = mkForm2 "ħdax" "ħdax" "ħdax-il" "ħdax-il" Teen ;
{-
pot110 = {
s = table {
NCard => table {
NumNominative => "għaxra" ;
NumAdjectival => "għaxar"
} ;
NOrd => \\numcase => addDefiniteArticle "għaxar"
} ;
thou = table {
NCard => "għaxart" ;
NOrd => addDefiniteArticle "għaxart"
} ;
n = NumPl ;
f = Ten ;
} ;
pot110 = {
s = table {
NCard => table {
NumNominative => "għaxra" ;
NumAdjectival => "għaxar"
} ;
NOrd => \\numcase => addDefiniteArticle "għaxar"
} ;
thou = table {
NCard => "għaxart" ;
NOrd => addDefiniteArticle "għaxart"
} ;
n = NumPl ;
f = Ten ;
} ;
-}
-- Digit -> Sub100 ; 10 + d
pot1to19 d =
mkForm2
(d.s ! Teen)
Teen
;
-- Digit -> Sub100 ; 10 + d
pot1to19 d =
mkForm2
(d.s ! Teen)
Teen
;
-- Sub10 -> Sub100 ; coercion of 1..9
pot0as1 d = {
s = d.s ! Unit ;
thou = d.thou ;
n = d.n ;
f = Unit ;
} ;
-- Sub10 -> Sub100 ; coercion of 1..9
pot0as1 d = {
s = d.s ! Unit ;
thou = d.thou ;
n = d.n ;
f = Unit ;
} ;
-- Digit -> Sub100 ; d * 10
pot1 d =
mkForm2
(d.s ! Ten)
Ten
;
-- Digit -> Sub100 ; d * 10
pot1 d =
mkForm2
(d.s ! Ten)
Ten
;
-- Digit -> Sub10 -> Sub100 ; d * 10 + n
pot1plus d n =
let unit = (n.s ! Unit ! NCard ! NumNominative) in
mkForm2
(unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
(definiteArticle ++ unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
Ten
;
-- Digit -> Sub10 -> Sub100 ; d * 10 + n
pot1plus d n =
let unit = (n.s ! Unit ! NCard ! NumNominative) in
mkForm2
(unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
(definiteArticle ++ unit ++ "u" ++ (d.s ! Ten ! NCard ! NumNominative))
Ten
;
-- Sub100 -> Sub1000 ; coercion of 1..99
pot1as2 m = m ;
-- Sub100 -> Sub1000 ; coercion of 1..99
pot1as2 m = m ;
-- Sub10 -> Sub1000 ; m * 100
pot2 m = {
s = m.s ! Hund ;
thou = {
s = case m.n of {
NumSg => "mitt" ; -- Special case for "mitt elf"
NumDual => "mitejn" ; -- Special case for "mitejn elf"
_ => m.thou.s
} ;
treatAs = Hund ;
} ;
n = NumPl ;
f = Hund ;
} ;
-- Sub10 -> Sub1000 ; m * 100
pot2 m = {
s = m.s ! Hund ;
thou = {
s = case m.n of {
NumSg => "mitt" ; -- Special case for "mitt elf"
NumDual => "mitejn" ; -- Special case for "mitejn elf"
_ => m.thou.s
} ;
treatAs = Hund ;
} ;
n = NumPl ;
f = Hund ;
} ;
-- Sub10 -> Sub100 -> Sub1000 ; m * 100 + n
pot2plus m n =
let
hund : Str = m.s ! Hund ! NCard ! NumNominative
in {
s = table {
NCard => table {
NumNominative => hund ++ "u" ++ n.s ! NCard ! NumNominative ;
NumAdjectival => hund ++ "u" ++ n.s ! NCard ! NumAdjectival
} ;
NOrd => table {
NumNominative => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumNominative ;
NumAdjectival => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumAdjectival
}
} ;
thou = {
s = hund ++ "u" ++ n.thou.s ;
treatAs = case n.n of {
NumSg => Ten ; -- specific case for mija u wiehed elf
_ => n.f -- eg So that "106,000" is treated as "6,000"
} ;
} ;
n = NumPl ;
f = Hund ;
} ;
-- Sub10 -> Sub100 -> Sub1000 ; m * 100 + n
pot2plus m n =
let
hund : Str = m.s ! Hund ! NCard ! NumNominative
in {
s = table {
NCard => table {
NumNominative => hund ++ "u" ++ n.s ! NCard ! NumNominative ;
NumAdjectival => hund ++ "u" ++ n.s ! NCard ! NumAdjectival
} ;
NOrd => table {
NumNominative => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumNominative ;
NumAdjectival => definiteArticle ++ hund ++ "u" ++ n.s ! NCard ! NumAdjectival
}
} ;
thou = {
s = hund ++ "u" ++ n.thou.s ;
treatAs = case n.n of {
NumSg => Ten ; -- specific case for mija u wiehed elf
_ => n.f -- eg So that "106,000" is treated as "6,000"
} ;
} ;
n = NumPl ;
f = Hund ;
} ;
-- Sub1000 -> Sub1000000 ; coercion of 1..999
pot2as3 m = m ;
-- Sub1000 -> Sub1000000 ; coercion of 1..999
pot2as3 m = m ;
-- Sub1000 -> Sub1000000 ; m * 1000
pot3 m = {
s =
case m.n of {
NumSg => numTable "elf" ; -- 1 * 1000
NumDual => numTable "elfejn" ; -- 2 * 2000
NumPl => case m.thou.treatAs of {
Unit => numTable m.thou.s "elef" ; -- 3-10 * 1000
_ => numTable m.thou.s "elf" -- 11+ * 1000
}
} ;
-- Sub1000 -> Sub1000000 ; m * 1000
pot3 m = {
s =
case <m.n, m.thou.treatAs> of {
<NumSg ,_> => numTable "elf" ; -- 1 * 1000
<NumDual,_> => numTable "elfejn" ; -- 2 * 2000
<NumPl ,Unit> => numTable m.thou.s "elef" ; -- 3-10 * 1000
<NumPl ,_> => numTable m.thou.s "elf" -- 11+ * 1000
} ;
{-
case m.f of {
Unit => numTable m.thou "elef" ; --
_ => case m.n of {
NumSg => numTable "elf" ; --
NumDual => numTable "elfejn" ; --
NumPl => numTable m.thou "elf" --
}
} ;
case m.f of {
Unit => numTable m.thou "elef" ; --
_ => case m.n of {
NumSg => numTable "elf" ; --
NumDual => numTable "elfejn" ; --
NumPl => numTable m.thou "elf" --
}
} ;
-}
thou = {
s = m.thou.s ;
treatAs = m.f ;
} ;
n = NumPl ;
f = Hund ; -- NOT IMPORTANT
} ;
thou = {
s = m.thou.s ;
treatAs = m.f ;
} ;
n = NumPl ;
f = Hund ; -- NOT IMPORTANT
} ;
-- Sub1000 -> Sub1000 -> Sub1000000 ; m * 1000 + n
pot3plus m n = {
s =
let
ukemm = table {
NumNominative => "u" ++ (n.s ! NCard ! NumNominative) ;
NumAdjectival => "u" ++ (n.s ! NCard ! NumAdjectival)
}
in
case m.n of {
-- Sub1000 -> Sub1000 -> Sub1000000 ; m * 1000 + n
pot3plus m n = {
s =
let
ukemm = table {
NumNominative => "u" ++ (n.s ! NCard ! NumNominative) ;
NumAdjectival => "u" ++ (n.s ! NCard ! NumAdjectival)
}
in
case <m.n, m.thou.treatAs> of {
<NumSg ,_> => numTable "elf" ukemm ;
<NumDual,_> => numTable "elfejn" ukemm ;
<NumPl ,Unit> => numTable (m.thou.s ++ "elef") ukemm ;
<NumPl ,_> => numTable (m.thou.s ++ "elf") ukemm
} ;
{-
NumSg => elf2 "elf" ukemm ;
NumDual => elf2 "elfejn" ukemm ;
NumPl => case m.f of {
Unit => elf2 m.thou ("elef" ++ ukemm) ;
_ => elf2 m.thou ("elf" ++ ukemm)
}
NumSg => elf2 "elf" ukemm ;
NumDual => elf2 "elfejn" ukemm ;
NumPl => case m.f of {
Unit => elf2 m.thou ("elef" ++ ukemm) ;
_ => elf2 m.thou ("elf" ++ ukemm)
}
-}
NumSg => numTable "elf" ukemm ;
NumDual => numTable "elfejn" ukemm ;
NumPl => case m.thou.treatAs of {
Unit => numTable (m.thou.s ++ "elef") ukemm ;
_ => numTable (m.thou.s ++ "elf") ukemm
}
} ;
thou = {
s = m.thou.s ;
treatAs = m.f ;
} ;
n = NumPl ;
f = Hund ; -- NOT IMPORTANT
} ;
thou = {
s = m.thou.s ;
treatAs = m.f ;
} ;
n = NumPl ;
f = Hund ; -- NOT IMPORTANT
} ;
oper
-- Build "x thousand" table
numTable : (CardOrd => Num_Case => Str) = overload {
oper
-- Build "x thousand" table
numTable : (CardOrd => Num_Case => Str) = overload {
numTable : Str -> (CardOrd => Num_Case => Str) = \thou -> table {
NCard => \\numcase => thou ;
NOrd => \\numcase => definiteArticle ++ thou
} ;
numTable : Str -> (CardOrd => Num_Case => Str) = \thou -> table {
NCard => \\numcase => thou ;
NOrd => \\numcase => definiteArticle ++ thou
} ;
numTable : Str -> Str -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
NCard => \\numcase => thou ++ attach ;
NOrd => \\numcase => definiteArticle ++ thou ++ attach
} ;
numTable : Str -> Str -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
NCard => \\numcase => thou ++ attach ;
NOrd => \\numcase => definiteArticle ++ thou ++ attach
} ;
numTable : Str -> (Num_Case => Str) -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
NCard => table {
NumNominative => thou ++ (attach ! NumNominative) ;
NumAdjectival => thou ++ (attach ! NumAdjectival)
} ;
NOrd => table {
NumNominative => definiteArticle ++ thou ++ (attach ! NumNominative) ;
NumAdjectival => definiteArticle ++ thou ++ (attach ! NumAdjectival)
}
} ;
numTable : Str -> (Num_Case => Str) -> (CardOrd => Num_Case => Str) = \thou,attach -> table {
NCard => table {
NumNominative => thou ++ (attach ! NumNominative) ;
NumAdjectival => thou ++ (attach ! NumAdjectival)
} ;
NOrd => table {
NumNominative => definiteArticle ++ thou ++ (attach ! NumNominative) ;
NumAdjectival => definiteArticle ++ thou ++ (attach ! NumAdjectival)
}
} ;
} ;
} ;
{-
-- elf : (CardOrd => Str) = overload {
elf : Str -> (CardOrd => Num_Case => Str) = \m -> table {
NCard => \\numcase => m ;
NOrd => \\numcase => addDefiniteArticle m
} ;
elf2 : Str -> Str -> (CardOrd => Num_Case => Str) = \m,n -> table {
NCard => \\numcase => m ++ n ;
NOrd => \\numcase => (addDefiniteArticle m) ++ n
} ;
-- elf : (CardOrd => Str) = overload {
elf : Str -> (CardOrd => Num_Case => Str) = \m -> table {
NCard => \\numcase => m ;
NOrd => \\numcase => addDefiniteArticle m
} ;
elf2 : Str -> Str -> (CardOrd => Num_Case => Str) = \m,n -> table {
NCard => \\numcase => m ++ n ;
NOrd => \\numcase => (addDefiniteArticle m) ++ n
} ;
-}
-- } ;
-- } ;
{-
Numerals as sequences of digits have a separate, simpler grammar
================================================================
Numerals as sequences of digits have a separate, simpler grammar
================================================================
cat
Dig ; -- single digit 0..9
cat
Dig ; -- single digit 0..9
data
IDig : Dig -> Digits ; -- 8
IIDig : Dig -> Digits -> Digits ; -- 876
data
IDig : Dig -> Digits ; -- 8
IIDig : Dig -> Digits -> Digits ; -- 876
D_0, D_1, D_2, D_3, D_4, D_5, D_6, D_7, D_8, D_9 : Dig ;
D_0, D_1, D_2, D_3, D_4, D_5, D_6, D_7, D_8, D_9 : Dig ;
-}
lincat
lincat
Dig = {
s : Str ;
n : Num_Number
} ;
Dig = {
s : Str ;
n : Num_Number
} ;
oper
-- Helper for making a Dig object. Specifying no number inplies plural.
mkDig : Dig = overload {
mkDig : Str -> Dig = \digit -> lin Dig {
s = digit ;
n = NumPl
} ;
mkDig : Str -> Num_Number -> Dig = \digit,num -> lin Dig {
s = digit ;
n = num
} ;
} ;
oper
-- Helper for making a Dig object. Specifying no number inplies plural.
mkDig : Dig = overload {
mkDig : Str -> Dig = \digit -> lin Dig {
s = digit ;
n = NumPl
} ;
mkDig : Str -> Num_Number -> Dig = \digit,num -> lin Dig {
s = digit ;
n = num
} ;
} ;
-- For correct comma placement in Digits
commaIf : DTail -> Str = \t -> case t of {
T3 => "," ;
_ => []
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
-- For correct comma placement in Digits
commaIf : DTail -> Str = \t -> case t of {
T3 => "," ;
_ => []
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
lin
D_0 = mkDig "0" ;
D_1 = mkDig "1" NumSg ;
D_2 = mkDig "2" NumDual ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mkDig "7" ;
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
lin
D_0 = mkDig "0" ;
D_1 = mkDig "1" NumSg ;
D_2 = mkDig "2" NumDual ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mkDig "7" ;
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
-- Create Digits from a Dig
IDig d = d ** {tail = T1} ;
-- Create Digits from a Dig
IDig d = d ** {tail = T1} ;
-- Create Digits from combining Dig with Digits
IIDig d i = {
s = d.s ++ (commaIf i.tail) ++ i.s ;
n = NumPl ;
tail = inc i.tail
} ;
-- Create Digits from combining Dig with Digits
IIDig d i = {
s = d.s ++ (commaIf i.tail) ++ i.s ;
n = NumPl ;
tail = inc i.tail
} ;
}

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

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

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

File diff suppressed because it is too large Load Diff

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

@@ -1,8 +1,8 @@
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
resource PatternsMlt = {
flags coding=utf8 ;
flags coding=utf8 ;
}

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

@@ -1,7 +1,7 @@
-- PhraseMlt.gf: suprasentential phrases
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete PhraseMlt of Phrase = CatMlt ** open ParamX, Prelude, ResMlt in {

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

@@ -1,7 +1,7 @@
-- QuestionMlt.gf: questions and interrogatives
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete QuestionMlt of Question = CatMlt ** open ResMlt, ParamX, Prelude in {

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

@@ -1,7 +1,7 @@
-- RelativeMlt.gf: relational clauses and pronouns
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete RelativeMlt of Relative = CatMlt ** open ResMlt in {

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

@@ -1,311 +1,311 @@
-- ResMlt.gf: Language-specific parameter types, morphology, VP formation
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:../abstract:../common:../prelude
{-
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-Ċ)
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
CardOrd = NCard | NOrd ;
DTail = T1 | T2 | T3 ; -- This is already defined in ParamX...
Num_Number =
NumSg
| NumDual
| NumPl
;
DForm =
Unit -- 0..10
| Teen -- 11-19
--| TeenIl -- 11-19
| Ten -- 20-99
| Hund -- 100..999
--| Thou -- 1000+
;
Num_Case =
NumNominative
| NumAdjectival ;
-- Used in the NumeralMlt module
CardOrd = NCard | NOrd ;
DTail = T1 | T2 | T3 ; -- This is already defined in ParamX...
Num_Number =
NumSg
| NumDual
| NumPl
;
DForm =
Unit -- 0..10
| Teen -- 11-19
--| TeenIl -- 11-19
| Ten -- 20-99
| Hund -- 100..999
--| Thou -- 1000+
;
Num_Case =
NumNominative
| NumAdjectival ;
{-
Note: NNQ = Non-numerically quantifiable
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
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
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 =
Singulative -- eg ĦUTA
| Collective -- eg ĦUT
;
Noun_Pl_Type =
Determinate -- eg ĦUTIET
| Indeterminate -- eg ĦWIET
;
Noun_Number =
Singular Noun_Sg_Type -- eg ĦUTA / ĦUT
| Dual -- eg WIDNEJN
| Plural Noun_Pl_Type -- eg ĦUTIET / ĦWIET
;
Noun_Sg_Type =
Singulative -- eg ĦUTA
| Collective -- eg ĦUT
;
Noun_Pl_Type =
Determinate -- eg ĦUTIET
| Indeterminate -- eg ĦWIET
;
Noun_Number =
Singular Noun_Sg_Type -- eg ĦUTA / ĦUT
| Dual -- eg WIDNEJN
| Plural Noun_Pl_Type -- eg ĦUTIET / ĦWIET
;
{-
Noun_PluralType =
Sound -- External (affix), eg FERGĦA -> FERGĦAT
| Broken -- Internal, eg FERGĦA -> FRIEGĦI
| Irregular -- eg MARA -> NISA
| PluralOfPlural -- eg TARF -> TRUF -> TRUFIJIET
| Foreign -- eg KARTI, PRATTIĊI, TELEVIXINS
;
Noun_PluralType =
Sound -- External (affix), eg FERGĦA -> FERGĦAT
| 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 ;
Gender = Masc | Fem ;
Animacy =
Animate
| Inanimate
;
Animacy =
Animate
| Inanimate
;
Definiteness =
Definite -- eg IL-KARTA. In this context same as Determinate
| Indefinite -- eg KARTA
;
Definiteness =
Definite -- eg IL-KARTA. In this context same as Determinate
| 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 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 ;
-- State = Def | Indef | Const ;
-- Mood = Ind | Cnj | Jus ;
-- Voice = Act | Pas ;
Origin =
Semitic
| Romance
| English
;
-- Order = Verbal | Nominal ;
-- 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)
;
-- Just for my own use
-- Mamma = Per3 Sg Masc ;
-- Person = P1 | P2 | P3 ;
-- State = Def | Indef | Const ;
-- Mood = Ind | Cnj | Jus ;
-- Voice = Act | Pas ;
Origin =
Semitic
| Romance
| English
;
-- Order = Verbal | Nominal ;
-- Just for my own use
-- Mamma = Per3 Sg Masc ;
-- Shortcut type
-- GenNum = gn Gender Number2 ;
-- Shortcut type
-- GenNum = gn Gender Number2 ;
Person_Number = Sg | Pl ;
Person_Number = Sg | Pl ;
-- Agreement features
Agr =
Per1 Person_Number -- Jiena, Aħna
| Per2 Person_Number -- Inti, Intom
| Per3Sg Gender -- Huwa, Hija
| Per3Pl -- Huma
;
-- Agreement features
Agr =
Per1 Person_Number -- Jiena, Aħna
| Per2 Person_Number -- Inti, Intom
| Per3Sg Gender -- Huwa, Hija
| Per3Pl -- Huma
;
-- Possible tenses
Tense =
Perf -- Perfect tense, eg SERAQ
| Impf -- Imperfect tense, eg JISRAQ
| Imp -- Imperative, eg ISRAQ
-- | PresPart -- Present Particible. Intransitive and 'motion' verbs only, eg NIEŻEL
-- | PastPart -- Past Particible. Both verbal & adjectival function, eg MISRUQ
-- | VerbalNoun -- Verbal Noun, eg SERQ
;
-- Possible tenses
Tense =
Perf -- Perfect tense, eg SERAQ
| Impf -- Imperfect tense, eg JISRAQ
| Imp -- Imperative, eg ISRAQ
-- | PresPart -- Present Particible. Intransitive and 'motion' verbs only, eg NIEŻEL
-- | PastPart -- Past Particible. Both verbal & adjectival function, eg MISRUQ
-- | VerbalNoun -- Verbal Noun, eg SERQ
;
-- Possible verb forms (tense + person)
VForm =
VPerf Agr -- Perfect tense in all pronoun cases
| VImpf Agr -- Imperfect tense in all pronoun cases
| VImp Person_Number -- Imperative is always Per2, Sg & Pl
-- | VPresPart GenNum -- Present Particible for Gender/Number
-- | VPastPart GenNum -- Past Particible for Gender/Number
-- | VVerbalNoun -- Verbal Noun
;
-- Possible verb forms (tense + person)
VForm =
VPerf Agr -- Perfect tense in all pronoun cases
| VImpf Agr -- Imperfect tense in all pronoun cases
| VImp Person_Number -- Imperative is always Per2, Sg & Pl
-- | VPresPart GenNum -- Present Particible for Gender/Number
-- | VPastPart GenNum -- Past Particible for Gender/Number
-- | VVerbalNoun -- Verbal Noun
;
-- Possible verb types
VType =
Strong -- Strong verb: none of radicals are semi-vowels eg ĦAREĠ (Ħ-R-Ġ)
| Defective -- Defective verb: third radical is semivowel GĦ eg QATA' (Q-T-GĦ)
| Weak -- Weak verb: third radicl is semivowel J eg MEXA (M-X-J)
| Hollow -- Hollow verb: long A or IE btw radicals 1 & 3 eg QAL (Q-W-L) or SAB (S-J-B)
| Double -- Double/Geminated verb: radicals 2 & 3 identical eg ĦABB (Ħ-B-B)
| Quad -- Quadliteral verb eg KARKAR (K-R-K-R), MAQDAR (M-Q-D-R), LEMBEB (L-M-B-B)
;
-- Possible verb types
VType =
Strong -- Strong verb: none of radicals are semi-vowels eg ĦAREĠ (Ħ-R-Ġ)
| Defective -- Defective verb: third radical is semivowel GĦ eg QATA' (Q-T-GĦ)
| Weak -- Weak verb: third radicl is semivowel J eg MEXA (M-X-J)
| Hollow -- Hollow verb: long A or IE btw radicals 1 & 3 eg QAL (Q-W-L) or SAB (S-J-B)
| Double -- Double/Geminated verb: radicals 2 & 3 identical eg ĦABB (Ħ-B-B)
| Quad -- Quadliteral verb eg KARKAR (K-R-K-R), MAQDAR (M-Q-D-R), LEMBEB (L-M-B-B)
;
oper
oper
-- Roots & Patterns
Pattern : Type = {v1, v2 : Str} ; -- vowel1, vowel2
-- Root3 : Type = {K, T, B : Str} ;
-- Root4 : Type = Root3 ** {L : Str} ;
Root : Type = {K, T, B, L : Str} ;
-- Roots & Patterns
Pattern : Type = {v1, v2 : Str} ; -- vowel1, vowel2
-- Root3 : Type = {K, T, B : Str} ;
-- Root4 : Type = Root3 ** {L : Str} ;
Root : Type = {K, T, B, L : Str} ;
-- Some classes. I need to include "c" because currently "ċ" gets downgraded to "c" in input :/
Consonant : pattern Str = #( "b" | "c" | "ċ" | "d" | "f" | "ġ" | "g" | "għ" | "ħ" | "h" | "j" | "k" | "l" | "m" | "n" | "p" | "q" | "r" | "s" | "t" | "v" | "w" | "x" | "ż" | "z" );
CoronalConsonant : pattern Str = #( "c" | "ċ" | "d" | "n" | "r" | "s" | "t" | "x" | "ż" | "z" ); -- "konsonanti xemxin"
LiquidCons : pattern Str = #( "l" | "m" | "n" | "r" | "għ" );
Vowel : pattern Str = #( "a" | "e" | "i" | "o" | "u" );
Digraph : pattern Str = #( "ie" );
SemiVowel : pattern Str = #( "għ" | "j" );
-- Some classes. I need to include "c" because currently "ċ" gets downgraded to "c" in input :/
Consonant : pattern Str = #( "b" | "c" | "ċ" | "d" | "f" | "ġ" | "g" | "għ" | "ħ" | "h" | "j" | "k" | "l" | "m" | "n" | "p" | "q" | "r" | "s" | "t" | "v" | "w" | "x" | "ż" | "z" );
CoronalConsonant : pattern Str = #( "c" | "ċ" | "d" | "n" | "r" | "s" | "t" | "x" | "ż" | "z" ); -- "konsonanti xemxin"
LiquidCons : pattern Str = #( "l" | "m" | "n" | "r" | "għ" );
Vowel : pattern Str = #( "a" | "e" | "i" | "o" | "u" );
Digraph : pattern Str = #( "ie" );
SemiVowel : pattern Str = #( "għ" | "j" );
{- ===== Type declarations ===== -}
{- ===== Type declarations ===== -}
-- VP = {
-- v : Verb ;
-- clit : Str ;
-- clitAgr : ClitAgr ;
-- obj : Agr => Str
-- } ;
-- VP = {
-- v : Verb ;
-- clit : Str ;
-- clitAgr : ClitAgr ;
-- obj : Agr => Str
-- } ;
-- NP = {
-- s : Case => {clit,obj : Str ; isClit : Bool} ;
-- a : Agr
-- } ;
-- NP = {
-- s : Case => {clit,obj : Str ; isClit : Bool} ;
-- a : Agr
-- } ;
{-
Noun : Type = {
s : Number5 => Str ;
g : Gender ;
} ;
Noun : Type = {
s : Number5 => Str ;
g : Gender ;
} ;
-}
Noun : Type = {
s : Noun_Number => Definiteness => Case => Str ;
g : Gender ;
} ;
Noun : Type = {
s : Noun_Number => Definiteness => Str ;
g : Gender ;
} ;
Adj : Type = {
s : Gender => Person_Number => Str ;
-- isPre : Bool ;
} ;
Adj : Type = {
s : Gender => Person_Number => Str ;
-- isPre : Bool ;
} ;
Verb : Type = {
s : VForm => Str ; -- Give me the form (tense, person etc) and I'll give you the string
t : VType ; -- Inherent - Strong/Hollow etc
o : Origin ; -- Inherent - a verb of Semitic or Romance origins?
} ;
Verb : Type = {
s : VForm => Str ; -- Give me the form (tense, person etc) and I'll give you the string
t : VType ; -- Inherent - Strong/Hollow etc
o : Origin ; -- Inherent - a verb of Semitic or Romance origins?
} ;
{- ===== Useful helper functions ===== -}
{- ===== Useful helper functions ===== -}
addDefinitePreposition : Str -> Str -> Str = \prep,n -> (getDefinitePreposition prep n) ++ n ;
addDefiniteArticle = addDefinitePreposition "il" ;
getDefiniteArticle = getDefinitePreposition "il" ;
addDefinitePreposition : Str -> Str -> Str = \prep,n -> (getDefinitePreposition prep n) ++ n ;
addDefiniteArticle = addDefinitePreposition "il" ;
getDefiniteArticle = getDefinitePreposition "il" ;
-- Correctly inflect definite preposition
-- A more generic version of getDefiniteArticle
-- Params:
-- preposition (eg TAL, MAL, BĦALL)
-- noun
-- NOTE trying to call this with a runtime string will cause a world of pain. Design around it.
getDefinitePreposition : Str -> Str -> Str = \prep,noun ->
let
-- Remove either 1 or 2 l's
prepStem : Str = case prep of {
_ + "ll" => Predef.tk 2 prep ;
_ + "l" => Predef.tk 1 prep ;
_ => prep -- this should never happen, I don't think
}
in
case noun of {
("s"|#LiquidCons) + #Consonant + _ => prep + "-i" ; -- L-ISKOLA
("għ" | #Vowel) + _ => case prep of { -- L-GĦATBA...
("fil"|"bil") => (Predef.take 1 prep) + "l-" ;
"il" => "l" + "-" ;
_ => prep + "-"
};
K@#CoronalConsonant + _ => prepStem + K + "-" ; -- IĊ-ĊISK
#Consonant + _ => prep + "-" ; -- IL-QADDIS
_ => [] -- ?
} ;
-- Correctly inflect definite preposition
-- A more generic version of getDefiniteArticle
-- Params:
-- preposition (eg TAL, MAL, BĦALL)
-- noun
-- NOTE trying to call this with a runtime string will cause a world of pain. Design around it.
getDefinitePreposition : Str -> Str -> Str = \prep,noun ->
let
-- Remove either 1 or 2 l's
prepStem : Str = case prep of {
_ + "ll" => Predef.tk 2 prep ;
_ + "l" => Predef.tk 1 prep ;
_ => prep -- this should never happen, I don't think
}
in
case noun of {
("s"|#LiquidCons) + #Consonant + _ => prep + "-i" ; -- L-ISKOLA
("għ" | #Vowel) + _ => case prep of { -- L-GĦATBA...
("fil"|"bil") => (Predef.take 1 prep) + "l-" ;
"il" => "l" + "-" ;
_ => prep + "-"
};
K@#CoronalConsonant + _ => prepStem + K + "-" ; -- IĊ-ĊISK
#Consonant + _ => prep + "-" ; -- IL-QADDIS
_ => [] -- ?
} ;
definiteArticle : Str =
pre {
"il-" ;
"l-" / strs { "a" ; "e" ; "i" ; "o" ; "u" ; "h" ; "għ" } ;
"iċ-" / strs { "ċ" } ;
"id-" / strs { "d" } ;
"in-" / strs { "n" } ;
"ir-" / strs { "r" } ;
"is-" / strs { "s" } ;
"it-" / strs { "t" } ;
"ix-" / strs { "x" } ;
"iż-" / strs { "ż" } ;
"iz-" / strs { "z" }
} ;
definiteArticle : Str =
pre {
"il-" ;
"l-" / strs { "a" ; "e" ; "i" ; "o" ; "u" ; "h" ; "għ" } ;
"iċ-" / strs { "ċ" } ;
"id-" / strs { "d" } ;
"in-" / strs { "n" } ;
"ir-" / strs { "r" } ;
"is-" / strs { "s" } ;
"it-" / strs { "t" } ;
"ix-" / strs { "x" } ;
"iż-" / strs { "ż" } ;
"iz-" / strs { "z" }
} ;
}

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

@@ -1,7 +1,7 @@
-- SentenceMlt.gf: clauses and sentences
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:abstract:common:prelude

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

@@ -1,7 +1,7 @@
-- StructuralMlt.gf: lexicon of structural words
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete StructuralMlt of Structural = CatMlt **

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

@@ -1,5 +1,5 @@
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
--# -path=.:abstract:common

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

@@ -1,7 +1,7 @@
-- TextMlt.gf: many-phrase texts
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {

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

@@ -1,11 +1,11 @@
-- VerbMlt.gf: verb phrases
--
-- Maltese Resource Grammar Library
-- John J. Camilleri, 2011
-- John J. Camilleri, 2012
-- Licensed under LGPL
concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
flags optimize=all_subs ;
flags optimize=all_subs ;
-- Comp
-- VP