diff --git a/examples/uusisuomi/Verbal.gf b/examples/uusisuomi/Verbal.gf index 5cf4b11d6..d38303405 100644 --- a/examples/uusisuomi/Verbal.gf +++ b/examples/uusisuomi/Verbal.gf @@ -75,12 +75,16 @@ resource Verbal = ResFin ** case 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 } ; diff --git a/examples/uusisuomi/correct-VSwadesh.txt b/examples/uusisuomi/correct-VSwadesh.txt new file mode 100644 index 000000000..709d4cbc0 --- /dev/null +++ b/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 + diff --git a/lib/resource/arabic/LexiconAra.gf b/lib/resource/arabic/LexiconAra.gf index ab44e5faa..c07acc311 100644 --- a/lib/resource/arabic/LexiconAra.gf +++ b/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 "كَرÙÙ‡") ; -{- hat_N = sdfN "قبع" "ÙÙعَّلة" Fem NoHum ; + hate_V2 = dirV2 (regV "كَرÙÙ‡") ; + 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 -{- important_A = sndA "هيم" "Ùاعّ" ; + house_N = brkN "بيت" "Ùَعل" "ÙÙعÙول" Masc NoHum ; --manzil + 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 "حمر" ; -{- religion_N = brkN "دين" "ÙÙعل" "Ø£ÙŽÙعال" Masc NoHum ; + red_A = clrA "حمر" ; + 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 "الآن" ; -{- already_Adv = mkAdv "سابÙقاً" ; + now_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 "ْتهر" ; } ; diff --git a/lib/resource/arabic/ResAra.gf b/lib/resource/arabic/ResAra.gf index a6c97e6c6..15f2fb3b9 100644 --- a/lib/resource/arabic/ResAra.gf +++ b/lib/resource/arabic/ResAra.gf @@ -9,7 +9,7 @@ -- resource ResAra = PatternsAra ** open Prelude, Predef in { - flags optimize=all ; + flags optimize=noexpand ; param