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

Maltese RG: first proper release

Browse Source 
Of course some bugs remain and more testing is needed,
but all functions are complete and Maltese now builds as part
of the normal GF install.
This commit is contained in:
john
2013-06-10 21:37:10 +00:00
parent 860b25fff3
commit 1366c2a53e
19 changed files with 928 additions and 719 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Setup.hs
View File

@@ -251,16 +251,16 @@ langs = map fst langsCoding
-- defaultLangs = langs `only` words "Eng Fre Ger Ita Spa Swe" -- defaultLangs = langs `only` words "Eng Fre Ger Ita Spa Swe"
-- languagues for which to compile Lang -- languagues for which to compile Lang
langsLang = langs -- `except` ["Amh","Ara","Lat","Tur","Mlt"] langsLang = langs -- `except` ["Amh","Ara","Lat","Tur"]
--langsLang = langs `only` ["Fin"] --test --langsLang = langs `only` ["Fin"] --test
-- languagues that have notpresent marked -- languagues that have notpresent marked
langsPresent = langsLang `except` ["Chi","Gre","Heb","Jpn","Mlt","Nep","Pes","Snd","Tha","Thb"] langsPresent = langsLang `except` ["Chi","Gre","Heb","Jpn","Mlt","Nep","Pes","Snd","Tha","Thb"]
-- languages for which to compile Try -- languages for which to compile Try
langsAPI = langsLang `except` langsIncomplete -- ["Ina","Mlt","Amh","Ara"] langsAPI = langsLang `except` langsIncomplete -- ["Ina","Amh","Ara"]
langsIncomplete = ["Amh","Ara","Heb","Ina","Lat","Mlt","Tur"] langsIncomplete = ["Amh","Ara","Heb","Ina","Lat","Tur"]
-- languages for which to compile Symbolic -- languages for which to compile Symbolic
langsSymbolic = langsAPI `except` ["Jpn"] langsSymbolic = langsAPI `except` ["Jpn"]

15
lib/doc/status.txt
View File

@@ -4,14 +4,14 @@ Aarne Ranta
The following table gives the languages currently available in the The following table gives the languages currently available in the
GF Resource Grammar Library. GF Resource Grammar Library.
For another view, see the For another view, see the
[The Resource Grammar Library coverage map http://www.postcrashgames.com/gf_world/] . [The Resource Grammar Library coverage map http://www.postcrashgames.com/gf_world/] .
Corrections and additions are welcome! Notice that only those parts of implementations Corrections and additions are welcome! Notice that only those parts of implementations
that are currently available via http://grammaticalframework.org that are currently available via http://grammaticalframework.org
are marked in the table are marked in the table
@@ -37,7 +37,7 @@ are marked in the table
| Jpn | Japanese | + | - | ++ | + | + | + | - | - | - | *LZ | Jpn | Japanese | + | - | ++ | + | + | + | - | - | - | *LZ
| Lat | Latin | + | - | - | - | - | - | - | - | - | *AR | Lat | Latin | + | - | - | - | - | - | - | - | - | *AR
| Lav | Latvian | + | - | ++ | + | + | + | - | - | - | *NG,*PP | Lav | Latvian | + | - | ++ | + | + | + | - | - | - | *NG,*PP
| Mlt | Maltese | + | - | - | - | - | - | - | - | - | *JC | Mlt | Maltese | + | + | ++ | + | + | + | + | - | - | *JC
| Mon | Mongolian | - | - | - | - | - | - | - | - | - | *NE | Mon | Mongolian | - | - | - | - | - | - | - | - | - | *NE
| Nep | Nepali | + | + | ++ | + | + | - | - | - | - | *DS | Nep | Nepali | + | + | ++ | + | + | - | - | - | - | *DS
| Nor | Norwegian(b) | + | + | ++ | + | + | + | + | + | - | *AR | Nor | Norwegian(b) | + | + | ++ | + | + | + | + | + | - | *AR
@@ -55,7 +55,7 @@ are marked in the table
| Tur | Turkish | + | - | ++ | + | - | - | - | - | + | *SC,KA | Tur | Turkish | + | - | ++ | + | - | - | - | - | + | *SC,KA
| Urd | Urdu | + | + | ++ | + | + | + | + | - | - | *SV,MH | Urd | Urdu | + | + | ++ | + | + | + | + | - | - | *SV,MH
ISO = 3-letter ISO language code, used in library file names ISO = 3-letter ISO language code, used in library file names
(mostly ISO 639-2 B (bibliographic)) (mostly ISO 639-2 B (bibliographic))
Darcs = available in the darcs repository of --http://code.haskell.org/gf-- http://www.grammaticalframework.org/ Darcs = available in the darcs repository of --http://code.haskell.org/gf-- http://www.grammaticalframework.org/
@@ -76,7 +76,7 @@ Irreg = the ``Irreg`` module with irregular verbs exists
Dict = the ``Dict`` module, large-scale morphological lexicon, exists Dict = the ``Dict`` module, large-scale morphological lexicon, exists
authors = main contributors, * means still active authors = main contributors, * means still active
(ready to fix bugs, answer to questions, etc) (ready to fix bugs, answer to questions, etc)
@@ -139,6 +139,3 @@ active authors of it.
Feel free to start a new language that is not yet in the table - but let us know and Feel free to start a new language that is not yet in the table - but let us know and
contribute some code as soon as you can! contribute some code as soon as you can!

4
lib/src/api/SymbolicMlt.gf
View File

@@ -1,5 +1,5 @@
--# -path=.:present:mathematical:prelude --# -path=.:alltenses
resource SymbolicMlt = Symbolic with resource SymbolicMlt = Symbolic with
(Symbol = SymbolMlt), (Symbol = SymbolMlt),
(Grammar = GrammarMlt) ; (Grammar = GrammarMlt) ;

2
lib/src/demo/Makefile
View File

@@ -6,7 +6,7 @@ src:
runghc MkMini.hs runghc MkMini.hs
compdemo: compdemo:
$(compile) Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Gre Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd $(compile) Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Gre Hin Ita Jpn Lav Mlt Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd
linkdemo: linkdemo:
$(compile) -link Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Gre Hin Ita Jpn Lav Mlt Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd $(compile) -link Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Gre Hin Ita Jpn Lav Mlt Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd

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

@@ -9,13 +9,15 @@ concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {
lin lin
-- A -> AP -- warm -- A -> AP
-- warm
PositA a = { PositA a = {
s = \\gn => a.s ! (APosit gn) ; s = \\gn => a.s ! (APosit gn) ;
isPre = True isPre = True
} ; } ;
-- A -> NP -> AP -- warmer than I -- A -> NP -> AP
-- warmer than I
ComparA a np = { ComparA a np = {
s = \\gn => case a.hasComp of { s = \\gn => case a.hasComp of {
True => a.s ! ACompar ; True => a.s ! ACompar ;
@@ -25,7 +27,8 @@ concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {
isPre = False isPre = False
} ; } ;
-- A -> AP ; -- warmer -- A -> AP
-- warmer
UseComparA a = { UseComparA a = {
s = \\gn => case a.hasComp of { s = \\gn => case a.hasComp of {
True => a.s ! ACompar ; True => a.s ! ACompar ;
@@ -34,57 +37,64 @@ concrete AdjectiveMlt of Adjective = CatMlt ** open ResMlt, Prelude in {
isPre = False isPre = False
} ; } ;
-- Ord -> AP ; -- warmest -- Ord -> AP
-- warmest
--- Should be: L-IKTAR ĦOBŻA SĦUNA --- Should be: L-IKTAR ĦOBŻA SĦUNA
AdjOrd ord = { AdjOrd ord = {
s = \\gn => ord.s ! NumNom ; s = \\gn => ord.s ! NumNom ;
isPre = True isPre = True
} ; } ;
-- CAdv -> AP -> NP -> AP ; -- as cool as John -- CAdv -> AP -> NP -> AP
-- as cool as John
CAdvAP cadv ap np = { CAdvAP cadv ap np = {
s = \\gn => cadv.s ++ ap.s ! gn ++ cadv.p ++ np.s ! NPNom ; s = \\gn => cadv.s ++ ap.s ! gn ++ cadv.p ++ np.s ! NPNom ;
isPre = False isPre = False
} ; } ;
-- A2 -> NP -> AP ; -- married to her -- A2 -> NP -> AP
-- married to her
ComplA2 a2 np = { ComplA2 a2 np = {
s = \\gn => a2.s ! APosit gn ++ a2.c2.s ! Definite ++ np.s ! NPAcc ; s = \\gn => a2.s ! APosit gn ++ a2.c2.s ! Definite ++ np.s ! NPAcc ;
isPre = False isPre = False
} ; } ;
-- A2 -> AP ; -- married to itself -- A2 -> AP
-- married to itself
ReflA2 a2 = { ReflA2 a2 = {
s = \\gn => a2.s ! APosit gn ++ a2.c2.s ! Definite ++ reflPron ! (toVAgr gn) ; s = \\gn => a2.s ! APosit gn ++ a2.c2.s ! Definite ++ reflPron ! (toVAgr gn) ;
isPre = False isPre = False
} ; } ;
-- AP -> SC -> AP ; -- good that she is here -- AP -> SC -> AP
-- good that she is here
SentAP ap sc = { SentAP ap sc = {
s = \\gn => ap.s ! gn ++ sc.s ; s = \\gn => ap.s ! gn ++ sc.s ;
isPre = False isPre = False
} ; } ;
-- AdA -> AP -> AP ; -- very warm -- AdA -> AP -> AP
-- very warm
AdAP ada ap = { AdAP ada ap = {
s = \\gn => ap.s ! gn ++ ada.s ; s = \\gn => ap.s ! gn ++ ada.s ;
isPre = ap.isPre isPre = ap.isPre
} ; } ;
-- A2 -> AP ; -- married -- A2 -> AP
-- married
UseA2 a2 = { UseA2 a2 = {
s = \\gn => a2.s ! APosit gn ; s = \\gn => a2.s ! APosit gn ;
isPre = True isPre = True
} ; } ;
-- AP -> Adv -> AP ; -- warm by nature -- AP -> Adv -> AP
-- warm by nature
AdvAP ap adv = { AdvAP ap adv = {
s = \\gn => ap.s ! gn ++ adv.s ; s = \\gn => ap.s ! gn ++ adv.s ;
isPre = False isPre = False
} ; } ;
oper oper
-- TODO: Don't know where these should go
compMore : Str = "iktar" ; compMore : Str = "iktar" ;
compLess : Str = "inqas" ; compLess : Str = "inqas" ;
conjThan : Str = "minn" ; conjThan : Str = "minn" ;

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

@@ -96,7 +96,7 @@ concrete CatMlt of Cat = CommonX - [Adv] ** open ResMlt, Prelude in {
Digits = { Digits = {
s : NumCase => Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese s : NumCase => Str ; -- No need for CardOrd, i.e. no 1st, 2nd etc in Maltese
n : NumForm ; n : NumForm ;
tail : DTail tail : DTail ;
}; };
-- Structural -- Structural

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

@@ -23,7 +23,7 @@ concrete ConjunctionMlt of Conjunction =
-- Conj -> [NP] -> NP -- "either her or me" -- Conj -> [NP] -> NP -- "either her or me"
ConjNP conj ss = { ConjNP conj ss = {
s = \\npcase => conj.s1 ++ ss.np1.s ! npcase ++ conj.s2 ++ ss.np2.s ! npcase ; s = \\npcase => conj.s1 ++ ss.np1.s ! npcase ++ conj.s2 ++ ss.np2.s ! npcase ;
a = ss.np2.a ; a = { p = ss.np2.a.p ; g = ss.np2.a.g ; n = Pl } ; -- make plural
isPron = andB ss.np1.isPron ss.np2.isPron ; isPron = andB ss.np1.isPron ss.np2.isPron ;
isDefn = andB ss.np1.isDefn ss.np2.isDefn ; isDefn = andB ss.np1.isDefn ss.np2.isDefn ;
} ; } ;

180
lib/src/maltese/DictMlt.gf
View File

@@ -357,7 +357,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
; ;
kamrad_KMRD_1_7014_V = mkV "kamrad" (mkRoot "k-m-r-d") ; kamrad_KMRD_1_7014_V = mkV "kamrad" (mkRoot "k-m-r-d") ;
kanga_KNGJ_1_7015_V = mkV "kanġa" (mkRoot "k-n-ġ-j") ; kanga_KNGJ_1_7015_V = mkV "kanġa" (mkRoot "k-n-ġ-j") ;
kanta_KNTJ_1_7016_V = mkV "kanta" "kanta" (mkRoot "k-n-t-j") ; kanta_KNTJ_1_7016_V = pastPartV "kantat" (mkV "kanta" "kanta" (mkRoot "k-n-t-j")) ;
tkanta_KNTJ_2_7017_V = mkV_II "tkanta" (mkRoot "k-n-t-j") ; tkanta_KNTJ_2_7017_V = mkV_II "tkanta" (mkRoot "k-n-t-j") ;
kopra_KPRJ_1_7018_V = mkV "kopra" (mkRoot "k-p-r-j") ; kopra_KPRJ_1_7018_V = mkV "kopra" (mkRoot "k-p-r-j") ;
tkopra_KPRJ_2_7019_V = mkV_II "tkopra" (mkRoot "k-p-r-j") ; tkopra_KPRJ_2_7019_V = mkV_II "tkopra" (mkRoot "k-p-r-j") ;
@@ -615,7 +615,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ssensel_SNSL_2_7265_V = mkV_II "ssensel" (mkRoot "s-n-s-l") ; ssensel_SNSL_2_7265_V = mkV_II "ssensel" (mkRoot "s-n-s-l") ;
sensar_SNSR_1_7266_V = mkV "sensar" (mkRoot "s-n-s-r") ; sensar_SNSR_1_7266_V = mkV "sensar" (mkRoot "s-n-s-r") ;
ssapna_SPNJ_2_7267_V = mkV_II "ssapna" (mkRoot "s-p-n-j") ; ssapna_SPNJ_2_7267_V = mkV_II "ssapna" (mkRoot "s-p-n-j") ;
saqsa_SQSJ_1_7268_V = mkV "saqsa" (mkRoot "s-q-s-j") ; saqsa_SQSJ_1_7268_V = pastPartV "mistoqsi" (mkV "saqsa" (mkRoot "s-q-s-j")) ;
sarbat_SRBT_1_7270_V = mkV "sarbat" (mkRoot "s-r-b-t") ; sarbat_SRBT_1_7270_V = mkV "sarbat" (mkRoot "s-r-b-t") ;
ssarbat_SRBT_2_7271_V = mkV_II "ssarbat" (mkRoot "s-r-b-t") ; ssarbat_SRBT_2_7271_V = mkV_II "ssarbat" (mkRoot "s-r-b-t") ;
sardan_SRDN_1_7272_V = mkV "sardan" (mkRoot "s-r-d-n") ; sardan_SRDN_1_7272_V = mkV "sardan" (mkRoot "s-r-d-n") ;
@@ -747,7 +747,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
biggel_BGL_2_7399_V = mkV_II "biġġel" (mkRoot "b-ġ-l") ; biggel_BGL_2_7399_V = mkV_II "biġġel" (mkRoot "b-ġ-l") ;
tbiggel_BGL_5_7400_V = mkV_V "tbiġġel" (mkRoot "b-ġ-l") ; tbiggel_BGL_5_7400_V = mkV_V "tbiġġel" (mkRoot "b-ġ-l") ;
nbigel_BGL_7_7401_V = mkV_VII "biġel" "nbiġel" (mkRoot "b-ġ-l") ; nbigel_BGL_7_7401_V = mkV_VII "biġel" "nbiġel" (mkRoot "b-ġ-l") ;
baghad_BGHD_1_7402_V = mkV "bagħad" (mkRoot "b-għ-d") ; baghad_BGHD_1_7402_V = pastPartV "mibgħud" (mkV "bagħad" (mkRoot "b-għ-d")) ;
baghghad_BGHD_2_7403_V = mkV_II "bagħgħad" (mkRoot "b-għ-d") ; baghghad_BGHD_2_7403_V = mkV_II "bagħgħad" (mkRoot "b-għ-d") ;
baghad_BGHD_3_7404_V = mkV_III "bagħad" (mkRoot "b-għ-d") ; baghad_BGHD_3_7404_V = mkV_III "bagħad" (mkRoot "b-għ-d") ;
tbieghad_BGHD_6_7405_V = mkV_VI "tbiegħad" (mkRoot "b-għ-d") ; tbieghad_BGHD_6_7405_V = mkV_VI "tbiegħad" (mkRoot "b-għ-d") ;
@@ -757,7 +757,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
baghghal_BGHL_2_7409_V = mkV_II "bagħgħal" (mkRoot "b-għ-l") ; baghghal_BGHL_2_7409_V = mkV_II "bagħgħal" (mkRoot "b-għ-l") ;
tbaghghal_BGHL_5_7410_V = mkV_V "tbagħgħal" (mkRoot "b-għ-l") ; tbaghghal_BGHL_5_7410_V = mkV_V "tbagħgħal" (mkRoot "b-għ-l") ;
tbaghal_BGHL_6_7411_V = mkV_VI "tbagħal" (mkRoot "b-għ-l") ; tbaghal_BGHL_6_7411_V = mkV_VI "tbagħal" (mkRoot "b-għ-l") ;
baghat_BGHT_1_7412_V = mkV "bagħat" (mkRoot "b-għ-t") ; baghat_BGHT_1_7412_V = pastPartV "mibgħut" (mkV "bagħat" (mkRoot "b-għ-t")) ;
nbaghat_BGHT_7_7413_V = mkV_VII "bagħat" "nbagħat" (mkRoot "b-għ-t") ; nbaghat_BGHT_7_7413_V = mkV_VII "bagħat" "nbagħat" (mkRoot "b-għ-t") ;
biehem_BHM_3_7414_V = mkV_III "biehem" (mkRoot "b-h-m") ; biehem_BHM_3_7414_V = mkV_III "biehem" (mkRoot "b-h-m") ;
tbhejjem_BHM_5_7415_V = mkV_V "tbhejjem" (mkRoot "b-h-m") ; tbhejjem_BHM_5_7415_V = mkV_V "tbhejjem" (mkRoot "b-h-m") ;
@@ -861,7 +861,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
berraq_BRQ_2_7501_V = mkV_II "berraq" (mkRoot "b-r-q") ; berraq_BRQ_2_7501_V = mkV_II "berraq" (mkRoot "b-r-q") ;
tberraq_BRQ_5_7502_V = mkV_V "tberraq" (mkRoot "b-r-q") ; tberraq_BRQ_5_7502_V = mkV_V "tberraq" (mkRoot "b-r-q") ;
barr_BRR_1_7503_V = mkV "barr" (mkRoot "b-r-r") ; barr_BRR_1_7503_V = mkV "barr" (mkRoot "b-r-r") ;
barax_BRX_1_7504_V = mkV "barax" "obrox" (mkRoot "b-r-x") ; barax_BRX_1_7504_V = pastPartV "mibrux" (mkV "barax" "obrox" (mkRoot "b-r-x")) ;
barrax_BRX_2_7505_V = mkV_II "barrax" (mkRoot "b-r-x") ; barrax_BRX_2_7505_V = mkV_II "barrax" (mkRoot "b-r-x") ;
tbarrax_BRX_5_7506_V = mkV_V "tbarrax" (mkRoot "b-r-x") ; tbarrax_BRX_5_7506_V = mkV_V "tbarrax" (mkRoot "b-r-x") ;
nbarax_BRX_7_7507_V = mkV_VII "barax" "nbarax" (mkRoot "b-r-x") ; nbarax_BRX_7_7507_V = mkV_VII "barax" "nbarax" (mkRoot "b-r-x") ;
@@ -898,7 +898,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
bexxex_BXX_2_7538_V = mkV_II "bexxex" (mkRoot "b-x-x") ; bexxex_BXX_2_7538_V = mkV_II "bexxex" (mkRoot "b-x-x") ;
tbexxex_BXX_5_7539_V = mkV_V "tbexxex" (mkRoot "b-x-x") ; tbexxex_BXX_5_7539_V = mkV_V "tbexxex" (mkRoot "b-x-x") ;
nbexx_BXX_7_7540_V = mkV_VII "bexx" "nbexx" (mkRoot "b-x-x") ; nbexx_BXX_7_7540_V = mkV_VII "bexx" "nbexx" (mkRoot "b-x-x") ;
beza'_BZGH_1_7541_V = mkV "baża'" (mkRoot "b-ż-għ") ; beza'_BZGH_1_7541_V = pastPartV "mbeżża'" (mkV "beża'" (mkRoot "b-ż-għ")) ;
bezza'_BZGH_2_7542_V = mkV_II "bażża'" (mkRoot "b-ż-għ") ; bezza'_BZGH_2_7542_V = mkV_II "bażża'" (mkRoot "b-ż-għ") ;
tbezza'_BZGH_5_7543_V = mkV_V "tbażża'" (mkRoot "b-ż-għ") ; tbezza'_BZGH_5_7543_V = mkV_V "tbażża'" (mkRoot "b-ż-għ") ;
bizel_BZL_1_7544_V = mkV "biżel" (mkRoot "b-ż-l") ; bizel_BZL_1_7544_V = mkV "biżel" (mkRoot "b-ż-l") ;
@@ -906,7 +906,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tbizzel_BZL_5_7546_V = mkV_V "tbiżżel" (mkRoot "b-ż-l") ; tbizzel_BZL_5_7546_V = mkV_V "tbiżżel" (mkRoot "b-ż-l") ;
bezzel_BZL_2_7547_V = mkV_II "beżżel" (mkRoot "b-ż-l") ; bezzel_BZL_2_7547_V = mkV_II "beżżel" (mkRoot "b-ż-l") ;
tbezzel_BZL_5_7548_V = mkV_V "tbeżżel" (mkRoot "b-ż-l") ; tbezzel_BZL_5_7548_V = mkV_V "tbeżżel" (mkRoot "b-ż-l") ;
bezaq_BZQ_1_7549_V = mkV "beżaq" "obżoq" (mkRoot "b-ż-q") ; bezaq_BZQ_1_7549_V = pastPartV "mibżuq" (mkV "beżaq" "obżoq" (mkRoot "b-ż-q")) ;
bezzaq_BZQ_2_7550_V = mkV_II "beżżaq" (mkRoot "b-ż-q") ; bezzaq_BZQ_2_7550_V = mkV_II "beżżaq" (mkRoot "b-ż-q") ;
tbezzaq_BZQ_5_7551_V = mkV_V "tbeżżaq" (mkRoot "b-ż-q") ; tbezzaq_BZQ_5_7551_V = mkV_V "tbeżżaq" (mkRoot "b-ż-q") ;
nbezaq_BZQ_7_7552_V = mkV_VII "beżaq" "nbeżaq" (mkRoot "b-ż-q") ; nbezaq_BZQ_7_7552_V = mkV_VII "beżaq" "nbeżaq" (mkRoot "b-ż-q") ;
@@ -1160,7 +1160,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
dewwaq_DWQ_2_7800_V = mkV_II "dewwaq" (mkRoot "d-w-q") ; dewwaq_DWQ_2_7800_V = mkV_II "dewwaq" (mkRoot "d-w-q") ;
ddewwaq_DWQ_5_7801_V = mkV_V "ddewwaq" (mkRoot "d-w-q") ; ddewwaq_DWQ_5_7801_V = mkV_V "ddewwaq" (mkRoot "d-w-q") ;
ndaq_DWQ_7_7802_V = mkV_VII "daq" "ndaq" (mkRoot "d-w-q") ; ndaq_DWQ_7_7802_V = mkV_VII "daq" "ndaq" (mkRoot "d-w-q") ;
dar_DWR_1_7803_V = mkV "dar" (mkRoot "d-w-r") ; dar_DWR_1_7803_V = pastPartV "mdawwar" (mkV "dar" (mkRoot "d-w-r")) ;
dawwar_DWR_2_7804_V = mkV_II "dawwar" (mkRoot "d-w-r") ; dawwar_DWR_2_7804_V = mkV_II "dawwar" (mkRoot "d-w-r") ;
ddawwar_DWR_5_7805_V = mkV_V "ddawwar" (mkRoot "d-w-r") ; ddawwar_DWR_5_7805_V = mkV_V "ddawwar" (mkRoot "d-w-r") ;
ndar_DWR_7_7806_V = mkV_VII "dar" "ndar" (mkRoot "d-w-r") ; ndar_DWR_7_7806_V = mkV_VII "dar" "ndar" (mkRoot "d-w-r") ;
@@ -1182,7 +1182,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
faggar_FGR_2_7822_V = mkV_II "faġġar" (mkRoot "f-ġ-r") ; faggar_FGR_2_7822_V = mkV_II "faġġar" (mkRoot "f-ġ-r") ;
nfagar_FGR_7_7823_V = mkV_VII "faġar" "nfaġar" (mkRoot "f-ġ-r") ; nfagar_FGR_7_7823_V = mkV_VII "faġar" "nfaġar" (mkRoot "f-ġ-r") ;
faghal_FGHL_1_7824_V = mkV "fagħal" (mkRoot "f-għ-l") ; faghal_FGHL_1_7824_V = mkV "fagħal" (mkRoot "f-għ-l") ;
fehem_FHM_1_10830_V = mkV "fehem" (mkRoot "f-h-m") ; fehem_FHM_1_10830_V = pastPartV "mifhum" (mkV "fehem" (mkRoot "f-h-m")) ;
fehhem_FHM_2_10832_V = mkV_II "fehhem" (mkRoot "f-h-m") ; fehhem_FHM_2_10832_V = mkV_II "fehhem" (mkRoot "f-h-m") ;
fiehem_FHM_3_10831_V = mkV_III "fiehem" (mkRoot "f-h-m") ; fiehem_FHM_3_10831_V = mkV_III "fiehem" (mkRoot "f-h-m") ;
tfehem_FHM_6_10833_V = mkV_VI "tfehem" (mkRoot "f-h-m") ; tfehem_FHM_6_10833_V = mkV_VI "tfehem" (mkRoot "f-h-m") ;
@@ -1293,7 +1293,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tfessaq_FSQ_5_7929_V = mkV_V "tfessaq" (mkRoot "f-s-q") ; tfessaq_FSQ_5_7929_V = mkV_V "tfessaq" (mkRoot "f-s-q") ;
fisser_FSR_2_7930_V = mkV_II "fisser" (mkRoot "f-s-r") ; fisser_FSR_2_7930_V = mkV_II "fisser" (mkRoot "f-s-r") ;
tfisser_FSR_5_7931_V = mkV_V "tfisser" (mkRoot "f-s-r") ; tfisser_FSR_5_7931_V = mkV_V "tfisser" (mkRoot "f-s-r") ;
fetah_FTH_1_7932_V = mkV "fetaħ" (mkRoot "f-t-ħ") ; fetah_FTH_1_7932_V = pastPartV "miftuħ" (mkV "fetaħ" (mkRoot "f-t-ħ")) ;
fettah_FTH_2_7933_V = mkV_II "fettaħ" (mkRoot "f-t-ħ") ; fettah_FTH_2_7933_V = mkV_II "fettaħ" (mkRoot "f-t-ħ") ;
tfettah_FTH_5_7934_V = mkV_V "tfettaħ" (mkRoot "f-t-ħ") ; tfettah_FTH_5_7934_V = mkV_V "tfettaħ" (mkRoot "f-t-ħ") ;
nfetah_FTH_7_7935_V = mkV_VII "fetaħ" "nfetaħ" (mkRoot "f-t-ħ") ; nfetah_FTH_7_7935_V = mkV_VII "fetaħ" "nfetaħ" (mkRoot "f-t-ħ") ;
@@ -1313,7 +1313,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tfattar_FTR_5_7949_V = mkV_V "tfattar" (mkRoot "f-t-r") ; tfattar_FTR_5_7949_V = mkV_V "tfattar" (mkRoot "f-t-r") ;
fettet_FTT_2_7950_V = mkV_II "fettet" (mkRoot "f-t-t") ; fettet_FTT_2_7950_V = mkV_II "fettet" (mkRoot "f-t-t") ;
tfettet_FTT_5_7951_V = mkV_V "tfettet" (mkRoot "f-t-t") ; tfettet_FTT_5_7951_V = mkV_V "tfettet" (mkRoot "f-t-t") ;
fittex_FTX_2_7952_V = mkV_II "fittex" (mkRoot "f-t-x") ; fittex_FTX_2_7952_V = pastPartV "mfittex" (mkV_II "fittex" (mkRoot "f-t-x")) ;
tfittex_FTX_5_7953_V = mkV_V "tfittex" (mkRoot "f-t-x") ; tfittex_FTX_5_7953_V = mkV_V "tfittex" (mkRoot "f-t-x") ;
ntfettex_FTX_7_7954_V = mkV_VII "fettex" "ntfettex" (mkRoot "f-t-x") ; ntfettex_FTX_7_7954_V = mkV_VII "fettex" "ntfettex" (mkRoot "f-t-x") ;
fixel_FXL_1_7955_V = mkV "fixel" (mkRoot "f-x-l") ; fixel_FXL_1_7955_V = mkV "fixel" (mkRoot "f-x-l") ;
@@ -1370,7 +1370,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ngideb_GDB_7_8006_V = mkV_VII "gideb" "ngideb" (mkRoot "g-d-b") ; ngideb_GDB_7_8006_V = mkV_VII "gideb" "ngideb" (mkRoot "g-d-b") ;
geddel_GDL_2_8007_V = mkV_II "geddel" (mkRoot "g-d-l") ; geddel_GDL_2_8007_V = mkV_II "geddel" (mkRoot "g-d-l") ;
tgeddel_GDL_5_8008_V = mkV_V "tgeddel" (mkRoot "g-d-l") ; tgeddel_GDL_5_8008_V = mkV_V "tgeddel" (mkRoot "g-d-l") ;
gidem_GDM_1_8009_V = mkV "gidem" (mkRoot "g-d-m") ; gidem_GDM_1_8009_V = pastPartV "migdum" (mkV "gidem" (mkRoot "g-d-m")) ;
giddem_GDM_2_8010_V = mkV_II "giddem" (mkRoot "g-d-m") ; giddem_GDM_2_8010_V = mkV_II "giddem" (mkRoot "g-d-m") ;
tgiddem_GDM_5_8011_V = mkV_V "tgiddem" (mkRoot "g-d-m") ; tgiddem_GDM_5_8011_V = mkV_V "tgiddem" (mkRoot "g-d-m") ;
tgiedem_GDM_6_8012_V = mkV_VI "tgiedem" (mkRoot "g-d-m") ; tgiedem_GDM_6_8012_V = mkV_VI "tgiedem" (mkRoot "g-d-m") ;
@@ -1404,7 +1404,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
gara_GRJ_3_8040_V = mkV_III "gara" (mkRoot "g-r-j") ; gara_GRJ_3_8040_V = mkV_III "gara" (mkRoot "g-r-j") ;
tgara_GRJ_6_8041_V = mkV_VI "tgara" (mkRoot "g-r-j") ; tgara_GRJ_6_8041_V = mkV_VI "tgara" (mkRoot "g-r-j") ;
gaza_GZJ_1_8042_V = mkV "gaża" (mkRoot "g-ż-j") ; gaza_GZJ_1_8042_V = mkV "gaża" (mkRoot "g-ż-j") ;
gibed_GBD_1_8043_V = mkV "ġibed" (mkRoot "ġ-b-d") ; gibed_GBD_1_8043_V = pastPartV "miġbud" (mkV "ġibed" (mkRoot "ġ-b-d")) ;
gebbed_GBD_2_8044_V = mkV_II "ġebbed" (mkRoot "ġ-b-d") ; gebbed_GBD_2_8044_V = mkV_II "ġebbed" (mkRoot "ġ-b-d") ;
ggebbed_GBD_5_8045_V = mkV_V "ġġebbed" (mkRoot "ġ-b-d") ; ggebbed_GBD_5_8045_V = mkV_V "ġġebbed" (mkRoot "ġ-b-d") ;
ngibed_GBD_7_8046_V = mkV_VII "ġibed" "nġibed" (mkRoot "ġ-b-d") ; ngibed_GBD_7_8046_V = mkV_VII "ġibed" "nġibed" (mkRoot "ġ-b-d") ;
@@ -1435,7 +1435,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
gileb_GLB_1_8071_V = mkV "ġileb" (mkRoot "ġ-l-b") ; gileb_GLB_1_8071_V = mkV "ġileb" (mkRoot "ġ-l-b") ;
gelled_GLD_2_8072_V = mkV_II "ġelled" (mkRoot "ġ-l-d") ; gelled_GLD_2_8072_V = mkV_II "ġelled" (mkRoot "ġ-l-d") ;
gieled_GLD_3_8073_V = mkV_III "ġieled" (mkRoot "ġ-l-d") ; gieled_GLD_3_8073_V = mkV_III "ġieled" (mkRoot "ġ-l-d") ;
ggieled_GLD_6_8074_V = mkV_VI "ġġieled" (mkRoot "ġ-l-d") ; ggieled_GLD_6_8074_V = pastPartV "miġġieled" "miġġielda" "miġġieldin" (mkV_VI "ġġieled" (mkRoot "ġ-l-d")) ;
gelled_GLD_2_8075_V = mkV_II "ġelled" (mkRoot "ġ-l-d") ; gelled_GLD_2_8075_V = mkV_II "ġelled" (mkRoot "ġ-l-d") ;
ggelled_GLD_5_8076_V = mkV_V "ġġelled" (mkRoot "ġ-l-d") ; ggelled_GLD_5_8076_V = mkV_V "ġġelled" (mkRoot "ġ-l-d") ;
gimed_GMD_1_8077_V = mkV "ġimed" (mkRoot "ġ-m-d") ; gimed_GMD_1_8077_V = mkV "ġimed" (mkRoot "ġ-m-d") ;
@@ -1484,11 +1484,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
gezz_GZZ_1_8120_V = mkV "ġeżż" (mkRoot "ġ-ż-ż") ; gezz_GZZ_1_8120_V = mkV "ġeżż" (mkRoot "ġ-ż-ż") ;
gezzez_GZZ_2_8121_V = mkV_II "ġeżżeż" (mkRoot "ġ-ż-ż") ; gezzez_GZZ_2_8121_V = mkV_II "ġeżżeż" (mkRoot "ġ-ż-ż") ;
ngezz_GZZ_7_8122_V = mkV_VII "ġeżż" "nġeżż" (mkRoot "ġ-ż-ż") ; ngezz_GZZ_7_8122_V = mkV_VII "ġeżż" "nġeżż" (mkRoot "ġ-ż-ż") ;
gie_GJ'_1_8123_V = irregularV form1 (mkRoot "ġ-j-'") (mkPattern "ie" []) gie_GJ'_1_8123_V = presPartV "ġej" (pastPartV "miġjub" (irregularV form1 (mkRoot "ġ-j-'") (mkPattern "ie" [])
"ġejt" "ġejt" "ġie" "ġiet" "ġejna" "ġejtu" "ġew" "ġejt" "ġejt" "ġie" "ġiet" "ġejna" "ġejtu" "ġew"
"niġi" "tiġi" "jiġi" "tiġi" "niġu" "tiġu" "jiġu" "niġi" "tiġi" "jiġi" "tiġi" "niġu" "tiġu" "jiġu"
"ejja" "ejjew" "ejja" "ejjew"
; ));
gab_GJB_1_8124_V = mkV "ġab" (mkRoot "ġ-j-b") ; gab_GJB_1_8124_V = mkV "ġab" (mkRoot "ġ-j-b") ;
ngab_GJB_7_8125_V = mkV_VII "ġab" "nġab" (mkRoot "ġ-j-b") ; ngab_GJB_7_8125_V = mkV_VII "ġab" "nġab" (mkRoot "ġ-j-b") ;
gejjef_GJF_2_8126_V = mkV_II "ġejjef" (mkRoot "ġ-j-f") ; gejjef_GJF_2_8126_V = mkV_II "ġejjef" (mkRoot "ġ-j-f") ;
@@ -1496,7 +1496,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
gela_GLW_1_8128_V = mkV "ġela" (mkRoot "ġ-l-w") ; gela_GLW_1_8128_V = mkV "ġela" (mkRoot "ġ-l-w") ;
ngela_GLW_7_8129_V = mkV_VII "ġela" "nġela" (mkRoot "ġ-l-w") ; ngela_GLW_7_8129_V = mkV_VII "ġela" "nġela" (mkRoot "ġ-l-w") ;
gara_GRJ_1_8130_V = mkV "ġara" (mkRoot "ġ-r-j") ; gara_GRJ_1_8130_V = mkV "ġara" (mkRoot "ġ-r-j") ;
gera_GRJ_1_8131_V = mkV "ġera" (mkRoot "ġ-r-j") ; gera_GRJ_1_8131_V = pastPartV "miġri" (mkV "ġera" (mkRoot "ġ-r-j")) ;
gerra_GRJ_2_8132_V = mkV_II "ġerra" (mkRoot "ġ-r-j") ; gerra_GRJ_2_8132_V = mkV_II "ġerra" (mkRoot "ġ-r-j") ;
ggerra_GRJ_5_8133_V = mkV_V "ġġerra" (mkRoot "ġ-r-j") ; ggerra_GRJ_5_8133_V = mkV_V "ġġerra" (mkRoot "ġ-r-j") ;
ggiera_GRJ_6_8134_V = mkV_VI "ġġiera" (mkRoot "ġ-r-j") ; ggiera_GRJ_6_8134_V = mkV_VI "ġġiera" (mkRoot "ġ-r-j") ;
@@ -1538,7 +1538,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
therra_HRJ_5_8171_V = mkV_V "therra" (mkRoot "h-r-j") ; therra_HRJ_5_8171_V = mkV_V "therra" (mkRoot "h-r-j") ;
sthewwa_HWJ_10_8172_V = mkV_X "sthewwa" (mkRoot "h-w-j") ; sthewwa_HWJ_10_8172_V = mkV_X "sthewwa" (mkRoot "h-w-j") ;
hezza_HZJ_2_8173_V = mkV_II "heżża" (mkRoot "h-ż-j") ; hezza_HZJ_2_8173_V = mkV_II "heżża" (mkRoot "h-ż-j") ;
habb_HBB_1_8174_V = mkV "ħabb" (mkRoot "ħ-b-b") ; habb_HBB_1_8174_V = pastPartV "maħbub" (mkV "ħabb" (mkRoot "ħ-b-b")) ;
habbeb_HBB_2_8175_V = mkV_II "ħabbeb" (mkRoot "ħ-b-b") ; habbeb_HBB_2_8175_V = mkV_II "ħabbeb" (mkRoot "ħ-b-b") ;
thabbeb_HBB_5_8176_V = mkV_V "tħabbeb" (mkRoot "ħ-b-b") ; thabbeb_HBB_5_8176_V = mkV_V "tħabbeb" (mkRoot "ħ-b-b") ;
nhabb_HBB_7_8177_V = mkV_VII "ħabb" "nħabb" (mkRoot "ħ-b-b") ; nhabb_HBB_7_8177_V = mkV_VII "ħabb" "nħabb" (mkRoot "ħ-b-b") ;
@@ -1596,10 +1596,10 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
hfief_HFF_9_8230_V = mkV_IX "ħfief" (mkRoot "ħ-f-f") ; hfief_HFF_9_8230_V = mkV_IX "ħfief" (mkRoot "ħ-f-f") ;
hafen_HFN_1_8231_V = mkV "ħafen" (mkRoot "ħ-f-n") ; hafen_HFN_1_8231_V = mkV "ħafen" (mkRoot "ħ-f-n") ;
nhafen_HFN_7_8232_V = mkV_VII "ħafen" "nħafen" (mkRoot "ħ-f-n") ; nhafen_HFN_7_8232_V = mkV_VII "ħafen" "nħafen" (mkRoot "ħ-f-n") ;
hafer_HFR_1_8233_V = mkV "ħafer" (mkRoot "ħ-f-r") ; hafer_HFR_1_8233_V = pastPartV "maħfur" (mkV "ħafer" (mkRoot "ħ-f-r")) ;
nhafer_HFR_7_8234_V = mkV_VII "ħafer" "nħafer" (mkRoot "ħ-f-r") ; nhafer_HFR_7_8234_V = mkV_VII "ħafer" "nħafer" (mkRoot "ħ-f-r") ;
hafer_HFR_1_8235_V = mkV "ħafer" (mkRoot "ħ-f-r") ; hafer_HFR_1_8235_V = mkV "ħafer" (mkRoot "ħ-f-r") ;
haffer_HFR_2_8236_V = mkV_II "ħaffer" (mkRoot "ħ-f-r") ; haffer_HFR_2_8236_V = pastPartV "mħaffer" (mkV_II "ħaffer" (mkRoot "ħ-f-r")) ;
thaffer_HFR_5_8237_V = mkV_V "tħaffer" (mkRoot "ħ-f-r") ; thaffer_HFR_5_8237_V = mkV_V "tħaffer" (mkRoot "ħ-f-r") ;
hageb_HGB_1_8238_V = mkV "ħaġeb" (mkRoot "ħ-ġ-b") ; hageb_HGB_1_8238_V = mkV "ħaġeb" (mkRoot "ħ-ġ-b") ;
haggeb_HGB_2_8239_V = mkV_II "ħaġġeb" (mkRoot "ħ-ġ-b") ; haggeb_HGB_2_8239_V = mkV_II "ħaġġeb" (mkRoot "ħ-ġ-b") ;
@@ -1730,7 +1730,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tharrek_HRK_5_8364_V = mkV_V "tħarrek" (mkRoot "ħ-r-k") ; tharrek_HRK_5_8364_V = mkV_V "tħarrek" (mkRoot "ħ-r-k") ;
horom_HRM_1_8365_V = mkV "ħorom" (mkRoot "ħ-r-m") ; horom_HRM_1_8365_V = mkV "ħorom" (mkRoot "ħ-r-m") ;
harrem_HRM_2_8366_V = mkV_II "ħarrem" (mkRoot "ħ-r-m") ; harrem_HRM_2_8366_V = mkV_II "ħarrem" (mkRoot "ħ-r-m") ;
haraq_HRQ_1_8367_V = mkV "ħaraq" (mkRoot "ħ-r-q") ; haraq_HRQ_1_8367_V = pastPartV "maħruq" (mkV "ħaraq" (mkRoot "ħ-r-q")) ;
harraq_HRQ_2_8368_V = mkV_II "ħarraq" (mkRoot "ħ-r-q") ; harraq_HRQ_2_8368_V = mkV_II "ħarraq" (mkRoot "ħ-r-q") ;
tharraq_HRQ_5_8369_V = mkV_V "tħarraq" (mkRoot "ħ-r-q") ; tharraq_HRQ_5_8369_V = mkV_V "tħarraq" (mkRoot "ħ-r-q") ;
nharaq_HRQ_7_8370_V = mkV_VII "ħaraq" "nħaraq" (mkRoot "ħ-r-q") ; nharaq_HRQ_7_8370_V = mkV_VII "ħaraq" "nħaraq" (mkRoot "ħ-r-q") ;
@@ -1750,7 +1750,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
harrax_HRX_2_8384_V = mkV_II "ħarrax" (mkRoot "ħ-r-x") ; harrax_HRX_2_8384_V = mkV_II "ħarrax" (mkRoot "ħ-r-x") ;
tharrax_HRX_5_8385_V = mkV_V "tħarrax" (mkRoot "ħ-r-x") ; tharrax_HRX_5_8385_V = mkV_V "tħarrax" (mkRoot "ħ-r-x") ;
hrax_HRX_9_8386_V = mkV_IX "ħrax" (mkRoot "ħ-r-x") ; hrax_HRX_9_8386_V = mkV_IX "ħrax" (mkRoot "ħ-r-x") ;
haseb_HSB_1_8387_V = mkV "ħaseb" (mkRoot "ħ-s-b") ; haseb_HSB_1_8387_V = pastPartV "maħsub" (mkV "ħaseb" (mkRoot "ħ-s-b")) ;
hasseb_HSB_2_8388_V = mkV_II "ħasseb" (mkRoot "ħ-s-b") ; hasseb_HSB_2_8388_V = mkV_II "ħasseb" (mkRoot "ħ-s-b") ;
thasseb_HSB_5_8389_V = mkV_V "tħasseb" (mkRoot "ħ-s-b") ; thasseb_HSB_5_8389_V = mkV_V "tħasseb" (mkRoot "ħ-s-b") ;
thaseb_HSB_6_8390_V = mkV_VI "tħaseb" (mkRoot "ħ-s-b") ; thaseb_HSB_6_8390_V = mkV_VI "tħaseb" (mkRoot "ħ-s-b") ;
@@ -1758,7 +1758,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
hasad_HSD_1_8392_V = mkV "ħasad" (mkRoot "ħ-s-d") ; hasad_HSD_1_8392_V = mkV "ħasad" (mkRoot "ħ-s-d") ;
hassad_HSD_2_8393_V = mkV_II "ħassad" (mkRoot "ħ-s-d") ; hassad_HSD_2_8393_V = mkV_II "ħassad" (mkRoot "ħ-s-d") ;
nhasad_HSD_7_8394_V = mkV_VII "ħasad" "nħasad" (mkRoot "ħ-s-d") ; nhasad_HSD_7_8394_V = mkV_VII "ħasad" "nħasad" (mkRoot "ħ-s-d") ;
hasel_HSL_1_8395_V = mkV "ħasel" (mkRoot "ħ-s-l") ; hasel_HSL_1_8395_V = pastPartV "maħsul" (mkV "ħasel" (mkRoot "ħ-s-l")) ;
hassel_HSL_2_8396_V = mkV_II "ħassel" (mkRoot "ħ-s-l") ; hassel_HSL_2_8396_V = mkV_II "ħassel" (mkRoot "ħ-s-l") ;
nhasel_HSL_7_8397_V = mkV_VII "ħasel" "nħasel" (mkRoot "ħ-s-l") ; nhasel_HSL_7_8397_V = mkV_VII "ħasel" "nħasel" (mkRoot "ħ-s-l") ;
hasel_HSL_1_8398_V = mkV "ħasel" (mkRoot "ħ-s-l") ; hasel_HSL_1_8398_V = mkV "ħasel" (mkRoot "ħ-s-l") ;
@@ -1871,7 +1871,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
hajjar_HJR_2_8505_V = mkV_II "ħajjar" (mkRoot "ħ-j-r") ; hajjar_HJR_2_8505_V = mkV_II "ħajjar" (mkRoot "ħ-j-r") ;
thajjar_HJR_5_8506_V = mkV_V "tħajjar" (mkRoot "ħ-j-r") ; thajjar_HJR_5_8506_V = mkV_V "tħajjar" (mkRoot "ħ-j-r") ;
htar_HJR_8_8507_V = mkV_VIII "ħtar" (mkRoot "ħ-j-r") ; htar_HJR_8_8507_V = mkV_VIII "ħtar" (mkRoot "ħ-j-r") ;
hat_HJT_1_8508_V = mkV "ħat" (mkRoot "ħ-j-t") ; hat_HJT_1_8508_V = pastPartV "meħjut" (mkV "ħat" (mkRoot "ħ-j-t")) ;
nhat_HJT_7_8509_V = mkV_VII "ħât" "nħât" (mkRoot "ħ-j-t") ; nhat_HJT_7_8509_V = mkV_VII "ħât" "nħât" (mkRoot "ħ-j-t") ;
hajjet_HJT_2_8510_V = mkV_II "ħajjet" (mkRoot "ħ-j-t") ; hajjet_HJT_2_8510_V = mkV_II "ħajjet" (mkRoot "ħ-j-t") ;
thajjet_HJT_5_8511_V = mkV_V "tħajjet" (mkRoot "ħ-j-t") ; thajjet_HJT_5_8511_V = mkV_V "tħajjet" (mkRoot "ħ-j-t") ;
@@ -1934,7 +1934,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tkebbex_KBX_5_8568_V = mkV_V "tkebbex" (mkRoot "k-b-x") ; tkebbex_KBX_5_8568_V = mkV_V "tkebbex" (mkRoot "k-b-x") ;
kabbaz_KBZ_2_8569_V = mkV_II "kabbaz" (mkRoot "k-b-z") ; kabbaz_KBZ_2_8569_V = mkV_II "kabbaz" (mkRoot "k-b-z") ;
tkabbaz_KBZ_5_8570_V = mkV_V "tkabbaz" (mkRoot "k-b-z") ; tkabbaz_KBZ_5_8570_V = mkV_V "tkabbaz" (mkRoot "k-b-z") ;
kaccac_KCC_2_8571_V = mkV_II "kaċċaċ" (mkRoot "k-ċ-ċ") ; kaccac_KCC_2_8571_V = pastPartV "kkaċċjat" (mkV_II "kaċċaċ" (mkRoot "k-ċ-ċ")) ;
kedd_KDD_1_8572_V = mkV "kedd" (mkRoot "k-d-d") ; kedd_KDD_1_8572_V = mkV "kedd" (mkRoot "k-d-d") ;
kedded_KDD_2_8573_V = mkV_II "kedded" (mkRoot "k-d-d") ; kedded_KDD_2_8573_V = mkV_II "kedded" (mkRoot "k-d-d") ;
tkedded_KDD_5_8574_V = mkV_V "tkedded" (mkRoot "k-d-d") ; tkedded_KDD_5_8574_V = mkV_V "tkedded" (mkRoot "k-d-d") ;
@@ -1960,7 +1960,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
kelel_KLL_1_8594_V = mkV "kelel" (mkRoot "k-l-l") ; kelel_KLL_1_8594_V = mkV "kelel" (mkRoot "k-l-l") ;
kellel_KLL_2_8595_V = mkV_II "kellel" (mkRoot "k-l-l") ; kellel_KLL_2_8595_V = mkV_II "kellel" (mkRoot "k-l-l") ;
tkellel_KLL_5_8596_V = mkV_V "tkellel" (mkRoot "k-l-l") ; tkellel_KLL_5_8596_V = mkV_V "tkellel" (mkRoot "k-l-l") ;
kellem_KLM_2_8597_V = mkV_II "kellem" (mkRoot "k-l-m") ; kellem_KLM_2_8597_V = pastPartV "mitkellem" (mkV_II "kellem" (mkRoot "k-l-m")) ;
tkellem_KLM_5_8598_V = mkV_V "tkellem" (mkRoot "k-l-m") ; tkellem_KLM_5_8598_V = mkV_V "tkellem" (mkRoot "k-l-m") ;
kemmed_KMD_2_8599_V = mkV_II "kemmed" (mkRoot "k-m-d") ; kemmed_KMD_2_8599_V = mkV_II "kemmed" (mkRoot "k-m-d") ;
tkemmed_KMD_5_8600_V = mkV_V "tkemmed" (mkRoot "k-m-d") ; tkemmed_KMD_5_8600_V = mkV_V "tkemmed" (mkRoot "k-m-d") ;
@@ -1999,12 +1999,12 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
kesah_KSH_1_8633_V = mkV "kesaħ" (mkRoot "k-s-ħ") ; kesah_KSH_1_8633_V = mkV "kesaħ" (mkRoot "k-s-ħ") ;
kessah_KSH_2_8634_V = mkV_II "kessaħ" (mkRoot "k-s-ħ") ; kessah_KSH_2_8634_V = mkV_II "kessaħ" (mkRoot "k-s-ħ") ;
tkessah_KSH_5_8635_V = mkV_V "tkessaħ" (mkRoot "k-s-ħ") ; tkessah_KSH_5_8635_V = mkV_V "tkessaħ" (mkRoot "k-s-ħ") ;
kiser_KSR_1_8636_V = mkV "kiser" (mkRoot "k-s-r") ; kiser_KSR_1_8636_V = pastPartV "miksur" (mkV "kiser" (mkRoot "k-s-r")) ;
kisser_KSR_2_8637_V = mkV_II "kisser" (mkRoot "k-s-r") ; kisser_KSR_2_8637_V = mkV_II "kisser" (mkRoot "k-s-r") ;
tkisser_KSR_5_8638_V = mkV_V "tkisser" (mkRoot "k-s-r") ; tkisser_KSR_5_8638_V = mkV_V "tkisser" (mkRoot "k-s-r") ;
nkiser_KSR_7_8639_V = mkV_VII "kiser" "nkiser" (mkRoot "k-s-r") ; nkiser_KSR_7_8639_V = mkV_VII "kiser" "nkiser" (mkRoot "k-s-r") ;
kess_KSS_1_8640_V = mkV "kess" (mkRoot "k-s-s") ; kess_KSS_1_8640_V = mkV "kess" (mkRoot "k-s-s") ;
kiteb_KTB_1_8641_V = mkV "kiteb" (mkRoot "k-t-b") ; kiteb_KTB_1_8641_V = pastPartV "miktub" (mkV "kiteb" (mkRoot "k-t-b")) ;
kitteb_KTB_2_8642_V = mkV_II "kitteb" (mkRoot "k-t-b") ; kitteb_KTB_2_8642_V = mkV_II "kitteb" (mkRoot "k-t-b") ;
tkieteb_KTB_6_8643_V = mkV_VI "tkieteb" (mkRoot "k-t-b") ; tkieteb_KTB_6_8643_V = mkV_VI "tkieteb" (mkRoot "k-t-b") ;
nkiteb_KTB_7_8644_V = mkV_VII "kiteb" "nkiteb" (mkRoot "k-t-b") ; nkiteb_KTB_7_8644_V = mkV_VII "kiteb" "nkiteb" (mkRoot "k-t-b") ;
@@ -2035,11 +2035,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tkejjef_KJF_5_8669_V = mkV_V "tkejjef" (mkRoot "k-j-f") ; tkejjef_KJF_5_8669_V = mkV_V "tkejjef" (mkRoot "k-j-f") ;
kejjel_KJL_2_8670_V = mkV_II "kejjel" (mkRoot "k-j-l") ; kejjel_KJL_2_8670_V = mkV_II "kejjel" (mkRoot "k-j-l") ;
tkejjel_KJL_5_8671_V = mkV_V "tkejjel" (mkRoot "k-j-l") ; tkejjel_KJL_5_8671_V = mkV_V "tkejjel" (mkRoot "k-j-l") ;
kiel_KJL_1_8672_V = irregularV form1 (mkRoot "k-j-l") (mkPattern "ie" []) kiel_KJL_1_8672_V = pastPartV "mikul" (irregularV form1 (mkRoot "k-j-l") (mkPattern "ie" [])
"kilt" "kilt" "kiel" "kielet" "kilna" "kiltu" "kielu" "kilt" "kilt" "kiel" "kielet" "kilna" "kiltu" "kielu"
"niekol" "tiekol" "jiekol" "tiekol" "nieklu" "tieklu" "jieklu" "niekol" "tiekol" "jiekol" "tiekol" "nieklu" "tieklu" "jieklu"
("kul"|"iekol") ("kulu"|"ieklu") ("kul"|"iekol") ("kulu"|"ieklu")
; );
wikkel_KJL_2_8673_V = mkV_II "wikkel" (mkRoot "k-j-l") ; wikkel_KJL_2_8673_V = mkV_II "wikkel" (mkRoot "k-j-l") ;
twikkel_KJL_5_8674_V = mkV_V "twikkel" (mkRoot "k-j-l") ; twikkel_KJL_5_8674_V = mkV_V "twikkel" (mkRoot "k-j-l") ;
ttiekel_KJL_7_8675_V = mkV_VII "tiekel" "ttiekel" (mkRoot "k-j-l") ; ttiekel_KJL_7_8675_V = mkV_VII "tiekel" "ttiekel" (mkRoot "k-j-l") ;
@@ -2143,7 +2143,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
laqqam_LQM_2_8769_V = mkV_II "laqqam" (mkRoot "l-q-m") ; laqqam_LQM_2_8769_V = mkV_II "laqqam" (mkRoot "l-q-m") ;
tlaqqam_LQM_5_8770_V = mkV_V "tlaqqam" (mkRoot "l-q-m") ; tlaqqam_LQM_5_8770_V = mkV_V "tlaqqam" (mkRoot "l-q-m") ;
leqq_LQQ_1_8771_V = mkV "leqq" (mkRoot "l-q-q") ; leqq_LQQ_1_8771_V = mkV "leqq" (mkRoot "l-q-q") ;
laqat_LQT_1_8772_V = mkV "laqat" (mkRoot "l-q-t") ; laqat_LQT_1_8772_V = pastPartV "milqut" (mkV "laqat" (mkRoot "l-q-t")) ;
laqqat_LQT_2_8773_V = mkV_II "laqqat" (mkRoot "l-q-t") ; laqqat_LQT_2_8773_V = mkV_II "laqqat" (mkRoot "l-q-t") ;
tlaqqat_LQT_5_8774_V = mkV_V "tlaqqat" (mkRoot "l-q-t") ; tlaqqat_LQT_5_8774_V = mkV_V "tlaqqat" (mkRoot "l-q-t") ;
ntlaqat_LQT_7_8775_V = mkV_VII "laqat" "ntlaqat" (mkRoot "l-q-t") ; ntlaqat_LQT_7_8775_V = mkV_VII "laqat" "ntlaqat" (mkRoot "l-q-t") ;
@@ -2187,7 +2187,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tmedd_MDD_5_8813_V = mkV_V "tmedd" (mkRoot "m-d-d") ; tmedd_MDD_5_8813_V = mkV_V "tmedd" (mkRoot "m-d-d") ;
tmedd_MDD_6_8814_V = mkV_VI "tmedd" (mkRoot "m-d-d") ; tmedd_MDD_6_8814_V = mkV_VI "tmedd" (mkRoot "m-d-d") ;
ntmedd_MDD_7_8815_V = mkV_VII "medd" "ntmedd" (mkRoot "m-d-d") ; ntmedd_MDD_7_8815_V = mkV_VII "medd" "ntmedd" (mkRoot "m-d-d") ;
mtedd_MDD_8_8816_V = mkV_VIII "mtedd" (mkRoot "m-d-d") ; mtedd_MDD_8_8816_V = pastPartV "mimdud" (mkV_VIII "mtedd" (mkRoot "m-d-d")) ;
maghad_MGHD_1_8817_V = mkV "magħad" (mkRoot "m-għ-d") ; maghad_MGHD_1_8817_V = mkV "magħad" (mkRoot "m-għ-d") ;
maghghad_MGHD_2_8818_V = mkV_II "magħgħad" (mkRoot "m-għ-d") ; maghghad_MGHD_2_8818_V = mkV_II "magħgħad" (mkRoot "m-għ-d") ;
mieghed_MGHD_3_8819_V = mkV_III "miegħed" (mkRoot "m-għ-d") ; mieghed_MGHD_3_8819_V = mkV_III "miegħed" (mkRoot "m-għ-d") ;
@@ -2252,7 +2252,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tmarrar_MRR_5_8878_V = mkV_V "tmarrar" (mkRoot "m-r-r") ; tmarrar_MRR_5_8878_V = mkV_V "tmarrar" (mkRoot "m-r-r") ;
mrar_MRR_9_8879_V = mkV_IX "mrar" (mkRoot "m-r-r") ; mrar_MRR_9_8879_V = mkV_IX "mrar" (mkRoot "m-r-r") ;
mirex_MRX_1_8880_V = mkV "mirex" (mkRoot "m-r-x") ; mirex_MRX_1_8880_V = mkV "mirex" (mkRoot "m-r-x") ;
mesah_MSH_1_8881_V = mkV "mesaħ" (mkRoot "m-s-ħ") ; mesah_MSH_1_8881_V = pastPartV "mimsuħ" (mkV "mesaħ" (mkRoot "m-s-ħ")) ;
messah_MSH_2_8882_V = mkV_II "messaħ" (mkRoot "m-s-ħ") ; messah_MSH_2_8882_V = mkV_II "messaħ" (mkRoot "m-s-ħ") ;
tmessah_MSH_5_8883_V = mkV_V "tmessaħ" (mkRoot "m-s-ħ") ; tmessah_MSH_5_8883_V = mkV_V "tmessaħ" (mkRoot "m-s-ħ") ;
ntmesah_MSH_7_8884_V = mkV_VII "mesaħ" "ntmesaħ" (mkRoot "m-s-ħ") ; ntmesah_MSH_7_8884_V = mkV_VII "mesaħ" "ntmesaħ" (mkRoot "m-s-ħ") ;
@@ -2289,19 +2289,19 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tmiera_MRJ_6_8915_V = mkV_VI "tmiera" (mkRoot "m-r-j") ; tmiera_MRJ_6_8915_V = mkV_VI "tmiera" (mkRoot "m-r-j") ;
mewweg_MWG_2_8916_V = mkV_II "mewweġ" (mkRoot "m-w-ġ") ; mewweg_MWG_2_8916_V = mkV_II "mewweġ" (mkRoot "m-w-ġ") ;
tmewweg_MWG_5_8917_V = mkV_V "tmewweġ" (mkRoot "m-w-ġ") ; tmewweg_MWG_5_8917_V = mkV_V "tmewweġ" (mkRoot "m-w-ġ") ;
mar_MWR_1_8918_V = irregularV form1 (mkRoot "m-w-r") (mkPattern "a" []) mar_MWR_1_8918_V = presPartV "sejjer" (irregularV form1 (mkRoot "m-w-r") (mkPattern "a" [])
"mort" "mort" "mar" "marret" "morna" "mortu" "marru" "mort" "mort" "mar" "marret" "morna" "mortu" "marru"
"mmur" "tmur" "jmur" "tmur" "mmorru" "tmorru" "jmorru" "mmur" "tmur" "jmur" "tmur" "mmorru" "tmorru" "jmorru"
"mur" "morru" "mur" "morru"
; ) ;
mawwar_MWR_2_8919_V = mkV_II "mawwar" (mkRoot "m-w-r") ; mawwar_MWR_2_8919_V = mkV_II "mawwar" (mkRoot "m-w-r") ;
tmawwar_MWR_5_8920_V = mkV_V "tmawwar" (mkRoot "m-w-r") ; tmawwar_MWR_5_8920_V = mkV_V "tmawwar" (mkRoot "m-w-r") ;
mewwes_MWS_2_8921_V = mkV_II "mewwes" (mkRoot "m-w-s") ; mewwes_MWS_2_8921_V = pastPartV "mmewwes" (mkV_II "mewwes" (mkRoot "m-w-s")) ;
tmewwes_MWS_5_8922_V = mkV_V "tmewwes" (mkRoot "m-w-s") ; tmewwes_MWS_5_8922_V = mkV_V "tmewwes" (mkRoot "m-w-s") ;
miet_MWT_1_8923_V = mkV "miet" (mkRoot "m-w-t") ; miet_MWT_1_8923_V = pastPartV "mejjet" (mkV "miet" (mkRoot "m-w-t")) ;
mewwet_MWT_2_8924_V = mkV_II "mewwet" (mkRoot "m-w-t") ; mewwet_MWT_2_8924_V = mkV_II "mewwet" (mkRoot "m-w-t") ;
tmewwet_MWT_5_8925_V = mkV_V "tmewwet" (mkRoot "m-w-t") ; tmewwet_MWT_5_8925_V = mkV_V "tmewwet" (mkRoot "m-w-t") ;
mexa_MXJ_1_8926_V = mkV "mexa" (mkRoot "m-x-j") ; mexa_MXJ_1_8926_V = pastPartV "mmexxi" (mkV "mexa" (mkRoot "m-x-j")) ;
mexxa_MXJ_2_8927_V = mkV_II "mexxa" (mkRoot "m-x-j") ; mexxa_MXJ_2_8927_V = mkV_II "mexxa" (mkRoot "m-x-j") ;
tmexxa_MXJ_5_8928_V = mkV_V "tmexxa" (mkRoot "m-x-j") ; tmexxa_MXJ_5_8928_V = mkV_V "tmexxa" (mkRoot "m-x-j") ;
ntmexx_MXJ_7_8929_V = mkV_VII "mexx" "ntmexx" (mkRoot "m-x-j") ; ntmexx_MXJ_7_8929_V = mkV_VII "mexx" "ntmexx" (mkRoot "m-x-j") ;
@@ -2341,11 +2341,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
niffed_NFD_2_8963_V = mkV_II "niffed" (mkRoot "n-f-d") ; niffed_NFD_2_8963_V = mkV_II "niffed" (mkRoot "n-f-d") ;
tniffed_NFD_5_8964_V = mkV_V "tniffed" (mkRoot "n-f-d") ; tniffed_NFD_5_8964_V = mkV_V "tniffed" (mkRoot "n-f-d") ;
ntnifed_NFD_7_8965_V = mkV_VII "nifed" "ntnifed" (mkRoot "n-f-d") ; ntnifed_NFD_7_8965_V = mkV_VII "nifed" "ntnifed" (mkRoot "n-f-d") ;
nefah_NFH_1_8966_V = mkV "nefaħ" (mkRoot "n-f-ħ") ; nefah_NFH_1_8966_V = pastPartV "minfuħ" (mkV "nefaħ" (mkRoot "n-f-ħ")) ;
neffah_NFH_2_8967_V = mkV_II "neffaħ" (mkRoot "n-f-ħ") ; neffah_NFH_2_8967_V = mkV_II "neffaħ" (mkRoot "n-f-ħ") ;
tneffah_NFH_5_8968_V = mkV_V "tneffaħ" (mkRoot "n-f-ħ") ; tneffah_NFH_5_8968_V = mkV_V "tneffaħ" (mkRoot "n-f-ħ") ;
ntnefah_NFH_7_8969_V = mkV_VII "nefaħ" "ntnefaħ" (mkRoot "n-f-ħ") ; ntnefah_NFH_7_8969_V = mkV_VII "nefaħ" "ntnefaħ" (mkRoot "n-f-ħ") ;
ntefah_NFH_8_8970_V = mkV_VIII "ntefaħ" (mkRoot "n-f-ħ") ; ntefah_NFH_8_8970_V = pastPartV "minfuħ" (mkV_VIII "ntefaħ" (mkRoot "n-f-ħ")) ;
nefaq_NFQ_1_8971_V = mkV "nefaq" (mkRoot "n-f-q") ; nefaq_NFQ_1_8971_V = mkV "nefaq" (mkRoot "n-f-q") ;
neffaq_NFQ_2_8972_V = mkV_II "neffaq" (mkRoot "n-f-q") ; neffaq_NFQ_2_8972_V = mkV_II "neffaq" (mkRoot "n-f-q") ;
tneffaq_NFQ_5_8973_V = mkV_V "tneffaq" (mkRoot "n-f-q") ; tneffaq_NFQ_5_8973_V = mkV_V "tneffaq" (mkRoot "n-f-q") ;
@@ -2501,7 +2501,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
naqa_NQJ_1_9123_V = mkV "naqa" (mkRoot "n-q-j") ; naqa_NQJ_1_9123_V = mkV "naqa" (mkRoot "n-q-j") ;
naqqa_NQJ_2_9124_V = mkV_II "naqqa" (mkRoot "n-q-j") ; naqqa_NQJ_2_9124_V = mkV_II "naqqa" (mkRoot "n-q-j") ;
tnaqqa_NQJ_5_9125_V = mkV_V "tnaqqa" (mkRoot "n-q-j") ; tnaqqa_NQJ_5_9125_V = mkV_V "tnaqqa" (mkRoot "n-q-j") ;
nesa_NSJ_1_9126_V = mkV "nesa" (mkRoot "n-s-j") ; nesa_NSJ_1_9126_V = pastPartV "minsi" (mkV "nesa" (mkRoot "n-s-j")) ;
nessa_NSJ_2_9127_V = mkV_II "nessa" (mkRoot "n-s-j") ; nessa_NSJ_2_9127_V = mkV_II "nessa" (mkRoot "n-s-j") ;
tnessa_NSJ_5_9128_V = mkV_V "tnessa" (mkRoot "n-s-j") ; tnessa_NSJ_5_9128_V = mkV_V "tnessa" (mkRoot "n-s-j") ;
ntnesa_NSJ_7_9129_V = mkV_VII "nesa" "ntnesa" (mkRoot "n-s-j") ; ntnesa_NSJ_7_9129_V = mkV_VII "nesa" "ntnesa" (mkRoot "n-s-j") ;
@@ -2526,11 +2526,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
pannat_PNT_2_9149_V = mkV_II "pannat" (mkRoot "p-n-t") ; pannat_PNT_2_9149_V = mkV_II "pannat" (mkRoot "p-n-t") ;
perrec_PRC_2_9150_V = mkV_II "perreċ" (mkRoot "p-r-ċ") ; perrec_PRC_2_9150_V = mkV_II "perreċ" (mkRoot "p-r-ċ") ;
tperrec_PRC_5_9151_V = mkV_V "tperreċ" (mkRoot "p-r-ċ") ; tperrec_PRC_5_9151_V = mkV_V "tperreċ" (mkRoot "p-r-ċ") ;
pitter_PTR_2_9152_V = mkV_II "pitter" (mkRoot "p-t-r") ; pitter_PTR_2_9152_V = pastPartV "mpitter" (mkV_II "pitter" (mkRoot "p-t-r")) ;
tpitter_PTR_5_9153_V = mkV_V "tpitter" (mkRoot "p-t-r") ; tpitter_PTR_5_9153_V = mkV_V "tpitter" (mkRoot "p-t-r") ;
paca_PCJ_3_9155_V = mkV_III "paċa" (mkRoot "p-ċ-j") ; paca_PCJ_3_9155_V = mkV_III "paċa" (mkRoot "p-ċ-j") ;
tpaca_PCJ_6_9156_V = mkV_VI "tpaċa" (mkRoot "p-ċ-j") ; tpaca_PCJ_6_9156_V = mkV_VI "tpaċa" (mkRoot "p-ċ-j") ;
pogga_PGJ_2_9157_V = mkV_II "poġġa" (mkRoot "p-ġ-j") ; pogga_PGJ_2_9157_V = pastPartV "poġġut" (mkV_II "poġġa" (mkRoot "p-ġ-j")) ;
tpogga_PGJ_5_9158_V = mkV_V "tpoġġa" (mkRoot "p-ġ-j") ; tpogga_PGJ_5_9158_V = mkV_V "tpoġġa" (mkRoot "p-ġ-j") ;
pejjep_PJP_2_9159_V = mkV_II "pejjep" (mkRoot "p-j-p") ; pejjep_PJP_2_9159_V = mkV_II "pejjep" (mkRoot "p-j-p") ;
tpejjep_PJP_5_9160_V = mkV_V "tpejjep" (mkRoot "p-j-p") ; tpejjep_PJP_5_9160_V = mkV_V "tpejjep" (mkRoot "p-j-p") ;
@@ -2555,7 +2555,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
qabbas_QBS_2_9179_V = mkV_II "qabbas" (mkRoot "q-b-s") ; qabbas_QBS_2_9179_V = mkV_II "qabbas" (mkRoot "q-b-s") ;
qebbex_QBX_1_9180_V = mkV "qebbex" (mkRoot "q-b-x") ; qebbex_QBX_1_9180_V = mkV "qebbex" (mkRoot "q-b-x") ;
tqebbex_QBX_5_9181_V = mkV_V "tqebbex" (mkRoot "q-b-x") ; tqebbex_QBX_5_9181_V = mkV_V "tqebbex" (mkRoot "q-b-x") ;
qabez_QBZ_1_9182_V = mkV "qabeż" (mkRoot "q-b-ż") ; qabez_QBZ_1_9182_V = pastPartV "maqbuż" (mkV "qabeż" (mkRoot "q-b-ż")) ;
qabbez_QBZ_2_9183_V = mkV_II "qabbeż" (mkRoot "q-b-ż") ; qabbez_QBZ_2_9183_V = mkV_II "qabbeż" (mkRoot "q-b-ż") ;
tqabbez_QBZ_5_9184_V = mkV_V "tqabbeż" (mkRoot "q-b-ż") ; tqabbez_QBZ_5_9184_V = mkV_V "tqabbeż" (mkRoot "q-b-ż") ;
tqabez_QBZ_6_9185_V = mkV_VI "tqabeż" (mkRoot "q-b-ż") ; tqabez_QBZ_6_9185_V = mkV_VI "tqabeż" (mkRoot "q-b-ż") ;
@@ -2579,13 +2579,13 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
qadar_QDR_1_9203_V = mkV "qadar" (mkRoot "q-d-r") ; qadar_QDR_1_9203_V = mkV "qadar" (mkRoot "q-d-r") ;
qaddes_QDS_2_9204_V = mkV_II "qaddes" (mkRoot "q-d-s") ; qaddes_QDS_2_9204_V = mkV_II "qaddes" (mkRoot "q-d-s") ;
tqaddes_QDS_5_9205_V = mkV_V "tqaddes" (mkRoot "q-d-s") ; tqaddes_QDS_5_9205_V = mkV_V "tqaddes" (mkRoot "q-d-s") ;
qafel_QFL_1_9206_V = mkV "qafel" (mkRoot "q-f-l") ; qafel_QFL_1_9206_V = pastPartV "maqful" (mkV "qafel" (mkRoot "q-f-l")) ;
qaffel_QFL_2_9207_V = mkV_II "qaffel" (mkRoot "q-f-l") ; qaffel_QFL_2_9207_V = mkV_II "qaffel" (mkRoot "q-f-l") ;
nqafel_QFL_7_9208_V = mkV_VII "qafel" "nqafel" (mkRoot "q-f-l") ; nqafel_QFL_7_9208_V = mkV_VII "qafel" "nqafel" (mkRoot "q-f-l") ;
qaffas_QFS_2_9209_V = mkV_II "qaffas" (mkRoot "q-f-s") ; qaffas_QFS_2_9209_V = mkV_II "qaffas" (mkRoot "q-f-s") ;
qaghad_QGHD_1_9210_V = mkV "qagħad" "oqgħod" (mkRoot "q-għ-d") ; qaghad_QGHD_1_9210_V = pastPartV "mqiegħed" (mkV "qagħad" "oqgħod" (mkRoot "q-għ-d")) ;
qaghghad_QGHD_2_9211_V = mkV_II "qagħgħad" (mkRoot "q-għ-d") ; qaghghad_QGHD_2_9211_V = mkV_II "qagħgħad" (mkRoot "q-għ-d") ;
qieghed_QGHD_3_9212_V = mkV_III "qiegħed" (mkRoot "q-għ-d") ; qieghed_QGHD_3_9212_V = pastPartV "mqiegħed" (mkV_III "qiegħed" (mkRoot "q-għ-d")) ;
tqieghed_QGHD_6_9213_V = mkV_VI "tqiegħed" (mkRoot "q-għ-d") ; tqieghed_QGHD_6_9213_V = mkV_VI "tqiegħed" (mkRoot "q-għ-d") ;
qohob_QHB_1_9214_V = mkV "qoħob" (mkRoot "q-ħ-b") ; qohob_QHB_1_9214_V = mkV "qoħob" (mkRoot "q-ħ-b") ;
qahhab_QHB_2_9215_V = mkV_II "qaħħab" (mkRoot "q-ħ-b") ; qahhab_QHB_2_9215_V = mkV_II "qaħħab" (mkRoot "q-ħ-b") ;
@@ -2596,7 +2596,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
qalleb_QLB_2_9220_V = mkV_II "qalleb" (mkRoot "q-l-b") ; qalleb_QLB_2_9220_V = mkV_II "qalleb" (mkRoot "q-l-b") ;
tqalleb_QLB_5_9221_V = mkV_V "tqalleb" (mkRoot "q-l-b") ; tqalleb_QLB_5_9221_V = mkV_V "tqalleb" (mkRoot "q-l-b") ;
nqaleb_QLB_7_9222_V = mkV_VII "qaleb" "nqaleb" (mkRoot "q-l-b") ; nqaleb_QLB_7_9222_V = mkV_VII "qaleb" "nqaleb" (mkRoot "q-l-b") ;
qala'_QLGH_1_9223_V = mkV "qala'" (mkRoot "q-l-għ") ; qala'_QLGH_1_9223_V = pastPartV "maqlugħ" (mkV "qala'" (mkRoot "q-l-għ")) ;
qalla'_QLGH_2_9224_V = mkV_II "qalla'" (mkRoot "q-l-għ") ; qalla'_QLGH_2_9224_V = mkV_II "qalla'" (mkRoot "q-l-għ") ;
tqalla'_QLGH_5_9225_V = mkV_V "tqalla'" (mkRoot "q-l-għ") ; tqalla'_QLGH_5_9225_V = mkV_V "tqalla'" (mkRoot "q-l-għ") ;
nqala'_QLGH_7_9226_V = mkV_VII "qala'" "nqala'" (mkRoot "q-l-għ") ; nqala'_QLGH_7_9226_V = mkV_VII "qala'" "nqala'" (mkRoot "q-l-għ") ;
@@ -2665,7 +2665,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
qassab_QSB_2_9289_V = mkV_II "qassab" (mkRoot "q-s-b") ; qassab_QSB_2_9289_V = mkV_II "qassab" (mkRoot "q-s-b") ;
tqassab_QSB_5_9290_V = mkV_V "tqassab" (mkRoot "q-s-b") ; tqassab_QSB_5_9290_V = mkV_V "tqassab" (mkRoot "q-s-b") ;
qassab_QSB_2_9291_V = mkV_II "qassab" (mkRoot "q-s-b") ; qassab_QSB_2_9291_V = mkV_II "qassab" (mkRoot "q-s-b") ;
qasam_QSM_1_9292_V = mkV "qasam" (mkRoot "q-s-m") ; qasam_QSM_1_9292_V = pastPartV "maqsum" (mkV "qasam" (mkRoot "q-s-m")) ;
qassam_QSM_2_9293_V = mkV_II "qassam" (mkRoot "q-s-m") ; qassam_QSM_2_9293_V = mkV_II "qassam" (mkRoot "q-s-m") ;
tqassam_QSM_5_9294_V = mkV_V "tqassam" (mkRoot "q-s-m") ; tqassam_QSM_5_9294_V = mkV_V "tqassam" (mkRoot "q-s-m") ;
nqasam_QSM_7_9295_V = mkV_VII "qasam" "nqasam" (mkRoot "q-s-m") ; nqasam_QSM_7_9295_V = mkV_VII "qasam" "nqasam" (mkRoot "q-s-m") ;
@@ -2678,14 +2678,14 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tqasses_QSS_5_9302_V = mkV_V "tqasses" (mkRoot "q-s-s") ; tqasses_QSS_5_9302_V = mkV_V "tqasses" (mkRoot "q-s-s") ;
qassat_QST_2_9303_V = mkV_II "qassat" (mkRoot "q-s-t") ; qassat_QST_2_9303_V = mkV_II "qassat" (mkRoot "q-s-t") ;
tqassat_QST_5_9304_V = mkV_V "tqassat" (mkRoot "q-s-t") ; tqassat_QST_5_9304_V = mkV_V "tqassat" (mkRoot "q-s-t") ;
qata'_QTGH_1_9305_V = mkV "qata'" (mkRoot "q-t-għ") ; qata'_QTGH_1_9305_V = pastPartV "maqtugħ" (mkV "qata'" (mkRoot "q-t-għ")) ;
qatta'_QTGH_2_9306_V = mkV_II "qatta'" (mkRoot "q-t-għ") ; qatta'_QTGH_2_9306_V = mkV_II "qatta'" (mkRoot "q-t-għ") ;
qata'_QTGH_3_9307_V = mkV_III "qata'" (mkRoot "q-t-għ") ; qata'_QTGH_3_9307_V = mkV_III "qata'" (mkRoot "q-t-għ") ;
tqatta'_QTGH_5_9308_V = mkV_V "tqatta'" (mkRoot "q-t-għ") ; tqatta'_QTGH_5_9308_V = mkV_V "tqatta'" (mkRoot "q-t-għ") ;
tqata'_QTGH_6_9309_V = mkV_VI "tqata'" (mkRoot "q-t-għ") ; tqata'_QTGH_6_9309_V = mkV_VI "tqata'" (mkRoot "q-t-għ") ;
nqata'_QTGH_7_9310_V = mkV_VII "qata'" "nqata'" (mkRoot "q-t-għ") ; nqata'_QTGH_7_9310_V = mkV_VII "qata'" "nqata'" (mkRoot "q-t-għ") ;
qietgha_QTGH_3_9311_V = mkV_III "qietgħa" (mkRoot "q-t-għ") ; qietgha_QTGH_3_9311_V = mkV_III "qietgħa" (mkRoot "q-t-għ") ;
qatel_QTL_1_9312_V = mkV "qatel" "oqtol" (mkRoot "q-t-l") ; qatel_QTL_1_9312_V = pastPartV "maqtul" (mkV "qatel" "oqtol" (mkRoot "q-t-l")) ;
qattel_QTL_2_9313_V = mkV_II "qattel" (mkRoot "q-t-l") ; qattel_QTL_2_9313_V = mkV_II "qattel" (mkRoot "q-t-l") ;
tqattel_QTL_5_9314_V = mkV_V "tqattel" (mkRoot "q-t-l") ; tqattel_QTL_5_9314_V = mkV_V "tqattel" (mkRoot "q-t-l") ;
tqatel_QTL_6_9315_V = mkV_VI "tqatel" (mkRoot "q-t-l") ; tqatel_QTL_6_9315_V = mkV_VI "tqatel" (mkRoot "q-t-l") ;
@@ -2723,7 +2723,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tqalla_QLJ_5_9347_V = mkV_V "tqalla" (mkRoot "q-l-j") ; tqalla_QLJ_5_9347_V = mkV_V "tqalla" (mkRoot "q-l-j") ;
nqela_QLJ_7_9348_V = mkV_VII "qela" "nqela" (mkRoot "q-l-j") ; nqela_QLJ_7_9348_V = mkV_VII "qela" "nqela" (mkRoot "q-l-j") ;
qaqa_QQJ_3_9349_V = mkV_III "qaqa" (mkRoot "q-q-j") ; qaqa_QQJ_3_9349_V = mkV_III "qaqa" (mkRoot "q-q-j") ;
qara_QRJ_1_9350_V = mkV "qara" (mkRoot "q-r-j") ; qara_QRJ_1_9350_V = pastPartV "moqri" (mkV "qara" (mkRoot "q-r-j")) ;
qarra_QRJ_2_9351_V = mkV_II "qarra" (mkRoot "q-r-j") ; qarra_QRJ_2_9351_V = mkV_II "qarra" (mkRoot "q-r-j") ;
qara_QRJ_3_9352_V = mkV_III "qara" (mkRoot "q-r-j") ; qara_QRJ_3_9352_V = mkV_III "qara" (mkRoot "q-r-j") ;
tqarra_QRJ_5_9353_V = mkV_V "tqarra" (mkRoot "q-r-j") ; tqarra_QRJ_5_9353_V = mkV_V "tqarra" (mkRoot "q-r-j") ;
@@ -2748,7 +2748,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tqawwas_QWS_5_9368_V = mkV_V "tqawwas" (mkRoot "q-w-s") ; tqawwas_QWS_5_9368_V = mkV_V "tqawwas" (mkRoot "q-w-s") ;
rabbab_RBB_2_9369_V = mkV_II "rabbab" (mkRoot "r-b-b") ; rabbab_RBB_2_9369_V = mkV_II "rabbab" (mkRoot "r-b-b") ;
rabba'_RBGH_2_9370_V = mkV_II "rabba'" (mkRoot "r-b-għ") ; rabba'_RBGH_2_9370_V = mkV_II "rabba'" (mkRoot "r-b-għ") ;
rebah_RBH_1_9371_V = mkV "rebaħ" (mkRoot "r-b-ħ") ; rebah_RBH_1_9371_V = pastPartV "mirbuħ" (mkV "rebaħ" (mkRoot "r-b-ħ")) ;
rebbah_RBH_2_9372_V = mkV_II "rebbaħ" (mkRoot "r-b-ħ") ; rebbah_RBH_2_9372_V = mkV_II "rebbaħ" (mkRoot "r-b-ħ") ;
trebbah_RBH_5_9373_V = mkV_V "trebbaħ" (mkRoot "r-b-ħ") ; trebbah_RBH_5_9373_V = mkV_V "trebbaħ" (mkRoot "r-b-ħ") ;
ntrebah_RBH_7_9374_V = mkV_VII "rebaħ" "ntrebaħ" (mkRoot "r-b-ħ") ; ntrebah_RBH_7_9374_V = mkV_VII "rebaħ" "ntrebaħ" (mkRoot "r-b-ħ") ;
@@ -2765,7 +2765,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
traddad_RDD_5_9385_V = mkV_V "traddad" (mkRoot "r-d-d") ; traddad_RDD_5_9385_V = mkV_V "traddad" (mkRoot "r-d-d") ;
ntradd_RDD_7_9386_V = mkV_VII "radd" "ntradd" (mkRoot "r-d-d") ; ntradd_RDD_7_9386_V = mkV_VII "radd" "ntradd" (mkRoot "r-d-d") ;
rtadd_RDD_8_9387_V = mkV_VIII "rtadd" (mkRoot "r-d-d") ; rtadd_RDD_8_9387_V = mkV_VIII "rtadd" (mkRoot "r-d-d") ;
rada'_RDGH_1_9388_V = mkV "rada'" (mkRoot "r-d-għ") ; rada'_RDGH_1_9388_V = pastPartV "mradda'" (mkV "rada'" (mkRoot "r-d-għ")) ;
radda'_RDGH_2_9389_V = mkV_II "radda'" (mkRoot "r-d-għ") ; radda'_RDGH_2_9389_V = mkV_II "radda'" (mkRoot "r-d-għ") ;
tradda'_RDGH_5_9390_V = mkV_V "tradda'" (mkRoot "r-d-għ") ; tradda'_RDGH_5_9390_V = mkV_V "tradda'" (mkRoot "r-d-għ") ;
ntrada'_RDGH_7_9391_V = mkV_VII "rada'" "ntrada'" (mkRoot "r-d-għ") ; ntrada'_RDGH_7_9391_V = mkV_VII "rada'" "ntrada'" (mkRoot "r-d-għ") ;
@@ -2846,7 +2846,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
trammel_RML_5_9466_V = mkV_V "trammel" (mkRoot "r-m-l") ; trammel_RML_5_9466_V = mkV_V "trammel" (mkRoot "r-m-l") ;
romol_RML_1_9467_V = mkV "romol" (mkRoot "r-m-l") ; romol_RML_1_9467_V = mkV "romol" (mkRoot "r-m-l") ;
rammal_RML_2_9468_V = mkV_II "rammal" (mkRoot "r-m-l") ; rammal_RML_2_9468_V = mkV_II "rammal" (mkRoot "r-m-l") ;
raqad_RQD_1_9469_V = mkV "raqad" (mkRoot "r-q-d") ; raqad_RQD_1_9469_V = presPartV "rieqed" (pastPartV "mraqqad" (mkV "raqad" (mkRoot "r-q-d"))) ;
raqqad_RQD_2_9470_V = mkV_II "raqqad" (mkRoot "r-q-d") ; raqqad_RQD_2_9470_V = mkV_II "raqqad" (mkRoot "r-q-d") ;
traqqad_RQD_5_9471_V = mkV_V "traqqad" (mkRoot "r-q-d") ; traqqad_RQD_5_9471_V = mkV_V "traqqad" (mkRoot "r-q-d") ;
trieqed_RQD_6_9472_V = mkV_VI "trieqed" (mkRoot "r-q-d") ; trieqed_RQD_6_9472_V = mkV_VI "trieqed" (mkRoot "r-q-d") ;
@@ -2890,11 +2890,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
razan_RZN_1_9510_V = mkV "rażan" (mkRoot "r-ż-n") ; razan_RZN_1_9510_V = mkV "rażan" (mkRoot "r-ż-n") ;
razzan_RZN_2_9511_V = mkV_II "rażżan" (mkRoot "r-ż-n") ; razzan_RZN_2_9511_V = mkV_II "rażżan" (mkRoot "r-ż-n") ;
trazzan_RZN_5_9512_V = mkV_V "trażżan" (mkRoot "r-ż-n") ; trazzan_RZN_5_9512_V = mkV_V "trażżan" (mkRoot "r-ż-n") ;
ra_R'J_1_9513_V = irregularV form1 (mkRoot "r-'-j") (mkPattern "a" []) ra_R'J_1_9513_V = pastPartV "muri" (irregularV form1 (mkRoot "r-'-j") (mkPattern "a" [])
"rajt" "rajt" "ra" "rat" "rajna" "rajtu" "raw" "rajt" "rajt" "ra" "rat" "rajna" "rajtu" "raw"
"nara" "tara" "jara" "tara" "naraw" "taraw" "jaraw" "nara" "tara" "jara" "tara" "naraw" "taraw" "jaraw"
"ara" "araw" "ara" "araw"
; ) ;
ntwera_R'J_7_9514_V = irregularV form7 (mkRoot "r-'-j") (mkPattern "e" "e") ntwera_R'J_7_9514_V = irregularV form7 (mkRoot "r-'-j") (mkPattern "e" "e")
"ntwerejt" "ntwerejt" "ntwera" "ntweriet" "ntwerejna" "ntwerejtu" "ntwerew" "ntwerejt" "ntwerejt" "ntwera" "ntweriet" "ntwerejna" "ntwerejtu" "ntwerew"
"nintwera" "tintwera" "jintwera" "tintwera" "nintwerew" "tintwerew" "jintwerew" "nintwera" "tintwera" "jintwera" "tintwera" "nintwerew" "tintwerew" "jintwerew"
@@ -3083,7 +3083,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
stilet_SLT_8_9695_V = mkV_VIII "stilet" (mkRoot "s-l-t") ; stilet_SLT_8_9695_V = mkV_VIII "stilet" (mkRoot "s-l-t") ;
salat_SLT_1_9696_V = mkV "salat" (mkRoot "s-l-t") ; salat_SLT_1_9696_V = mkV "salat" (mkRoot "s-l-t") ;
semed_SMD_2_9697_V = mkV_II "semed" (mkRoot "s-m-d") ; semed_SMD_2_9697_V = mkV_II "semed" (mkRoot "s-m-d") ;
sema'_SMGH_1_9698_V = mkV "sema'" (mkRoot "s-m-għ") ; sema'_SMGH_1_9698_V = pastPartV "mismugħ" (mkV "sema'" (mkRoot "s-m-għ")) ;
semma'_SMGH_2_9699_V = mkV_II "semma'" (mkRoot "s-m-għ") ; semma'_SMGH_2_9699_V = mkV_II "semma'" (mkRoot "s-m-għ") ;
ssemma'_SMGH_5_9700_V = mkV_V "ssemma'" (mkRoot "s-m-għ") ; ssemma'_SMGH_5_9700_V = mkV_V "ssemma'" (mkRoot "s-m-għ") ;
nstama'_SMGH_7_9701_V = mkV_VII "stama'" "nstama'" (mkRoot "s-m-għ") ; nstama'_SMGH_7_9701_V = mkV_VII "stama'" "nstama'" (mkRoot "s-m-għ") ;
@@ -3164,7 +3164,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ssaffa_SFJ_5_9776_V = mkV_V "ssaffa" (mkRoot "s-f-j") ; ssaffa_SFJ_5_9776_V = mkV_V "ssaffa" (mkRoot "s-f-j") ;
seha_SHJ_1_9777_V = mkV "seha" (mkRoot "s-h-j") ; seha_SHJ_1_9777_V = mkV "seha" (mkRoot "s-h-j") ;
saha_SHJ_1_9778_V = mkV "saħa" (mkRoot "s-ħ-j") ; saha_SHJ_1_9778_V = mkV "saħa" (mkRoot "s-ħ-j") ;
sab_SJB_1_9779_V = mkV "sab" (mkRoot "s-j-b") ; sab_SJB_1_9779_V = pastPartV "misjub" (mkV "sab" (mkRoot "s-j-b")) ;
nsab_SJB_7_9780_V = mkV_VII "sab" "nsab" (mkRoot "s-j-b") ; nsab_SJB_7_9780_V = mkV_VII "sab" "nsab" (mkRoot "s-j-b") ;
sejjeb_SJB_2_9781_V = mkV_II "sejjeb" (mkRoot "s-j-b") ; sejjeb_SJB_2_9781_V = mkV_II "sejjeb" (mkRoot "s-j-b") ;
ssejjeb_SJB_5_9782_V = mkV_V "ssejjeb" (mkRoot "s-j-b") ; ssejjeb_SJB_5_9782_V = mkV_V "ssejjeb" (mkRoot "s-j-b") ;
@@ -3182,7 +3182,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
nsieh_SJH_7_9794_V = mkV_VII "sieħ" "nsieħ" (mkRoot "s-j-ħ") ; nsieh_SJH_7_9794_V = mkV_VII "sieħ" "nsieħ" (mkRoot "s-j-ħ") ;
sijja_SJJ_2_9795_V = mkV_II "sijja" (mkRoot "s-j-j") ; sijja_SJJ_2_9795_V = mkV_II "sijja" (mkRoot "s-j-j") ;
siel_SJL_1_9796_V = mkV "siel" (mkRoot "s-j-l") ; siel_SJL_1_9796_V = mkV "siel" (mkRoot "s-j-l") ;
sar_SJR_1_9797_V = mkV "sar" (mkRoot "s-j-r") ; sar_SJR_1_9797_V = pastPartV "misjur" (mkV "sar" (mkRoot "s-j-r")) ;
sajjar_SJR_2_9798_V = mkV_II "sajjar" (mkRoot "s-j-r") ; sajjar_SJR_2_9798_V = mkV_II "sajjar" (mkRoot "s-j-r") ;
ssajjar_SJR_5_9799_V = mkV_V "ssajjar" (mkRoot "s-j-r") ; ssajjar_SJR_5_9799_V = mkV_V "ssajjar" (mkRoot "s-j-r") ;
sar_SJR_1_9800_V = mkV "sar" (mkRoot "s-j-r") ; sar_SJR_1_9800_V = mkV "sar" (mkRoot "s-j-r") ;
@@ -3277,9 +3277,9 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
takkan_TKN_2_9890_V = mkV_II "takkan" (mkRoot "t-k-n") ; takkan_TKN_2_9890_V = mkV_II "takkan" (mkRoot "t-k-n") ;
talab_TLB_1_9891_V = mkV "talab" (mkRoot "t-l-b") ; talab_TLB_1_9891_V = mkV "talab" (mkRoot "t-l-b") ;
tallab_TLB_2_9892_V = mkV_II "tallab" (mkRoot "t-l-b") ; tallab_TLB_2_9892_V = mkV_II "tallab" (mkRoot "t-l-b") ;
ttallab_TLB_5_9893_V = mkV_V "ttallab" (mkRoot "t-l-b") ; ttallab_TLB_5_9893_V = pastPartV "mitlub" (mkV_V "ttallab" (mkRoot "t-l-b")) ;
ntalab_TLB_7_9894_V = mkV_VII "talab" "ntalab" (mkRoot "t-l-b") ; ntalab_TLB_7_9894_V = mkV_VII "talab" "ntalab" (mkRoot "t-l-b") ;
tilef_TLF_1_9895_V = mkV "tilef" (mkRoot "t-l-f") ; tilef_TLF_1_9895_V = pastPartV "mitluf" (mkV "tilef" (mkRoot "t-l-f")) ;
tellef_TLF_2_9896_V = mkV_II "tellef" (mkRoot "t-l-f") ; tellef_TLF_2_9896_V = mkV_II "tellef" (mkRoot "t-l-f") ;
ttellef_TLF_5_9897_V = mkV_V "ttellef" (mkRoot "t-l-f") ; ttellef_TLF_5_9897_V = mkV_V "ttellef" (mkRoot "t-l-f") ;
ntilef_TLF_7_9898_V = mkV_VII "tilef" "ntilef" (mkRoot "t-l-f") ; ntilef_TLF_7_9898_V = mkV_VII "tilef" "ntilef" (mkRoot "t-l-f") ;
@@ -3287,7 +3287,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tella'_TLGH_2_9900_V = mkV_II "tella'" (mkRoot "t-l-għ") ; tella'_TLGH_2_9900_V = mkV_II "tella'" (mkRoot "t-l-għ") ;
ttella'_TLGH_5_9901_V = mkV_V "ttella'" (mkRoot "t-l-għ") ; ttella'_TLGH_5_9901_V = mkV_V "ttella'" (mkRoot "t-l-għ") ;
ntela'_TLGH_7_9902_V = mkV_VII "tela'" "ntela'" (mkRoot "t-l-għ") ; ntela'_TLGH_7_9902_V = mkV_VII "tela'" "ntela'" (mkRoot "t-l-għ") ;
telaq_TLQ_1_9903_V = mkV "telaq" (mkRoot "t-l-q") ; telaq_TLQ_1_9903_V = pastPartV "mitluq" (mkV "telaq" (mkRoot "t-l-q")) ;
tellaq_TLQ_2_9904_V = mkV_II "tellaq" (mkRoot "t-l-q") ; tellaq_TLQ_2_9904_V = mkV_II "tellaq" (mkRoot "t-l-q") ;
ttellaq_TLQ_5_9905_V = mkV_V "ttellaq" (mkRoot "t-l-q") ; ttellaq_TLQ_5_9905_V = mkV_V "ttellaq" (mkRoot "t-l-q") ;
ntelaq_TLQ_7_9906_V = mkV_VII "telaq" "ntelaq" (mkRoot "t-l-q") ; ntelaq_TLQ_7_9906_V = mkV_VII "telaq" "ntelaq" (mkRoot "t-l-q") ;
@@ -3356,7 +3356,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ttarraz_TRZ_5_9957_V = mkV_V "ttarraż" (mkRoot "t-r-ż") ; ttarraz_TRZ_5_9957_V = mkV_V "ttarraż" (mkRoot "t-r-ż") ;
tarras_TRZ_2_9958_V = mkV_II "tarras" (mkRoot "t-r-ż") ; tarras_TRZ_2_9958_V = mkV_II "tarras" (mkRoot "t-r-ż") ;
ttiefes_TSF_6_9959_V = mkV_VI "ttiefes" (mkRoot "t-s-f") ; ttiefes_TSF_6_9959_V = mkV_VI "ttiefes" (mkRoot "t-s-f") ;
tefa_TFJ_1_9960_V = mkV "tefa" (mkRoot "t-f-j") ; tefa_TFJ_1_9960_V = pastPartV "mitfi" (mkV "tefa" (mkRoot "t-f-j")) ;
ntefa_TFJ_7_9961_V = mkV_VII "tefa" "ntefa" (mkRoot "t-f-j") ; ntefa_TFJ_7_9961_V = mkV_VII "tefa" "ntefa" (mkRoot "t-f-j") ;
taffa_TFJ_2_9962_V = mkV_II "taffa" (mkRoot "t-f-j") ; taffa_TFJ_2_9962_V = mkV_II "taffa" (mkRoot "t-f-j") ;
ttaffa_TFJ_5_9963_V = mkV_V "ttaffa" (mkRoot "t-f-j") ; ttaffa_TFJ_5_9963_V = mkV_V "ttaffa" (mkRoot "t-f-j") ;
@@ -3368,7 +3368,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tejjeg_TJG_2_9969_V = mkV_II "tejjeġ" (mkRoot "t-j-ġ") ; tejjeg_TJG_2_9969_V = mkV_II "tejjeġ" (mkRoot "t-j-ġ") ;
tajjan_TJN_2_9970_V = mkV_II "tajjan" (mkRoot "t-j-n") ; tajjan_TJN_2_9970_V = mkV_II "tajjan" (mkRoot "t-j-n") ;
ttajjan_TJN_5_9971_V = mkV_V "ttajjan" (mkRoot "t-j-n") ; ttajjan_TJN_5_9971_V = mkV_V "ttajjan" (mkRoot "t-j-n") ;
tar_TJR_1_9972_V = mkV "tar" (mkRoot "t-j-r") ; tar_TJR_1_9972_V = pastPartV "mtajjar" (mkV "tar" (mkRoot "t-j-r")) ;
tajjar_TJR_2_9973_V = mkV_II "tajjar" (mkRoot "t-j-r") ; tajjar_TJR_2_9973_V = mkV_II "tajjar" (mkRoot "t-j-r") ;
ttajjar_TJR_5_9974_V = mkV_V "ttajjar" (mkRoot "t-j-r") ; ttajjar_TJR_5_9974_V = mkV_V "ttajjar" (mkRoot "t-j-r") ;
ttajar_TJR_6_9975_V = mkV_VI "ttajar" (mkRoot "t-j-r") ; ttajar_TJR_6_9975_V = mkV_VI "ttajar" (mkRoot "t-j-r") ;
@@ -3423,13 +3423,13 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
twiccec_WCC_5_10024_V = mkV_V "twiċċeċ" (mkRoot "w-ċ-ċ") ; twiccec_WCC_5_10024_V = mkV_V "twiċċeċ" (mkRoot "w-ċ-ċ") ;
widdeb_WDB_2_10025_V = mkV_II "widdeb" (mkRoot "w-d-b") ; widdeb_WDB_2_10025_V = mkV_II "widdeb" (mkRoot "w-d-b") ;
twiddeb_WDB_5_10026_V = mkV_V "twiddeb" (mkRoot "w-d-b") ; twiddeb_WDB_5_10026_V = mkV_V "twiddeb" (mkRoot "w-d-b") ;
waddab_WDB_2_10027_V = mkV_II "waddab" (mkRoot "w-d-b") ; waddab_WDB_2_10027_V = pastPartV "mqaddab" (mkV_II "waddab" (mkRoot "w-d-b")) ;
twaddab_WDB_5_10028_V = mkV_V "twaddab" (mkRoot "w-d-b") ; twaddab_WDB_5_10028_V = mkV_V "twaddab" (mkRoot "w-d-b") ;
ntwaddab_WDB_7_10029_V = mkV_VII "waddab" "ntwaddab" (mkRoot "w-d-b") ; ntwaddab_WDB_7_10029_V = mkV_VII "waddab" "ntwaddab" (mkRoot "w-d-b") ;
widden_WDN_2_10030_V = mkV_II "widden" (mkRoot "w-d-n") ; widden_WDN_2_10030_V = mkV_II "widden" (mkRoot "w-d-n") ;
twidden_WDN_5_10031_V = mkV_V "twidden" (mkRoot "w-d-n") ; twidden_WDN_5_10031_V = mkV_V "twidden" (mkRoot "w-d-n") ;
wiggeb_WGB_2_10032_V = mkV_II "wiġġeb" (mkRoot "w-ġ-b") ; wiggeb_WGB_2_10032_V = mkV_II "wiġġeb" (mkRoot "w-ġ-b") ;
wiegeb_WGB_3_10033_V = mkV_III "wieġeb" (mkRoot "w-ġ-b") ; wiegeb_WGB_3_10033_V = pastPartV "mwieġeb" "mwieġba" "mwieġbin" (mkV_III "wieġeb" (mkRoot "w-ġ-b")) ;
twiegeb_WGB_6_10034_V = mkV_VI "twieġeb" (mkRoot "w-ġ-b") ; twiegeb_WGB_6_10034_V = mkV_VI "twieġeb" (mkRoot "w-ġ-b") ;
ntwiegeb_WGB_7_10035_V = mkV_VII "wieġeb" "ntwieġeb" (mkRoot "w-ġ-b") ; ntwiegeb_WGB_7_10035_V = mkV_VII "wieġeb" "ntwieġeb" (mkRoot "w-ġ-b") ;
waga'_WGGH_1_10036_V = mkV "waġa'" (mkRoot "w-ġ-għ") ; waga'_WGGH_1_10036_V = mkV "waġa'" (mkRoot "w-ġ-għ") ;
@@ -3467,10 +3467,10 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
twemmen_WMN_5_10064_V = mkV_V "twemmen" (mkRoot "w-m-n") ; twemmen_WMN_5_10064_V = mkV_V "twemmen" (mkRoot "w-m-n") ;
wennes_WNS_2_10065_V = mkV_II "wennes" (mkRoot "w-n-s") ; wennes_WNS_2_10065_V = mkV_II "wennes" (mkRoot "w-n-s") ;
twennes_WNS_5_10066_V = mkV_V "twennes" (mkRoot "w-n-s") ; twennes_WNS_5_10066_V = mkV_V "twennes" (mkRoot "w-n-s") ;
waqaf_WQF_1_10067_V = mkV "waqaf" "ieqaf" (mkRoot "w-q-f") ; waqaf_WQF_1_10067_V = presPartV "wieqaf" (pastPartV "mwaqqaf" (mkV "waqaf" "ieqaf" (mkRoot "w-q-f"))) ;
waqqaf_WQF_2_10068_V = mkV_II "waqqaf" (mkRoot "w-q-f") ; waqqaf_WQF_2_10068_V = mkV_II "waqqaf" (mkRoot "w-q-f") ;
twaqqaf_WQF_5_10069_V = mkV_V "twaqqaf" (mkRoot "w-q-f") ; twaqqaf_WQF_5_10069_V = mkV_V "twaqqaf" (mkRoot "w-q-f") ;
waqa'_WQGH_1_10070_V = mkV "waqa'" (mkRoot "w-q-għ") ; waqa'_WQGH_1_10070_V = pastPartV "mwaqqa'" (mkV "waqa'" (mkRoot "w-q-għ")) ;
waqqa'_WQGH_2_10071_V = mkV_II "waqqa'" (mkRoot "w-q-għ") ; waqqa'_WQGH_2_10071_V = mkV_II "waqqa'" (mkRoot "w-q-għ") ;
twaqqa'_WQGH_5_10072_V = mkV_V "twaqqa'" (mkRoot "w-q-għ") ; twaqqa'_WQGH_5_10072_V = mkV_V "twaqqa'" (mkRoot "w-q-għ") ;
waqqat_WQT_2_10073_V = mkV_II "waqqat" (mkRoot "w-q-t") ; waqqat_WQT_2_10073_V = mkV_II "waqqat" (mkRoot "w-q-t") ;
@@ -3555,7 +3555,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
xxiegheb_XGHB_6_10152_V = mkV_VI "xxiegħeb" (mkRoot "x-għ-b") ; xxiegheb_XGHB_6_10152_V = mkV_VI "xxiegħeb" (mkRoot "x-għ-b") ;
xoghof_XGHF_1_10153_V = mkV "xogħof" (mkRoot "x-għ-f") ; xoghof_XGHF_1_10153_V = mkV "xogħof" (mkRoot "x-għ-f") ;
xieghef_XGHF_3_10154_V = mkV_III "xiegħef" (mkRoot "x-għ-f") ; xieghef_XGHF_3_10154_V = mkV_III "xiegħef" (mkRoot "x-għ-f") ;
xeghel_XGHL_1_10155_V = mkV "xegħel" "ixgħel" (mkRoot "x-għ-l") ; xeghel_XGHL_1_10155_V = pastPartV "mizgħul" (mkV "xegħel" "ixgħel" (mkRoot "x-għ-l")) ;
xieghel_XGHL_3_10156_V = mkV_III "xiegħel" (mkRoot "x-għ-l") ; xieghel_XGHL_3_10156_V = mkV_III "xiegħel" (mkRoot "x-għ-l") ;
nxeghel_XGHL_7_10157_V = mkV_VII "xegħel" "nxegħel" (mkRoot "x-għ-l") ; nxeghel_XGHL_7_10157_V = mkV_VII "xegħel" "nxegħel" (mkRoot "x-għ-l") ;
xteghel_XGHL_8_10158_V = mkV_VIII "xtegħel" (mkRoot "x-għ-l") ; xteghel_XGHL_8_10158_V = mkV_VIII "xtegħel" (mkRoot "x-għ-l") ;
@@ -3607,7 +3607,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
xamma'_XMGH_2_10204_V = mkV_II "xamma'" (mkRoot "x-m-għ") ; xamma'_XMGH_2_10204_V = mkV_II "xamma'" (mkRoot "x-m-għ") ;
ixxamma'_XMGH_5_10205_V = mkV_V "ixxamma'" (mkRoot "x-m-għ") ; ixxamma'_XMGH_5_10205_V = mkV_V "ixxamma'" (mkRoot "x-m-għ") ;
ximek_XMK_1_10206_V = mkV "ximek" (mkRoot "x-m-k") ; ximek_XMK_1_10206_V = mkV "ximek" (mkRoot "x-m-k") ;
xamm_XMM_1_10207_V = mkV "xamm" (mkRoot "x-m-m") ; xamm_XMM_1_10207_V = pastPartV "mixmum" (mkV "xamm" (mkRoot "x-m-m")) ;
xammem_XMM_2_10208_V = mkV_II "xammem" (mkRoot "x-m-m") ; xammem_XMM_2_10208_V = mkV_II "xammem" (mkRoot "x-m-m") ;
xxammam_XMM_5_10209_V = mkV_V "xxammam" (mkRoot "x-m-m") ; xxammam_XMM_5_10209_V = mkV_V "xxammam" (mkRoot "x-m-m") ;
nxamm_XMM_7_10210_V = mkV_VII "xamm" "nxamm" (mkRoot "x-m-m") ; nxamm_XMM_7_10210_V = mkV_VII "xamm" "nxamm" (mkRoot "x-m-m") ;
@@ -3631,7 +3631,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
xaqqaq_XQQ_2_10228_V = mkV_II "xaqqaq" (mkRoot "x-q-q") ; xaqqaq_XQQ_2_10228_V = mkV_II "xaqqaq" (mkRoot "x-q-q") ;
xxaqqar_XQR_5_10229_V = mkV_V "xxaqqar" (mkRoot "x-q-r") ; xxaqqar_XQR_5_10229_V = mkV_V "xxaqqar" (mkRoot "x-q-r") ;
xqar_XQR_9_10230_V = mkV_IX "xqar" (mkRoot "x-q-r") ; xqar_XQR_9_10230_V = mkV_IX "xqar" (mkRoot "x-q-r") ;
xorob_XRB_1_10231_V = mkV "xorob" (mkRoot "x-r-b") ; xorob_XRB_1_10231_V = pastPartV "mixrub" (mkV "xorob" (mkRoot "x-r-b")) ;
xarrab_XRB_2_10232_V = mkV_II "xarrab" (mkRoot "x-r-b") ; xarrab_XRB_2_10232_V = mkV_II "xarrab" (mkRoot "x-r-b") ;
xxarrab_XRB_5_10233_V = mkV_V "xxarrab" (mkRoot "x-r-b") ; xxarrab_XRB_5_10233_V = mkV_V "xxarrab" (mkRoot "x-r-b") ;
nxorob_XRB_7_10234_V = mkV_VII "xorob" "nxorob" (mkRoot "x-r-b") ; nxorob_XRB_7_10234_V = mkV_VII "xorob" "nxorob" (mkRoot "x-r-b") ;
@@ -3696,7 +3696,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
xena_XNJ_1_10293_V = mkV "xena" (mkRoot "x-n-j") ; xena_XNJ_1_10293_V = mkV "xena" (mkRoot "x-n-j") ;
xara_XRJ_1_10294_V = mkV "xara" (mkRoot "x-r-j") ; xara_XRJ_1_10294_V = mkV "xara" (mkRoot "x-r-j") ;
nxara_XRJ_7_10295_V = mkV_VII "xara" "nxara" (mkRoot "x-r-j") ; nxara_XRJ_7_10295_V = mkV_VII "xara" "nxara" (mkRoot "x-r-j") ;
xtara_XRJ_8_10296_V = mkV_VIII "xtara" (mkRoot "x-r-j") ; xtara_XRJ_8_10296_V = pastPartV "mixtri" (mkV_VIII "xtara" (mkRoot "x-r-j")) ;
xita_XTW_1_10297_V = mkV "xita" (mkRoot "x-t-w") ; xita_XTW_1_10297_V = mkV "xita" (mkRoot "x-t-w") ;
xitta_XTW_2_10298_V = mkV_II "xitta" (mkRoot "x-t-w") ; xitta_XTW_2_10298_V = mkV_II "xitta" (mkRoot "x-t-w") ;
xaf_XWF_1_10299_V = mkV "xaf" (mkRoot "x-w-f") ; xaf_XWF_1_10299_V = mkV "xaf" (mkRoot "x-w-f") ;
@@ -3713,7 +3713,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
xewwaq_XWQ_2_10310_V = mkV_II "xewwaq" (mkRoot "x-w-q") ; xewwaq_XWQ_2_10310_V = mkV_II "xewwaq" (mkRoot "x-w-q") ;
xxewwaq_XWQ_5_10311_V = mkV_V "xxewwaq" (mkRoot "x-w-q") ; xxewwaq_XWQ_5_10311_V = mkV_V "xxewwaq" (mkRoot "x-w-q") ;
nxtaq_XWQ_7_10312_V = mkV_VII "xtaq" "nxtaq" (mkRoot "x-w-q") ; nxtaq_XWQ_7_10312_V = mkV_VII "xtaq" "nxtaq" (mkRoot "x-w-q") ;
xtaq_XWQ_8_10313_V = mkV_VIII "xtaq" (mkRoot "x-w-q") ; xtaq_XWQ_8_10313_V = pastPartV "mixtieq" (mkV_VIII "xtaq" (mkRoot "x-w-q")) ;
xawwar_XWR_2_10314_V = mkV_II "xawwar" (mkRoot "x-w-r") ; xawwar_XWR_2_10314_V = mkV_II "xawwar" (mkRoot "x-w-r") ;
xawwat_XWT_2_10315_V = mkV_II "xawwat" (mkRoot "x-w-t") ; xawwat_XWT_2_10315_V = mkV_II "xawwat" (mkRoot "x-w-t") ;
xxawwat_XWT_5_10316_V = mkV_V "xxawwat" (mkRoot "x-w-t") ; xxawwat_XWT_5_10316_V = mkV_V "xxawwat" (mkRoot "x-w-t") ;
@@ -3792,7 +3792,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
zemmel_ZML_2_10389_V = mkV_II "żemmel" (mkRoot "ż-m-l") ; zemmel_ZML_2_10389_V = mkV_II "żemmel" (mkRoot "ż-m-l") ;
zzemmel_ZML_5_10390_V = mkV_V "żżemmel" (mkRoot "ż-m-l") ; zzemmel_ZML_5_10390_V = mkV_V "żżemmel" (mkRoot "ż-m-l") ;
zziemel_ZML_6_10391_V = mkV_VI "żżiemel" (mkRoot "ż-m-l") ; zziemel_ZML_6_10391_V = mkV_VI "żżiemel" (mkRoot "ż-m-l") ;
zamm_ZMM_1_10392_V = mkV "żamm" (mkRoot "ż-m-m") ; zamm_ZMM_1_10392_V = pastPartV "miżjum" (mkV "żamm" (mkRoot "ż-m-m")) ;
zammam_ZMM_2_10393_V = mkV_II "żammam" (mkRoot "ż-m-m") ; zammam_ZMM_2_10393_V = mkV_II "żammam" (mkRoot "ż-m-m") ;
nzamm_ZMM_7_10394_V = mkV_VII "żamm" "nżamm" (mkRoot "ż-m-m") ; nzamm_ZMM_7_10394_V = mkV_VII "żamm" "nżamm" (mkRoot "ż-m-m") ;
zammar_ZMR_2_10395_V = mkV_II "żammar" (mkRoot "ż-m-r") ; zammar_ZMR_2_10395_V = mkV_II "żammar" (mkRoot "ż-m-r") ;
@@ -3824,7 +3824,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
zrieq_ZRQ_9_10421_V = mkV_IX "żrieq" (mkRoot "ż-r-q") ; zrieq_ZRQ_9_10421_V = mkV_IX "żrieq" (mkRoot "ż-r-q") ;
zattat_ZTT_2_10422_V = mkV_II "żattat" (mkRoot "ż-t-t") ; zattat_ZTT_2_10422_V = mkV_II "żattat" (mkRoot "ż-t-t") ;
zzattat_ZTT_5_10423_V = mkV_V "żżattat" (mkRoot "ż-t-t") ; zzattat_ZTT_5_10423_V = mkV_V "żżattat" (mkRoot "ż-t-t") ;
zied_ZJD_1_10424_V = mkV "żied" (mkRoot "ż-j-d") ; zied_ZJD_1_10424_V = pastPartV "miżjud" (mkV "żied" (mkRoot "ż-j-d")) ;
nzied_ZJD_7_10425_V = mkV_VII "żied" "nżied" (mkRoot "ż-j-d") ; nzied_ZJD_7_10425_V = mkV_VII "żied" "nżied" (mkRoot "ż-j-d") ;
zdied_ZJD_8_10426_V = mkV_VIII "żdied" (mkRoot "ż-j-d") ; zdied_ZJD_8_10426_V = mkV_VIII "żdied" (mkRoot "ż-j-d") ;
zief_ZJF_1_10427_V = mkV "żief" (mkRoot "ż-j-f") ; zief_ZJF_1_10427_V = mkV "żief" (mkRoot "ż-j-f") ;
@@ -3860,7 +3860,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tghaddab_GHDB_5_10457_V = mkV_V "tgħaddab" (mkRoot "għ-d-b") ; tghaddab_GHDB_5_10457_V = mkV_V "tgħaddab" (mkRoot "għ-d-b") ;
ghaddeb_GHDB_2_10458_V = mkV_II "għaddeb" (mkRoot "għ-d-b") ; ghaddeb_GHDB_2_10458_V = mkV_II "għaddeb" (mkRoot "għ-d-b") ;
tghaddeb_GHDB_5_10459_V = mkV_V "tgħaddeb" (mkRoot "għ-d-b") ; tghaddeb_GHDB_5_10459_V = mkV_V "tgħaddeb" (mkRoot "għ-d-b") ;
ghadd_GHDD_1_10460_V = mkV "għadd" (mkRoot "għ-d-d") ; ghadd_GHDD_1_10460_V = pastPartV "mgħadd" (mkV "għadd" (mkRoot "għ-d-d")) ;
ghadded_GHDD_2_10461_V = mkV_II "għadded" (mkRoot "għ-d-d") ; ghadded_GHDD_2_10461_V = mkV_II "għadded" (mkRoot "għ-d-d") ;
tghadded_GHDD_5_10462_V = mkV_V "tgħadded" (mkRoot "għ-d-d") ; tghadded_GHDD_5_10462_V = mkV_V "tgħadded" (mkRoot "għ-d-d") ;
nghadd_GHDD_7_10463_V = mkV_VII "għadd" "ngħadd" (mkRoot "għ-d-d") ; nghadd_GHDD_7_10463_V = mkV_VII "għadd" "ngħadd" (mkRoot "għ-d-d") ;
@@ -3926,11 +3926,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ghallel_GHLL_2_10523_V = mkV_II "għallel" (mkRoot "għ-l-l") ; ghallel_GHLL_2_10523_V = mkV_II "għallel" (mkRoot "għ-l-l") ;
tghallel_GHLL_5_10524_V = mkV_V "tgħallel" (mkRoot "għ-l-l") ; tghallel_GHLL_5_10524_V = mkV_V "tgħallel" (mkRoot "għ-l-l") ;
nghall_GHLL_7_10525_V = mkV_VII "għall" "ngħall" (mkRoot "għ-l-l") ; nghall_GHLL_7_10525_V = mkV_VII "għall" "ngħall" (mkRoot "għ-l-l") ;
ghallem_GHLM_2_10526_V = mkV_II "għallem" (mkRoot "għ-l-m") ; ghallem_GHLM_2_10526_V = pastPartV "mgħallem" (mkV_II "għallem" (mkRoot "għ-l-m")) ;
tghallem_GHLM_5_10527_V = mkV_V "tgħallem" (mkRoot "għ-l-m") ; tghallem_GHLM_5_10527_V = mkV_V "tgħallem" (mkRoot "għ-l-m") ;
ntghallem_GHLM_7_10528_V = mkV_VII "għallem" "ntgħallem" (mkRoot "għ-l-m") ; ntghallem_GHLM_7_10528_V = mkV_VII "għallem" "ntgħallem" (mkRoot "għ-l-m") ;
ghelem_GHLM_1_10529_V = mkV "għelem" (mkRoot "għ-l-m") ; ghelem_GHLM_1_10529_V = mkV "għelem" (mkRoot "għ-l-m") ;
ghalaq_GHLQ_1_10530_V = mkV "għalaq" "agħlaq" (mkRoot "għ-l-q") ; ghalaq_GHLQ_1_10530_V = pastPartV "mgħaluq" (mkV "għalaq" "agħlaq" (mkRoot "għ-l-q")) ;
ghallaq_GHLQ_2_10531_V = mkV_II "għallaq" (mkRoot "għ-l-q") ; ghallaq_GHLQ_2_10531_V = mkV_II "għallaq" (mkRoot "għ-l-q") ;
nghalaq_GHLQ_7_10532_V = mkV_VII "għalaq" "ngħalaq" (mkRoot "għ-l-q") ; nghalaq_GHLQ_7_10532_V = mkV_VII "għalaq" "ngħalaq" (mkRoot "għ-l-q") ;
ntghalaq_GHLQ_7_10533_V = mkV_VII "għalaq" "ntgħalaq" (mkRoot "għ-l-q") ; ntghalaq_GHLQ_7_10533_V = mkV_VII "għalaq" "ntgħalaq" (mkRoot "għ-l-q") ;
@@ -3944,7 +3944,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tghammad_GHMD_5_10541_V = mkV_V "tgħammad" (mkRoot "għ-m-d") ; tghammad_GHMD_5_10541_V = mkV_V "tgħammad" (mkRoot "għ-m-d") ;
ghammed_GHMD_2_10542_V = mkV_II "għammed" (mkRoot "għ-m-d") ; ghammed_GHMD_2_10542_V = mkV_II "għammed" (mkRoot "għ-m-d") ;
tghammed_GHMD_5_10543_V = mkV_V "tgħammed" (mkRoot "għ-m-d") ; tghammed_GHMD_5_10543_V = mkV_V "tgħammed" (mkRoot "għ-m-d") ;
ghamel_GHML_1_10544_V = mkV "għamel" (mkRoot "għ-m-l") ; ghamel_GHML_1_10544_V = pastPartV "magħmul" (mkV "għamel" (mkRoot "għ-m-l")) ;
ghammel_GHML_2_10545_V = mkV_II "għammel" (mkRoot "għ-m-l") ; ghammel_GHML_2_10545_V = mkV_II "għammel" (mkRoot "għ-m-l") ;
nghamel_GHML_7_10546_V = mkV_VII "għamel" "ngħamel" (mkRoot "għ-m-l") ; nghamel_GHML_7_10546_V = mkV_VII "għamel" "ngħamel" (mkRoot "għ-m-l") ;
ghammem_GHMM_2_10547_V = mkV_II "għammem" (mkRoot "għ-m-m") ; ghammem_GHMM_2_10547_V = mkV_II "għammem" (mkRoot "għ-m-m") ;
@@ -4025,7 +4025,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tghassed_GHSD_5_10622_V = mkV_V "tgħassed" (mkRoot "għ-s-d") ; tghassed_GHSD_5_10622_V = mkV_V "tgħassed" (mkRoot "għ-s-d") ;
ghassel_GHSL_2_10623_V = mkV_II "għassel" (mkRoot "għ-s-l") ; ghassel_GHSL_2_10623_V = mkV_II "għassel" (mkRoot "għ-s-l") ;
tghassel_GHSL_5_10624_V = mkV_V "tgħassel" (mkRoot "għ-s-l") ; tghassel_GHSL_5_10624_V = mkV_V "tgħassel" (mkRoot "għ-s-l") ;
ghasar_GHSR_1_10625_V = mkV "għasar" (mkRoot "għ-s-r") ; ghasar_GHSR_1_10625_V = pastPartV "mgħasur" (mkV "għasar" (mkRoot "għ-s-r")) ;
ghassar_GHSR_2_10626_V = mkV_II "għassar" (mkRoot "għ-s-r") ; ghassar_GHSR_2_10626_V = mkV_II "għassar" (mkRoot "għ-s-r") ;
nghasar_GHSR_7_10627_V = mkV_VII "għasar" "ngħasar" (mkRoot "għ-s-r") ; nghasar_GHSR_7_10627_V = mkV_VII "għasar" "ngħasar" (mkRoot "għ-s-r") ;
ghass_GHSS_1_10628_V = mkV "għass" (mkRoot "għ-s-s") ; ghass_GHSS_1_10628_V = mkV "għass" (mkRoot "għ-s-s") ;
@@ -4079,7 +4079,7 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
ghezzez_GHZZ_2_10676_V = mkV_II "għeżżeż" (mkRoot "għ-ż-ż") ; ghezzez_GHZZ_2_10676_V = mkV_II "għeżżeż" (mkRoot "għ-ż-ż") ;
ghabba_GHBJ_2_10677_V = mkV_II "għabba" (mkRoot "għ-b-j") ; ghabba_GHBJ_2_10677_V = mkV_II "għabba" (mkRoot "għ-b-j") ;
tghabba_GHBJ_5_10678_V = mkV_V "tgħabba" (mkRoot "għ-b-j") ; tghabba_GHBJ_5_10678_V = mkV_V "tgħabba" (mkRoot "għ-b-j") ;
ghadda_GHDJ_2_10679_V = mkV_II "għadda" (mkRoot "għ-d-j") ; ghadda_GHDJ_2_10679_V = pastPartV "mgħoddi" (mkV_II "għadda" (mkRoot "għ-d-j")) ;
tghadda_GHDJ_5_10680_V = mkV_V "tgħadda" (mkRoot "għ-d-j") ; tghadda_GHDJ_5_10680_V = mkV_V "tgħadda" (mkRoot "għ-d-j") ;
ghagha_GHGHJ_1_10681_V = mkV "għagħa" (mkRoot "għ-għ-j") ; ghagha_GHGHJ_1_10681_V = mkV "għagħa" (mkRoot "għ-għ-j") ;
gheb_GHJB_1_10682_V = mkV "għeb" (mkRoot "għ-j-b") ; gheb_GHJB_1_10682_V = mkV "għeb" (mkRoot "għ-j-b") ;
@@ -4167,11 +4167,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
tghazza_GHZW_5_10764_V = mkV_V "tgħażża" (mkRoot "għ-ż-w") ; tghazza_GHZW_5_10764_V = mkV_V "tgħażża" (mkRoot "għ-ż-w") ;
hassel_HSL_2_10765_V = mkV_II "ħassel" (mkRoot "ħ-s-l") ; hassel_HSL_2_10765_V = mkV_II "ħassel" (mkRoot "ħ-s-l") ;
thassel_HSL_5_10766_V = mkV_V "tħassel" (mkRoot "ħ-s-l") ; thassel_HSL_5_10766_V = mkV_V "tħassel" (mkRoot "ħ-s-l") ;
ta_GHTJ_1_10767_V = irregularV form1 (mkRoot "għ-t-j") (mkPattern "a" []) ta_GHTJ_1_10767_V = pastPartV "mogħti" (irregularV form1 (mkRoot "għ-t-j") (mkPattern "a" [])
"tajt" "tajt" "ta" "tat" "tajna" "tajtu" "taw" "tajt" "tajt" "ta" "tat" "tajna" "tajtu" "taw"
"nagħti" "tagħti" "jagħti" "tagħti" "nagħtu" "tagħtu" "jagħtu" "nagħti" "tagħti" "jagħti" "tagħti" "nagħtu" "tagħtu" "jagħtu"
"agħti" "agħtu" "agħti" "agħtu"
; ) ;
nghata_GHTJ_7_10768_V = mkV_VII "għata" "ngħata" (mkRoot "għ-t-j") ; nghata_GHTJ_7_10768_V = mkV_VII "għata" "ngħata" (mkRoot "għ-t-j") ;
idda_'DJ_8_10771_V = irregularV form8 (mkRoot "'-d-j") (mkPattern "i" "e") idda_'DJ_8_10771_V = irregularV form8 (mkRoot "'-d-j") (mkPattern "i" "e")
"iddejt" "iddejt" "idda" "iddiet" "iddejna" "iddejtu" "iddew" "iddejt" "iddejt" "idda" "iddiet" "iddejna" "iddejtu" "iddew"
@@ -4223,11 +4223,11 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
"namba" "tamba" "jamba" "tamba" "nambaw" "tambaw" "jambaw" "namba" "tamba" "jamba" "tamba" "nambaw" "tambaw" "jambaw"
"amba" "ambaw" "amba" "ambaw"
; ;
stenna_'NJ_10_10781_V = irregularV form10 (mkRoot "'-n-j") (mkPattern "e" "a") stenna_'NJ_10_10781_V = pastPartV "mistenni" (irregularV form10 (mkRoot "'-n-j") (mkPattern "e" "a")
"stennejt" "stennejt" "stenna" "stenniet" "stennejna" "stennejtu" "stennew" "stennejt" "stennejt" "stenna" "stenniet" "stennejna" "stennejtu" "stennew"
"nistenna" "tistenna" "jistenna" "tistenna" "nistennew" "tistennew" "jistennew" "nistenna" "tistenna" "jistenna" "tistenna" "nistennew" "tistennew" "jistennew"
"stenna" "stennew" "stenna" "stennew"
; ) ;
stienes_'NS_10_10782_V = mkV irregular form10 (mkRoot "'-n-s") (mkPattern "ie" "e") stienes_'NS_10_10782_V = mkV irregular form10 (mkRoot "'-n-s") (mkPattern "ie" "e")
"stienist" "stienist" "stienes" "stienset" "stienisna" "stienistu" "stiensu" "stienist" "stienist" "stienes" "stienset" "stienisna" "stienistu" "stiensu"
"nistienes" "tistienes" "jistienes" "tistienes" "nistiensu" "tistiensu" "jistiensu" "nistienes" "tistienes" "jistienes" "tistienes" "nistiensu" "tistiensu" "jistiensu"
@@ -4297,9 +4297,9 @@ concrete DictMlt of DictMltAbs = CatMlt ** open ParadigmsMlt in {
-- Loan verbs -- Loan verbs
lin lin
mbotta_V = mkV "mbotta" ; mbotta_V = pastPartV "mbuttat" (mkV "mbotta") ;
vvjagga_V = mkV "vvjaġġa" ; vvjagga_V = pastPartV "vvjaġġat" (mkV "vvjaġġa") ;
ffriza_V = mkV "ffriża" ; ffriza_V = pastPartV "ffriżat" (mkV "ffriża") ;
kkuntempla_V = mkV "kkuntempla" ; kkuntempla_V = pastPartV "kkuntemplat" (mkV "kkuntempla") ;
} }

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

@@ -10,13 +10,16 @@ concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {
coding=utf8; coding=utf8;
lin lin
-- VP -> Cl ; -- it is hot -- VP -> Cl
-- it is hot
ImpersCl vp = mkClause "" (agrP3 Sg Masc) vp ; ImpersCl vp = mkClause "" (agrP3 Sg Masc) vp ;
-- VP -> Cl ; -- one sleeps -- VP -> Cl
-- one sleeps
GenericCl vp = mkClause "wieħed" (agrP3 Sg Masc) vp ; GenericCl vp = mkClause "wieħed" (agrP3 Sg Masc) vp ;
-- NP -> RS -> Cl ; -- it is I who did it -- NP -> RS -> Cl
-- it is I who did it
CleftNP np rs = { CleftNP np rs = {
s = \\t,a,p,o => case p of { s = \\t,a,p,o => case p of {
Pos => np.s ! NPNom ++ kont ++ "li" ++ rs.s ! np.a ; -- jiena kont li qrajt il-ktieb Pos => np.s ! NPNom ++ kont ++ "li" ++ rs.s ! np.a ; -- jiena kont li qrajt il-ktieb
@@ -32,42 +35,56 @@ concrete IdiomMlt of Idiom = CatMlt ** open Prelude, ResMlt in {
} }
} ; } ;
-- Adv -> S -> Cl ; -- it is here she slept -- Adv -> S -> Cl
-- it is here she slept
CleftAdv adv s = { CleftAdv adv s = {
s = \\t,a,p,o => adv.s ++ s.s ; s = \\t,a,p,o => adv.s ++ s.s ;
} ; } ;
-- NP -> Cl ; -- there is a house -- NP -> Cl
-- there is a house
ExistNP np = { ExistNP np = {
s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ; s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ;
} ; } ;
-- IP -> QCl ; -- which houses are there -- IP -> QCl
-- which houses are there
ExistIP ip = { ExistIP ip = {
s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ; s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ;
} ; } ;
-- NP -> Adv -> Cl ; -- there is a house in Paris -- NP -> Adv -> Cl
-- there is a house in Paris
ExistNPAdv np adv = { ExistNPAdv np adv = {
s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ++ adv.s ; s = \\t,a,p,o => auxHemm.s ! t ! p ++ np.s ! NPAcc ++ adv.s ;
} ; } ;
-- IP -> Adv -> QCl ; -- which houses are there in Paris -- IP -> Adv -> QCl
-- which houses are there in Paris
ExistIPAdv ip adv = { ExistIPAdv ip adv = {
s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ++ adv.s ; s = \\t,a,p,o => ip.s ++ auxHemm.s ! t ! p ++ adv.s ;
} ; } ;
-- VP -> VP ; -- be sleeping -- VP -> VP
ProgrVP vp = CopulaVP ** { -- be sleeping
s2 = \\agr => joinVP vp (VPIndicat Pres agr) Simul Pos ProgrVP vp = {
v = CopulaVP.v ;
s2 = \\agr => case vp.v.hasPresPart of {
True => (vp.v.s ! VPresPart (toGenNum agr)).s1 ;
False => (vp.v.s ! VImpf (toVAgr agr)).s1
} ;
dir = NullAgr ;
ind = NullAgr ;
} ; } ;
-- VP -> Utt ; -- let's go -- VP -> Utt
-- let's go
ImpPl1 vp = { ImpPl1 vp = {
s = "ejja" ++ infVP vp Simul Pos (mkAgr Pl P1 Masc) s = "ejja" ++ infVP vp Simul Pos (mkAgr Pl P1 Masc)
} ; } ;
-- NP -> VP -> Utt ; -- let John walk -- NP -> VP -> Utt
-- let John walk
ImpP3 np vp = { ImpP3 np vp = {
s = halli ++ np.s ! NPAcc ++ infVP vp Simul Pos np.a s = halli ++ np.s ! NPAcc ++ infVP vp Simul Pos np.a
} where { } where {

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

@@ -13,235 +13,218 @@ concrete LexiconMlt of Lexicon = CatMlt **
optimize=values ; optimize=values ;
coding=utf8 ; coding=utf8 ;
-- Nouns
lin lin
airplane_N = mkN "ajruplan" "ajruplani" ; airplane_N = mkN "ajruplan" "ajruplani" ;
animal_N = mkN "annimal" "annimali" ; animal_N = mkN "annimal" "annimali" ;
apartment_N = mkN "appartament" "appartamenti" ; apartment_N = mkN "appartament" "appartamenti" ;
apple_N = mkNColl "tuffieħa" "tuffieħ" "tuffieħat" ; apple_N = mkNColl "tuffieħa" "tuffieħ" "tuffieħat" ;
art_N = mkNNoPlural "arti" feminine ; art_N = mkNNoPlural "arti" feminine ;
ashes_N = mkN "rmied" "rmiet" ; ashes_N = mkN "rmied" "rmiet" ;
baby_N = mkN "tarbija" "trabi" ; baby_N = mkN "tarbija" "trabi" ;
back_N = possN (mkN "dahar" "dhur") ; back_N = possN (mkN "dahar" "dhur") ;
bank_N = mkN "bank" "bankijiet" ; bank_N = mkN "bank" "bankijiet" ;
bark_N = mkN "qoxra" "qoxriet" ; bark_N = mkN "qoxra" "qoxriet" ;
beer_N = mkN "birra" "birer" ; beer_N = mkN "birra" "birer" ;
belly_N = possN (mkN "żaqq" "żquq") ; belly_N = possN (mkN "żaqq" "żquq") ;
bike_N = mkN "rota" "roti" ; bike_N = mkN "rota" "roti" ;
bird_N = mkN "għasfur" "għasafar" ; -- genderedN bird_N = mkN "għasfur" "għasafar" ; -- genderedN
blood_N = possN (mkNColl "demm" "dmija") ; blood_N = possN (mkNColl "demm" "dmija") ;
boat_N = mkN "dgħajsa" "dgħajjes" ; boat_N = mkN "dgħajsa" "dgħajjes" ;
bone_N = mkNColl "għadma" "għadam" "għadmiet" ; bone_N = mkNColl "għadma" "għadam" "għadmiet" ;
book_N = mkN "ktieb" "kotba" ; book_N = mkN "ktieb" "kotba" ;
boot_N = mkNColl "żarbuna" "żarbun" "żraben" ; boot_N = mkNColl "żarbuna" "żarbun" "żraben" ;
boss_N = mkN "mgħallem" "mgħallmin" ; boss_N = mkN "mgħallem" "mgħallmin" ;
boy_N = mkN "tifel" "tfal" ; boy_N = mkN "tifel" "tfal" ;
bread_N = mkNColl "ħobża" "ħobż" "ħobżiet" ; bread_N = mkNColl "ħobża" "ħobż" "ħobżiet" ;
breast_N = possN (mkN "sider" "sdur") ; breast_N = possN (mkN "sider" "sdur") ;
brother_N2 = mkN2 (possN (mkN "ħu" "aħwa")) ; brother_N2 = mkN2 (possN (mkN "ħu" "aħwa")) ;
butter_N = mkNColl "butir" "butirijiet" ; butter_N = mkNColl "butir" "butirijiet" ;
camera_N = mkN "kamera" "kameras" ; camera_N = mkN "kamera" "kameras" ;
cap_N = mkN "kappell" "kpiepel" ; cap_N = mkN "kappell" "kpiepel" ;
car_N = mkN "karozza" "karozzi" ; car_N = mkN "karozza" "karozzi" ;
carpet_N = mkN "tapit" "twapet" ; carpet_N = mkN "tapit" "twapet" ;
cat_N = mkN "qattus" "qtates" ; -- genderedN cat_N = mkN "qattus" "qtates" ; -- genderedN
ceiling_N = mkN "saqaf" "soqfa" ; ceiling_N = mkN "saqaf" "soqfa" ;
chair_N = mkN "siġġu" "siġġijiet" ; chair_N = mkN "siġġu" "siġġijiet" ;
cheese_N = mkNColl "ġobna" "ġobon" "ġobniet" ; cheese_N = mkNColl "ġobna" "ġobon" "ġobniet" ;
child_N = mkN "tifel / tifla" "tfal" ; -- genderedN child_N = mkN "tifel / tifla" "tfal" ; -- genderedN
church_N = mkN "knisja" "knejjes" ; church_N = mkN "knisja" "knejjes" ;
city_N = mkN "belt" "bliet" feminine ; city_N = mkN "belt" "bliet" feminine ;
cloud_N = mkNColl "sħaba" "sħab" "sħabiet" ; cloud_N = mkNColl "sħaba" "sħab" "sħabiet" ;
coat_N = mkN "kowt" "kowtijiet" ; coat_N = mkN "kowt" "kowtijiet" ;
computer_N = mkN "kompjuter" "kompjuters" ; computer_N = mkN "kompjuter" "kompjuters" ;
country_N = possN (mkN "pajjiż" "pajjiżi") ; country_N = possN (mkN "pajjiż" "pajjiżi") ;
cousin_N = mkN "kuġin" "kuġini" ; -- genderedN cousin_N = mkN "kuġin" "kuġini" ; -- genderedN
cow_N = mkNColl "baqra" "baqar" "baqriet" ; cow_N = mkNColl "baqra" "baqar" "baqriet" ;
day_N = mkN "ġurnata" "ġranet" ; day_N = mkN "ġurnata" "ġranet" ;
distance_N3 = mkN3 (mkN "distanza") minnP saP ; distance_N3 = mkN3 (mkN "distanza") minnP saP ;
doctor_N = mkN "tabib" "tobba" ; -- genderedN doctor_N = mkN "tabib" "tobba" ; -- genderedN
dog_N = mkN "kelb" "klieb" ; dog_N = mkN "kelb" "klieb" ;
door_N = mkN "bieb" "bibien" ; door_N = mkN "bieb" "bibien" ;
dust_N = mkNColl "traba" "trab" "trabiet" ; dust_N = mkNColl "traba" "trab" "trabiet" ;
ear_N = possN (mkNDual "widna" "widnejn" "widniet") ; ear_N = possN (mkNDual "widna" "widnejn" "widniet") ;
earth_N = mkN "art" "artijiet" feminine ; earth_N = mkN "art" "artijiet" feminine ;
egg_N = mkNColl "bajda" "bajd" "bajdiet" ; egg_N = mkNColl "bajda" "bajd" "bajdiet" ;
enemy_N = mkN "għadu" "għedewwa" ; enemy_N = mkN "għadu" "għedewwa" ;
eye_N = possN (mkNDual "għajn" "għajnejn" "għajnejn" "għejun" feminine) ; eye_N = possN (mkNDual "għajn" "għajnejn" "għajnejn" "għejun" feminine) ;
factory_N = mkN "fabbrika" "fabbriki" ; factory_N = mkN "fabbrika" "fabbriki" ;
fat_N = mkNColl "xaħma" "xaħam" "xaħmiet" "xaħmijiet" ; fat_N = mkNColl "xaħma" "xaħam" "xaħmiet" "xaħmijiet" ;
father_N2 = mkN2 (possN (mkN "missier" "missirijiet")) ; father_N2 = mkN2 (possN (mkN "missier" "missirijiet")) ;
feather_N = mkNColl "rixa" "rix" "rixiet" ; feather_N = mkNColl "rixa" "rix" "rixiet" ;
fingernail_N = possN (mkNDual "difer" "difrejn" "dwiefer") ; fingernail_N = possN (mkNDual "difer" "difrejn" "dwiefer") ;
fire_N = mkN "nar" "nirien" ; fire_N = mkN "nar" "nirien" ;
fish_N = mkNColl "ħuta" "ħut" "ħutiet" ; fish_N = mkNColl "ħuta" "ħut" "ħutiet" ;
floor_N = mkN "art" "artijiet" feminine ; floor_N = mkN "art" "artijiet" feminine ;
flower_N = mkN "fjura" "fjuri" ; flower_N = mkN "fjura" "fjuri" ;
fog_N = mkNColl "ċpar" ; fog_N = mkNColl "ċpar" ;
foot_N = possN (mkNDual "sieq" "saqajn" "saqajn" feminine) ; foot_N = possN (mkNDual "sieq" "saqajn" "saqajn" feminine) ;
forest_N = mkN "foresta" "foresti" ; forest_N = mkN "foresta" "foresti" ;
fridge_N = mkN "friġġ" "friġġijiet" ; fridge_N = mkN "friġġ" "friġġijiet" ;
friend_N = possN (mkN "ħabib" "ħbieb") ; -- genderedN friend_N = possN (mkN "ħabib" "ħbieb") ; -- genderedN
fruit_N = mkNColl "frotta" "frott" "frottiet" "frottijiet" ; fruit_N = mkNColl "frotta" "frott" "frottiet" "frottijiet" ;
garden_N = mkN "ġnien" "ġonna" ; garden_N = mkN "ġnien" "ġonna" ;
girl_N = mkN "tifla" "tfal" ; girl_N = mkN "tifla" "tfal" ;
glove_N = mkN "ingwanta" "ingwanti" ; glove_N = mkN "ingwanta" "ingwanti" ;
gold_N = mkNColl "deheb" "dehbijiet" ; gold_N = mkNColl "deheb" "dehbijiet" ;
grammar_N = mkN "grammatika" "grammatiki" ; grammar_N = mkN "grammatika" "grammatiki" ;
grass_N = mkNColl "ħaxixa" "ħaxix" "ħxejjex" ; grass_N = mkNColl "ħaxixa" "ħaxix" "ħxejjex" ;
guts_N = possN (mkN "musrana" "musraniet" "msaren") ; guts_N = possN (mkN "musrana" "musraniet" "msaren") ;
hair_N = possN (mkNColl "xagħara" "xagħar" "xagħariet" "xgħur") ; hair_N = possN (mkNColl "xagħara" "xagħar" "xagħariet" "xgħur") ;
hand_N = possN (mkNDual "id" "idejn" "idejn" feminine) ; hand_N = possN (mkNDual "id" "idejn" "idejn" feminine) ;
harbour_N = mkN "port" "portijiet" ; harbour_N = mkN "port" "portijiet" ;
hat_N = mkN "kappell" "kpiepel" ; hat_N = mkN "kappell" "kpiepel" ;
head_N = possN (mkN "ras" "rjus" feminine) ; head_N = possN (mkN "ras" "rjus" feminine) ;
heart_N = possN (mkN "qalb" "qlub" feminine) ; heart_N = possN (mkN "qalb" "qlub" feminine) ;
hill_N = mkN "għolja" "għoljiet" ; hill_N = mkN "għolja" "għoljiet" ;
horn_N = mkN "ħorn" "ħornijiet" ; horn_N = mkN "ħorn" "ħornijiet" ;
horse_N = mkN "żiemel" "żwiemel" ; horse_N = mkN "żiemel" "żwiemel" ;
house_N = mkN "dar" "djar" feminine ; house_N = mkN "dar" "djar" feminine ;
husband_N = mkN "raġel" "rġiel" ; husband_N = mkN "raġel" "rġiel" ;
ice_N = mkN "silġ" "silġiet" ; ice_N = mkN "silġ" "silġiet" ;
industry_N = mkN "industrija" "industriji" ; industry_N = mkN "industrija" "industriji" ;
iron_N = mkNColl "ħadida" "ħadid" "ħadidiet" "ħdejjed" ; iron_N = mkNColl "ħadida" "ħadid" "ħadidiet" "ħdejjed" ;
king_N = mkN "re" "rejjiet" ; king_N = mkN "re" "rejjiet" ;
knee_N = possN (mkNDual "rkoppa" "rkopptejn" "rkoppiet") ; knee_N = possN (mkNDual "rkoppa" "rkopptejn" "rkoppiet") ;
lake_N = mkN "għadira" "għadajjar" ; lake_N = mkN "għadira" "għadajjar" ;
lamp_N = mkN "lampa" "lampi" ; lamp_N = mkN "lampa" "lampi" ;
language_N = mkN "lingwa" "lingwi" ; language_N = mkN "lingwa" "lingwi" ;
leaf_N = mkNDual "werqa" "werqtejn" "werqiet" ; leaf_N = mkNDual "werqa" "werqtejn" "werqiet" ;
leather_N = mkN "ġilda" "ġildiet" ; leather_N = mkN "ġilda" "ġildiet" ;
leg_N = (mkNDual "riġel" "riġlejn" "riġlejn") ; leg_N = (mkNDual "riġel" "riġlejn" "riġlejn") ;
liver_N = mkN "fwied" "ifdwa" ; liver_N = mkN "fwied" "ifdwa" ;
louse_N = mkN "qamla" "qamliet" ; louse_N = mkN "qamla" "qamliet" ;
love_N = mkN "mħabba" "mħabbiet" ; love_N = mkN "mħabba" "mħabbiet" ;
man_N = mkN "raġel" "rġiel" ; man_N = mkN "raġel" "rġiel" ;
meat_N = mkNColl "laħma" "laħam" "laħmiet" "laħmijiet" ; meat_N = mkNColl "laħma" "laħam" "laħmiet" "laħmijiet" ;
milk_N = mkNColl "ħalib" "ħalibijiet" ; milk_N = mkNColl "ħalib" "ħalibijiet" ;
moon_N = mkN "qamar" "oqmra" ; moon_N = mkN "qamar" "oqmra" ;
mother_N2 = mkN2 (possN (mkN "omm" "ommijiet" feminine)) ; mother_N2 = mkN2 (possN (mkN "omm" "ommijiet" feminine)) ;
mountain_N = mkN "muntanja" "muntanji" ; mountain_N = mkN "muntanja" "muntanji" ;
mouth_N = possN (mkN "ħalq" "ħluq") ; mouth_N = possN (mkN "ħalq" "ħluq") ;
music_N = mkN "mużika" "mużiki" ; music_N = mkN "mużika" "mużiki" ;
name_N = possN (mkN "isem" "ismijiet") ; name_N = possN (mkN "isem" "ismijiet") ;
neck_N = possN (mkN "għonq" "għenuq") ; neck_N = possN (mkN "għonq" "għenuq") ;
newspaper_N = mkN "gazzetta" "gazzetti" ; newspaper_N = mkN "gazzetta" "gazzetti" ;
night_N = mkN "lejl" "ljieli" ; night_N = mkN "lejl" "ljieli" ;
nose_N = possN (mkN "mnieħer" "mniħrijiet") ; nose_N = possN (mkN "mnieħer" "mniħrijiet") ;
number_N = mkN "numru" "numrui" ; number_N = mkN "numru" "numrui" ;
oil_N = mkN "żejt" "żjut" ; oil_N = mkN "żejt" "żjut" ;
paper_N = mkN "karta" "karti" ; paper_N = mkN "karta" "karti" ;
peace_N = mkN "paċi" "paċijiet" feminine ; peace_N = mkN "paċi" "paċijiet" feminine ;
pen_N = mkN "pinna" "pinen" ; pen_N = mkN "pinna" "pinen" ;
person_N = mkNColl "persuna" "persuni" ; person_N = mkNColl "persuna" "persuni" ;
planet_N = mkN "pjaneta" "pjaneti" ; planet_N = mkN "pjaneta" "pjaneti" ;
plastic_N = mkNNoPlural "plastik" ; plastic_N = mkNNoPlural "plastik" ;
policeman_N = mkNNoPlural "pulizija" ; policeman_N = mkNNoPlural "pulizija" ;
priest_N = mkN "qassis" "qassisin" ; priest_N = mkN "qassis" "qassisin" ;
queen_N = mkN "reġina" "rġejjen" ; queen_N = mkN "reġina" "rġejjen" ;
question_N = mkN "mistoqsija" "mistoqsijiet" ; question_N = mkN "mistoqsija" "mistoqsijiet" ;
radio_N = mkN "radju" "radjijiet" ; radio_N = mkN "radju" "radjijiet" ;
rain_N = mkNNoPlural "xita" ; rain_N = mkNNoPlural "xita" ;
reason_N = mkN "raġun" "raġunijiet" ; reason_N = mkN "raġun" "raġunijiet" ;
religion_N = mkN "reliġjon" "reliġjonijiet" ; religion_N = mkN "reliġjon" "reliġjonijiet" ;
restaurant_N = mkN "restorant" "restoranti" ; restaurant_N = mkN "restorant" "restoranti" ;
river_N = mkN "xmara" "xmajjar" ; river_N = mkN "xmara" "xmajjar" ;
road_N = mkN "triq" "triqat" "toroq" feminine ; road_N = mkN "triq" "triqat" "toroq" feminine ;
rock_N = mkNColl "blata" "blat" "blatiet" ; rock_N = mkNColl "blata" "blat" "blatiet" ;
roof_N = mkN "saqaf" "soqfa" ; roof_N = mkN "saqaf" "soqfa" ;
root_N = mkN "qħerq" "qħeruq" ; root_N = mkN "qħerq" "qħeruq" ;
rope_N = mkN "ħabel" "ħbula" ; rope_N = mkN "ħabel" "ħbula" ;
rubber_N = mkN "gomma" "gomom" ; rubber_N = mkN "gomma" "gomom" ;
rule_N = mkN "regola" "regoli" ; rule_N = mkN "regola" "regoli" ;
salt_N = mkN "melħ" "melħiet" ; salt_N = mkN "melħ" "melħiet" ;
sand_N = mkNColl "ramla" "ramel" "ramliet" ; sand_N = mkNColl "ramla" "ramel" "ramliet" ;
school_N = mkN "skola" "skejjel" ; school_N = mkN "skola" "skejjel" ;
science_N = mkN "xjenza" "xjenzi" ; science_N = mkN "xjenza" "xjenzi" ;
sea_N = mkNDual "baħar" "baħrejn" "ibħra" ; sea_N = mkNDual "baħar" "baħrejn" "ibħra" ;
seed_N = mkN "żerriegħa" "żerrigħat" ; seed_N = mkN "żerriegħa" "żerrigħat" ;
sheep_N = mkNColl "nagħġa" "ngħaġ" "nagħġiet" ; sheep_N = mkNColl "nagħġa" "ngħaġ" "nagħġiet" ;
ship_N = mkN "vapur" "vapuri" ; ship_N = mkN "vapur" "vapuri" ;
shirt_N = mkN "qmis" "qomos" feminine ; shirt_N = mkN "qmis" "qomos" feminine ;
shoe_N = mkN "żarbun" "żraben" ; shoe_N = mkN "żarbun" "żraben" ;
shop_N = mkN "ħanut" "ħwienet" ; shop_N = mkN "ħanut" "ħwienet" ;
silver_N = mkN "fidda" "fided" ; silver_N = mkN "fidda" "fided" ;
sister_N = (mkN "oħt" "aħwa" feminine) ; sister_N = (mkN "oħt" "aħwa" feminine) ;
skin_N = mkN "ġilda" "ġildiet" ; skin_N = mkN "ġilda" "ġildiet" ;
sky_N = mkN "sema" "smewwiet" masculine ; sky_N = mkN "sema" "smewwiet" masculine ;
smoke_N = mkN "duħħan" "dħaħen" ; smoke_N = mkN "duħħan" "dħaħen" ;
snake_N = mkN "serp" "sriep" ; snake_N = mkN "serp" "sriep" ;
snow_N = mkNColl "borra" ; snow_N = mkNColl "borra" ;
sock_N = mkN "kalzetta" "kalzetti" ; sock_N = mkN "kalzetta" "kalzetti" ;
song_N = mkN "kanzunetta" "kanzunetti" ; song_N = mkN "kanzunetta" "kanzunetti" ;
star_N = mkN "stilla" "stilel" ; star_N = mkN "stilla" "stilel" ;
steel_N = mkNNoPlural "azzar" ; steel_N = mkNNoPlural "azzar" ;
stick_N = mkN "lasta" "lasti" ; stick_N = mkN "lasta" "lasti" ;
stone_N = mkNColl "ġebla" "ġebel" "ġebliet" "ġbiel" ; stone_N = mkNColl "ġebla" "ġebel" "ġebliet" "ġbiel" ;
stove_N = mkN "kuker" "kukers" ; stove_N = mkN "kuker" "kukers" ;
student_N = mkN "student" "studenti" ; student_N = mkN "student" "studenti" ;
sun_N = mkN "xemx" "xmux" feminine ; sun_N = mkN "xemx" "xmux" feminine ;
table_N = mkN "mejda" "mwejjed" ; table_N = mkN "mejda" "mwejjed" ;
tail_N = (mkN "denb" "dnieb") ; tail_N = (mkN "denb" "dnieb") ;
teacher_N = mkN "għalliem" "għalliema" ; -- genderedN teacher_N = mkN "għalliem" "għalliema" ; -- genderedN
television_N = mkN "televixin" "televixins" ; television_N = mkN "televixin" "televixins" ;
tongue_N = possN (mkN "lsien" "ilsna") ; tongue_N = possN (mkN "lsien" "ilsna") ;
tooth_N = possN (mkN "sinna" "sinniet" "snien") ; tooth_N = possN (mkN "sinna" "sinniet" "snien") ;
train_N = mkN "ferrovija" "ferroviji" ; train_N = mkN "ferrovija" "ferroviji" ;
tree_N = mkNColl "siġra" "siġar" "siġriet" ; tree_N = mkNColl "siġra" "siġar" "siġriet" ;
university_N = mkN "università" "universitàjiet" ; university_N = mkN "università" "universitàjiet" ;
village_N = mkN "raħal" "rħula" ; village_N = mkN "raħal" "rħula" ;
war_N = mkN "gwerra" "gwerrer" ; war_N = mkN "gwerra" "gwerrer" ;
water_N = mkN "ilma" "ilmijiet" masculine ; water_N = mkN "ilma" "ilmijiet" masculine ;
wife_N = mkN "mara" "nisa" ; wife_N = mkN "mara" "nisa" ;
wind_N = mkN "riħ" "rjieħ" "rjiħat" ; wind_N = mkN "riħ" "rjieħ" "rjiħat" ;
window_N = mkN "tieqa" "twieqi" ; window_N = mkN "tieqa" "twieqi" ;
wine_N = mkNColl "nbid" "nbejjed" ; wine_N = mkNColl "nbid" "nbejjed" ;
wing_N = mkN "ġewnaħ" "ġwienaħ" ; wing_N = mkN "ġewnaħ" "ġwienaħ" ;
woman_N = mkN "mara" "nisa" ; woman_N = mkN "mara" "nisa" ;
wood_N = mkN "injam" "injamiet" ; wood_N = mkN "injam" "injamiet" ;
worm_N = mkNColl "dudu" "dud" "dudiet" ; worm_N = mkNColl "dudu" "dud" "dudiet" ;
year_N = mkNDual "sena" "sentejn" "snin" ; year_N = mkNDual "sena" "sentejn" "snin" ;
-- Verbs
lin lin
add_V3 = mkV3 zied_ZJD_1_10424_V maP ; add_V3 = mkV3 zied_ZJD_1_10424_V maP ;
alas_Interj = ss "sfortunatament" ;
already_Adv = mkAdv "diġà" ;
answer_V2S = lilV2 (wiegeb_WGB_3_10033_V) ; answer_V2S = lilV2 (wiegeb_WGB_3_10033_V) ;
ask_V2Q = lilV2 (saqsa_SQSJ_1_7268_V) ; ask_V2Q = lilV2 (saqsa_SQSJ_1_7268_V) ;
bad_A = brokenA "ħażin" "hżiena" "agħar" ;
beautiful_A = brokenA "sabiħ" "sbieħ" "isbaħ" ;
become_VA = sar_SJR_1_9797_V ; become_VA = sar_SJR_1_9797_V ;
beg_V2V = mkV2V ttallab_TLB_5_9893_V ghalP minnP ; beg_V2V = mkV2V ttallab_TLB_5_9893_V ghalP minnP ;
big_A = brokenA "kbir" "kbar" "ikbar" ;
bite_V2 = lilV2 (gidem_GDM_1_8009_V) ; bite_V2 = lilV2 (gidem_GDM_1_8009_V) ;
black_A = mkA "iswed" "sewda" "suwed" ;
blow_V = nefah_NFH_1_8966_V ; blow_V = nefah_NFH_1_8966_V ;
blue_A = sameA "blu" ;
break_V2 = dirV2 (kiser_KSR_1_8636_V) ; break_V2 = dirV2 (kiser_KSR_1_8636_V) ;
breathe_V = mkV "respira" ; -- ĦA N-NIFS breathe_V = mkV "respira" ; -- ĦA N-NIFS
broad_A = mkA "wiesgħa" "wiesgħa" "wiesgħin" ;
brown_A = sameA "kannella" ;
burn_V = haraq_HRQ_1_8367_V ; burn_V = haraq_HRQ_1_8367_V ;
buy_V2 = dirV2 (xtara_XRJ_8_10296_V) ; buy_V2 = dirV2 (xtara_XRJ_8_10296_V) ;
clean_A = brokenA "nadif" "nodfa" ;
clever_A = regA "bravu" ;
close_V2 = dirV2 (ghalaq_GHLQ_1_10530_V) ; close_V2 = dirV2 (ghalaq_GHLQ_1_10530_V) ;
cold_A = mkA "kiesaħ" "kiesħa" "kesħin" ;
come_V = gie_GJ'_1_8123_V ; come_V = gie_GJ'_1_8123_V ;
correct_A = regA "korrett" ;
count_V2 = dirV2 (ghadd_GHDD_1_10460_V) ; count_V2 = dirV2 (ghadd_GHDD_1_10460_V) ;
cut_V2 = dirV2 (qata'_QTGH_1_9305_V) ; cut_V2 = dirV2 (qata'_QTGH_1_9305_V) ;
die_V = miet_MWT_1_8923_V ; die_V = miet_MWT_1_8923_V ;
dig_V = hafer_HFR_1_8233_V ; dig_V = haffer_HFR_2_8236_V ;
dirty_A = regA "maħmuġ" ;
do_V2 = dirV2 (ghamel_GHML_1_10544_V) ; do_V2 = dirV2 (ghamel_GHML_1_10544_V) ;
drink_V2 = dirV2 (xorob_XRB_1_10231_V) ; drink_V2 = dirV2 (xorob_XRB_1_10231_V) ;
dry_A = regA "niexef" ;
dull_A = sameA "tad-dwejjaq" ;
easy_A2V = dirA2 (sameA "faċli") ;
eat_V2 = dirV2 (kiel_KJL_1_8672_V) ; eat_V2 = dirV2 (kiel_KJL_1_8672_V) ;
empty_A = mkA "vojt" "vojta" "vojta" ;
fall_V = waqa'_WQGH_1_10070_V ; fall_V = waqa'_WQGH_1_10070_V ;
far_Adv = mkAdv "il-bogħod" ; -- use glue?
fear_V2 = prepV2 (beza'_BZGH_1_7541_V) minnP ; fear_V2 = prepV2 (beza'_BZGH_1_7541_V) minnP ;
fear_VS = beza'_BZGH_1_7541_V; fear_VS = beza'_BZGH_1_7541_V;
fight_V2 = prepV2 (ggieled_GLD_6_8074_V) maP ; fight_V2 = prepV2 (ggieled_GLD_6_8074_V) maP ;
@@ -251,22 +234,14 @@ concrete LexiconMlt of Lexicon = CatMlt **
fly_V = tar_TJR_1_9972_V ; fly_V = tar_TJR_1_9972_V ;
forget_V2 = lilV2 (nesa_NSJ_1_9126_V) ; forget_V2 = lilV2 (nesa_NSJ_1_9126_V) ;
freeze_V = ffriza_V ; freeze_V = ffriza_V ;
full_A = regA "mimli" ;
fun_AV = sameA "pjaċevoli" ;
give_V3 = mkV3 ta_GHTJ_1_10767_V lilP ; give_V3 = mkV3 ta_GHTJ_1_10767_V lilP ;
go_V = mar_MWR_1_8918_V ; go_V = mar_MWR_1_8918_V ;
good_A = mkA "tajjeb" "tajba" "tajbin" ;
green_A = mkA "aħdar" "ħadra" "ħodor" ;
hate_V2 = lilV2 (baghad_BGHD_1_7402_V) ; hate_V2 = lilV2 (baghad_BGHD_1_7402_V) ;
hear_V2 = lilV2 (sema'_SMGH_1_9698_V) ; hear_V2 = lilV2 (sema'_SMGH_1_9698_V) ;
heavy_A = brokenA "tqil" "tqal" "itqal" ;
hit_V2 = lilV2 (laqat_LQT_1_8772_V) ; hit_V2 = lilV2 (laqat_LQT_1_8772_V) ;
hold_V2 = lilV2 (zamm_ZMM_1_10392_V) ; hold_V2 = lilV2 (zamm_ZMM_1_10392_V) ;
hope_VS = xtaq_XWQ_8_10313_V ; hope_VS = xtaq_XWQ_8_10313_V ;
hot_A = mkA "jaħraq" "taħraq" "jaħarqu" ;
hunt_V2 = prepV2 (kaccac_KCC_2_8571_V) ghalP ; hunt_V2 = prepV2 (kaccac_KCC_2_8571_V) ghalP ;
important_A = sameA "importanti" ;
john_PN = mkPN "Ġanni" masculine singular ;
jump_V = qabez_QBZ_1_9182_V ; jump_V = qabez_QBZ_1_9182_V ;
kill_V2 = lilV2 (qatel_QTL_1_9312_V) ; kill_V2 = lilV2 (qatel_QTL_1_9312_V) ;
know_V2 = lilV2 (af_''F_1_10774_V) ; know_V2 = lilV2 (af_''F_1_10774_V) ;
@@ -275,36 +250,21 @@ concrete LexiconMlt of Lexicon = CatMlt **
laugh_V = dahak_DHK_1_7688_V ; laugh_V = dahak_DHK_1_7688_V ;
learn_V2 = dirV2 (tghallem_GHLM_5_10527_V) ; learn_V2 = dirV2 (tghallem_GHLM_5_10527_V) ;
leave_V2 = prepV2 (telaq_TLQ_1_9903_V) minnP ; leave_V2 = prepV2 (telaq_TLQ_1_9903_V) minnP ;
left_Ord = mkOrd "xellug" ;
lie_V = mtedd_MDD_8_8816_V ; -- lie down lie_V = mtedd_MDD_8_8816_V ; -- lie down
like_V2 = lilV2 (ghogob_GHGB_1_10485_V) ; like_V2 = lilV2 (ghogob_GHGB_1_10485_V) ;
listen_V2 = lilV2 (sema'_SMGH_1_9698_V) ; listen_V2 = lilV2 (sema'_SMGH_1_9698_V) ;
live_V = ghex_GHJX_1_10711_V ; live_V = ghex_GHJX_1_10711_V ;
long_A = brokenA "twil" "twal" "itwal" ;
lose_V2 = lilV2 (tilef_TLF_1_9895_V) ; lose_V2 = lilV2 (tilef_TLF_1_9895_V) ;
love_V2 = lilV2 (habb_HBB_1_8174_V) ; love_V2 = lilV2 (habb_HBB_1_8174_V) ;
married_A2 = mkA2 (mkA "miżżewweġ" "miżżewġa") lilP ;
narrow_A = mkA "dejjaq" "dejqa" "dojoq" "idjaq" ;
near_A = regA "viċin" ;
new_A = brokenA "ġdid" "ġodda" ;
now_Adv = mkAdv "issa" ;
old_A = brokenA "qadim" "qodma" "eqdem" ;
open_V2 = dirV2 (fetah_FTH_1_7932_V) ; open_V2 = dirV2 (fetah_FTH_1_7932_V) ;
paint_V2A = dirV2 (pitter_PTR_2_9152_V) ; paint_V2A = dirV2 (pitter_PTR_2_9152_V) ;
paris_PN = mkPN "Pariġi" feminine singular ;
play_V = daqq_DQQ_1_7736_V ; play_V = daqq_DQQ_1_7736_V ;
play_V2 = prepV2 (laghab_LGHB_1_8724_V) maP ; play_V2 = prepV2 (laghab_LGHB_1_8724_V) maP ;
probable_AS = mkAS (sameA "probabbli") ;
pull_V2 = lilV2 (gibed_GBD_1_8043_V) ; pull_V2 = lilV2 (gibed_GBD_1_8043_V) ;
push_V2 = dirV2 (mbotta_V) ; -- GĦAFAS push_V2 = dirV2 (mbotta_V) ; -- GĦAFAS
put_V2 = lilV2 (qieghed_QGHD_3_9212_V) ; put_V2 = lilV2 (qieghed_QGHD_3_9212_V) ;
rain_V0 = xita_XTW_1_10297_V ; -- TAGĦMEL IX-XITA rain_V0 = xita_XTW_1_10297_V ; -- TAGĦMEL IX-XITA
read_V2 = dirV2 (qara_QRJ_1_9350_V) ; read_V2 = dirV2 (qara_QRJ_1_9350_V) ;
ready_A = regA "lest" ;
red_A = mkA "aħmar" "ħamra" "ħomor" ;
right_Ord = mkOrd "lemin" ;
rotten_A = mkA "mħassar" "mħassra" "mħassrin" ;
round_A = regA "tond" ;
rub_V2 = dirV2 (ghorok_GHRK_1_10599_V) ; rub_V2 = dirV2 (ghorok_GHRK_1_10599_V) ;
run_V = gera_GRJ_1_8131_V ; run_V = gera_GRJ_1_8131_V ;
say_VS = qal_QWL_1_9357_V ; say_VS = qal_QWL_1_9357_V ;
@@ -314,23 +274,17 @@ concrete LexiconMlt of Lexicon = CatMlt **
sell_V3 = mkV3 biegh_BJGH_1_7565_V lilP ; sell_V3 = mkV3 biegh_BJGH_1_7565_V lilP ;
send_V3 = mkV3 baghat_BGHT_1_7412_V lilP ; send_V3 = mkV3 baghat_BGHT_1_7412_V lilP ;
sew_V = hat_HJT_1_8508_V ; sew_V = hat_HJT_1_8508_V ;
sharp_A = mkA "jaqta'" "taqta'" "jaqtgħu" ;
short_A = brokenA "qasir" "qosra" "iqsar" ;
sing_V = kanta_KNTJ_1_7016_V ; sing_V = kanta_KNTJ_1_7016_V ;
sit_V = pogga_PGJ_2_9157_V ; sit_V = pogga_PGJ_2_9157_V ;
sleep_V = raqad_RQD_1_9469_V ; sleep_V = raqad_RQD_1_9469_V ;
small_A = brokenA "zgħir" "zgħar" "iżgħar" ;
smell_V = xamm_XMM_1_10207_V ; smell_V = xamm_XMM_1_10207_V ;
smooth_A = regA "lixx" ;
speak_V2 = prepV2 (kellem_KLM_2_8597_V) maP ; speak_V2 = prepV2 (kellem_KLM_2_8597_V) maP ;
spit_V = bezaq_BZQ_1_7549_V ; spit_V = bezaq_BZQ_1_7549_V ;
split_V2 = lilV2 (qasam_QSM_1_9292_V) ; split_V2 = lilV2 (qasam_QSM_1_9292_V) ;
squeeze_V2 = dirV2 (ghasar_GHSR_1_10625_V) ; squeeze_V2 = dirV2 (ghasar_GHSR_1_10625_V) ;
stab_V2 = lilV2 (mewwes_MWS_2_8921_V) ; stab_V2 = lilV2 (mewwes_MWS_2_8921_V) ;
stand_V = qaghad_QGHD_1_9210_V ; --- stand_V = qaghad_QGHD_1_9210_V ;
stop_V = waqaf_WQF_1_10067_V ; stop_V = waqaf_WQF_1_10067_V ;
straight_A = regA "dritt" ;
stupid_A = mkA "iblah" "belha" "boloh" ;
suck_V2 = lilV2 (rada'_RDGH_1_9388_V) ; suck_V2 = lilV2 (rada'_RDGH_1_9388_V) ;
swell_V = ntefah_NFH_8_8970_V ; swell_V = ntefah_NFH_8_8970_V ;
swim_V = gham_GHWM_1_10750_V ; swim_V = gham_GHWM_1_10750_V ;
@@ -338,33 +292,87 @@ concrete LexiconMlt of Lexicon = CatMlt **
switch8on_V2 = dirV2 (xeghel_XGHL_1_10155_V) ; switch8on_V2 = dirV2 (xeghel_XGHL_1_10155_V) ;
talk_V3 = mkV3 kellem_KLM_2_8597_V maP fuqP ; -- PAĊPAĊ, PARLA talk_V3 = mkV3 kellem_KLM_2_8597_V maP fuqP ; -- PAĊPAĊ, PARLA
teach_V2 = lilV2 (ghallem_GHLM_2_10526_V) ; teach_V2 = lilV2 (ghallem_GHLM_2_10526_V) ;
thick_A = mkA "oħxon" "ħoxna" "ħoxnin" "eħxen" ;
thin_A = brokenA "rqiq" "rqaq" "rqaq" ;
think_V = haseb_HSB_1_8387_V ; think_V = haseb_HSB_1_8387_V ;
throw_V2 = dirV2 (waddab_WDB_2_10027_V) ; throw_V2 = dirV2 (waddab_WDB_2_10027_V) ;
tie_V2 = dirV2 (qafel_QFL_1_9206_V) ; tie_V2 = dirV2 (qafel_QFL_1_9206_V) ;
today_Adv = mkAdv "illum" ;
travel_V = vvjagga_V ; travel_V = vvjagga_V ;
turn_V = dar_DWR_1_7803_V ; turn_V = dar_DWR_1_7803_V ;
ugly_A = mkA "ikrah" "kerha" "koroh" ;
uncertain_A = regA "inċert" ;
understand_V2 = lilV2 (fehem_FHM_1_10830_V) ; understand_V2 = lilV2 (fehem_FHM_1_10830_V) ;
vomit_V = qala'_QLGH_1_9223_V ; vomit_V = qala'_QLGH_1_9223_V ;
wait_V2 = lilV2 (stenna_'NJ_10_10781_V) ; wait_V2 = lilV2 (stenna_'NJ_10_10781_V) ;
walk_V = mexa_MXJ_1_8926_V ; walk_V = mexa_MXJ_1_8926_V ;
warm_A = brokenA "sħun" "sħan" ;
wash_V2 = lilV2 (hasel_HSL_1_8395_V) ; wash_V2 = lilV2 (hasel_HSL_1_8395_V) ;
watch_V2 = dirV2 (ra_R'J_1_9513_V) ; watch_V2 = dirV2 (ra_R'J_1_9513_V) ;
wet_A = mkA "mxarrab" "mxarrba" "mxarrbin" ;
white_A = mkA "abjad" "bajda" "bojod" ;
wide_A = broad_A ;
win_V2 = dirV2 (rebah_RBH_1_9371_V) ; win_V2 = dirV2 (rebah_RBH_1_9371_V) ;
wipe_V2 = dirV2 (mesah_MSH_1_8881_V) ; wipe_V2 = dirV2 (mesah_MSH_1_8881_V) ;
wonder_VQ = kkuntempla_V ; wonder_VQ = kkuntempla_V ;
write_V2 = dirV2 (kiteb_KTB_1_8641_V) ; write_V2 = dirV2 (kiteb_KTB_1_8641_V) ;
-- Adjectives
lin
bad_A = brokenA "ħażin" "hżiena" "agħar" ;
beautiful_A = brokenA "sabiħ" "sbieħ" "isbaħ" ;
big_A = brokenA "kbir" "kbar" "ikbar" ;
black_A = mkA "iswed" "sewda" "suwed" ;
blue_A = sameA "blu" ;
broad_A = mkA "wiesgħa" "wiesgħa" "wiesgħin" ;
brown_A = sameA "kannella" ;
clean_A = brokenA "nadif" "nodfa" ;
clever_A = regA "bravu" ;
cold_A = mkA "kiesaħ" "kiesħa" "kesħin" ;
correct_A = regA "korrett" ;
dirty_A = regA "maħmuġ" ;
dry_A = regA "niexef" ;
dull_A = sameA "tad-dwejjaq" ;
easy_A2V = dirA2 (sameA "faċli") ;
empty_A = mkA "vojt" "vojta" "vojta" ;
full_A = regA "mimli" ;
fun_AV = sameA "pjaċevoli" ;
good_A = mkA "tajjeb" "tajba" "tajbin" ;
green_A = mkA "aħdar" "ħadra" "ħodor" ;
heavy_A = brokenA "tqil" "tqal" "itqal" ;
hot_A = mkA "jaħraq" "taħraq" "jaħarqu" ;
important_A = sameA "importanti" ;
long_A = brokenA "twil" "twal" "itwal" ;
married_A2 = mkA2 (mkA "miżżewweġ" "miżżewġa") lilP ;
narrow_A = mkA "dejjaq" "dejqa" "dojoq" "idjaq" ;
near_A = regA "viċin" ;
new_A = brokenA "ġdid" "ġodda" ;
old_A = brokenA "qadim" "qodma" "eqdem" ; -- xiħ
probable_AS = mkAS (sameA "probabbli") ;
ready_A = regA "lest" ;
red_A = mkA "aħmar" "ħamra" "ħomor" ;
rotten_A = mkA "mħassar" "mħassra" "mħassrin" ;
round_A = regA "tond" ;
sharp_A = mkA "jaqta'" "taqta'" "jaqtgħu" ;
short_A = brokenA "qasir" "qosra" "iqsar" ;
small_A = brokenA "zgħir" "zgħar" "iżgħar" ;
smooth_A = regA "lixx" ;
straight_A = regA "dritt" ;
stupid_A = mkA "iblah" "belha" "boloh" ;
thick_A = mkA "oħxon" "ħoxna" "ħoxnin" "eħxen" ;
thin_A = brokenA "rqiq" "rqaq" "rqaq" ;
ugly_A = mkA "ikrah" "kerha" "koroh" ;
uncertain_A = regA "inċert" ;
warm_A = brokenA "sħun" "sħan" ;
wet_A = mkA "mxarrab" "mxarrba" "mxarrbin" ;
white_A = mkA "abjad" "bajda" "bojod" ;
wide_A = broad_A ;
yellow_A = mkA "isfar" "safra" "sofor" ; yellow_A = mkA "isfar" "safra" "sofor" ;
young_A = small_A ; young_A = small_A ;
-- Others
lin
alas_Interj = ss "sfortunatament" ;
already_Adv = mkAdv "diġà" ;
far_Adv = mkAdv "il-bogħod" ; -- use glue?
john_PN = mkPN "Ġanni" masculine singular ;
left_Ord = mkOrd "xellug" ;
now_Adv = mkAdv "issa" ;
paris_PN = mkPN "Pariġi" feminine singular ;
right_Ord = mkOrd "lemin" ;
today_Adv = mkAdv "illum" ;
oper oper
fuqP = mkPrep "fuq" ; fuqP = mkPrep "fuq" ;
ghandP = mkPrep "għand" ; ghandP = mkPrep "għand" ;

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

@@ -606,8 +606,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
conjFormII_quad : VerbInfo -> (VForm => Str) = \i -> conjFormII_quad : VerbInfo -> (VForm => Str) = \i ->
@@ -693,8 +693,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
{- ~~~ Form III verbs ~~~ -} {- ~~~ Form III verbs ~~~ -}
@@ -735,8 +735,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
{- ~~~ Form VII and VIII verbs ~~~ -} {- ~~~ Form VII and VIII verbs ~~~ -}
@@ -806,8 +806,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
{- ~~~ Form IX verbs ~~~ -} {- ~~~ Form IX verbs ~~~ -}
@@ -842,8 +842,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
{- ~~~ Form X verbs ~~~ -} {- ~~~ Form X verbs ~~~ -}
@@ -884,7 +884,7 @@ resource MorphoMlt = ResMlt ** open Prelude in {
_ + "ie" + #Consonant => _ + "ie" + #Consonant =>
let let
strieh : Str = mamma ; strieh : Str = mamma ;
strih : Str = ie2_ i.patt2.V1 strieh ; strih : Str = ie2i strieh ;
strihaj : Str = strih + "aj" strihaj : Str = strih + "aj"
in in
table { table {
@@ -936,8 +936,8 @@ resource MorphoMlt = ResMlt ** open Prelude in {
VPerf agr => perf ! agr ; VPerf agr => perf ! agr ;
VImpf agr => impf ! agr ; VImpf agr => impf ! agr ;
VImp num => imp ! num ; VImp num => imp ! num ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
} }

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

@@ -9,32 +9,29 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
flags flags
optimize=noexpand ; optimize=noexpand ;
coding=utf8 ;
oper oper
-- Used in DetCN below -- Used in DetCN below
chooseNounNumForm : Det -> CN -> Str = \det,n -> chooseNounNumForm : Det -> CN -> Str = \det,n ->
let let
det' = det.s ! n.g ;
sing = n.s ! Singulative ; sing = n.s ! Singulative ;
coll = if_then_Str n.hasColl coll = if_then_Str n.hasColl
(n.s ! Collective) -- BAQAR (n.s ! Collective) -- baqar
(n.s ! Plural) -- SNIEN (n.s ! Plural) -- snien
; ;
dual = n.s ! Dual ; dual = n.s ! Dual ;
plur = n.s ! Plural ; plur = n.s ! Plural ;
-- pind = n.s ! Plural Indeterminate ; -- pind = n.s ! Plural Indeterminate ;
in case det.n of { in case det.n of {
NumX Sg => det' ++ sing ; -- BAQRA NumX Sg => sing ; -- baqra
NumX Pl => det' ++ coll ; -- BAQAR (coll) / ħafna SNIEN (pdet) NumX Pl => coll ; -- baqar (coll) / ħafna snien (pdet)
Num0 => det' ++ sing ; -- L-EBDA BAQRA Num0 => sing ; -- l-ebda baqra
Num1 => det' ++ sing ; -- BAQRA Num1 => sing ; -- baqra
Num2 => if_then_Str n.hasDual Num2 => if_then_Str n.hasDual dual plur ; -- sentejn / baqar
dual -- BAQARTEJN Num3_10 => coll ; -- tlett baqar
(det' ++ plur) -- ŻEWĠ IRĠIEL Num11_19 => sing ; -- ħdax-il baqra
; Num20_99 => sing -- għoxrin baqra
Num3_10 => det' ++ coll ; -- TLETT BAQAR
Num11_19 => det' ++ sing ; -- ĦDAX-IL BAQRA
Num20_99 => det' ++ sing -- GĦOXRIN BAQRA
} ; } ;
lin lin
@@ -44,34 +41,40 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
-- To stop complaining about lock fields -- To stop complaining about lock fields
det = lin Det det ; det = lin Det det ;
cn = lin CN cn ; cn = lin CN cn ;
noun = chooseNounNumForm det cn ;
in { in {
s = table { s = table {
NPCPrep => cn.s ! numform2nounnum det.n ; NPCPrep => noun ;
_ => case <det.isPron, cn.takesPron> of { _ => case <det.isPron, cn.takesPron> of {
<True,True> => glue (cn.s ! numform2nounnum det.n) det.clitic ; <True,True> => glue noun det.clitic ;
<True,_> => artDef ++ cn.s ! numform2nounnum det.n ++ det.s ! cn.g ; <True,_> => artDef ++ noun ++ det.s ! cn.g ;
_ => chooseNounNumForm det cn _ => case <det.n,cn.hasDual> of {
} <Num2, True> => noun ; -- sentejn
} ; _ => det.s ! cn.g ++ noun -- tlett baqar
a = case (numform2nounnum det.n) of { }
Singulative => mkAgr Sg P3 cn.g ; --- collective? }
_ => mkAgr Pl P3 cn.g } ;
a = case (numform2nounnum det.n) of {
Singulative => mkAgr Sg P3 cn.g ; --- collective?
_ => mkAgr Pl P3 cn.g
} ;
isPron = False ;
isDefn = det.isDefn ;
} ; } ;
isPron = False ;
isDefn = det.isDefn ;
} ;
-- Quant -> Num -> Det -- Quant -> Num -> Det
DetQuant quant num = { DetQuant quant num = {
s = \\gen => s = \\gen =>
let gennum = case num.n of { NumX Sg => GSg gen ; _ => GPl } let gennum = case num.n of { NumX Sg => GSg gen ; _ => GPl }
in case quant.isDemo of { in case <quant.isDemo,num.n> of {
True => quant.s ! gennum ++ artDef ++ num.s ! NumAdj ; <True,_> => quant.s ! gennum ++ artDef ++ num.s ! NumAdj ;
False => quant.s ! gennum ++ num.s ! NumAdj -- <True ,NumX Sg> => ...
<False,NumX Sg> => quant.s ! gennum ;
<False,_> => quant.s ! gennum ++ num.s ! NumAdj
} ; } ;
n = num.n ; n = num.n ;
clitic = quant.clitic ; clitic = quant.clitic ;
hasNum = num.hasCard ; hasNum = True ; -- num.hasCard ?
isPron = quant.isPron ; isPron = quant.isPron ;
isDefn = quant.isDefn ; isDefn = quant.isDefn ;
} ; } ;
@@ -94,10 +97,6 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
-- Det -> NP -- Det -> NP
DetNP det = { DetNP det = {
-- s = case det.hasNum of {
-- True => \\_ => det.s ! Masc ;
-- _ => \\c => det.s ! Masc
-- } ;
s = \\c => det.s ! Masc ; s = \\c => det.s ! Masc ;
a = agrP3 (numform2num det.n) Masc ; a = agrP3 (numform2num det.n) Masc ;
isPron = False ; isPron = False ;
@@ -153,7 +152,10 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
PredetNP pred np = overwriteNPs np (\\c => pred.s ++ np.s ! c) ; PredetNP pred np = overwriteNPs np (\\c => pred.s ++ np.s ! c) ;
-- NP -> V2 -> NP -- NP -> V2 -> NP
PPartNP np v2 = overwriteNPs np (\\c => np.s ! c ++ (v2.s ! VActivePart (toGenNum np.a)).s1) ; PPartNP np v2 = case v2.hasPastPart of {
True => overwriteNPs np (\\c => np.s ! c ++ (v2.s ! VPastPart (toGenNum np.a)).s1) ; -- raġel rieqed
False => overwriteNPs np (\\c => np.s ! c ++ (v2.s ! VImpf (toVAgr np.a)).s1) -- mara tisma'
} ;
-- NP -> RS -> NP -- NP -> RS -> NP
RelNP np rs = overwriteNPs np (\\c => np.s ! c ++ "," ++ rs.s ! np.a ) ; RelNP np rs = overwriteNPs np (\\c => np.s ! c ++ "," ++ rs.s ! np.a ) ;
@@ -245,19 +247,18 @@ concrete NounMlt of Noun = CatMlt ** open ResMlt, Prelude in {
SentCN cn sc = overwriteCNs cn (\\num => cn.s ! num ++ sc.s) ; SentCN cn sc = overwriteCNs cn (\\num => cn.s ! num ++ sc.s) ;
-- CN -> NP -> CN -- CN -> NP -> CN
ApposCN cn np = overwriteCNs cn (\\num => cn.s ! num ++ np.s ! NPNom) ; ApposCN cn np = overwriteCNs cn (\\num => cn.s ! num ++ np.s ! NPNom) ; -- known to be overgenerating
PossNP cn np = overwriteCNs cn (\\num => cn.s ! num ++ prepNP prep_ta np) ;
PossNP cn np = overwriteCNs cn (\\num => cn.s ! num ++ prepNP prep_ta np) ; PartNP cn np = overwriteCNs cn (\\num => cn.s ! num ++ prepNP prep_ta np) ;
PartNP cn np = overwriteCNs cn (\\num => cn.s ! num ++ prepNP prep_ta np) ;
-- Det -> NP -> NP -- Det -> NP -> NP
CountNP det np = { --- LEAKS ?
s = \\c => det.s ! np.a.g ++ np.s ! c ; -- CountNP det np = {
a = agrP3 (numform2num det.n) np.a.g ; -- s = \\c => det.s ! np.a.g ++ np.s ! c ;
isPron = False ; -- a = agrP3 (numform2num det.n) np.a.g ;
isDefn = np.isDefn ; -- isPron = False ;
} ; -- isDefn = np.isDefn ;
-- } ;
oper oper
prep_ta = lin Prep { prep_ta = lin Prep {

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

@@ -82,7 +82,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
_ => adjectival _ => adjectival
} ; } ;
thousand = case num of { thousand = case num of {
Num1 => "wieħed" ; Num1 => "elf" ; --- was: wieħed
Num2 => "elfejn" ; Num2 => "elfejn" ;
_ => case adjectival of { _ => case adjectival of {
_ + "'" => (init adjectival) + "t" ; -- SEBA' -> SEBAT _ + "'" => (init adjectival) + "t" ; -- SEBA' -> SEBAT
@@ -94,11 +94,9 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
s = table { s = table {
Unit => table { Unit => table {
NCard => table { NCard => table {
NumNom => unit ; -- TNEJN NumNom => unit ; -- TNEJN
NumAdj => case num of { -- NumAdj => case num of { Num1 => "" ; _ => adjectival } -- ŻEWĠ baqar
Num1 => "" ; -- [] baqra NumAdj => adjectival -- ŻEWĠ baqar
_ => adjectival -- ŻEWĠ baqar
}
} ; } ;
NOrd => \\numcase => ordunit -- TIENI NOrd => \\numcase => ordunit -- TIENI
} ; } ;
@@ -139,13 +137,15 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
} }
} }
} ; } ;
-- thou = thousand ;
thou = { s = thousand ; treatAs = Unit } ; thou = { s = thousand ; treatAs = Unit } ;
n = num ; n = case num of {
Num1 => NumX Sg ;
_ => num
} ;
} ; } ;
lin lin
-- Unit Ord.Unit Adjectival Teen Ten Number -- Unit Ord.Unit Adjectival Teen Ten Number
n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" Num2 ; n2 = mkNum "tnejn" "tieni" "żewġ" "tnax" "għoxrin" Num2 ;
n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" Num3_10 ; --- TODO tlett / tliet ? n3 = mkNum "tlieta" "tielet" "tlett" "tlettax" "tletin" Num3_10 ; --- TODO tlett / tliet ?
n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" Num3_10 ; n4 = mkNum "erbgħa" "raba'" "erba'" "erbatax" "erbgħin" Num3_10 ;
@@ -209,14 +209,12 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
num x = x ; num x = x ;
-- Sub10 ; 1 -- Sub10 ; 1
-- Unit Ord.Unit Adjectival Teen Ten Number pot01 = mkNum "wieħed" "ewwel" "wieħed" "ħdax" "għaxra" Num1 ;
pot01 = mkNum "wieħed" "ewwel" "wieħed" [] [] Num1 ;
-- Digit -> Sub10 ; d * 1 -- Digit -> Sub10 ; d * 1
pot0 d = d ** {n = case d.n of { Num2 => Num2 ; _ => Num3_10 }} ; pot0 d = d ** {n = case d.n of { Num2 => Num2 ; _ => Num3_10 }} ;
-- Sub100 ; 10, 11 -- Sub100 ; 10, 11
-- Cardinal Ordinal Adjectival Thousand Form
pot110 = mkForm2 "għaxra" "għaxar" "għaxar" "għaxart" Unit Num3_10 ; pot110 = mkForm2 "għaxra" "għaxar" "għaxar" "għaxart" Unit Num3_10 ;
pot111 = mkForm2 "ħdax" "ħdax" (glue "ħdax" "-il") (glue "ħdax" "-il") Teen Num11_19 ; pot111 = mkForm2 "ħdax" "ħdax" (glue "ħdax" "-il") (glue "ħdax" "-il") Teen Num11_19 ;
@@ -235,7 +233,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
pot1 d = pot1 d =
let let
numform : NumForm = case d.n of { numform : NumForm = case d.n of {
Num1 => Num3_10 ; NumX Sg => Num3_10 ;
_ => Num20_99 _ => Num20_99
} }
in mkForm2 (d.s ! Ten) Ten numform ; in mkForm2 (d.s ! Ten) Ten numform ;
@@ -245,7 +243,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
let let
unit = (n.s ! Unit ! NCard ! NumNom) ; unit = (n.s ! Unit ! NCard ! NumNom) ;
numform : NumForm = case d.n of { numform : NumForm = case d.n of {
Num1 => Num11_19 ; NumX Sg => Num11_19 ;
_ => Num20_99 _ => Num20_99
} }
in in
@@ -280,17 +278,17 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
hund : Str = m.s ! Hund ! NCard ! NumNom ; hund : Str = m.s ! Hund ! NCard ! NumNom ;
in { in {
s = \\cardord,numcase => case n.n of { s = \\cardord,numcase => case n.n of {
Num1 => hund ++ "u" ; NumX Sg => hund ++ "u" ;
_ => hund ++ "u" ++ n.s ! NCard ! numcase _ => hund ++ "u" ++ n.s ! NCard ! numcase
} ; } ;
thou = { thou = {
s = hund ++ "u" ++ n.thou.s ; s = hund ++ "u" ++ n.thou.s ;
treatAs = case n.n of { treatAs = case n.n of {
Num1 => Ten ; -- specific case for mija u wiehed elf NumX Sg => Ten ; -- specific case for mija u wiehed elf
_ => n.f -- So that "106,000" is treated as "6,000" _ => n.f -- So that "106,000" is treated as "6,000"
} ; } ;
} ; } ;
n = case n.n of { Num2 => Num3_10 ; _ => n.n } ; n = case n.n of { NumX Sg => Num1 ; Num2 => Num3_10 ; _ => n.n } ;
f = Hund ; f = Hund ;
} ; } ;
@@ -301,7 +299,7 @@ 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 {
<Num1,_> => numTable "elf" ; -- 1 * 1000 <NumX Sg,_> => numTable "elf" ; -- 1 * 1000
<Num2,_> => numTable "elfejn" ; -- 2 * 1000 <Num2,_> => numTable "elfejn" ; -- 2 * 1000
<_,Unit> => numTable m.thou.s "elef" ; -- 3-10 * 1000 <_,Unit> => numTable m.thou.s "elef" ; -- 3-10 * 1000
<_,_> => numTable m.thou.s "elf" -- 11+ * 1000 <_,_> => numTable m.thou.s "elf" -- 11+ * 1000
@@ -324,7 +322,7 @@ 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 {
<Num1,_> => numTable "elf" ukemm ; <NumX Sg,_> => numTable "elf" ukemm ;
<Num2,_> => numTable "elfejn" ukemm ; <Num2,_> => numTable "elfejn" ukemm ;
<_,Unit> => numTable (m.thou.s ++ "elef") ukemm ; <_,Unit> => numTable (m.thou.s ++ "elef") ukemm ;
<_,_> => numTable (m.thou.s ++ "elf") ukemm <_,_> => numTable (m.thou.s ++ "elf") ukemm
@@ -333,7 +331,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 = case n.n of { Num2 => Num3_10 ; _ => n.n } ; n = case n.n of { NumX Sg => Num1 ; Num2 => Num3_10 ; _ => n.n } ;
f = Hund ; -- NOT IMPORTANT f = Hund ; -- NOT IMPORTANT
} ; } ;
@@ -377,7 +375,7 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
-- Helper for making a Dig object. -- Helper for making a Dig object.
mkDig : Str -> NumForm -> Dig = \digit,num -> lin Dig { mkDig : Str -> NumForm -> Dig = \digit,num -> lin Dig {
s = \\numcase => digit ; s = \\numcase => digit ;
n = num n = case num of {Num1 => NumX Sg ; _ => num } ;
} ; } ;
-- For correct comma placement in Digits -- For correct comma placement in Digits
@@ -414,13 +412,13 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
let let
digits = d.s ! NumNom ++ (commaIf i.tail) ++ i.s ! NumNom; digits = d.s ! NumNom ++ (commaIf i.tail) ++ i.s ! NumNom;
numform = case <d.n,i.n> of { numform = case <d.n,i.n> of {
<Num0,num> => num ; -- 0 x <Num0,num> => num ; -- 0 x
<Num1,Num0> => Num3_10 ; -- 1 0 <NumX Sg,Num0> => Num3_10 ; -- 1 0
<Num1,_> => Num11_19 ; -- 1 1 <NumX Sg,_> => Num11_19 ; -- 1 x
<Num2,_> => Num20_99 ; -- 2 x <Num2,_> => Num20_99 ; -- 2 x
<Num3_10,_> => Num20_99 ; -- [3-9] x <Num3_10,_> => Num20_99 ; -- [3-9] x
<Num20_99,_> => Num20_99 ; <Num20_99,_> => Num20_99 ;
<_,_> => Num20_99 --- how to handle overwrap? see i:Int in lincat Dig above <_,_> => Num20_99 --- how to handle overwrap? see i:Int in lincat Dig above
} ; } ;
in { in {
s = table { s = table {

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

@@ -225,7 +225,6 @@ resource ParadigmsMlt = open
-- Mark a noun as taking possessive enclitic pronouns -- Mark a noun as taking possessive enclitic pronouns
possN : N -> N ; possN : N -> N ;
-- possN = \n -> n ** { takesPron = True } ;
possN = \n -> lin N { possN = \n -> lin N {
s = n.s ; s = n.s ;
g = n.g ; g = n.g ;
@@ -486,13 +485,15 @@ resource ParadigmsMlt = open
VImpf (AgP3Pl) => impfP3Pl ; VImpf (AgP3Pl) => impfP3Pl ;
VImp (Pl) => impSg ; VImp (Pl) => impSg ;
VImp (Sg) => impPl ; VImp (Sg) => impPl ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo class form root patt impSg ; info : VerbInfo = mkVerbInfo class form root patt impSg ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
} ; --end of mkV overload } ; --end of mkV overload
@@ -540,6 +541,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormII newinfo) ; s = stemVariantsTbl (conjFormII newinfo) ;
i = newinfo ; i = newinfo ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- Make a Quadri-Consonantal Form II verb -- Make a Quadri-Consonantal Form II verb
@@ -553,6 +556,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormII_quad newinfo) ; s = stemVariantsTbl (conjFormII_quad newinfo) ;
i = newinfo ; i = newinfo ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
derivedV_QuadII : Str -> Str -> Root -> V = \mammaII, imp, root -> derivedV_QuadII : Str -> Str -> Root -> V = \mammaII, imp, root ->
let let
@@ -562,6 +567,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormII_quad newinfo) ; s = stemVariantsTbl (conjFormII_quad newinfo) ;
i = newinfo ; i = newinfo ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
} ; } ;
@@ -569,13 +576,14 @@ resource ParadigmsMlt = open
-- e.g.: derivedV_III "qiegħed" (mkRoot "q-għ-d") -- e.g.: derivedV_III "qiegħed" (mkRoot "q-għ-d")
derivedV_III : Str -> Root -> V = \mammaIII, root -> derivedV_III : Str -> Root -> V = \mammaIII, root ->
let let
vowels : Pattern = extractPattern mammaIII ; patt : Pattern = extractPattern mammaIII ;
vowels2 : Pattern = vowelChangesIE root vowels ;
class : VClass = classifyRoot root ; class : VClass = classifyRoot root ;
info : VerbInfo = mkVerbInfo class FormIII root vowels vowels2 mammaIII ; --- assumption: mamma III is also imperative info : VerbInfo = mkVerbInfo class FormIII root patt mammaIII ; --- assumption: mamma III is also imperative
in lin V { in lin V {
s = stemVariantsTbl (conjFormIII info) ; s = stemVariantsTbl (conjFormIII info) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- No point having a paradigm for Form IV -- No point having a paradigm for Form IV
@@ -600,12 +608,14 @@ resource ParadigmsMlt = open
VImpf (AgP2 Pl) => pfx "ti" (pfx_T (dropPfx 1 (get (VImpf (AgP2 Pl))))) ; VImpf (AgP2 Pl) => pfx "ti" (pfx_T (dropPfx 1 (get (VImpf (AgP2 Pl))))) ;
VImpf (AgP3Pl) => pfx "ji" (pfx_T (dropPfx 1 (get (VImpf (AgP3Pl))))) ; VImpf (AgP3Pl) => pfx "ji" (pfx_T (dropPfx 1 (get (VImpf (AgP3Pl))))) ;
VImp num => pfx_T (get (VImp num)) ; VImp num => pfx_T (get (VImp num)) ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
in lin V { in lin V {
s = stemVariantsTbl (tbl) ; s = stemVariantsTbl (tbl) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- Make a Form VI verb -- Make a Form VI verb
@@ -627,12 +637,14 @@ resource ParadigmsMlt = open
VImpf (AgP2 Pl) => pfx "ti" (pfx_T (dropPfx 1 (get (VImpf (AgP2 Pl))))) ; VImpf (AgP2 Pl) => pfx "ti" (pfx_T (dropPfx 1 (get (VImpf (AgP2 Pl))))) ;
VImpf (AgP3Pl) => pfx "ji" (pfx_T (dropPfx 1 (get (VImpf (AgP3Pl))))) ; VImpf (AgP3Pl) => pfx "ji" (pfx_T (dropPfx 1 (get (VImpf (AgP3Pl))))) ;
VImp num => pfx_T (get (VImp num)) ; VImp num => pfx_T (get (VImp num)) ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
in lin V { in lin V {
s = stemVariantsTbl (tbl) ; s = stemVariantsTbl (tbl) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- Make a Form VII verb -- Make a Form VII verb
@@ -653,6 +665,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormVII info c1) ; s = stemVariantsTbl (conjFormVII info c1) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- Make a Form VIII verb -- Make a Form VIII verb
@@ -667,6 +681,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormVII info c1) ; -- note we use conjFormVII ! s = stemVariantsTbl (conjFormVII info c1) ; -- note we use conjFormVII !
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
-- Make a Form IX verb -- Make a Form IX verb
@@ -682,6 +698,8 @@ resource ParadigmsMlt = open
in lin V { in lin V {
s = stemVariantsTbl (conjFormIX info) ; s = stemVariantsTbl (conjFormIX info) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
_ => Predef.error("I don't know how to make a Form IX verb out of" ++ mammaIX) _ => Predef.error("I don't know how to make a Form IX verb out of" ++ mammaIX)
} ; } ;
@@ -692,11 +710,12 @@ resource ParadigmsMlt = open
let let
class : VClass = classifyRoot root ; class : VClass = classifyRoot root ;
patt : Pattern = extractPattern mammaX ; patt : Pattern = extractPattern mammaX ;
patt2 : Pattern = vowelChangesIE root patt ; info : VerbInfo = mkVerbInfo class FormX root patt mammaX ;
info : VerbInfo = mkVerbInfo class FormX root patt patt2 mammaX ;
in lin V { in lin V {
s = stemVariantsTbl (conjFormX info) ; s = stemVariantsTbl (conjFormX info) ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Strong Verb ~~~ -} {- ~~~ Strong Verb ~~~ -}
@@ -727,13 +746,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjStrongPerf root patt ) ! agr ; VPerf agr => ( conjStrongPerf root patt ) ! agr ;
VImpf agr => ( conjStrongImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjStrongImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Strong Regular) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Strong Regular) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
@@ -769,13 +790,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjLiquidMedialPerf root patt ) ! agr ; VPerf agr => ( conjLiquidMedialPerf root patt ) ! agr ;
VImpf agr => ( conjLiquidMedialImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjLiquidMedialImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Strong LiquidMedial) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Strong LiquidMedial) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Geminated Verb ~~~ -} {- ~~~ Geminated Verb ~~~ -}
@@ -806,13 +829,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjGeminatedPerf root patt ) ! agr ; VPerf agr => ( conjGeminatedPerf root patt ) ! agr ;
VImpf agr => ( conjGeminatedImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjGeminatedImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Strong Geminated) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Strong Geminated) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Assimilative Verb ~~~ -} {- ~~~ Assimilative Verb ~~~ -}
@@ -843,17 +868,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjAssimilativePerf root patt ) ! agr ; VPerf agr => ( conjAssimilativePerf root patt ) ! agr ;
VImpf agr => ( conjAssimilativeImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjAssimilativeImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
patt2 : Pattern = case (imp!Sg) of { info : VerbInfo = mkVerbInfo (Weak Assimilative) (FormI) root patt (imp ! Sg) ;
"ie"+_ => mkPattern "i" patt.V2 ; -- (WAQAF) IEQAF > TIQAFLI
_ => patt -- (WASAL) ASAL > TASALLI
} ;
info : VerbInfo = mkVerbInfo (Weak Assimilative) (FormI) root patt patt2 (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Hollow Verb ~~~ -} {- ~~~ Hollow Verb ~~~ -}
@@ -884,17 +907,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjHollowPerf root patt ) ! agr ; VPerf agr => ( conjHollowPerf root patt ) ! agr ;
VImpf agr => ( conjHollowImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjHollowImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
patt2 : Pattern = case patt.V1 of { info : VerbInfo = mkVerbInfo (Weak Hollow) (FormI) root patt (imp ! Sg) ;
"ie" => mkPattern "i" patt.V2 ; -- (ŻIED) ŻID > ŻIDLI
_ => patt -- (MAR) MUR > MURLI
} ;
info : VerbInfo = mkVerbInfo (Weak Hollow) (FormI) root patt patt2 (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Lacking Verb ~~~ -} {- ~~~ Lacking Verb ~~~ -}
@@ -929,13 +950,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjLackingPerf root patt ) ! agr ; VPerf agr => ( conjLackingPerf root patt ) ! agr ;
VImpf agr => ( conjLackingImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjLackingImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Weak Lacking) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Weak Lacking) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Defective Verb ~~~ -} {- ~~~ Defective Verb ~~~ -}
@@ -966,13 +989,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjDefectivePerf root patt ) ! agr ; VPerf agr => ( conjDefectivePerf root patt ) ! agr ;
VImpf agr => ( conjDefectiveImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjDefectiveImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Weak Defective) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Weak Defective) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Quadriliteral Verb (Strong) ~~~ -} {- ~~~ Quadriliteral Verb (Strong) ~~~ -}
@@ -1003,13 +1028,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjQuadPerf root patt ) ! agr ; VPerf agr => ( conjQuadPerf root patt ) ! agr ;
VImpf agr => ( conjQuadImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjQuadImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Quad QStrong) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Quad QStrong) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Quadriliteral Verb (Weak Final) ~~~ -} {- ~~~ Quadriliteral Verb (Weak Final) ~~~ -}
@@ -1043,13 +1070,15 @@ resource ParadigmsMlt = open
VPerf agr => ( conjQuadWeakPerf root patt (imp ! Sg) ) ! agr ; VPerf agr => ( conjQuadWeakPerf root patt (imp ! Sg) ) ! agr ;
VImpf agr => ( conjQuadWeakImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjQuadWeakImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Quad QWeak) (FormI) root patt (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Quad QWeak) (FormI) root patt (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- ~~~ Irregular verbs ~~~ -} {- ~~~ Irregular verbs ~~~ -}
@@ -1068,17 +1097,110 @@ resource ParadigmsMlt = open
VPerf agr => ( conjLoanPerf mamma ) ! agr ; VPerf agr => ( conjLoanPerf mamma ) ! agr ;
VImpf agr => ( conjLoanImpf (imp ! Sg) (imp ! Pl) ) ! agr ; VImpf agr => ( conjLoanImpf (imp ! Sg) (imp ! Pl) ) ! agr ;
VImp n => imp ! n ; VImp n => imp ! n ;
VActivePart _ => "" ; --- TODO VPresPart _ => NONEXIST ;
VPassivePart _ => "" --- TODO VPastPart _ => NONEXIST
} ; } ;
info : VerbInfo = mkVerbInfo (Loan) (FormI) (imp ! Sg) ; info : VerbInfo = mkVerbInfo (Loan) (FormI) (imp ! Sg) ;
in lin V { in lin V {
s = stemVariantsTbl tbl ; s = stemVariantsTbl tbl ;
i = info ; i = info ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
{- Verb --------------------------------------------------------------- -} {- Verb --------------------------------------------------------------- -}
-- Add the present participle to a verb
presPartV = overload {
presPartV : Str -> V -> V = \hiereg,v ->
let
m : Str = hiereg ;
f : Str = case hiereg of {
miex+"i" => miex+"ja" ;
ge+"j" => ge+"jja" ;
sej+"jer" => sej+"ra" ;
r+"ie"+q@#Cns+e@#Vwl+d@#Cns => r+"ie"+q+d+"a" ;
_ => hiereg+"a"
} ;
p : Str = case hiereg of {
miex+"i" => miex+"jin" ;
ge+"j" => ge+"jjin" ;
sej+"jer" => sej+"rin" ;
r+"ie"+q@#Cns+e@#Vwl+d@#Cns => r+"ie"+q+d+"in" ;
_ => hiereg+"in"
} ;
in lin V {
s = \\vform => case vform of {
VPresPart (GSg Masc) => mkVerbStems m ;
VPresPart (GSg Fem) => mkVerbStems f ;
VPresPart (GPl) => mkVerbStems p ;
x => v.s ! x
} ;
i = v.i ;
hasPresPart = True ;
hasPastPart = v.hasPastPart ;
} ;
presPartV : Str -> Str -> Str -> V -> V = \hiereg,hierga,hiergin,v -> lin V {
s = \\vform => case vform of {
VPresPart (GSg Masc) => mkVerbStems hiereg ;
VPresPart (GSg Fem) => mkVerbStems hierga ;
VPresPart (GPl) => mkVerbStems hiergin ;
x => v.s ! x
} ;
i = v.i ;
hasPresPart = True ;
hasPastPart = v.hasPastPart ;
} ;
} ;
-- Add the past participle to a verb
pastPartV = overload {
pastPartV : Str -> V -> V = \miktub,v ->
let
m : Str = miktub ;
f : Str = case miktub of {
mixtr+"i" => mixtr+"ija" ;
mdaww+"ar" => mdaww+"ra" ;
mwaqq+"a'" => mwaqq+"għa" ;
_ => miktub+"a"
} ;
p : Str = case miktub of {
mixtr+"i" => mixtr+"ijin" ;
mdaww+"ar" => mdaww+"rin" ;
mwaqq+"a'" => mwaqq+"għin" ;
ffriz+"at" => ffriz+"ati" ;
_ => miktub+"in"
} ;
in lin V {
s = \\vform => case vform of {
VPastPart (GSg Masc) => mkVerbStems m ;
VPastPart (GSg Fem) => mkVerbStems f ;
VPastPart (GPl) => mkVerbStems p ;
x => v.s ! x
} ;
i = v.i ;
hasPresPart = v.hasPresPart ;
hasPastPart = True ;
} ;
pastPartV : Str -> Str -> Str -> V -> V = \miktub,miktuba,miktubin,v -> lin V {
s = \\vform => case vform of {
VPastPart (GSg Masc) => mkVerbStems miktub ;
VPastPart (GSg Fem) => mkVerbStems miktuba ;
VPastPart (GPl) => mkVerbStems miktubin ;
x => v.s ! x
} ;
i = v.i ;
hasPresPart = v.hasPresPart ;
hasPastPart = True ;
} ;
} ;
hasCompl : Prep -> Compl = \p -> p ** { isPresent = True } ; hasCompl : Prep -> Compl = \p -> p ** { isPresent = True } ;
noCompl : Compl = noPrep ** { isPresent = False } where { noPrep : Prep = mkPrep [] }; noCompl : Compl = noPrep ** { isPresent = False } where { noPrep : Prep = mkPrep [] };

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

@@ -97,12 +97,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
agrP3 : Number -> Gender -> Agr = \n,g -> mkAgr n P3 g; agrP3 : Number -> Gender -> Agr = \n,g -> mkAgr n P3 g;
VPForm2VAgr : VPForm -> VAgr = \vpform ->
case vpform of {
VPIndicat _ vagr => vagr ;
VPImperat n => AgP2 n
};
sing : VAgr -> Bool = \agr -> sing : VAgr -> Bool = \agr ->
case toAgr agr of { case toAgr agr of {
{n=Sg; p=_; g=_} => True ; {n=Sg; p=_; g=_} => True ;
@@ -158,25 +152,14 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
s : Tense => Anteriority => Polarity => Agr => Str s : Tense => Anteriority => Polarity => Agr => Str
} ; } ;
-- Clause
mkClause : Str -> Agr -> VerbPhrase -> Clause = \subj,agr,vp -> { mkClause : Str -> Agr -> VerbPhrase -> Clause = \subj,agr,vp -> {
s = \\t,a,p,o => s = \\tense,ant,pol,ord =>
let let
-- verb = vp.s ! t ! a ! p ! o ! agr ; verb : Str = joinVP vp tense ant pol agr ;
-- vform = case <t,agr> of { obj : Str = vp.s2 ! agr ;
-- _ => VPres in case ord of {
-- } ; ODir => subj ++ verb ++ obj ; -- Ġanni jiekol ħut
vpform : VPForm = VPIndicat t (toVAgr agr) ; OQuest => verb ++ obj ++ subj -- jiekol ħut Ġanni ?
verb : Str = joinVP vp vpform a p ;
compl : Str = vp.s2 ! agr ;
in
case o of {
-- ODir => subj ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ vp.p ++ compl ;
-- OQuest => verb.aux ++ subj ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ++ vp.p ++ compl
-- ABSOLUTELY NOT CORRECT: in progress
ODir => subj ++ verb ++ compl ;
OQuest => subj ++ verb ++ compl
} }
} ; } ;
@@ -206,11 +189,12 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
; ;
-- Indicate how a corresponding object should be treated -- Indicate how a corresponding object should be treated
--- Overlap between Num Sg and Num1, but leaving as is for now -- Num Sg is exactly 1
-- Num1 is anything "treated as" 1 (eg 101)
NumForm = NumForm =
NumX Number -- Sg | Pl NumX Number -- Sg | Pl
| Num0 -- 0 (l-edba SIEGĦA) | Num0 -- 0 (l-edba SIEGĦA)
| Num1 -- 1, 101... (SIEGĦA, mija u SIEGĦA) | Num1 -- 101... (mija u SIEGĦA)
| Num2 -- 2 (SAGĦTEJN) | Num2 -- 2 (SAGĦTEJN)
| Num3_10 -- 3..10, 102, 103... (tlett SIEGĦAT, għaxar SIEGĦAT, mija u żewġ SIEGĦAT, mija u tlett SIEGĦAT) | Num3_10 -- 3..10, 102, 103... (tlett SIEGĦAT, għaxar SIEGĦAT, mija u żewġ SIEGĦAT, mija u tlett SIEGĦAT)
| Num11_19 -- 11..19, 111... (ħdax-il SIEGĦA, mija u dsatax-il SIEGĦA) | Num11_19 -- 11..19, 111... (ħdax-il SIEGĦA, mija u dsatax-il SIEGĦA)
@@ -261,7 +245,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
{- Determiners etc. ----------------------------------------------------- -} {- Determiners etc. ----------------------------------------------------- -}
oper oper
-- [AZ]
Determiner : Type = { Determiner : Type = {
s : Gender => Str ; s : Gender => Str ;
n : NumForm ; n : NumForm ;
@@ -270,16 +253,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
isPron : Bool ; -- is a pronoun isPron : Bool ; -- is a pronoun
isDefn : Bool ; -- is definite isDefn : Bool ; -- is definite
} ; } ;
-- Determiner = {
-- s : NPCase => Gender => NumCase => Str ;
-- s2 : NPCase => Gender => Str ; -- tieghi (possessive pronoun)
-- -- size : Num_Size ; -- One (agreement feature for noun)
-- isNum : Bool ; -- True (a numeral is present)
-- isDemo : Bool ; -- True (is a demostrative)
-- isDefn : Bool ;-- True (is definite)
-- } ;
-- [AZ]
Quantifier : Type = { Quantifier : Type = {
s : GenNum => Str ; s : GenNum => Str ;
clitic : Str ; clitic : Str ;
@@ -287,12 +261,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
isDemo : Bool ; -- Demonstrative (this/that/those/these) isDemo : Bool ; -- Demonstrative (this/that/those/these)
isDefn : Bool ; -- is definite isDefn : Bool ; -- is definite
} ; } ;
-- Quantifier = {
-- s : NPCase => Gender => NumForm => Str ;
-- s2 : NPCase => Gender => NumForm => Str ;
-- isDemo : Bool ; -- Demonstrative (this/that/those/these)
-- isDefn : Bool ;
-- } ;
{- Noun ----------------------------------------------------------------- -} {- Noun ----------------------------------------------------------------- -}
@@ -371,11 +339,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
} ; } ;
Compl : Type = Preposition ** {isPresent : Bool} ; Compl : Type = Preposition ** {isPresent : Bool} ;
-- Compl : Type = {
-- s : Str ;
-- -- c : NPForm ;
-- -- isPre : Bool
-- } ;
noCompl : Compl = { noCompl : Compl = {
s = \\_ => [] ; s = \\_ => [] ;
@@ -425,18 +388,15 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
{- Verb ----------------------------------------------------------------- -} {- Verb ----------------------------------------------------------------- -}
oper oper
-- Generic variants (used for verb stems) -- Stem variants
Variants3 : Type = {s1, s2, s3 : Str} ; VerbStems : Type = {s1, s2, s3 : Str} ;
mkVariants3 : Variants3 = overload { mkVerbStems : VerbStems = overload {
mkVariants3 : (s1 : Str) -> Variants3 = \a -> { s1 = a ; s2 = a ; s3 = a } ; mkVerbStems : (s1 : Str) -> VerbStems = \a -> { s1 = a ; s2 = a ; s3 = a } ;
mkVariants3 : (s1, s2, s3 : Str) -> Variants3 = \a,b,c -> { s1 = a ; s2 = b ; s3 = c } ; mkVerbStems : (s1, s2 : Str) -> VerbStems = \a,b -> { s1 = a ; s2 = b ; s3 = b } ;
mkVerbStems : (s1, s2, s3 : Str) -> VerbStems = \a,b,c -> { s1 = a ; s2 = b ; s3 = c } ;
} ; } ;
mkMaybeVariants3 : Str -> Maybe Variants3 = \s -> Just Variants3 (mkVariants3 s) ;
NullVariants3 : Maybe Variants3 = Nothing Variants3 { s1 = [] ; s2 = [] ; s3 = [] } ;
NullAgr : Maybe Agr = Nothing Agr (agrP3 Sg Masc) ; NullAgr : Maybe Agr = Nothing Agr (agrP3 Sg Masc) ;
-- Direct object clitic -- Direct object clitic
@@ -484,7 +444,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
-- Produce stem variants as needed (only call on compile-time strings!) -- Produce stem variants as needed (only call on compile-time strings!)
-- Refer to doc/stems.org -- Refer to doc/stems.org
stemVariantsPerf : Str -> Variants3 = \s -> stemVariantsPerf : Str -> VerbStems = \s ->
let let
ftahna : Str = s ; ftahna : Str = s ;
ftahnie : Str = case s of { ftahnie : Str = case s of {
@@ -501,7 +461,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
s1 = ftahna ; s2 = ftahnie ; s3 = ftahni ; s1 = ftahna ; s2 = ftahnie ; s3 = ftahni ;
} ; } ;
stemVariantsImpf : Str -> Variants3 = \s -> stemVariantsImpf : Str -> VerbStems = \s ->
let let
jiftah : Str = s ; jiftah : Str = s ;
jifth : Str = case s of { jifth : Str = case s of {
@@ -513,16 +473,18 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
} ; } ;
-- Convert old verb form table into one with stem variants -- Convert old verb form table into one with stem variants
stemVariantsTbl : (VForm => Str) -> (VForm => Variants3) = \tbl -> stemVariantsTbl : (VForm => Str) -> (VForm => VerbStems) = \tbl ->
\\vf => case vf of { \\vf => case vf of {
VPerf _ => stemVariantsPerf (tbl ! vf) ; VPerf _ => stemVariantsPerf (tbl ! vf) ;
VImpf _ => stemVariantsImpf (tbl ! vf) ; VImpf _ => stemVariantsImpf (tbl ! vf) ;
_ => mkVariants3 (tbl ! vf) _ => mkVerbStems (tbl ! vf)
} ; } ;
Verb : Type = { Verb : Type = {
s : VForm => Variants3 ; --- need to store different "stems" already at verb level (ġera/ġerie/ġeri) s : VForm => VerbStems ; --- need to store different "stems" already at verb level (ġera/ġerie/ġeri)
i : VerbInfo ; i : VerbInfo ;
hasPresPart : Bool ;
hasPastPart : Bool ;
} ; } ;
VerbInfo : Type = { VerbInfo : Type = {
@@ -530,9 +492,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
form : VDerivedForm ; form : VDerivedForm ;
root : Root ; -- radicals root : Root ; -- radicals
patt : Pattern ; -- vowels extracted from mamma patt : Pattern ; -- vowels extracted from mamma
patt2 : Pattern ; -- vowel changes; default to patt (experimental)
-- in particular, patt2 is used to indicate whether an IE sould be shortened
-- to an I or an E (same for entire verb)
imp : Str ; -- Imperative Sg. Gives so much information jaħasra! imp : Str ; -- Imperative Sg. Gives so much information jaħasra!
} ; } ;
@@ -542,9 +501,8 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
VPerf VAgr -- Perfect tense in all pronoun cases VPerf VAgr -- Perfect tense in all pronoun cases
| VImpf VAgr -- Imperfect tense in all pronoun cases | VImpf VAgr -- Imperfect tense in all pronoun cases
| VImp Number -- Imperative is always P2, Sg & Pl | VImp Number -- Imperative is always P2, Sg & Pl
| VActivePart GenNum -- Present/active particible, e.g. RIEQED | VPresPart GenNum -- Present/active particible, e.g. RIEQED
| VPassivePart GenNum -- Passive/past particible, e.g. MAĦBUB | VPastPart GenNum -- Passive/past particible, e.g. MAĦBUB
-- | VVerbalNoun -- Verbal Noun
; ;
VDerivedForm = VDerivedForm =
@@ -595,13 +553,48 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
oper oper
-- Join verp phrase components into a string --- TEMP FUNCTION
joinVP : VerbPhrase -> VPForm -> Anteriority -> Polarity -> Str = \vp,form,ant,pol -> pickVerbForm : {s : VForm => VerbStems} -> Tense -> Anteriority -> Polarity -> Agr -> VerbParts = \verb,tense,ant,pol,agr ->
let
vagr : VAgr = toVAgr agr ;
ma = makePreVowel "ma" "m'" ;
b1 : VerbStems -> VerbParts = \vs -> mkVerbParts vs ;
b2 : Str -> VerbStems -> VerbParts = \s,vs -> mkVerbParts s vs ;
kien = copula_kien.s ! (VPerf vagr) ! Pos ;
kienx = copula_kien.s ! (VPerf vagr) ! Neg ;
nkun = copula_kien.s ! (VImpf vagr) ! Pos ;
in
case <tense,ant,pol> of {
<Pres,Simul,Pos> => b1 (verb.s ! VImpf vagr) ; -- norqod
<Pres,Simul,Neg> => b2 ma (verb.s ! VImpf vagr) ; -- ma norqodx
<Past,Simul,Pos> => b1 (verb.s ! VPerf vagr) ; -- rqadt
<Past,Simul,Neg> => b2 ma (verb.s ! VPerf vagr) ; -- ma rqadtx
<Fut, Simul,Pos> => b2 "se" (verb.s ! VImpf vagr) ; -- se norqod
<Fut, Simul,Neg> => b2 (mhux ! vagr ++ "se") (verb.s ! VImpf vagr) ; -- m'iniex se norqod
<Cond, _ ,Pos> => b2 kien (verb.s ! VImpf vagr) ; -- kont norqod
<Cond, _ ,Neg> => b2 (ma ++ kienx) (verb.s ! VImpf vagr) ; -- ma kontx norqod
-- Same as Past Simul
<Pres,Anter,Pos> => b1 (verb.s ! VPerf vagr) ; -- rqadt
<Pres,Anter,Neg> => b2 ma (verb.s ! VPerf vagr) ; -- ma rqadtx
<Past,Anter,Pos> => b2 kien (verb.s ! VPerf vagr) ; -- kont rqadt
<Past,Anter,Neg> => b2 (ma ++ kienx) (verb.s ! VPerf vagr) ; -- ma kontx rqadt
<Fut, Anter,Pos> => b2 ("se" ++ nkun) (verb.s ! VPerf vagr) ; -- se nkun rqadt
<Fut, Anter,Neg> => b2 (mhux ! vagr ++ "se" ++ nkun) (verb.s ! VPerf vagr) -- m'iniex se nkun rqadt
} ;
-- Join verb phrase components into a string
joinVP : VerbPhrase -> Tense -> Anteriority -> Polarity -> Agr -> Str = \vp,tense,ant,pol,agr ->
let let
stems = (vp.s ! form ! ant ! pol).main ; stems = (pickVerbForm vp.v tense ant pol agr).main ;
aux = (vp.s ! form ! ant ! pol).aux ; aux = (pickVerbForm vp.v tense ant pol agr).aux ;
x : Str = "x" ; x : Str = "x" ;
agr : VAgr = VPForm2VAgr form ; vagr : VAgr = toVAgr agr ;
dir_a : Agr = fromJust Agr vp.dir ; -- These are lazy dir_a : Agr = fromJust Agr vp.dir ; -- These are lazy
ind_a : Agr = fromJust Agr vp.ind ; ind_a : Agr = fromJust Agr vp.ind ;
dir = dirObjSuffix dir_a ; dir = dirObjSuffix dir_a ;
@@ -616,7 +609,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
_ => ind.s2 -- hie-lekx _ => ind.s2 -- hie-lekx
} ; } ;
in in
case takesAux form ant of { case takesAux tense ant of {
-- aux is already negated for us -- aux is already negated for us
True => aux ++ case <exists Agr vp.dir, exists Agr vp.ind> of { True => aux ++ case <exists Agr vp.dir, exists Agr vp.ind> of {
@@ -636,7 +629,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
} ; } ;
-- No aux part to handle -- No aux part to handle
False => aux ++ case isPerf form ant of { False => aux ++ case isPerf tense ant of {
True => case <exists Agr vp.dir, exists Agr vp.ind, pol> of { True => case <exists Agr vp.dir, exists Agr vp.ind, pol> of {
@@ -649,12 +642,12 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
<True ,False,Neg> => stems.s3 ++ BIND ++ dir.s2 ++ BIND ++ x ; <True ,False,Neg> => stems.s3 ++ BIND ++ dir.s2 ++ BIND ++ x ;
-- ftaħnie-lha / ftaħni-lhie-x -- ftaħnie-lha / ftaħni-lhie-x
<False,True ,Pos> => case <sing agr, femOrPlural ind_a> of { <False,True ,Pos> => case <sing vagr, femOrPlural ind_a> of {
<True,True> => stems.s2 ++ BIND ++ ind.s3 ; -- fetħ-ilha <True,True> => stems.s2 ++ BIND ++ ind.s3 ; -- fetħ-ilha
<False,True> => stems.s2 ++ BIND ++ ind.s1 ; -- ftaħnie-lha <False,True> => stems.s2 ++ BIND ++ ind.s1 ; -- ftaħnie-lha
_ => stems.s1 ++ BIND ++ ind.s1 -- fetaħ-li _ => stems.s1 ++ BIND ++ ind.s1 -- fetaħ-li
} ; } ;
<False,True ,Neg> => case <sing agr, femOrPlural ind_a> of { <False,True ,Neg> => case <sing vagr, femOrPlural ind_a> of {
<True,True> => stems.s2 ++ BIND ++ ind.s4 ++ BIND ++ x ; -- fetħ-ilhiex <True,True> => stems.s2 ++ BIND ++ ind.s4 ++ BIND ++ x ; -- fetħ-ilhiex
<False,True> => stems.s3 ++ BIND ++ ind.s2 ++ BIND ++ x ; -- ftaħni-lhiex <False,True> => stems.s3 ++ BIND ++ ind.s2 ++ BIND ++ x ; -- ftaħni-lhiex
_ => stems.s1 ++ BIND ++ ind.s2 ++ BIND ++ x -- fetaħ-lix _ => stems.s1 ++ BIND ++ ind.s2 ++ BIND ++ x -- fetaħ-lix
@@ -677,12 +670,12 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
<True ,False,Neg> => stems.s1 ++ BIND ++ dir.s2 ++ BIND ++ x ; <True ,False,Neg> => stems.s1 ++ BIND ++ dir.s2 ++ BIND ++ x ;
-- jiftħ-ilha / jiftħ-ilhie-x -- jiftħ-ilha / jiftħ-ilhie-x
<False,True ,Pos> => case <sing agr, femOrPlural ind_a> of { <False,True ,Pos> => case <sing vagr, femOrPlural ind_a> of {
<True,True> => stems.s2 ++ BIND ++ ind.s3 ; -- jiftħ-ilha <True,True> => stems.s2 ++ BIND ++ ind.s3 ; -- jiftħ-ilha
<False,True> => stems.s2 ++ BIND ++ ind.s1 ; -- jiftħu-lha <False,True> => stems.s2 ++ BIND ++ ind.s1 ; -- jiftħu-lha
_ => stems.s1 ++ BIND ++ ind.s1 -- jiftaħ-li _ => stems.s1 ++ BIND ++ ind.s1 -- jiftaħ-li
} ; } ;
<False,True ,Neg> => case <sing agr, femOrPlural ind_a> of { <False,True ,Neg> => case <sing vagr, femOrPlural ind_a> of {
<True,True> => stems.s2 ++ BIND ++ ind.s4 ++ BIND ++ x ; -- jiftħ-ilhiex <True,True> => stems.s2 ++ BIND ++ ind.s4 ++ BIND ++ x ; -- jiftħ-ilhiex
<False,True> => stems.s2 ++ BIND ++ ind.s2 ++ BIND ++ x ; -- jiftħu-lhiex <False,True> => stems.s2 ++ BIND ++ ind.s2 ++ BIND ++ x ; -- jiftħu-lhiex
_ => stems.s1 ++ BIND ++ ind.s2 ++ BIND ++ x -- jiftaħ-lix _ => stems.s1 ++ BIND ++ ind.s2 ++ BIND ++ x -- jiftaħ-lix
@@ -699,74 +692,69 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
-- Does a tense + ant take an auxiliary verb? -- Does a tense + ant take an auxiliary verb?
-- This affects where (if) the negation is applied -- This affects where (if) the negation is applied
-- This is a workaround to avoid having a bool param in VerbParts -- This is a workaround to avoid having a bool param in VerbParts
-- Must match with the logic in predV -- Must match with the logic in pickVerbForm
takesAux : VPForm -> Anteriority -> Bool = \vpf,ant -> takesAux : Tense -> Anteriority -> Bool = \tense,ant ->
case <vpf,ant> of { case <tense,ant> of {
<VPIndicat Pres _, Simul> => False ; <Pres, Simul> => False ;
<VPIndicat Past _, Simul> => False ; <Past, Simul> => False ;
<VPIndicat Fut _, Simul> => True ; <Fut , Simul> => True ;
<VPIndicat Cond _, Simul> => True ; <Cond, Simul> => True ;
<VPIndicat Pres _, Anter> => False ; <Pres, Anter> => False ;
<VPIndicat Past _, Anter> => True ; <Past, Anter> => True ;
<VPIndicat Fut _, Anter> => True ; <Fut , Anter> => True ;
<VPIndicat Cond _, Anter> => True ; <Cond, Anter> => True
<VPImperat _, _> => False
} ; } ;
-- Does a tense + ant give a perfective verb? -- Does a tense + ant give a perfective verb?
-- Must match with the logic in predV -- Must match with the logic in pickVerbForm
isPerf : VPForm -> Anteriority -> Bool = \vpf,ant -> isPerf : Tense -> Anteriority -> Bool = \tense,ant ->
case <vpf,ant> of { case <tense,ant> of {
<VPIndicat Pres _, Simul> => False ; <Pres, Simul> => False ;
<VPIndicat Past _, Simul> => True ; <Past, Simul> => True ;
<VPIndicat Fut _, Simul> => False ; <Fut , Simul> => False ;
<VPIndicat Cond _, Simul> => False ; <Cond, Simul> => False ;
<VPIndicat Pres _, Anter> => True ; <Pres, Anter> => True ;
<VPIndicat Past _, Anter> => True ; <Past, Anter> => True ;
<VPIndicat Fut _, Anter> => True ; <Fut , Anter> => True ;
<VPIndicat Cond _, Anter> => False ; <Cond, Anter> => False
<VPImperat _, _> => False
} ; } ;
VerbParts : Type = { VerbParts : Type = {
aux : Str ; -- when present, negation is applied here aux : Str ; -- when present, negation is applied here
main : Variants3 ; -- enclitics always applied here main : VerbStems ; -- enclitics always applied here
} ; } ;
mkVerbParts = overload { mkVerbParts = overload {
mkVerbParts : Variants3 -> VerbParts = \vs -> { aux = [] ; main = vs } ; mkVerbParts : VerbStems -> VerbParts = \vs -> { aux = [] ; main = vs } ;
mkVerbParts : Str -> VerbParts = \m -> { aux = [] ; main = mkVariants3 m } ; mkVerbParts : Str -> VerbParts = \m -> { aux = [] ; main = mkVerbStems m } ;
mkVerbParts : Str -> Variants3 -> VerbParts = \a,vs -> { aux = a ; main = vs } ; mkVerbParts : Str -> VerbStems -> VerbParts = \a,vs -> { aux = a ; main = vs } ;
mkVerbParts : Str -> Str -> VerbParts = \a,m -> { aux = a ; main = mkVariants3 m } ; mkVerbParts : Str -> Str -> VerbParts = \a,m -> { aux = a ; main = mkVerbStems m } ;
} ; } ;
VerbPhrase : Type = { VerbPhrase : Type = {
s : VPForm => Anteriority => Polarity => VerbParts ; v : {
s2 : Agr => Str ; -- complement s : VForm => VerbStems ;
hasPresPart : Bool ;
hasPastPart : Bool ;
} ;
s2 : Agr => Str ; -- complement
dir : Maybe Agr ; -- direct object clitic dir : Maybe Agr ; -- direct object clitic
ind : Maybe Agr ; -- indirect object clitic ind : Maybe Agr ; -- indirect object clitic
} ; } ;
SlashVerbPhrase : Type = VerbPhrase ** {c2 : Compl} ; SlashVerbPhrase : Type = VerbPhrase ** {c2 : Compl} ;
param
-- [AZ]
VPForm =
VPIndicat Tense VAgr
| VPImperat Number
;
oper oper
insertObj : (Agr => Str) -> VerbPhrase -> VerbPhrase = \obj,vp -> { insertObj : (Agr => Str) -> VerbPhrase -> VerbPhrase = \obj,vp -> {
s = vp.s ; v = vp.v ;
s2 = \\agr => vp.s2 ! agr ++ obj ! agr ; s2 = \\agr => vp.s2 ! agr ++ obj ! agr ;
dir = vp.dir ; dir = vp.dir ;
ind = vp.ind ; ind = vp.ind ;
} ; } ;
insertObjPre : (Agr => Str) -> VerbPhrase -> VerbPhrase = \obj,vp -> { insertObjPre : (Agr => Str) -> VerbPhrase -> VerbPhrase = \obj,vp -> {
s = vp.s ; v = vp.v ;
s2 = \\agr => obj ! agr ++ vp.s2 ! agr ; s2 = \\agr => obj ! agr ++ vp.s2 ! agr ;
dir = vp.dir ; dir = vp.dir ;
ind = vp.ind ; ind = vp.ind ;
@@ -776,21 +764,21 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
insertObj obj vp ** {c2 = vp.c2} ; insertObj obj vp ** {c2 = vp.c2} ;
insertDirObj : Agr -> VerbPhrase -> VerbPhrase = \dir,vp -> { insertDirObj : Agr -> VerbPhrase -> VerbPhrase = \dir,vp -> {
s = vp.s ; v = vp.v ;
s2 = vp.s2 ; s2 = vp.s2 ;
dir = Just Agr dir ; dir = Just Agr dir ;
ind = vp.ind ; ind = vp.ind ;
}; };
insertIndObj : Agr -> VerbPhrase -> VerbPhrase = \ind,vp -> { insertIndObj : Agr -> VerbPhrase -> VerbPhrase = \ind,vp -> {
s = vp.s ; v = vp.v ;
s2 = vp.s2 ; s2 = vp.s2 ;
dir = vp.dir ; dir = vp.dir ;
ind = Just Agr ind ; ind = Just Agr ind ;
}; };
insertAdV : Str -> VerbPhrase -> VerbPhrase = \adv,vp -> { insertAdV : Str -> VerbPhrase -> VerbPhrase = \adv,vp -> {
s = vp.s ; v = vp.v ;
s2 = \\agr => vp.s2 ! agr ++ adv ; s2 = \\agr => vp.s2 ! agr ++ adv ;
dir = vp.dir ; dir = vp.dir ;
ind = vp.ind ; ind = vp.ind ;
@@ -817,7 +805,6 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
<VImpf (AgP3Pl), Pos> => "jkunu" ; <VImpf (AgP3Pl), Pos> => "jkunu" ;
<VImp (Pl), Pos> => "kun" ; <VImp (Pl), Pos> => "kun" ;
<VImp (Sg), Pos> => "kunu" ; <VImp (Sg), Pos> => "kunu" ;
<VPerf (AgP1 Sg), Neg> => "kontx" ; <VPerf (AgP1 Sg), Neg> => "kontx" ;
<VPerf (AgP2 Sg), Neg> => "kontx" ; <VPerf (AgP2 Sg), Neg> => "kontx" ;
<VPerf (AgP3Sg Masc), Neg> => "kienx" ; <VPerf (AgP3Sg Masc), Neg> => "kienx" ;
@@ -834,73 +821,62 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
<VImpf (AgP3Pl), Neg> => "jkunux" ; <VImpf (AgP3Pl), Neg> => "jkunux" ;
<VImp (Pl), Neg> => "kunx" ; <VImp (Pl), Neg> => "kunx" ;
<VImp (Sg), Neg> => "kunux" ; <VImp (Sg), Neg> => "kunux" ;
<VActivePart gn, _> => "" ; <VPresPart gn, _> => NONEXIST ;
<VPassivePart gn, _> => "" <VPastPart gn, _> => NONEXIST
} }
} ; } ;
-- Adapted from [AZ] -- Adapted from [AZ]
CopulaVP : VerbPhrase = { CopulaVP : VerbPhrase = {
s = \\vpf,ant,pol => -- s = \\vpf,ant,pol =>
--- We are ignoring the anteriority -- --- We are ignoring the anteriority
case <vpf, pol> of { -- case <vpf, pol> of {
--- Here we are bypassing VerbParts by putting negatives in the stem -- --- Here we are bypassing VerbParts by putting negatives in the stem
<VPIndicat Past vagr, Pos> => mkVerbParts (copula_kien.s ! VPerf vagr ! Pos) [] ; -- kien -- -- <VPIndicat Pres vagr, Pos> => mkVerbParts (copula_kien.s ! VImpf vagr ! Pos) [] ; -- jkun
<VPIndicat Pres vagr, Pos> => mkVerbParts (copula_kien.s ! VImpf vagr ! Pos) [] ; -- jkun -- -- <VPIndicat Pres vagr, Neg> => mkVerbParts (copula_kien.s ! VImpf vagr ! Neg) [] ; -- ma jkunx
<VPIndicat Fut vagr, Pos> => mkVerbParts ("se" ++ copula_kien.s ! VImpf vagr ! Pos) [] ; -- se jkun -- <VPIndicat Pres vagr, Pos> => mkVerbParts (huwa ! vagr) [] ; -- huwa
<VPIndicat Cond vagr, Pos> => mkVerbParts ("kieku" ++ copula_kien.s ! VPerf vagr ! Pos) [] ; -- kieku kien -- <VPIndicat Pres vagr, Neg> => mkVerbParts (mhux ! vagr) [] ; -- m'huwiex
<VPImperat num, Pos> => mkVerbParts (copula_kien.s ! VImp num ! Pos) [] ; -- kun -- <VPIndicat Past vagr, Pos> => mkVerbParts (copula_kien.s ! VPerf vagr ! Pos) [] ; -- kien
<VPIndicat Past vagr, Neg> => mkVerbParts (copula_kien.s ! VPerf vagr ! Neg) [] ; -- ma kienx -- <VPIndicat Past vagr, Neg> => mkVerbParts (copula_kien.s ! VPerf vagr ! Neg) [] ; -- ma kienx
<VPIndicat Pres vagr, Neg> => mkVerbParts (copula_kien.s ! VImpf vagr ! Neg) [] ; -- ma jkunx -- <VPIndicat Fut vagr, Pos> => mkVerbParts ("se" ++ copula_kien.s ! VImpf vagr ! Pos) [] ; -- se jkun
<VPIndicat Fut vagr, Neg> => mkVerbParts (mhux ! vagr ++ "se" ++ copula_kien.s ! VImpf vagr ! Pos) [] ; -- mhux se jkun -- <VPIndicat Fut vagr, Neg> => mkVerbParts (mhux ! vagr ++ "se" ++ copula_kien.s ! VImpf vagr ! Pos) [] ; -- mhux se jkun
<VPIndicat Cond vagr, Neg> => mkVerbParts ("kieku" ++ "ma" ++ copula_kien.s ! VPerf vagr ! Neg) [] ; -- kieku ma kienx -- <VPIndicat Cond vagr, Pos> => mkVerbParts ("kieku" ++ copula_kien.s ! VPerf vagr ! Pos) [] ; -- kieku kien
<VPImperat num, Neg> => mkVerbParts (copula_kien.s ! VImp num ! Neg) [] -- kunx -- <VPIndicat Cond vagr, Neg> => mkVerbParts ("kieku" ++ "ma" ++ copula_kien.s ! VPerf vagr ! Neg) [] ; -- kieku ma kienx
-- <VPImperat num, Pos> => mkVerbParts (copula_kien.s ! VImp num ! Pos) [] ; -- kun
-- <VPImperat num, Neg> => mkVerbParts (copula_kien.s ! VImp num ! Neg) [] -- kunx
-- } ;
v = {
s = table {
VPerf (AgP1 Sg) => mkVerbStems "kont" ;
VPerf (AgP2 Sg) => mkVerbStems "kont" ;
VPerf (AgP3Sg Masc) => mkVerbStems "kien" ;
VPerf (AgP3Sg Fem) => mkVerbStems "kienet" "kinit" ;
VPerf (AgP1 Pl) => mkVerbStems "konna" "konnie" ;
VPerf (AgP2 Pl) => mkVerbStems "kontu" ;
VPerf (AgP3Pl) => mkVerbStems "kienu" ;
VImpf (AgP1 Sg) => mkVerbStems [] "m'inie" ;
VImpf (AgP2 Sg) => mkVerbStems [] "m'inti";
VImpf (AgP3Sg Masc) => mkVerbStems "huwa" "m'hu" ;
VImpf (AgP3Sg Fem) => mkVerbStems "hija" "m'hi" ;
VImpf (AgP1 Pl) => mkVerbStems [] "m'aħnie" ;
VImpf (AgP2 Pl) => mkVerbStems [] "m'intom" ;
VImpf (AgP3Pl) => mkVerbStems "huma" "m'humie" ;
VImp (Pl) => mkVerbStems "kun" ;
VImp (Sg) => mkVerbStems "kunu" ;
VPresPart gn => mkVerbStems NONEXIST ;
VPastPart gn => mkVerbStems NONEXIST
} ;
i = mkVerbInfo Irregular FormI ;
hasPresPart = False ;
hasPastPart = False ;
} ; } ;
s2 = \\agr => [] ; s2 = \\agr => [] ;
dir = NullAgr ; dir = NullAgr ;
ind = NullAgr ; ind = NullAgr ;
} ; } ;
-- [AZ]
predV : Verb -> VerbPhrase = \verb -> { predV : Verb -> VerbPhrase = \verb -> {
s = \\vpf,ant,pol => v = verb ;
let
ma = makePreVowel "ma" "m'" ;
b1 : Variants3 -> VerbParts = \vs -> mkVerbParts vs ;
b2 : Str -> Variants3 -> VerbParts = \s,vs -> mkVerbParts s vs ;
in
case vpf of {
VPIndicat tense vagr =>
let
kien = copula_kien.s ! (VPerf vagr) ! Pos ;
kienx = copula_kien.s ! (VPerf vagr) ! Neg ;
nkun = copula_kien.s ! (VImpf vagr) ! Pos ;
in
case <tense,ant,pol> of {
<Pres,Simul,Pos> => b1 (verb.s ! VImpf vagr) ; -- norqod
<Pres,Simul,Neg> => b2 ma (verb.s ! VImpf vagr) ; -- ma norqodx
<Past,Simul,Pos> => b1 (verb.s ! VPerf vagr) ; -- rqadt
<Past,Simul,Neg> => b2 ma (verb.s ! VPerf vagr) ; -- ma rqadtx
<Fut, Simul,Pos> => b2 "se" (verb.s ! VImpf vagr) ; -- se norqod
<Fut, Simul,Neg> => b2 (mhux ! vagr ++ "se") (verb.s ! VImpf vagr) ; -- m'iniex se norqod
<Cond, _ ,Pos> => b2 kien (verb.s ! VImpf vagr) ; -- kont norqod
<Cond, _ ,Neg> => b2 (ma ++ kienx) (verb.s ! VImpf vagr) ; -- ma kontx norqod
-- Same as Past Simul
<Pres,Anter,Pos> => b1 (verb.s ! VPerf vagr) ; -- rqadt
<Pres,Anter,Neg> => b2 ma (verb.s ! VPerf vagr) ; -- ma rqadtx
<Past,Anter,Pos> => b2 kien (verb.s ! VPerf vagr) ; -- kont rqadt
<Past,Anter,Neg> => b2 (ma ++ kienx) (verb.s ! VPerf vagr) ; -- ma kontx rqadt
<Fut, Anter,Pos> => b2 ("se" ++ nkun) (verb.s ! VPerf vagr) ; -- se nkun rqadt
<Fut, Anter,Neg> => b2 (mhux ! vagr ++ "se" ++ nkun) (verb.s ! VPerf vagr) -- m'iniex se nkun rqadt
} ;
VPImperat num => b1 (verb.s ! VImp num) -- torqodx
};
s2 = \\agr => [] ; s2 = \\agr => [] ;
dir = NullAgr ; dir = NullAgr ;
ind = NullAgr ; ind = NullAgr ;
@@ -908,10 +884,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
-- There is no infinitive in Maltese; use perfective -- There is no infinitive in Maltese; use perfective
infVP : VerbPhrase -> Anteriority -> Polarity -> Agr -> Str = \vp,ant,pol,agr -> infVP : VerbPhrase -> Anteriority -> Polarity -> Agr -> Str = \vp,ant,pol,agr ->
let joinVP vp Past ant pol agr ++ vp.s2 ! agr ;
vpform : VPForm = VPIndicat Past (toVAgr agr) ;
in
joinVP vp vpform ant pol ++ vp.s2 ! agr ;
Aux = { Aux = {
s : Tense => Polarity => Str ; s : Tense => Polarity => Str ;
@@ -939,6 +912,16 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
AgP3Pl => "lilhom infushom" AgP3Pl => "lilhom infushom"
} ; } ;
huwa : VAgr => Str = table {
AgP1 Sg => "jiena" ;
AgP2 Sg => "inti" ;
AgP3Sg Masc => "huwa" ;
AgP3Sg Fem => "hija" ;
AgP1 Pl => "aħna" ;
AgP2 Pl => "intom" ;
AgP3Pl => "huma"
} ;
mhux : VAgr => Str = table { mhux : VAgr => Str = table {
AgP1 Sg => "m'iniex" ; AgP1 Sg => "m'iniex" ;
AgP2 Sg => "m'intix" ; AgP2 Sg => "m'intix" ;
@@ -1064,15 +1047,15 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
-- Create a VerbInfo record, optionally omitting various fields -- Create a VerbInfo record, optionally omitting various fields
mkVerbInfo : VerbInfo = overload { mkVerbInfo : VerbInfo = overload {
mkVerbInfo : VClass -> VDerivedForm -> VerbInfo = \c,f -> mkVerbInfo : VClass -> VDerivedForm -> VerbInfo = \c,f ->
{ class=c ; form=f ; root=mkRoot ; patt=mkPattern ; patt2=mkPattern ; imp=[] } ; { class=c ; form=f ; root=mkRoot ; patt=mkPattern ; imp=[] } ;
mkVerbInfo : VClass -> VDerivedForm -> Str -> VerbInfo = \c,f,i -> mkVerbInfo : VClass -> VDerivedForm -> Str -> VerbInfo = \c,f,i ->
{ class=c ; form=f ; root=mkRoot ; patt=mkPattern ; patt2=mkPattern ; imp=i } ; { class=c ; form=f ; root=mkRoot ; patt=mkPattern ; imp=i } ;
mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> VerbInfo = \c,f,r,p -> mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> VerbInfo = \c,f,r,p ->
{ class=c ; form=f ; root=r ; patt=p ; patt2=p ; imp=[] } ; { class=c ; form=f ; root=r ; patt=p ; imp=[] } ;
mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> Str -> VerbInfo = \c,f,r,p,i -> mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> Str -> VerbInfo = \c,f,r,p,i ->
{ class=c ; form=f ; root=r ; patt=p ; patt2=p ; imp=i } ; { class=c ; form=f ; root=r ; patt=p ; imp=i } ;
mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> Pattern -> Str -> VerbInfo = \c,f,r,p,p2,i -> -- mkVerbInfo : VClass -> VDerivedForm -> Root -> Pattern -> Pattern -> Str -> VerbInfo = \c,f,r,p,p2,i ->
{ class=c ; form=f ; root=r ; patt=p ; patt2=p2 ; imp=i } ; -- { class=c ; form=f ; root=r ; patt=p ; patt2=p2 ; imp=i } ;
} ; } ;
-- Change certain fields of a VerbInfo record -- Change certain fields of a VerbInfo record
@@ -1080,20 +1063,22 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
-- Root -- Root
updateVerbInfo : VerbInfo -> Root -> VerbInfo = \i,r -> updateVerbInfo : VerbInfo -> Root -> VerbInfo = \i,r ->
{ class=i.class ; form=i.form ; root=r ; patt=i.patt ; patt2=i.patt2 ; imp=i.imp } ; { class=i.class ; form=i.form ; root=r ; patt=i.patt ; imp=i.imp } ;
-- DerivedForm -- DerivedForm
updateVerbInfo : VerbInfo -> VDerivedForm -> VerbInfo = \i,f -> updateVerbInfo : VerbInfo -> VDerivedForm -> VerbInfo = \i,f ->
{ class=i.class ; form=f ; root=i.root ; patt=i.patt ; patt2=i.patt2 ; imp=i.imp } ; { class=i.class ; form=f ; root=i.root ; patt=i.patt ; imp=i.imp } ;
-- DerivedForm, Imperative -- DerivedForm, Imperative
updateVerbInfo : VerbInfo -> VDerivedForm -> Str -> VerbInfo = \i,f,imp -> updateVerbInfo : VerbInfo -> VDerivedForm -> Str -> VerbInfo = \i,f,imp ->
{ class=i.class ; form=f ; root=i.root ; patt=i.patt ; patt2=i.patt2 ; imp=imp } ; { class=i.class ; form=f ; root=i.root ; patt=i.patt ; imp=imp } ;
} ; } ;
{- ~~~ Useful helper functions ~~~ -} {- ~~~ Useful helper functions ~~~ -}
NONEXIST : Str = "#NONEXIST#" ;
-- New names for the drop/take operations -- New names for the drop/take operations
takePfx = Predef.take ; takePfx = Predef.take ;
dropPfx = Predef.drop ; dropPfx = Predef.drop ;
@@ -1179,7 +1164,7 @@ resource ResMlt = ParamX ** open Prelude, Predef, Maybe in {
_ => False _ => False
} ; } ;
artIndef : Str = "" ; artIndef : Str = [] ; --- is this a source of leaks?
artDef : Str = artDef : Str =
makePreFull makePreFull

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

@@ -17,21 +17,14 @@ concrete SentenceMlt of Sentence = CatMlt ** open
lin lin
-- NP -> VP -> Cl -- NP -> VP -> Cl
-- John walks -- John walks
PredVP np vp = { PredVP np vp =
s = \\tense,ant,pol,ord => let
case ord of { subj : Str = case np.isPron of {
ODir => (s ++ v ++ o) ; -- ĠANNI JIEKOL ĦUT True => [] ; -- omit subject pronouns
OQuest => (v ++ o ++ s) -- JIEKOL ĦUT ĠANNI ? False => np.s ! NPNom
} } ;
where { in
s : Str = case np.isPron of { mkClause subj np.a vp ;
True => [] ; -- omit subject pronouns
False => np.s ! NPNom
} ;
v : Str = joinVP vp (VPIndicat tense (toVAgr np.a)) ant pol ;
o : Str = vp.s2 ! np.a ;
} ;
} ;
-- SC -> VP -> Cl -- SC -> VP -> Cl
-- that she goes is good -- that she goes is good
@@ -39,7 +32,11 @@ concrete SentenceMlt of Sentence = CatMlt ** open
-- VP -> Imp -- VP -> Imp
ImpVP vp = { ImpVP vp = {
s = \\pol,n => joinVP vp (VPImperat n) Simul pol -- s = \\pol,n => joinVP vp (VPImperat n) Simul pol ;
s = \\pol,n => case pol of {
Pos => (vp.v.s ! VImp n).s1 ++ vp.s2 ! agrP3 n Masc ;
Neg => (vp.v.s ! VImp n).s2 ++ BIND ++ "x" ++ vp.s2 ! agrP3 n Masc
} ;
} ; } ;
-- NP -> VPSlash -> ClSlash -- NP -> VPSlash -> ClSlash

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

@@ -88,7 +88,7 @@ concrete StructuralMlt of Structural = CatMlt **
on_Prep = mkPrep "fuq" ; on_Prep = mkPrep "fuq" ;
part_Prep = possess_Prep ; part_Prep = possess_Prep ;
possess_Prep = mkPrep "ta'" "t'" "tal-" "tat-" "tal-" ; possess_Prep = mkPrep "ta'" "t'" "tal-" "tat-" "tal-" ;
through_Prep = mkPrep "minn ġo" "minn ġol-" "minn ġol-" "minn ġot-" "minn ġol-" through_Prep = mkPrep "minn ġo" "minn ġo" "minn ġol-" "minn ġot-" "minn ġol-"
"minn ġo fija" "minn ġo fik" "minn ġo fih" "minn ġo fiha" "minn ġo fina" "minn ġo fikom" "minn ġo fihom" "minn ġo fija" "minn ġo fik" "minn ġo fih" "minn ġo fiha" "minn ġo fina" "minn ġo fikom" "minn ġo fihom"
False ; False ;
to_Prep = mkPrep "lil" "lill-" "lit-" ; to_Prep = mkPrep "lil" "lill-" "lit-" ;

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

@@ -8,6 +8,78 @@
concrete SymbolMlt of Symbol = CatMlt ** open Prelude, ResMlt in { concrete SymbolMlt of Symbol = CatMlt ** open Prelude, ResMlt in {
oper
symAgr : Agr = { n = Sg ; p = P3 ; g = Masc } ;
lin
-- SymbPN -> PN
-- x
SymbPN i = {s = i.s ; a = symAgr} ;
-- Int -> PN
-- 27
IntPN i = {s = i.s ; a = symAgr} ;
-- Float -> PN
-- 3.14159
FloatPN i = {s = i.s ; a = symAgr} ;
-- Card -> PN ;
NumPN i = {s = i.s ! NumNom ; a = symAgr} ;
-- CN -> Int -> NP
-- level 53 (covered by CNNumNP)
CNIntNP cn i = {
s = \\c => cn.s ! num2nounnum Sg ++ i.s;
a = agrP3 Sg cn.g ;
isPron = False ;
isDefn = False ;
} ;
-- Det -> CN -> [Symb] -> NP
-- (the) (2) numbers x and y
CNSymbNP det cn xs = {
s = \\c => det.s ! cn.g ++ cn.s ! (numform2nounnum det.n) ++ xs.s ;
a = agrP3 (numform2num det.n) cn.g ;
isPron = False ;
isDefn = False ;
} ;
-- CN -> Card -> NP
-- level five ; level 5
CNNumNP cn i = {
s = \\c => cn.s ! num2nounnum Sg ++ i.s ! NumNom ;
a = agrP3 Sg cn.g ;
isPron = False ;
isDefn = False ;
} ;
-- Symb -> S
-- A
SymbS sy = sy ;
-- Symb -> Card
-- n
SymbNum sy = {
s = \\_ => sy.s ;
n = NumX Pl ;
} ;
-- Symb -> Ord
-- n'th
SymbOrd sy = {
s = \\c => sy.s ;
} ;
lincat
Symb, [Symb] = SS ;
lin
-- String -> Symb
MkSymb s = s ;
BaseSymb = infixSS "u" ;
ConsSymb = infixSS "," ;
} }

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

@@ -66,7 +66,7 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- Get enclitic version of c2 -- Get enclitic version of c2
<True,True> => { <True,True> => {
s = vp.s ; v = vp.v ;
s2 = \\agr => vp.s2 ! agr ++ vp.c2.enclitic ! np.a ; s2 = \\agr => vp.s2 ! agr ++ vp.c2.enclitic ! np.a ;
dir = NullAgr ; dir = NullAgr ;
ind = NullAgr ; ind = NullAgr ;
@@ -136,7 +136,10 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- V2 -> VP -- V2 -> VP
-- be loved -- be loved
PassV2 v2 = insertObj (\\agr => (v2.s ! VPassivePart (toGenNum agr)).s1 ++ v2.c2.s ! Definite) CopulaVP ; PassV2 v2 = case v2.hasPastPart of {
True => insertObj (\\agr => (v2.s ! VPastPart (toGenNum agr)).s1 ++ v2.c2.s ! Definite) CopulaVP ;
False => insertObj (\\agr => (v2.s ! VPerf (toVAgr agr)).s1 ++ v2.c2.s ! Definite) CopulaVP
} ;
-- AP -> Comp -- AP -> Comp
-- (be) small -- (be) small
@@ -172,7 +175,6 @@ concrete VerbMlt of Verb = CatMlt ** open Prelude, ResMlt in {
-- VP -> Prep -> VPSlash -- VP -> Prep -> VPSlash
-- live in (it) -- live in (it)
VPSlashPrep vp p = vp ** { VPSlashPrep vp p = vp ** {
-- c2 = lin Compl (p ** {isPresent = True}) ;
c2 = { c2 = {
s = p.s ; s = p.s ;
enclitic = p.enclitic ; enclitic = p.enclitic ;