diff --git a/lib/resource-1.0/Makefile b/lib/resource-1.0/Makefile index c36fc39ae..c00b6f792 100644 --- a/lib/resource-1.0/Makefile +++ b/lib/resource-1.0/Makefile @@ -28,7 +28,7 @@ mathematical: multimodal: $(GF) -make -nocf multimodal/Multi???.gf - mv multimodal/*.gfc multimodal/*.gfr ../multimodal + mv multimodal/*.gfc ../multimodal compiled: cd .. ; tar cvfz compiled.tgz alltenses/ mathematical/ multimodal/ present/ prelude/*.gf? diff --git a/lib/resource-1.0/danish/IrregDan.gf b/lib/resource-1.0/danish/IrregDan.gf index ea2abdf76..fe4107d9d 100644 --- a/lib/resource-1.0/danish/IrregDan.gf +++ b/lib/resource-1.0/danish/IrregDan.gf @@ -8,31 +8,28 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in { lin - bære_V = irregV "bære" "bar" "båret" ;-- - bede_V = mkV "bede" "beder" "bedes" "bad" "bedt" "bed" ;-- - bide_V = irregV "bite" "bed" "bitt" ;-- + bære_V = irregV "bære" "bar" "båret" ; + bede_V = mkV "bede" "beder" "bedes" "bad" "bedt" "bed" ; + bide_V = irregV "bite" "bed" "bidt" ; + binde_V = irregV "binde" "bandt" "bundet" ; blive_V = irregV "blive" "blev" "blevet" ; - brænde_V = irregV "brænde" "brant" "brænt" ;-- - bringe_V = irregV "bringe" "bragte" "bragt" ;-- + brænde_V = irregV "brænde" "brandt" "brændt" ;-- + bringe_V = irregV "bringe" "bragte" "bragt" ; burde_V = irregV "burde" "burde" "burdet" ;-- dø_V = irregV "dø" "døde" "død" ; --- dra_V = mkV "dra" "drar" "dras" "drog" (variants {"dradd" ;-- "dratt"}) "dra" ;-- + drage_V = irregV "drage" "drog" "draget" ; drikke_V = irregV "drikke" "drak" "drukket" ; --- drive_V = irregV "drive" (variants {"drev" ;-- "dreiv"}) "drevet" ;-- --- eie_V = irregV "eie" (variants {"eide" ;-- "åtte"}) (variants {"eid" ;-- "ått"}) ;-- - falle_V = irregV "falle" "falt" "falt" ;-- + drive_V = irregV "drive" "drev" "drevet" ; + falde_V = irregV "falde" "faldt" "faldet" ;----er få_V = irregV "få" "fik" "fået" ; - finde_V = irregV "finde" "fand" "fundet" ;-- - flyde_V = irregV "flyde" "flød" "flytt" ;-- - flyve_V = irregV "flyve" "fløg" "flydd" ;-- - foretrekke_V = irregV "foretrekke" "foretrakk" "foretrukket" ;-- + finde_V = irregV "finde" "fandt" "fundet" ; + flyde_V = irregV "flyde" "flød" "flydt" ; + flyve_V = irregV "flyve" "fløj" "fløjet" ; forlade_V = irregV "forlade" "forlod" "forladet" ; - forstå_V = irregV "forstå" "forstod" "forstått" ;-- - fortælle_V = irregV "fortælle" "fortalte" "fortalt" ;-- - fryse_V = irregV "fryse" "frøs" "frosset" ;-- - gå_V = irregV "gå" "gik" "gået" ; + forstå_V = irregV "forstå" "forstod" "forstået" ; + fryse_V = irregV "fryse" "frøs" "frosset" ; + gå_V = irregV "gå" "gik" "gået" ;----er give_V = irregV "give" "gav" "givet" ; --- gjelde_V = irregV "gjelde" (variants {"gjaldt" ;-- "galdt"}) "gjeldt" ;-- gnide_V = irregV "gnide" "gned" "gnidd" ;-- gøre_V = irregV "gøre" "gjorde" "gjort" ; have_V = mkV "have" "har" "havde" "haft" nonExist "hav" ; @@ -67,6 +64,7 @@ concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in { tage_V = irregV "tage" "tog" "taget" ; -- treffe_V = irregV "treffe" "traff" "truffet" ;-- -- trives_V = irregV "trives" "trivdes" (variants {"trives" ;-- "trivs"}) ;-- + tælle_V = irregV "tælle" "talte" "talt" ; vide_V = irregV "vide" "vidste" "vidst" ; } diff --git a/lib/resource-1.0/danish/IrregDanAbs.gf b/lib/resource-1.0/danish/IrregDanAbs.gf index c1aea67a2..5f8942f76 100644 --- a/lib/resource-1.0/danish/IrregDanAbs.gf +++ b/lib/resource-1.0/danish/IrregDanAbs.gf @@ -5,24 +5,22 @@ abstract IrregDanAbs = Cat ** { bære_V : V ; bede_V : V ; bide_V : V ; + binde_V : V ; blive_V : V ; brænde_V : V ; bringe_V : V ; burde_V : V ; dø_V : V ; --- dra_V : V ; + drage_V : V ; drikke_V : V ; --- drive_V : V ; --- eie_V : V ; - falle_V : V ; + drive_V : V ; + falde_V : V ; få_V : V ; finde_V : V ; flyde_V : V ; flyve_V : V ; - foretrekke_V : V ; forlade_V : V ; forstå_V : V ; - fortælle_V : V ; fryse_V : V ; gå_V : V ; give_V : V ; @@ -59,6 +57,7 @@ abstract IrregDanAbs = Cat ** { stikke_V : V ; synge_V : V ; tage_V : V ; + tælle_V : V ; -- treffe_V : V ; -- trives_V : V ; vide_V : V ; diff --git a/lib/resource-1.0/danish/LexiconDan.gf b/lib/resource-1.0/danish/LexiconDan.gf index 87e922189..e932ad491 100644 --- a/lib/resource-1.0/danish/LexiconDan.gf +++ b/lib/resource-1.0/danish/LexiconDan.gf @@ -1,6 +1,8 @@ --# -path=.:../scandinavian:../common:../abstract:../../prelude -concrete LexiconDan of Lexicon = CatDan ** + + +concrete LexiconDan of Lexicon = CatDan ** open Prelude, ParadigmsDan, IrregDan in { flags startcat=Phr ; lexer=textlit ; unlexer=text ; @@ -18,141 +20,141 @@ lin bank_N = mk2N "bank" "banken" ; beautiful_A = mk3ADeg "smuk" "smukt" "smukke" ; ---- become_VA = mkVA blive_V ; - beer_N = regGenN "øl" neutrum ; - beg_V2V = mkV2V bede_V [] "att" ; + beer_N = mk2N "øl" "ølet" ; + beg_V2V = mkV2V bede_V [] "at" ; big_A = irregADeg "stor" "større" "størst"; - bike_N = mkN "cykel" "cykeln" "cykler" "cyklene" ; ---- + bike_N = mkN "cykel" "cykeln" "cykler" "cyklerne" ; ---- bird_N = mk2N "fugl" "fuglen" ; black_A = mk2ADeg "sort" "sort" ; blue_A = mk2ADeg "blå" "blått"; - boat_N = regGenN "båd" utrum ; + boat_N = mk3N "båd" "båden" "både" ; book_N = mkN "bog" "bogen" "bøger" "bøgene" ; - boot_N = mkN "støvle" "støvlen" "støvler" "støvlene" ; + boot_N = mkN "støvle" "støvlen" "støvler" "støvlerne" ; boss_N = mk2N "chef" "chefen" ; - boy_N = regGenN "dreng" utrum ; - bread_N = regGenN "brød" neutrum ; + boy_N = mk2N "dreng" "drengen" ; + bread_N = mk2N "brød" "brødet" ; break_V2 = dirV2 (mk2V "knuse" "knuste") ; broad_A = regADeg "bred" ; - brother_N2 = mkN2 ( (mkN "broder" "broderen" "brødre" "brødrene")) "til" ; ---- + brother_N2 = mkN2 (mk3N "broder" "brodren" "brødre") "til" ; ---- brown_A = regADeg "brun" ; - butter_N = regGenN "smør" neutrum ; + butter_N = mk2N "smør" "smøret" ; buy_V2 = dirV2 (mk2V "købe" "købte") ; ---- camera_N = mk2N "kamera" "kameraen" ; ---- cap_N = mk2N "hue" "huen" ; - car_N = regGenN "bil" utrum ; - carpet_N = regGenN "tæppe" utrum ; - cat_N = mk2N "kat" "katen" ; - ceiling_N = regGenN "loft" neutrum ; ---- - chair_N = regGenN "stol" utrum ; - cheese_N = regGenN "ost" utrum ; - child_N = mkN "barn" "barnet" "børn" "børnen" ; ---- - church_N = regGenN "kirke" utrum ; + car_N = mk2N "bil" "bilen" ; + carpet_N = mk2N "tæppe" "tæppen" ; + cat_N = mk3N "kat" "katten" "katte" ; + ceiling_N = mk2N "loft" "loftet" ; + chair_N = mk3N "stol" "stolen" "stole" ; + cheese_N = mk2N "ost" "osten" ; + child_N = mk3N "barn" "barnet" "børn" ; ---- + church_N = mk2N "kirke" "kirken" ; city_N = mk2N "by" "byen" ; clean_A = regADeg "ren" ; clever_A = regADeg "flink" ; - close_V2 = dirV2 (mk2V "lukke" "lukket") ; - coat_N = regGenN "frakke" utrum ; + close_V2 = dirV2 (mk2V "lukke" "lukkede") ; + coat_N = mk2N "frakke" "frakken" ; cold_A = regADeg "kold" ; come_V = komme_V ; computer_N = mk2N "datamaskine" "datamaskinen" ; country_N = mk2N "land" "landet" ; - cousin_N = mk2N "fætter" "fætteren" ; ---- - cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ---- + cousin_N = mk3N "fætter" "fættren" "fættre" ; ---- + cow_N = mk2N "ku" "kuen" ; ---- die_V = dø_V ; dirty_A = regADeg "smudsig" ; ---- distance_N3 = mkN3 (regGenN "afstand" utrum) "fra" "til" ; doctor_N = mk2N "læge" "lægen" ; - dog_N = regGenN "hund" utrum ; - door_N = regGenN "dør" utrum ; + dog_N = mk2N "hund" "hunden" ; + door_N = mk2N "dør" "døren" ; drink_V2 = dirV2 drikke_V ; easy_A2V = mkA2V (regA "nem") "for" ; ---- eat_V2 = dirV2 (mk2V "spise" "spiste") ; empty_A = mkADeg "tøm" "tømt" "tømme" "tømmere" "tømmest" ; ---- - enemy_N = regGenN "fjende" utrum ; + enemy_N = mk2N "fjende" "fjenden" ; factory_N = mk2N "fabrik" "fabriken" ; - father_N2 = mkN2 ( (mkN "far" "faderen" "fædre" "fædrene")) "til" ; ---- + father_N2 = mkN2 ( (mk3N "far" "fadren" "fædre")) "til" ; ---- fear_VS = mkVS (regV "frygte") ; find_V2 = dirV2 (irregV "finde" "fand" "fundet") ; ---- fish_N = mk2N "fisk" "fisken" ; - floor_N = regGenN "gulv" neutrum ; + floor_N = mk2N "gulv" "gulvet" ; forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ; ---- - fridge_N = regGenN "køleskab" neutrum ; - friend_N = mkN "ven" "vennen" "venner" "vennene" ; ---- + fridge_N = mk2N "køleskab" "køleskabet" ; + friend_N = mk3N "ven" "vennen" "venner" ; ---- fruit_N = mk2N "frugt" "frugten" ; fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ; ---- - garden_N = regGenN "have" utrum ; - girl_N = regGenN "pige" utrum ; - glove_N = regGenN "handske" utrum ; - gold_N = regGenN "guld" neutrum ; + garden_N = mk2N "have" "haven" ; + girl_N = mk2N "pige" "pigen" ; + glove_N = mk2N "handske" "handsken" ; + gold_N = mk2N "guld" "guldet" ; good_A = mkADeg "god" "godt" "gode" "bedre" "bedst" ; ---- go_V = gå_V ; - green_A = mk2ADeg "grøn" "grønt" ; - harbour_N = regGenN "havn" utrum; + green_A = mk3ADeg "grøn" "grønt" "grønne" ; + harbour_N = mk2N "havn" "havnen" ; hate_V2 = dirV2 (regV "hade") ; - hat_N = regGenN "hat" utrum ; + hat_N = mk3N "hat" "hatten" "hatte" ; have_V2 = dirV2 have_V ; hear_V2 = dirV2 (mk2V "høre" "hørte") ; - hill_N = regGenN "høj" utrum ; + hill_N = mk2N "høj" "højen" ; hope_VS = mkVS (regV "håbe") ; - horse_N = regGenN "hest" utrum ; + horse_N = mk3N "hest" "hesten" "heste" ; hot_A = regADeg "hed" ; - house_N = regGenN "hus" neutrum ; + house_N = mk3N "hus" "huset" "huse" ; important_A = regADeg "vigtig" ; industry_N = mk2N "industri" "industrien" ; - iron_N = regGenN "jern" neutrum ; - king_N = regGenN "konge" utrum ; + iron_N = mk2N "jern" "jernet" ; + king_N = mk2N "konge" "kongen" ; know_V2 = dirV2 vide_V ; - lake_N = regGenN "sø" utrum ; - lamp_N = regGenN "lampe" utrum ; - learn_V2 = dirV2 (mk2V "lære" "lærte") ; - leather_N = regGenN "læder" neutrum ; + lake_N = mk2N "sø" "søen" ; + lamp_N = mk2N "lampe" "lampen" ; + learn_V2 = dirV2 (mk2V "lære" "lærte") ; + leather_N = mk2N "læder" "læderet" ; leave_V2 = dirV2 forlade_V ; like_V2 = mkV2 holde_V "af" ; listen_V2 = dirV2 (regV "lytte") ; live_V = mk2V "leve" "levde" ; long_A = irregADeg "lang" "længer" "længst" ; ---- lose_V2 = dirV2 (regV "tabe") ; - love_N = regGenN "kærlighed" utrum ; + love_N = mk2N "kærlighed" "kærligheden" ; love_V2 = dirV2 (regV "elske") ; man_N = (mkN "mand" "manden" "mænd" "mænden") ; ---- married_A2 = mkA2 (mk2A "gift" "gift") "med" ; - meat_N = regGenN "kød" neutrum ; - milk_N = regGenN "mælk" utrum ; - moon_N = regGenN "måne" utrum ; + meat_N = mk2N "kød" "kødet" ; + milk_N = mk2N "mælk" "mælken" ; + moon_N = mk2N "måne" "månen" ; mother_N2 = mkN2 (mkN "moder" "moderen" "mødre" "mødrene") "til" ; ---- - mountain_N = regGenN "bjerg" neutrum ; + mountain_N = mk2N "bjerg" "bjerget" ; music_N = mk2N "musik" "musiken" ; narrow_A = regADeg "smal" ; new_A = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ; - newspaper_N = regGenN "avis" utrum ; - oil_N = regGenN "olie" utrum ; + newspaper_N = mk2N "avis" "avisen" ; + oil_N = mk2N "olie" "olien" ; old_A = mkADeg "gammel" "gammelt" "gamle" "ældre" "ældst" ; ---- open_V2 = dirV2 (regV "åbne") ; paint_V2A = mkV2A (regV "male") [] ; - paper_N = regGenN "papir" neutrum ; ---- + paper_N = mk2N "papir" "papiret" ; paris_PN = regPN "Paris" neutrum ; - peace_N = regGenN "fred" utrum ; - pen_N = regGenN "pen" utrum ; + peace_N = mk2N "fred" "freden" ; + pen_N = mk2N "pen" "penen" ; planet_N = mk2N "planet" "planeten" ; plastic_N = mk2N "plast" "plasten" ; play_V2 = dirV2 (mk2V "spille" "spilte") ; policeman_N = mk2N "politibetjent" "politibetjenten" ; ---- priest_N = mk2N "præst" "præsten" ; probable_AS = mkAS (regA "sandsynlig") ; - queen_N = regGenN "dronning" utrum ; - radio_N = regGenN "radio" utrum ; + queen_N = mk2N "dronning" "dronningen" ; + radio_N = mk2N "radio" "radioen" ; rain_V0 = mkV0 (regV "regne") ; read_V2 = dirV2 (mk2V "læse" "læste") ; red_A = regADeg "rød" ; religion_N = mk2N "religion" "religionen" ; restaurant_N = mk2N "restaurant" "restauranten" ; river_N = mk2N "flod" "floden" ; - rock_N = regGenN "sten" utrum ; - roof_N = regGenN "tag" neutrum ; + rock_N = mk2N "sten" "stenen" ; + roof_N = mk2N "tag" "taget" ; rubber_N = mk2N "gummi" "gummien" ; run_V = regV "løbe" ; say_VS = mkVS sige_V ; - school_N = regGenN "skole" utrum; + school_N = mk2N "skole" "skolen" ; science_N = mk2N "videnskab" "videnskaben" ; sea_N = mk2N "hav" "havet" ; see_V2 = dirV2 se_V ; @@ -160,53 +162,53 @@ lin sell_V3 = dirV3 sælge_V "til" ; send_V3 = dirV3 (mk2V "sende" "sendte") "til" ; sheep_N = mk2N "får" "fåret" ; - ship_N = regGenN "skib" neutrum ; - shirt_N = regGenN "skjorte" utrum ; - shoe_N = regGenN "sko" utrum ; + ship_N = mk2N "skib" "skibet" ; + shirt_N = mk2N "skjorte" "skjorten" ; + shoe_N = mk2N "sko" "skoen" ; shop_N = mk2N "butik" "butiken" ; short_A = regADeg "kort" ; silver_N = mk2N "sølv" "sølvet"; sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ; ---- sleep_V = irregV "sove" "sov" "sovet" ; small_A = mkADeg "lille" "lille" "små" "mindre" "mindst" ; ---- - snake_N = regGenN "slange" utrum ; - sock_N = regGenN "sok" utrum ; + snake_N = mk2N "slange" "slangen" ; + sock_N = mk2N "sok" "soken" ; speak_V2 = dirV2 (regV "tale") ; ---- - star_N = regGenN "stjerne" utrum ; - steel_N = regGenN "stål" neutrum ; - stone_N = regGenN "sten" utrum ; - stove_N = regGenN "komfur" utrum ; + star_N = mk2N "stjerne" "stjernen" ; + steel_N = mk2N "stål" "stålet" ; + stone_N = mk2N "sten" "stenen" ; + stove_N = mk2N "komfur" "komfuren" ; student_N = mk2N "student" "studenten" ; stupid_A = mk3ADeg "dum" "dumt" "dumme" ; - sun_N = regGenN "sol" utrum ; + sun_N = mk2N "sol" "solen" ; switch8off_V2 = dirV2 (partV (regV "lukke") "for") ; switch8on_V2 = dirV2 (partV (regV "lukke") "op") ; - table_N = regGenN "bord" neutrum ; + table_N = mk2N "bord" "bordet" ; talk_V3 = mkV3 (regV "tale") "til" "om" ; teacher_N = mkN "lærer" "læreren" "lærere" "lærerne" ; teach_V2 = dirV2 (mk2V "undervise" "underviste") ; television_N = mk2N "fjernsyn" "fjernsynet" ; thick_A = mk2ADeg "tyk" "tykt" ; thin_A = mk2ADeg "tynd" "tyndt" ; ---- - train_N = regGenN "tog" neutrum ; + train_N = mk2N "tog" "toget" ; travel_V = mk2V "rejse" "rejste" ; tree_N = mkN "træ" "træet" "trær" "træne" ; ---- ---- trousers_N = regGenN "trousers" ; ---- pl t ! ugly_A = regADeg "grim" ; understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ; - university_N = regGenN "universitet" neutrum ; + university_N = mk2N "universitet" "universitetet" ; village_N = mk2N "landsby" "landsbyen" ; wait_V2 = mkV2 (regV "vente") "på" ; walk_V = (irregV "gå" "gikk" "gått") ; warm_A = regADeg "varm" ; - war_N = regGenN "krig" utrum ; + war_N = mk2N "krig" "krigen" ; watch_V2 = mkV2 se_V "på" ; water_N = mk2N "vand" "vandet" ; white_A = regADeg "hvid" ; window_N = mkN "vindue" "vinduet" "vinduer" "vinduene" ; ---- er? wine_N = mk2N "vin" "vinen" ; win_V2 = dirV2 (irregV "vinde" "vand" "vundet") ; - woman_N = regGenN "kvinde" utrum ; + woman_N = mk2N "kvinde" "kvinden" ; wonder_VQ = mkVQ (depV (regV "undre")) ; wood_N = mkN "træ" "træet" "trær" "træne" ; ---- write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ; @@ -305,10 +307,10 @@ lin bite_V2 = dirV2 bide_V ; blow_V = mk2V "blæse" "blæste" ; burn_V = brænde_V ; --- count_V2 = dirV2 tælle_V ; + count_V2 = dirV2 tælle_V ; cut_V2 = dirV2 (skære_V) ; dig_V = mk2V "grave" "gravde" ; - fall_V = falle_V ; + fall_V = falde_V ; fear_V2 = dirV2 (regV "frygte") ; fight_V2 = dirV2 (regV "kæmpe") ; float_V = flyde_V ; @@ -341,7 +343,7 @@ lin swim_V = regV "svømme" ; think_V = mk2V "tænke" "tænkte" ; ---- throw_V2 = dirV2 (regV "kaste") ; --- tie_V2 = dirV2 binde_V ; + tie_V2 = dirV2 binde_V ; turn_V = regV "dreje" ; vomit_V = partV (regV "kaste") "op" ; wash_V2 = dirV2 (regV "vaske") ; diff --git a/lib/resource-1.0/danish/ParadigmsDan.gf b/lib/resource-1.0/danish/ParadigmsDan.gf index d100a8e05..e82295391 100644 --- a/lib/resource-1.0/danish/ParadigmsDan.gf +++ b/lib/resource-1.0/danish/ParadigmsDan.gf @@ -86,6 +86,11 @@ oper mk2N : (bil,bilen : Str) -> N ; +-- This function takes the singular indefinite and definite and the plural +-- indefinite + + mk3N : (bil,bilen,biler : Str) -> N ; + --3 Compound nouns -- @@ -304,17 +309,19 @@ oper Neutr => mkN x (x + "t") (x + "r") (init x + "ene") } ; _ => case g of { - Utr => mkN x (x + "en") (x + "er") (x + "rene") ; + Utr => mkN x (x + "en") (x + "er") (x + "erne") ; Neutr => mkN x (x + "et") (x + "") (x + "ene") } } ; mk2N x y = case last y of { - "n" => regGenN x utrum ; - _ => regGenN x neutrum + "n" => mk3N x y (init y + "r") ; + _ => mk3N x y x } ; + mk3N x y z = let u = ifTok Str x z "ene" "ne" in mkN x y z (z + u) ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; regN2 n g = mkN2 (regGenN n g) (mkPreposition "av") ; mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; @@ -325,7 +332,7 @@ oper {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ; lock_NP = <>} ; - mkA a b c = (mkAdject a b c [] []) ** {lock_A = <>} ; + mkA = mk3ADeg ; mk2A a b = mkA a b (a + "e") ; regA a = (regADeg a) ** {lock_A = <>} ; @@ -341,7 +348,7 @@ oper }} ** {lock_A = <>} ; irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** {lock_A = <>} ; - mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") ** {lock_A = <>} ; + mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") ** {lock_A = <>} ; mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** {lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; diff --git a/lib/resource-1.0/english/ResEng.gf b/lib/resource-1.0/english/ResEng.gf index 1f862986f..7720e0def 100644 --- a/lib/resource-1.0/english/ResEng.gf +++ b/lib/resource-1.0/english/ResEng.gf @@ -174,10 +174,10 @@ resource ResEng = ParamX ** open Prelude in { VP : Type = { s : VerbForms ; - prp : Str ; -- present participle - inf : Str ; -- infinitive - ad : Str ; - s2 : Agr => Str + prp : Str ; -- present participle + inf : Str ; -- the infinitive form ; VerbForms would be the logical place + ad : Str ; -- sentential adverb + s2 : Agr => Str -- complement } ;