Maltese: new reduced verb implementation, using binding for pronominal suffixes

Also include some syntax stuff adapted from Angelo Zammit's dissertation.
These sections in the code are marked with [AZ]

The old verbs implementation can still be found at this point in the GitHub repo:
7b3f4a049d

src/maltese/LexiconMlt.gf

@@ -7,7 +7,7 @@
 --# -path=.:../abstract:../common:../prelude
 
 concrete LexiconMlt of Lexicon = CatMlt **
-  open Prelude, ParadigmsMlt, IrregMlt in {
+  open Prelude, ParadigmsMlt, IrregMlt, DictMlt in {
 
   flags
     optimize=values ;
@@ -18,11 +18,11 @@ concrete LexiconMlt of Lexicon = CatMlt **
 --    alas_Interj
 --    already_Adv
     animal_N = mkN "annimal" ;
---    answer_V2S
+    answer_V2S = wiegeb_WGB_3_10033_V ;
     apartment_N = mkN "appartament" ;
     art_N = mkNNoPlural "arti" feminine ;
 --    ashes_N = mkN "rmied" ;
---    ask_V2Q
+    ask_V2Q = saqsa_SQSJ_1_7268_V ;
     baby_N = mkN "tarbija" "trabi" ;
     back_N = mkN "dahar" "dhur" ; -- pronSuffix
     bad_A = brokenA "ħażin" "hżiena" "agħar" ;
@@ -36,10 +36,10 @@ concrete LexiconMlt of Lexicon = CatMlt **
     big_A = brokenA "kbir" "kbar" "ikbar" ;
     bike_N = mkN "rota" ;
     bird_N = mkN "għasfur" "għasafar" ; -- what about GĦASFURA?
---    bite_V2
+    bite_V2 = gidem_GDM_1_8009_V ;
     black_A = mkA "iswed" "sewda" "suwed" ;
     blood_N = mkN [] "demm" [] "dmija" [] ; -- pronSuffix
---    blow_V
+    blow_V = nefah_NFH_1_8966_V ;
     blue_A = sameA "blu" ;
     boat_N = mkN "dgħajsa" "dgħajjes" ;
     bone_N = mkNColl "għadam" ;
@@ -48,15 +48,15 @@ concrete LexiconMlt of Lexicon = CatMlt **
     boss_N = mkN "mgħallem" "mgħallmin" ;
     boy_N = mkN "tifel" "tfal" ;
     bread_N = mkNColl "ħobż" ;
---    break_V2
+    break_V2 = kiser_KSR_1_8636_V ;
     breast_N = mkN "sider" "sdur" ; -- also ISDRA -- pronSuffix
 --    breathe_V
     broad_A = mkA "wiesgħa" "wiesgħa" "wiesgħin" ;
-    brother_N2 = mkN2 (mkN "ħu" "aħwa") (mkPrep "ta'") ; -- pronSuffix
+    brother_N2 = mkN2 (mkN "ħu" "aħwa") ; -- pronSuffix
     brown_A = sameA "kannella" ;
---    burn_V
+    burn_V = haraq_HRQ_1_8367_V ;
     butter_N = mkN [] "butir" [] "butirijiet" [] ;
---    buy_V2
+    buy_V2 = xtara_XRJ_8_10296_V ;
     camera_N = mkN "kamera" "kameras" ;
     cap_N = mkN "beritta" ;
     car_N = mkN "karozza" ;
@@ -70,27 +70,27 @@ concrete LexiconMlt of Lexicon = CatMlt **
     city_N = mkN "belt" "bliet" feminine ; -- pronSuffix
     clean_A = brokenA "nadif" "nodfa" ;
     clever_A = regA "bravu" ;
---    close_V2
+    close_V2 = ghalaq_GHLQ_1_10530_V ;
     cloud_N = mkNColl "sħab" ;
     coat_N = mkN "kowt" "kowtijiet" ;
     cold_A = mkA "kiesaħ" "kiesħa" "kesħin" ;
 --    come_V
     computer_N = mkN "kompjuter" "kompjuters" ;
     correct_A = regA "korrett" ;
---    count_V2
+    count_V2 = ghadd_GHDD_1_10460_V ;
     country_N = mkN "pajjiż" ; -- pronSuffix
     cousin_N = mkN "kuġin" ; -- pronSuffix
     cow_N = mkN "baqra" "baqar" "baqartejn" [] [] ;
---    cut_V2
+    cut_V2 = qata'_QTGH_1_9305_V ;
     day_N = mkN "ġurnata" "ġranet" ;
---    dig_V
+    dig_V = hafer_HFR_1_8233_V ;
     dirty_A = regA "maħmuġ" ;
     distance_N3 = mkN "distanza" ;
---    do_V2
+    do_V2 = ghamel_GHML_1_10544_V ;
     doctor_N = mkN "tabib" "tobba" ; -- what about TABIBA ?
     dog_N = mkN "kelb" "klieb" ;
     door_N = mkN "bieb" "bibien" ; -- what about BIEBA ?
---    drink_V2
+    drink_V2 = xorob_XRB_1_10231_V ;
     dry_A = regA "niexef" ;
     dull_A = sameA "tad-dwejjaq" ;
     dust_N = mkNColl "trab" ; -- not sure but sounds right
@@ -103,15 +103,15 @@ concrete LexiconMlt of Lexicon = CatMlt **
     enemy_N = mkN "għadu" "għedewwa" ;
     eye_N = mk5N "għajn" [] "għajnejn" "għajnejn" "għejun" feminine ; -- pronSuffix
     factory_N = mkN "fabbrika" ;
---    fall_V
+    fall_V = waqa'_WQGH_1_10070_V ;
 --    far_Adv
     fat_N = mkNColl "xaħam" ;
-    father_N2 = mkN2 (mkN "missier" "missierijiet") (mkPrep "ta'") ; -- pronSuffix
+    father_N2 = mkN2 (mkN "missier" "missierijiet") ; -- pronSuffix
 --    fear_V2
 --    fear_VS
     feather_N = mkNColl "rix" ;
---    fight_V2
---    find_V2
+    fight_V2 = ggieled_GLD_6_8074_V ;
+    find_V2 = sab_SJB_1_9779_V ;
     fingernail_N = mkN "difer" [] "difrejn" "dwiefer" [] ; -- pronSuffix
     fire_N = mkN "nar" "nirien" ;
     fish_N = mkNColl "ħut" ;
@@ -119,11 +119,11 @@ concrete LexiconMlt of Lexicon = CatMlt **
     earth_N = mkN "art" "artijiet" feminine ;
 --    flow_V
     flower_N = mkN "fjura" ;
---    fly_V
+    fly_V = tar_TJR_1_9972_V ;
     fog_N = mkN [] "ċpar" [] [] [] ;
     foot_N = mk5N "sieq" [] "saqajn" "saqajn" [] feminine ; -- pronSuffix
     forest_N = mkN "foresta" ; -- also MASĠAR
---    forget_V2
+    forget_V2 = nesa_NSJ_1_9126_V ;
 --    freeze_V
     fridge_N = mkN "friġġ" "friġġijiet" ;
     friend_N = mkN "ħabib" "ħbieb" ; -- pronSuffix
@@ -134,7 +134,7 @@ concrete LexiconMlt of Lexicon = CatMlt **
     girl_N = mkN "tifla" "tfal" ;
 --    give_V3
     glove_N = mkN "ingwanta" ;
---    go_V
+    go_V = mar_MWR_1_8918_V ;
     gold_N = mkN [] "deheb" [] "dehbijiet" [] ;
     good_A = mkA "tajjeb" "tajba" "tajbin" ;
     grammar_N = mkN "grammatika" ;
@@ -147,13 +147,13 @@ concrete LexiconMlt of Lexicon = CatMlt **
     hat_N = mkN "kappell" "kpiepel" ;
 --    hate_V2
     head_N = mkN "ras" "rjus" feminine ; -- pronSuffix
---    hear_V2
+    hear_V2 = sema'_SMGH_1_9698_V ;
     heart_N = mkN "qalb" "qlub" feminine ; -- pronSuffix
     heavy_A = brokenA "tqil" "tqal" "itqal" ;
     hill_N = mkN "għolja" "għoljiet" ;
---    hit_V2
+    hit_V2 = laqat_LQT_1_8772_V ;
 --    hold_V2
---    hope_VS
+    hope_VS = xtaq_XWQ_8_10313_V ;
     horn_N = mkN "ħorn" "ħornijiet" ;
     horse_N = mkN "żiemel" "żwiemel" ;
     hot_A = brokenA "sħun" "sħan" ;
@@ -164,9 +164,9 @@ concrete LexiconMlt of Lexicon = CatMlt **
     important_A = sameA "importanti" ;
     industry_N = mkN "industrija" ;
     iron_N = mk5N "ħadida" "ħadid" [] "ħadidiet" "ħdejjed" masculine ;
---    john_PN
---    jump_V
---    kill_V2
+    john_PN = mkPN "Ġanni" masculine singular ;
+    jump_V = qabez_QBZ_1_9182_V ;
+    kill_V2 = qatel_QTL_1_9312_V ;
     king_N = mkN "re" "rejjiet" ;
     knee_N = mkN "rkoppa" [] "rkopptejn" "rkoppiet" [] ; -- TODO use mkNDual  -- pronSuffix
 --    know_V2
@@ -175,29 +175,29 @@ concrete LexiconMlt of Lexicon = CatMlt **
     lake_N = mkN "għadira" "għadajjar" ;
     lamp_N = mkN "lampa" ;
     language_N = mkN "lingwa" ; -- lsien?
---    laugh_V
+    laugh_V = dahak_DHK_1_7688_V ;
     leaf_N = mkN "werqa" "weraq" "werqtejn" "werqiet" [] ;
---    learn_V2
+    learn_V2 = tghallem_GHLM_5_10527_V ;
     leather_N = mkN "ġilda" "ġild" [] "ġildiet" "ġlud" ; -- mkNColl "ġild" ;
---    leave_V2
+    leave_V2 = telaq_TLQ_1_9903_V ;
 --    left_Ord
     leg_N = mkN "riġel" [] "riġlejn" [] [] ; -- sieq?  -- pronSuffix
---    lie_V
+    lie_V = mtedd_MDD_8_8816_V ;
 --    like_V2
---    listen_V2
---    live_V
+    listen_V2 = sema'_SMGH_1_9698_V ;
+    live_V = ghex_GHJX_1_10711_V ;
     liver_N = mkN "fwied" [] [] [] "ifdwa" ; -- pronSuffix
     long_A = brokenA "twil" "twal" "itwal" ;
---    lose_V2
+    lose_V2 = tilef_TLF_1_9895_V ;
     louse_N = mkN "qamla" "qamliet" ;
     love_N = mkN "mħabba" "mħabbiet" ; -- hmmm
---    love_V2
+    love_V2 = habb_HBB_1_8174_V ;
     man_N = mkN "raġel" "rġiel" ;
 --    married_A2
     meat_N = mkN "laħam" [] [] "laħmiet" "laħmijiet" ;
     milk_N = mkN [] "ħalib" [] "ħalibijiet" "ħlejjeb" ;
     moon_N = mkN "qamar" "oqmra" ; -- qmura?
-    mother_N2 = mkN2 (mkN "omm" "ommijiet" feminine) (mkPrep "ta'") ; -- pronSuffix
+    mother_N2 = mkN2 (mkN "omm" "ommijiet" feminine) ; -- pronSuffix
     mountain_N = mkN "muntanja" ;
     mouth_N = mkN "ħalq" "ħluq" ; -- pronSuffix
     music_N = mkN "musika" ; -- plural?
@@ -213,7 +213,7 @@ concrete LexiconMlt of Lexicon = CatMlt **
     number_N = mkN "numru" ;
     oil_N = mkN "żejt" "żjut" ;
     old_A = brokenA "qadim" "qodma" "eqdem" ;
---    open_V2
+    open_V2 = fetah_FTH_1_7932_V ;
 --    paint_V2A
     paper_N = mkN "karta" ;
 --    paris_PN
@@ -222,20 +222,20 @@ concrete LexiconMlt of Lexicon = CatMlt **
     person_N = mk5N [] "persuna" [] "persuni" [] masculine ;
     planet_N = mkN "pjaneta" ;
     plastic_N = mkNNoPlural "plastik" ;
---    play_V
---    play_V2
+    play_V = laghab_LGHB_1_8724_V ;
+    play_V2 = daqq_DQQ_1_7736_V ;
     policeman_N = mkNNoPlural "pulizija" ;
     priest_N = mkN "qassis" "qassisin" ;
 --    probable_AS
---    pull_V2
+    pull_V2 = gibed_GBD_1_8043_V ;
 --    push_V2
---    put_V2
+    put_V2 = qieghed_QGHD_3_9212_V ;
     queen_N = mkN "reġina" "rġejjen" ;
     question_N = mkN "mistoqsija" "mistoqsijiet" ; -- domanda?
     radio_N = mkN "radju" "radjijiet" ;
     rain_N = mkNNoPlural "xita" ;
 --    rain_V0
---    read_V2
+    read_V2 = qara_QRJ_1_9350_V ;
     ready_A = regA "lest" ;
     reason_N = mkN "raġun" "raġunijiet" ;
     red_A = mkA "aħmar" "ħamra" "ħomor" ;
@@ -253,20 +253,20 @@ concrete LexiconMlt of Lexicon = CatMlt **
 --    rub_V2
     rubber_N = mkN "gomma" "gomom" ;
     rule_N = mkN "regola" ;
---    run_V
+    run_V = gera_GRJ_1_8131_V ;
     salt_N = mkN "melħ" "melħiet" ;
     sand_N = mkN "ramla" "ramel" [] "ramliet" "rmiel" ;
 --    say_VS
     school_N = mkN "skola" "skejjel" ;
     science_N = mkN "xjenza" ;
---    scratch_V2
+    scratch_V2 = barax_BRX_1_7504_V ;
     sea_N = mkN "baħar" [] "baħrejn" "ibħra" [] ;
 --    see_V2
     seed_N = mkN "żerriegħa" "żerrigħat" ;
---    seek_V2
---    sell_V3
---    send_V3
---    sew_V
+    seek_V2 = fittex_FTX_2_7952_V ;
+    sell_V3 = biegh_BJGH_1_7565_V ;
+    send_V3 = baghat_BGHT_1_7412_V ;
+    sew_V = hat_HJT_1_8508_V ;
     sharp_A = mkA "jaqta" "taqta" "jaqtgħu" ; -- TODO: apostrophe?
     sheep_N = mkN "nagħġa" "nagħaġ" [] "nagħġiet" [] ;
     ship_N = mkN "vapur" ;
@@ -275,14 +275,14 @@ concrete LexiconMlt of Lexicon = CatMlt **
     shop_N = mkN "ħanut" "ħwienet" ;
     short_A = brokenA "qasir" "qosra" "iqsar" ;
     silver_N = mkN "fidda" "fided" ;
---    sing_V
+    sing_V = kanta_KNTJ_1_7016_V ;
     sister_N = mkN "oħt" "aħwa" feminine ; -- pronSuffix
---    sit_V
+    sit_V = pogga_PGJ_2_9157_V ;
     skin_N = mkN "ġilda" "ġildiet" ;
     sky_N = mkN "sema" "smewwiet" masculine ;
---    sleep_V
+    sleep_V = mkV "raqad" (mkRoot "r-q-d") ;
     small_A = brokenA "zgħir" "zgħar" "iżgħar" ;
---    smell_V
+    smell_V = xamm_XMM_1_10207_V ;
     smoke_N = mkN "duħħan" "dħaħen" ;
     smooth_A = regA "lixx" ;
     snake_N = mkN "serp" "sriep" ;
@@ -290,72 +290,72 @@ concrete LexiconMlt of Lexicon = CatMlt **
     sock_N = mkN "kalzetta" ;
     song_N = mkN "kanzunetta" ;
 --    speak_V2
---    spit_V
---    split_V2
+    spit_V = bezaq_BZQ_1_7549_V ;
+    split_V2 = qasam_QSM_1_9292_V ;
 --    squeeze_V2
---    stab_V2
+    stab_V2 = mewwes_MWS_2_8921_V ;
 --    stand_V
     star_N = mkN "stilla" "stilel" ;
     steel_N = mkNNoPlural "azzar" ;
     stick_N = mkN "lasta" ;
     stone_N = mkN "ġebla" "ġebel" [] "ġebliet" "ġbiel" ;
---    stop_V
+    stop_V = waqaf_WQF_1_10067_V ;
     stove_N = mkN "kuker" "kukers" ; -- fuklar?
     straight_A = regA "dritt" ;
     student_N = mkN "student" ;
     stupid_A = mkA "iblah" "belha" "boloh" ; -- these are really nouns...
---    suck_V2
+    suck_V2 = rada'_RDGH_1_9388_V ;
     sun_N = mkN "xemx" "xmux" feminine ;
---    swell_V
---    swim_V
---    switch8off_V2
---    switch8on_V2
+    swell_V = ntefah_NFH_8_8970_V ;
+    swim_V = gham_GHWM_1_10750_V ;
+    switch8off_V2 = tefa_TFJ_1_9960_V ;
+    switch8on_V2 = xeghel_XGHL_1_10155_V ;
     table_N = mkN "mejda" "mwejjed" ;
     tail_N = mkN "denb" "dnieb" ; -- pronSuffix
 --    talk_V3
---    teach_V2
+    teach_V2 = ghallem_GHLM_2_10526_V ;
     teacher_N = mkN "għalliem" "għalliema" ; -- għalliema ?
     television_N = mkN "televixin" "televixins" ;
     thick_A = mkA "oħxon" "ħoxna" "ħoxnin" "eħxen" ;
     thin_A = brokenA "rqiq" "rqaq" "rqaq" ;
---    think_V
---    throw_V2
---    tie_V2
+    think_V = haseb_HSB_1_8387_V ;
+    throw_V2 = waddab_WDB_2_10027_V ;
+    tie_V2 = qafel_QFL_1_9206_V ;
 --    today_Adv
     tongue_N = mkN "lsien" "ilsna" ; -- pronSuffix
     tooth_N = mkN "sinna" [] [] "sinniet" "snien" ; -- darsa? -- pronSuffix
     train_N = mkN "ferrovija" ;
 --    travel_V
     tree_N = mkN "siġra" "siġar" [] "siġriet" [] ;
---    turn_V
+    turn_V = dar_DWR_1_7803_V ;
     ugly_A = mkA "ikrah" "kerha" "koroh" ; -- ikreh?
     uncertain_A = regA "inċert" ;
---    understand_V2
+--    understand_V2 --- missing from dict
     university_N = mkN "università" "universitàjiet" ;
     village_N = mkN "raħal" "rħula" ; -- villaġġ ? -- pronSuffix
---    vomit_V
+    vomit_V = qala'_QLGH_1_9223_V ;
 --    wait_V2
---    walk_V
+    walk_V = mexa_MXJ_1_8926_V ;
     war_N = mkN "gwerra" "gwerrer" ;
     warm_A = hot_A ;
---    wash_V2
+    wash_V2 = hasel_HSL_1_8395_V ;
 --    watch_V2
     water_N = mkN "ilma" "ilmijiet" masculine ;
     wet_A = mkA "mxarrab" "mxarrba" "mxarrbin" ;
     white_A = mkA "abjad" "bajda" "bojod" ;
     wide_A = broad_A ;
     wife_N = mkN "mara" "nisa" ; -- pronSuffix MARTI
---    win_V2
+    win_V2 = rebah_RBH_1_9371_V ;
     wind_N = mkN "riħ" [] [] "rjieħ" "rjiħat" ;
     window_N = mkN "tieqa" "twieqi" ;
     wine_N = mkN [] "nbid" [] [] "nbejjed" ;
     wing_N = mkN "ġewnaħ" "ġwienaħ" ;
---    wipe_V2
+    wipe_V2 = mesah_MSH_1_8881_V ;
     woman_N = mkN "mara" "nisa" ;
 --    wonder_VQ
     wood_N = mkN "injam" "injamiet" ;
     worm_N = mkN "dudu" "dud" [] "dudiet" "dwied" ; -- duda
---    write_V2
+    write_V2 = kiteb_KTB_1_8641_V ;
     year_N = mkN "sena" [] "sentejn" "snin" [] ;  -- pronSuffix SNINI (only plural though!)
     yellow_A = mkA "isfar" "safra" "sofor" ;
     young_A = small_A ;