Swadesh verb list in uusisuomi revised

examples/uusisuomi/Verbal.gf

@@ -75,12 +75,16 @@ resource Verbal = ResFin **
     case <huutaa,huusi> of {
       <_ + ("taa" | "tää"), _ + ("oi" | "öi")> =>
         cOttaa huutaa (huuda + "n") autoin huusi ;
-      <_ + ("taa" | "tää"), _ + "i"> =>
+      <_ + ("aa" | "ää"), _ + "i"> =>
         cOttaa huutaa (huuda + "n") huusin huusi ;
       <_ + ("eta" | "etä"), _ + "eni"> =>
         cValjeta huutaa huusi ;
-      <_ + ("ita" | "itä"), _ + "isi"> =>
+      <_ + ("sta" | "stä"), _ + "si"> =>
+        vForms1 huutaa ; -- pestä, halkaista
+      <_ + ("ta" | "tä"), _ + "si"> =>
         cPudota huutaa huusi ;
+      <_ + ("lla" | "llä"), _ + "li"> =>
+        cKuunnella huutaa huusin ;
       _ => vForms1 huutaa
       } ;
 

examples/uusisuomi/correct-VSwadesh.txt

@@ -0,0 +1,112 @@
+puhaltaa puhallan puhaltaa puhaltavat puhaltakaa puhalletaan puhalsin puhalsi puhaltaisi puhaltanut puhallettu
+
+hengittää hengitän hengittää hengittävät hengittäkää hengitetään hengitin hengitti hengittäisi hengittänyt hengitetty
+
+palaa palan palaa palavat palakaa paletaan paloin paloi palaisi palanut palettu
+
+tulla tulen tulee tulevat tulkaa tullaan tulin tuli tulisi tullut tultu
+
+kuolla kuolen kuolee kuolevat kuolkaa kuollaan kuolin kuoli kuolisi kuollut kuoltu
+
+kaivaa kaivan kaivaa kaivavat kaivakaa kaivetaan kaivoin kaivoi kaivaisi kaivanut kaivettu
+
+pudota putoan putoaa putoavat pudotkaa pudotaan putosin putosi putoaisi pudonnut pudottu
+
+kellua kellun kelluu kelluvat kellukaa kellutaan kelluin kellui kelluisi kellunut kelluttu
+
+virrata virtaan virtaa virtaavat virratkaa virrataan virtasin virtasi virtaisi virrannut virrattu
+
+lentää lennän lentää lentävät lentäkää lennetään lensin lensi lentäisi lentänyt lennetty
+
+jäätyä jäädyn jäätyy jäätyvät jäätykää jäädytään jäädyin jäätyi jäätyisi jäätynyt jäädytty
+
+nauraa nauran nauraa nauravat naurakaa nauretaan nauroin nauroi nauraisi nauranut naurettu
+
+maata makaan makaa makaavat maatkaa maataan makasin makasi makaisi maannut maattu
+
+elää elän elää elävät eläkää eletään elin eli eläisi elänyt eletty
+
+pelata pelaan pelaa pelaavat pelatkaa pelataan pelasin pelasi pelaisi pelannut pelattu
+
+sanoa sanon sanoo sanovat sanokaa sanotaan sanoin sanoi sanoisi sanonut sanottu
+
+kylvää kylvän kylvää kylvävät kylväkää kylvetään kylvin kylvi kylväisi kylvänyt kylvetty
+
+laulaa laulan laulaa laulavat laulakaa lauletaan lauloin lauloi laulaisi laulanut laulettu
+
+istua istun istuu istuvat istukaa istutaan istuin istui istuisi istunut istuttu
+
+nukkua nukun nukkuu nukkuvat nukkukaa nukutaan nukuin nukkui nukkuisi nukkunut nukuttu
+
+haistaa haistan haistaa haistavat haistakaa haistetaan haistoin haistoi haistaisi haistanut haistettu
+
+sylkeä syljen sylkee sylkevät sylkekää syljetään syljin sylki sylkisi sylkenyt syljetty
+
+seistä seison seisoo seisovat seiskää seistään seisoin seisoi seisoisi seissyt seisty
+
+turvota turpoan turpoaa turpoavat turvotkaa turvotaan turposin turposi turpoaisi turvonnut turvottu
+
+uida uin ui uivat uikaa uidaan uin ui uisi uinut uitu
+
+ajatella ajattelen ajattelee ajattelevat ajatelkaa ajatellaan ajattelin ajatteli ajattelisi ajatellut ajateltu
+
+kääntyä käännyn kääntyy kääntyvät kääntykää käännytään käännyin kääntyi kääntyisi kääntynyt käännytty
+
+oksentaa oksennan oksentaa oksentavat oksentakaa oksennetaan oksensin oksensi oksentaisi oksentanut oksennettu
+
+kävellä kävelen kävelee kävelevät kävelkää kävellään kävelin käveli kävelisi kävellyt kävelty
+
+purra puren puree purevat purkaa purraan purin puri purisi purrut purtu
+
+laskea lasken laskee laskevat laskekaa lasketaan laskin laski laskisi laskenut laskettu
+
+leikata leikkaan leikkaa leikkaavat leikatkaa leikataan leikkasin leikkasi leikkaisi leikannut leikattu
+
+juoda juon juo juovat juokaa juodaan join joi joisi juonut juotu
+
+syödä syön syö syövät syökää syödään söin söi söisi syönyt syöty
+
+pelätä pelkään pelkää pelkäävät pelätkää pelätään pelkäsin pelkäsi pelkäisi pelännyt pelätty
+
+taistella taistelen taistelee taistelevat taistelkaa taistellaan taistelin taisteli taistelisi taistellut taisteltu
+
+kuulla kuulen kuulee kuulevat kuulkaa kuullaan kuulin kuuli kuulisi kuullut kuultu
+
+lyödä lyön lyö lyövät lyökää lyödään löin löi löisi lyönyt lyöty
+
+pitää pidän pitää pitävät pitäkää pidetään pidin piti pitäisi pitänyt pidetty
+
+metsästää metsästän metsästää metsästävät metsästäkää metsästetään metsästin metsästi metsästäisi metsästänyt metsästetty
+
+tappaa tapan tappaa tappavat tappakaa tapetaan tappoin tappoi tappaisi tappanut tapettu
+
+tietää tiedän tietää tietävät tietäkää tiedetään tiesin tiesi tietäisi tiennyt/tietänyt tiedetty
+
+vetää vedän vetää vetävät vetäkää vedetään vedin veti vetäisi vetänyt vedetty
+
+työntää työnnän työntää työntävät työntäkää työnnetään työnsin työnsi työntäisi työntänyt työnnetty
+
+hieroa hieron hieroo hierovat hierokaa hierotaan hieroin hieroi hieroisi hieronut hierottu
+
+raapia raavin raapii raapivat raapikaa raavitaan raavin raapi raapisi raapinut raavittu
+
+nähdä näen näkee näkevät näkekää nähdään näin näki näkisi nähnyt nähty
+
+halkaista halkaisen halkaisee halkaisevat halkaiskaa halkaistaan halkaisin halkaisi halkaisisi halkaissut halkaistu
+
+puristaa puristan puristaa puristavat puristakaa puristetaan puristin puristi puristaisi puristanut puristettu
+
+pistää pistän pistää pistävät pistäkää pistetään pistin pisti pistäisi pistänyt pistetty
+
+imeä imen imee imevät imekää imetään imin imi imisi imenyt imetty
+
+heittää heitän heittää heittävät heittäkää heitetään heitin heitti heittäisi heittänyt heitetty
+
+sitoa sidon sitoo sitovat sitokaa sidotaan sidoin sitoi sitoisi sitonut sidottu
+
+pestä pesen pesee pesevät peskää pestään pesin pesi pesisi pessyt pesty
+
+pyyhkiä pyyhin pyyhkii pyyhkivät pyyhkikää pyyhitään pyyhin pyyhki pyyhkisi pyyhkinyt pyyhitty
+
+antaa annan antaa antavat antakaa annetaan annoin antoi antaisi antanut annettu
+

lib/resource/arabic/LexiconAra.gf

@@ -12,7 +12,7 @@ flags
   lin
 
   airplane_N   = sdfN "ط؟ر" "فاعِلة" Fem NoHum ;
-{-  answer_V2S   = dirV2 (v3 "جوب") ;
+  answer_V2S   = dirV2 (v3 "جوب") ;
   apartment_N  = brkN "شقّ" "فِعّة" "فِعَل" Fem NoHum ;
   apple_N      = sdfN "تفح" "فِعّالة" Fem NoHum ;
   art_N        = brkN "فنّ" "فَعّ" "فُعُول" Masc NoHum ;
@@ -25,10 +25,10 @@ flags
   become_VA    = mkVA (v4 "صبح") ;
   beer_N       = sdfN "بير" "فِعلة" Fem NoHum ;
   beg_V2V      = dirV2 (v5 "وسل") ;
--}  big_A        = sndA "كبر" "فَعِيل" ;
+  big_A        = sndA "كبر" "فَعِيل" ;
   bike_N       = sdfN "درج" "فَعّالة" Fem NoHum ;
   bird_N       = brkN "طير" "فَعل" "فُعُول" Masc NoHum; 
-{-  black_A      = clrA "سود" ;
+  black_A      = clrA "سود" ;
   blue_A       = clrA "زرق" ;
   boat_N       = brkN "قرب" "فاعِل" "فَواعِل" Masc NoHum ;
   book_N       = brkN "كتب" "فِعال" "فُعُل" Masc NoHum ;
@@ -97,8 +97,8 @@ flags
 --  go_V         = v1 "ذهب" a a ;
   green_A      = clrA "خضر" ;
   harbour_N    = brkN "رف؟" "مَفعَل" "مَفاعِل" Masc NoHum ; --mInA', marsaY
--}  hate_V2      = dirV2 (regV "كَرِه") ;
+  hate_V2      = dirV2 (regV "كَرِه") ;
-{-  hat_N        = sdfN "قبع" "فُعَّلة" Fem NoHum ;
+  hat_N        = sdfN "قبع" "فُعَّلة" Fem NoHum ;
   have_V2      = dirV2 (regV "يَملِك") ; 
 --  have_V2      = dirV2 (v1 "ملك" a i) ; 
   hear_V2      = dirV2 (regV "سَمِع") ;
@@ -107,8 +107,8 @@ flags
   hope_VS      = mkVS (v1 "رجو" a u) ; --check
   horse_N      = brkN "حصن" "فِعال" "أَفعِلة" Masc NoHum ;
   hot_A        = sndA "سخن" "فاعِل" ; --HAr
--}  house_N      = brkN "بيت" "فَعل" "فُعُول" Masc NoHum ; --manzil
+  house_N      = brkN "بيت" "فَعل" "فُعُول" Masc NoHum ; --manzil
-{-  important_A  = sndA "هيم" "فاعّ" ;
+  important_A  = sndA "هيم" "فاعّ" ;
   industry_N   = sdfN "صنع" "فِعالة" Fem NoHum ;
   iron_N       = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
   king_N       = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
@@ -163,8 +163,8 @@ flags
 --  rain_V0      = mkV0 (v1 "مطر" a u) ;
   read_V2      = dirV2 (regV "يَقرَ؟") ;
 --  read_V2      = dirV2 (v1 "قر؟" a a ) ;
--}  red_A        = clrA "حمر" ;
+  red_A        = clrA "حمر" ;
-{-  religion_N   = brkN "دين" "فِعل" "أَفعال" Masc NoHum ;
+  religion_N   = brkN "دين" "فِعل" "أَفعال" Masc NoHum ;
   restaurant_N = brkN "طعم" "مَفعَل" "مَفاعِل" Masc NoHum ;
   river_N      = brkN "نهر" "فَعل" "أَفعال" Masc NoHum ;
   rock_N       = brkN "صخر" "فَعلة" "فُعُول" Fem NoHum ;
@@ -239,8 +239,8 @@ flags
 
   do_V2        = dirV2 (regV "يَفعَل") ;
 --  do_V2        = dirV2 (v1 "فعل" a a ) ;
--}  now_Adv      = mkAdv "الآن" ;
+  now_Adv      = mkAdv "الآن" ;
-{-  already_Adv  = mkAdv "سابِقاً" ; 
+  already_Adv  = mkAdv "سابِقاً" ; 
   song_N       = brkN "غني" "أَفعِلة" "أَفاعِي" Fem NoHum ;
   add_V3       = dirV3 (regV "يَجمَع") "وَ" ;
 --  add_V3       = dirV3 (v1 "جمع" a a) "وَ" ;
@@ -305,9 +305,9 @@ flags
   leg_N        = brkN "رجل" "فِعل" "أَفعُل"     Fem NoHum;            
   liver_N      = brkN "كبد" "فَعِل" "أَفعال"    Masc NoHum ;          
   louse_N      = sdfN "قمل" "فَعلة"             Fem NoHum;            
--}  mouth_N      = brkN "فوه" "فُعل" "أَفعال"     Masc NoHum ;          
+  mouth_N      = brkN "فوه" "فُعل" "أَفعال"     Masc NoHum ;          
   name_N       = brkN "؟سم" "فِعل" "فَعالِي"     Masc NoHum;       
-{-  neck_N       = brkN "رقب" "فَعَلة" "فِعال"    Fem NoHum;        
+  neck_N       = brkN "رقب" "فَعَلة" "فِعال"    Fem NoHum;        
   night_N      = brkN "ليل" "فَعلة" "فَعالِي"    Fem NoHum;  --plural?
   nose_N       = brkN "؟نف" "فَعل" "فُعُول"      Masc NoHum;           
   person_N     = brkN "شخص" "فَعل" "أَفعال"     Masc Hum;             
@@ -378,7 +378,7 @@ flags
   tie_V2       = dirV2 (regV "يَربُط" ) ;
   wash_V2      = dirV2 ( regV "يَغسِل" ) ;
   wipe_V2      = dirV2 ( regV "يَمسَح" ) ;
--}
+
 --  other_A = sndA "ْتهر" ;
 
 } ;

lib/resource/arabic/ResAra.gf

@@ -9,7 +9,7 @@
 --
 resource ResAra = PatternsAra ** open  Prelude, Predef   in {
 
-  flags optimize=all ;
+  flags optimize=noexpand ;
 
 
   param