mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
started BasicGer
This commit is contained in:
aarne
@@ -30,7 +30,7 @@ oper
|
|||||||
postfixSS : Str -> SS -> SS = \f,x -> ss (x.s ++ f) ;
|
postfixSS : Str -> SS -> SS = \f,x -> ss (x.s ++ f) ;
|
||||||
embedSS : Str -> Str -> SS -> SS = \f,g,x -> ss (f ++ x.s ++ g) ;
|
embedSS : Str -> Str -> SS -> SS = \f,g,x -> ss (f ++ x.s ++ g) ;
|
||||||
|
|
||||||
id : (A : Type) -> A -> A ;
|
id : (A : Type) -> A -> A = \_,a -> a ;
|
||||||
|
|
||||||
-- discontinuous
|
-- discontinuous
|
||||||
SD2 = {s1,s2 : Str} ;
|
SD2 = {s1,s2 : Str} ;
|
||||||
|
|||||||
@@ -1,225 +1,228 @@
|
|||||||
----# -path=.:prelude
|
--# -path=.:../common:../abstract:../../prelude
|
||||||
--
|
|
||||||
--concrete BasicGer of Basic = CatGer ** open ParadigmsGer in {
|
concrete BasicGer of Basic = CatGer ** open ParadigmsGer in {
|
||||||
--
|
|
||||||
--flags
|
flags
|
||||||
-- startcat=Phr ; lexer=textlit ; unlexer=text ;
|
optimize=values ;
|
||||||
-- optimize=all ;
|
|
||||||
--
|
lin
|
||||||
--lin
|
airplane_N = regN "Flugzeug" ;
|
||||||
-- airplane_N = regN "airplane" ;
|
answer_V2S = mkV2S (regV "antworten") datPrep ;
|
||||||
-- answer_V2S = mkV2S (regV "answer") "to" ;
|
apartment_N = regN "Wohnung" ;
|
||||||
-- apartment_N = regN "apartment" ;
|
apple_N = reg2N "Apfel" "Äpfel" masculine ;
|
||||||
-- apple_N = regN "apple" ;
|
art_N = reg2N "Kunst" "Künste" feminine ;
|
||||||
-- art_N = regN "art" ;
|
ask_V2Q = mkV2Q (regV "fragen") accPrep ;
|
||||||
-- ask_V2Q = mkV2Q (regV "ask") [] ;
|
baby_N = reg2N "Baby" "babies" neuter ; ----
|
||||||
-- baby_N = regN "baby" ;
|
bad_A = regA "schlecht" ;
|
||||||
-- bad_A = regADeg "bad" ;
|
bank_N = reg2N "Bank" "Banken" feminine ; ----
|
||||||
-- bank_N = regN "bank" ;
|
beautiful_A = regA "schön" ;
|
||||||
-- beautiful_A = regADeg "beautiful" ;
|
become_VA = mkVA (mkV "werden" "wird" "werd" "wurde" "würde" "geworden") ;
|
||||||
-- become_VA = mkVA (irregV "become" "became" "become") ;
|
beer_N = reg2N "Bier" "Biere" neuter ;
|
||||||
-- beer_N = regN "beer" ;
|
---- beg_V2V = mkV2V (mkV "be" "ber""be" "blad" "bett" "bedd") [] "att" ;
|
||||||
-- beg_V2V = mkV2V (regDuplV "beg") [] "to" ;
|
big_A = mkA "groß" "groß" "größer""größt" ;
|
||||||
-- big_A = regADeg "big" ;
|
bike_N = reg2N "Fahrrad" "Fahrräder" neuter ;
|
||||||
-- bike_N = regN "bike" ;
|
---- bird_N = reg2N "fågel" "fåglar" ;
|
||||||
-- bird_N = regN "bird" ;
|
black_A = regA "schwarz" ;
|
||||||
-- black_A = regADeg "black" ;
|
blue_A = regA "blau";
|
||||||
-- blue_A = regADeg "blue" ;
|
boat_N = reg2N "Boot" "Boote" neuter ;
|
||||||
-- boat_N = regN "boat" ;
|
book_N = reg2N "Buch" "Bücher" neuter ;
|
||||||
-- book_N = regN "book" ;
|
-- boot_N = reg2N "stövel" "stövlar" ;
|
||||||
-- boot_N = regN "boot" ;
|
boss_N = reg2N "Chef" "Chefe" masculine ; ----
|
||||||
-- boss_N = regN "boss" ;
|
boy_N = reg2N "Junge" "Jungen" masculine ;
|
||||||
-- boy_N = regN "boy" ;
|
bread_N = reg2N "Brot" "Brote" neuter ; ----
|
||||||
-- bread_N = regN "bread" ;
|
break_V2 = dirV2 (prefixV "zer"
|
||||||
-- break_V2 = dirV2 (irregV "break" "broke" "broken") ;
|
(irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen")) ;
|
||||||
-- broad_A = regADeg "broad" ;
|
broad_A = regA "breit" ;
|
||||||
-- brother_N2 = regN2 "brother" ;
|
brother_N2 = mkN2 (reg2N "Bruder" "Brüder" masculine) zu_Prep ; ----
|
||||||
-- brown_A = regADeg "brown" ;
|
brown_A = regA "braun" ;
|
||||||
-- butter_N = regN "butter" ;
|
---- butter_N = regN "smör" ;
|
||||||
-- buy_V2 = dirV2 (irregV "buy" "bought" "bought") ;
|
buy_V2 = dirV2 (regV "kaufen") ;
|
||||||
-- camera_N = regN "camera" ;
|
---- camera_N = regN "kamera" ;
|
||||||
-- cap_N = regN "cap" ;
|
cap_N = regN "Mütze" ;
|
||||||
-- car_N = regN "car" ;
|
car_N = reg2N "Wagen" "Wagen" masculine ;
|
||||||
-- carpet_N = regN "carpet" ;
|
carpet_N = reg2N "Teppich" "Teppiche" masculine ;
|
||||||
-- cat_N = regN "cat" ;
|
cat_N = regN "Katze" ;
|
||||||
-- ceiling_N = regN "ceiling" ;
|
---- ceiling_N = regN "tak" ;
|
||||||
-- chair_N = regN "chair" ;
|
chair_N = reg2N "Stuhl" "Stühle" masculine ;
|
||||||
-- cheese_N = regN "cheese" ;
|
cheese_N = regN "Käse" ;
|
||||||
-- child_N = mk2N "child" "children" ;
|
child_N = reg2N "Kind" "Kinder" neuter ;
|
||||||
-- church_N = regN "church" ;
|
church_N = regN "Kirche" ;
|
||||||
-- city_N = regN "city" ;
|
city_N = reg2N "Stadt" "Städte" feminine ;
|
||||||
-- clean_A = regADeg "clean" ;
|
clean_A = regA "rein" ;
|
||||||
-- clever_A = regADeg "clever" ;
|
clever_A = regA "klug" ; ----
|
||||||
-- close_V2 = dirV2 (regV "close") ;
|
close_V2 = dirV2 (irregV "schliessen" "schließt" "schloß" "schlöße" "geschlossen") ;
|
||||||
-- coat_N = regN "coat" ;
|
coat_N = regN "Jacke" ;
|
||||||
-- cold_A = regADeg "cold" ;
|
cold_A = regA "Kalt" ;
|
||||||
-- come_V = (irregV "come" "came" "come") ;
|
{-
|
||||||
-- computer_N = regN "computer" ;
|
come_V = (mkV "komma" "kommer" "kom" "kom" "kommit" "kommen") ;
|
||||||
-- country_N = regN "country" ;
|
computer_N = reg2N "dator" "datorer" ;
|
||||||
-- cousin_N = regN "cousin" ;
|
country_N = mkN "land" "landet" "länder" "länderna" ;
|
||||||
-- cow_N = regN "cow" ;
|
cousin_N = reg2N "kusin" "kusinerna" ;
|
||||||
-- die_V = (regV "die") ;
|
cow_N = reg2N "ko" "kor" ;
|
||||||
-- dirty_A = regADeg "dirty" ;
|
die_V = (mkV "dö" "dör" "dö" "dog" "dött" "dödd") ; ----
|
||||||
-- distance_N3 = mkN3 (regN "distance") "from" "to" ;
|
distance_N3 = mkN3 (reg2N "avstånd" "avstånd") "från" "till" ;
|
||||||
-- doctor_N = regN "doctor" ;
|
dirty_A = regADeg "smutsig" ;
|
||||||
-- dog_N = regN "dog" ;
|
doctor_N = reg2N "läkare" "läkare" ;
|
||||||
-- door_N = regN "door" ;
|
dog_N = regN "hund" ;
|
||||||
-- drink_V2 = dirV2 (irregV "drink" "drank" "drunk") ;
|
door_N = regN "dörr" ;
|
||||||
-- easy_A2V = mkA2V (regA "easy") "for" ;
|
drink_V2 = dirV2 (irregV "dricka" "drack" "druckit") ;
|
||||||
-- eat_V2 = dirV2 (irregV "eat" "ate" "eaten") ;
|
easy_A2V = mkA2V (mk2A "lätt" "lätt") "för" ;
|
||||||
-- empty_A = regADeg "empty" ;
|
eat_V2 = dirV2 (irregV "äta" "åt" "ätit") ;
|
||||||
-- enemy_N = regN "enemy" ;
|
empty_A = mkADeg "tom" "tomt" "tomma" "tomma" "tommare" "tommast" "tommaste" ;
|
||||||
-- factory_N = regN "factory" ;
|
enemy_N = regN "fiende" ;
|
||||||
-- father_N2 = regN2 "father" ;
|
factory_N = reg2N "fabrik" "fabriker" ;
|
||||||
-- fear_VS = mkVS (regV "fear") ;
|
father_N2 = mkN2 ((mkN "far" "fadern" "fäder" "fäderna")) "till" ;
|
||||||
-- find_V2 = dirV2 (irregV "find" "found" "found") ;
|
fear_VS = mkVS (regV "frukta") ;
|
||||||
-- fish_N = mk2N "fish" "fish" ;
|
find_V2 = dirV2 (irregV "finna" "fann" "funnit") ;
|
||||||
-- floor_N = regN "floor" ;
|
fish_N = reg2N "fisk" "fiskar" ;
|
||||||
-- forget_V2 = dirV2 (irregV "forget" "forgot" "forgotten") ;
|
floor_N = regN "golv" ;
|
||||||
-- fridge_N = regN "fridge" ;
|
forget_V2 = dirV2 (mkV "glömma" "glömmer" "glöm" "glömde" "glömt" "glömd") ;
|
||||||
-- friend_N = regN "friend" ;
|
fridge_N = regN "kylskåp" ;
|
||||||
-- fruit_N = regN "fruit" ;
|
friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
|
||||||
-- fun_AV = mkAV (regA "fun") ;
|
fruit_N = reg2N "frukt" "frukter" ;
|
||||||
-- garden_N = regN "garden" ;
|
fun_AV = mkAV (regA "rolig") ;
|
||||||
-- girl_N = regN "girl" ;
|
garden_N = regN "trädgård" ;
|
||||||
-- glove_N = regN "glove" ;
|
girl_N = regN "flicka" ;
|
||||||
-- gold_N = regN "gold" ;
|
glove_N = regN "handske" ;
|
||||||
-- good_A = mkADeg "good" "well" "better" "best" ;
|
gold_N = regN "guld" ;
|
||||||
-- go_V = (mkV "go" "goes" "went" "gone" "going") ;
|
good_A = mkADeg "god" "gott" "goda" "goda" "bättre" "bäst" "bästa" ;
|
||||||
-- green_A = regADeg "green" ;
|
go_V = (mkV "gå" "går" "gå" "gick" "gått" "gången") ;
|
||||||
-- harbour_N = regN "harbour" ;
|
green_A = regADeg "grön" ;
|
||||||
-- hate_V2 = dirV2 (regV "hate") ;
|
harbour_N = regN "hamn";
|
||||||
-- hat_N = regN "hat" ;
|
hate_V2 = dirV2 (regV "hata") ;
|
||||||
-- have_V2 = dirV2 (mkV "have" "has" "had" "had" "having") ;
|
hat_N = regN "hatt" ;
|
||||||
-- hear_V2 = dirV2 (irregV "hear" "heard" "heard") ;
|
have_V2 = dirV2 (mkV "ha" "har" "ha" "hade" "haft" "haft") ; ---- pp
|
||||||
-- hill_N = regN "hill" ;
|
hear_V2 = dirV2 (mkV "höra" "hör" "hör" "hörde" "hört" "hörd") ;
|
||||||
-- hope_VS = mkVS (regV "hope") ;
|
hill_N = regN "kulle" ;
|
||||||
-- horse_N = regN "horse" ;
|
hope_VS = mkVS ((regV "önska")) ;
|
||||||
-- hot_A = regADeg "hot" ;
|
---- hope_VS = mkVS (depV (regV "hoppas")) ;
|
||||||
-- house_N = regN "house" ;
|
horse_N = regN "häst" ;
|
||||||
-- important_A = compoundADeg (regA "important") ;
|
hot_A = regADeg "het" ;
|
||||||
-- industry_N = regN "industry" ;
|
house_N = regN "hus" ;
|
||||||
-- iron_N = regN "iron" ;
|
important_A = regADeg "viktig" ;
|
||||||
-- king_N = regN "king" ;
|
industry_N = reg2N "industri" "industrier" ; ---- "ien" ??
|
||||||
-- know_V2 = dirV2 (irregV "know" "knew" "known") ;
|
iron_N = regN "järn" ;
|
||||||
-- lake_N = regN "lake" ;
|
king_N = (regN "kung") ;
|
||||||
-- lamp_N = regN "lamp" ;
|
know_V2 = dirV2 (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ;
|
||||||
-- learn_V2 = dirV2 (regV "learn") ;
|
lake_N = mkN "sjö" "sjön" "sjöar" "sjöarna" ;
|
||||||
-- leather_N = regN "leather" ;
|
lamp_N = regN "lampa";
|
||||||
-- leave_V2 = dirV2 (irregV "leave" "left" "left") ;
|
learn_V2 = dirV2 (mkV "lära" "lär" "lär" "lärde" "lärt" "lärd") ; ---- refl!
|
||||||
-- like_V2 = dirV2 (regV "like") ;
|
leather_N = mkN "läder" "lädret" "läder" "lädren" ;
|
||||||
-- listen_V2 = dirV2 (regV "listen") ;
|
leave_V2 = dirV2 (regV "lämna") ;
|
||||||
-- live_V = (regV "live") ;
|
like_V2 = mkV2 (mk2V "tycka" "tyckte") "om" ;
|
||||||
-- long_A = regADeg "long" ;
|
listen_V2 = mkV2 (regV "lyssna") "på" ;
|
||||||
-- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
|
live_V = (irregV "leva" "levde" "levt") ; ---- ?
|
||||||
-- love_N = regN "love" ;
|
long_A = irregADeg "lång" "längre" "längst" ;
|
||||||
-- love_V2 = dirV2 (regV "love") ;
|
lose_V2 = dirV2 (regV "förlora") ;
|
||||||
-- man_N = mk2N "man" "men" ;
|
love_N = regN "kärlek" ;
|
||||||
-- married_A2 = mkA2 (regA "married") "to" ;
|
love_V2 = dirV2 (regV "älska") ;
|
||||||
-- meat_N = regN "meat" ;
|
man_N = (mkN "man" "mannen" "män" "männen") ;
|
||||||
-- milk_N = regN "milk" ;
|
married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
|
||||||
-- moon_N = regN "moon" ;
|
meat_N = regN "kött" ;
|
||||||
-- mother_N2 = regN2 "mother" ;
|
milk_N = regN "mjölk" ; ---- -ar?
|
||||||
-- mountain_N = regN "mountain" ;
|
moon_N = regN "måne" ;
|
||||||
-- music_N = regN "music" ;
|
mother_N2 = mkN2 (mkN "mor" "modern" "mödrar" "mödrarna") "till" ;
|
||||||
-- narrow_A = regADeg "narrow" ;
|
mountain_N = regN "berg" ;
|
||||||
-- new_A = regADeg "new" ;
|
music_N = reg2N "musik" "musiker" ; ---- er ?
|
||||||
-- newspaper_N = regN "newspaper" ;
|
narrow_A = regADeg "smal" ;
|
||||||
-- oil_N = regN "oil" ;
|
new_A = mkADeg "ny" "nytt" "nya" "nya" "nyare" "nyast" "nyaste" ;
|
||||||
-- old_A = regADeg "old" ;
|
newspaper_N = regN "tidning" ;
|
||||||
-- open_V2 = dirV2 (regV "open") ;
|
|
||||||
-- paint_V2A = mkV2A (regV "paint") [] ;
|
oil_N = regN "olja" ;
|
||||||
-- paper_N = regN "paper" ;
|
old_A = mkADeg "gammal" "gammalt" "gamla" "gamla" "äldre" "äldst" "äldsta" ;
|
||||||
-- peace_N = regN "peace" ;
|
open_V2 = dirV2 (regV "öppna") ;
|
||||||
-- pen_N = regN "pen" ;
|
paint_V2A = mkV2A (regV "måla") [] ;
|
||||||
-- planet_N = regN "planet" ;
|
paper_N = mkN "papper" "pappret" "papper" "pappren" ;
|
||||||
-- plastic_N = regN "plastic" ;
|
peace_N = regN "fred" ; ---- ar?
|
||||||
-- play_V2 = dirV2 (regV "play") ;
|
pen_N = regN "penna" ;
|
||||||
-- policeman_N = regN "policeman" ;
|
planet_N = reg2N "planet" "planeter" ;
|
||||||
-- priest_N = regN "priest" ;
|
plastic_N = reg2N "plast" "plaster" ;
|
||||||
-- probable_AS = mkAS (regA "probable") ;
|
play_V2 = dirV2 (regV "spela") ;
|
||||||
-- queen_N = regN "queen" ;
|
policeman_N = reg2N "polis" "poliser" ;
|
||||||
-- radio_N = regN "radio" ;
|
priest_N = reg2N "präst" "präster" ;
|
||||||
-- rain_V0 = mkV0 (regV "rain") ;
|
probable_AS = mkAS (regA "sannolik") ;
|
||||||
-- read_V2 = dirV2 (irregV "read" "read" "read") ;
|
queen_N = regN "drottning" ;
|
||||||
-- red_A = regADeg "red" ;
|
radio_N = regN "radio" ; ----
|
||||||
-- religion_N = regN "religion" ;
|
rain_V0 = mkV0 (regV "regna") ;
|
||||||
-- restaurant_N = regN "restaurant" ;
|
read_V2 = dirV2 (mk2V "läsa" "läste") ;
|
||||||
-- river_N = regN "river" ;
|
red_A = mk2ADeg "röd" "rött" ;
|
||||||
-- rock_N = regN "rock" ;
|
religion_N = reg2N "religion" "religioner" ;
|
||||||
-- roof_N = regN "roof" ;
|
restaurant_N = reg2N "restaurang" "restauranger" ;
|
||||||
-- rubber_N = regN "rubber" ;
|
river_N = mkN "å" "ån" "åar" "åarna" ;
|
||||||
-- run_V = (irregDuplV "run" "ran" "run") ;
|
rock_N = regN "sten" ;
|
||||||
-- say_VS = mkVS (irregV "say" "said" "said") ;
|
roof_N = regN "tak" ;
|
||||||
-- school_N = regN "school" ;
|
rubber_N = mkN "gummi" "gummit" "gummin" "gummina" ;
|
||||||
-- science_N = regN "science" ;
|
run_V = (irregV "springa" "sprang" "sprungit") ;
|
||||||
-- sea_N = regN "sea" ;
|
say_VS = mkVS (mkV "säga" "säger" "säg" "sade" "sagt" "sagd") ;
|
||||||
-- seek_V2 = dirV2 (irregV "seek" "sought" "sought") ;
|
school_N = regN "skola";
|
||||||
-- see_V2 = dirV2 (irregV "see" "saw" "seen") ;
|
science_N = reg2N "vetenskap" "vetenskaper" ;
|
||||||
-- sell_V3 = dirV3 (irregV "sell" "sold" "sold") "to" ;
|
sea_N = mkN "sjö" "sjön" "sjöar" "sjöarna" ;
|
||||||
-- send_V3 = dirV3 (irregV "send" "sent" "sent") "to" ;
|
seek_V2 = dirV2 (mk2V "söka" "sökte") ;
|
||||||
-- sheep_N = mk2N "sheep" "sheep" ;
|
see_V2 = dirV2 (mkV "se" "ser" "se" "såg" "sett" "sedd") ;
|
||||||
-- ship_N = regN "ship" ;
|
sell_V3 = dirV3 (irregV "sälja" "sålde" "sålt") "till" ;
|
||||||
-- shirt_N = regN "shirt" ;
|
send_V3 = dirV3 (regV "skicka") "till" ;
|
||||||
-- shoe_N = regN "shoe" ;
|
sheep_N = reg2N "får" "får" ;
|
||||||
-- shop_N = regN "shop" ;
|
ship_N = regN "skepp" ;
|
||||||
-- short_A = regADeg "short" ;
|
shirt_N = regN "skjorta" ;
|
||||||
-- silver_N = regN "silver" ;
|
shoe_N = regN "sko" ;
|
||||||
-- sister_N = regN "sister" ;
|
shop_N = reg2N "affär" "affären" ;
|
||||||
-- sleep_V = (irregV "sleep" "slept" "slept") ;
|
short_A = regADeg "kort" ;
|
||||||
-- small_A = regADeg "small" ;
|
silver_N = mkN "silver" "silvret" "silver" "silvren" ;
|
||||||
-- snake_N = regN "snake" ;
|
sister_N = reg2N "syster" "systrar" ;
|
||||||
-- sock_N = regN "sock" ;
|
sleep_V = (irregV "sova" "sov" "sovit") ;
|
||||||
-- speak_V2 = dirV2 (irregV "speak" "spoke" "spoken") ;
|
small_A = mkADeg "liten" "litet" "lilla" "små" "mindre" "minst" "minsta" ;
|
||||||
-- star_N = regN "star" ;
|
snake_N = regN "orm" ;
|
||||||
-- steel_N = regN "steel" ;
|
sock_N = regN "strumpa" ;
|
||||||
-- stone_N = regN "stone" ;
|
speak_V2 = dirV2 (regV "tala") ;
|
||||||
-- stove_N = regN "stove" ;
|
star_N = regN "stjärna" ;
|
||||||
-- student_N = regN "student" ;
|
steel_N = regN "stål" ;
|
||||||
-- stupid_A = regADeg "stupid" ;
|
stone_N = regN "sten" ;
|
||||||
-- sun_N = regN "sun" ;
|
stove_N = regN "spis" ;
|
||||||
-- switch8off_V2 = dirV2 (partV (regV "switch") "off") ;
|
student_N = reg2N "student" "studenter" ;
|
||||||
-- switch8on_V2 = dirV2 (partV (regV "switch") "on") ;
|
stupid_A = mk3ADeg "dum" "dumt" "dumma" ;
|
||||||
-- table_N = regN "table" ;
|
sun_N = regN "sol" ;
|
||||||
-- talk_V3 = mkV3 (regV "talk") "to" "about" ;
|
switch8off_V2 = dirV2 (partV (irregV "stänga" "stängde" "stängt") "av") ;
|
||||||
-- teacher_N = regN "teacher" ;
|
switch8on_V2 = dirV2 (partV (irregV "slå" "slog" "slagit") "på") ;
|
||||||
-- teach_V2 = dirV2 (irregV "teach" "taught" "taught") ;
|
table_N = regN "bord" ;
|
||||||
-- television_N = regN "television" ;
|
talk_V3 = mkV3 (regV "prata") "till" "om" ;
|
||||||
-- thick_A = regADeg "thick" ;
|
teacher_N = reg2N "lärare" "lärare" ;
|
||||||
-- thin_A = regADeg "thin" ;
|
teach_V2 = dirV2 (regV "undervisa") ;
|
||||||
-- train_N = regN "train" ;
|
television_N = reg2N "television" "televisioner" ;
|
||||||
-- travel_V = (regDuplV "travel") ;
|
thick_A = regADeg "tjock" ;
|
||||||
-- tree_N = regN "tree" ;
|
thin_A = mk2ADeg "tunn" "tunt" ;
|
||||||
-- ---- trousers_N = regN "trousers" ;
|
train_N = regN "tåg" ;
|
||||||
-- ugly_A = regADeg "ugly" ;
|
travel_V = mk2V "resa" "reste" ;
|
||||||
-- understand_V2 = dirV2 (irregV "understand" "understood" "understood") ;
|
tree_N = regN "träd" ;
|
||||||
-- university_N = regN "university" ;
|
---- trousers_N = regN "trousers" ; ---- pl t !
|
||||||
-- village_N = regN "village" ;
|
ugly_A = regADeg "ful" ;
|
||||||
-- wait_V2 = mkV2 (regV "wait") "for" ;
|
understand_V2 = dirV2 (mkV "förstå" "förstår" "förstå" "förstod" "förstått" "förstådd") ;
|
||||||
-- walk_V = (regV "walk") ;
|
university_N = regN "universitet" ;
|
||||||
-- warm_A = regADeg "warm" ;
|
village_N = mkN "by" "byn" "byar" "byarna" ;
|
||||||
-- war_N = regN "war" ;
|
wait_V2 = mkV2 (regV "vänta") "på" ;
|
||||||
-- watch_V2 = dirV2 (regV "watch") ;
|
walk_V = (mkV "gå" "går" "gå" "gick" "gått" "gången") ;
|
||||||
-- water_N = regN "water" ;
|
warm_A = regADeg "varm" ;
|
||||||
-- white_A = regADeg "white" ;
|
war_N = regN "krig" ;
|
||||||
-- window_N = regN "window" ;
|
watch_V2 = mkV2 (regV "titta") "på" ;
|
||||||
-- wine_N = regN "wine" ;
|
water_N = mkN "vatten" "vattnet" "vatten" "vattnen" ;
|
||||||
-- win_V2 = dirV2 (irregV "win" "won" "won") ;
|
white_A = regADeg "vit" ;
|
||||||
-- woman_N = mk2N "woman" "women" ;
|
window_N = mkN "fönster" "fönstret" "fönster" "fönstren" ;
|
||||||
-- wonder_VQ = mkVQ (regV "wonder") ;
|
wine_N = mkN "vin" "vinet" "viner" "vinerna" ; ----
|
||||||
-- wood_N = regN "wood" ;
|
win_V2 = dirV2 (irregV "vinna" "vann" "vunnit") ;
|
||||||
-- write_V2 = dirV2 (irregV "write" "wrote" "written") ;
|
woman_N = regN "kvinna" ;
|
||||||
-- yellow_A = regADeg "yellow" ;
|
wonder_VQ = mkVQ (regV "undra") ;
|
||||||
-- young_A = regADeg "young" ;
|
wood_N = mkN "trä" "träet" "träen" "träena" ; ---- ?
|
||||||
--
|
write_V2 = dirV2 (irregV "skriva" "skrev" "skrivit") ;
|
||||||
-- do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ;
|
yellow_A = regADeg "gul" ;
|
||||||
-- now_Adv = mkAdv "now" ;
|
young_A = irregADeg "ung" "yngre" "yngst" ;
|
||||||
-- already_Adv = mkAdv "already" ;
|
|
||||||
-- song_N = regN "song" ;
|
do_V2 = dirV2 (mkV "göra" "gör" "gör" "gjorde" "gjort" "gjord") ;
|
||||||
-- add_V3 = dirV3 (regV "add") "to" ;
|
now_Adv = mkAdv "nu" ;
|
||||||
-- number_N = regN "number" ;
|
already_Adv = mkAdv "redan" ;
|
||||||
-- put_V2 = mkV2 (irregDuplV "put" "put" "put") [] ;
|
song_N = reg2N "sång" "sånger" ;
|
||||||
-- stop_V = regDuplV "stop" ;
|
add_V3 = mkV3 (partV (irregV "lägga" "lade" "lagt") "till") [] "till" ;
|
||||||
-- jump_V = regV "jump" ;
|
number_N = mkN "nummer" "numret" "numren" "numren" ;
|
||||||
--
|
put_V2 = mkV2 (mkV "sätta" "sätter" "sätt" "satte" "satt" "satt") [] ;
|
||||||
--} ;
|
stop_V = regV "stanna" ;
|
||||||
|
jump_V = regV "hoppa" ;
|
||||||
|
-}
|
||||||
|
} ;
|
||||||
|
|||||||
@@ -107,7 +107,7 @@ oper
|
|||||||
|
|
||||||
-- Adjectives need four forms: two for the positive and one for the other degrees.
|
-- Adjectives need four forms: two for the positive and one for the other degrees.
|
||||||
|
|
||||||
mkA : (x1,_,_,x4 : Str) -> A ; -- gut,gute,besser,best
|
mkA : (x1,_,_,x4 : Str) -> A ; -- gut,gut,besser,best
|
||||||
|
|
||||||
-- The regular adjective formation works for most cases, and includes
|
-- The regular adjective formation works for most cases, and includes
|
||||||
-- variations such as "teuer - teurer", "böse - böser".
|
-- variations such as "teuer - teurer", "böse - böser".
|
||||||
@@ -128,6 +128,16 @@ oper
|
|||||||
|
|
||||||
mkPrep : Str -> Case -> Prep ;
|
mkPrep : Str -> Case -> Prep ;
|
||||||
|
|
||||||
|
-- Often just a case with the empty string is enough.
|
||||||
|
|
||||||
|
accPrep : Prep ;
|
||||||
|
datPrep : Prep ;
|
||||||
|
genPrep : Prep ;
|
||||||
|
|
||||||
|
-- A couple of common prepositions (always with the dative).
|
||||||
|
|
||||||
|
von_Prep : Prep ;
|
||||||
|
zu_Prep : Prep ;
|
||||||
|
|
||||||
--2 Verbs
|
--2 Verbs
|
||||||
|
|
||||||
@@ -167,12 +177,13 @@ oper
|
|||||||
|
|
||||||
--3 Two-place verbs
|
--3 Two-place verbs
|
||||||
--
|
--
|
||||||
-- Two-place verbs need a preposition, except the special case with direct object.
|
-- Two-place verbs need a preposition, except the special case with direct object
|
||||||
-- (transitive verbs). Notice that a particle comes from the $V$.
|
-- (accusative, transitive verbs). There is also a case for dative objects.
|
||||||
|
|
||||||
mkV2 : V -> Prep -> V2 ;
|
mkV2 : V -> Prep -> V2 ;
|
||||||
|
|
||||||
dirV2 : V -> V2 ;
|
dirV2 : V -> V2 ;
|
||||||
|
datV2 : V -> V2 ;
|
||||||
|
|
||||||
--3 Three-place verbs
|
--3 Three-place verbs
|
||||||
--
|
--
|
||||||
@@ -286,6 +297,11 @@ oper
|
|||||||
mkA2 = \a,p -> a ** {c2 = p ; lock_A2 = <>} ;
|
mkA2 = \a,p -> a ** {c2 = p ; lock_A2 = <>} ;
|
||||||
|
|
||||||
mkPrep s c = {s = s ; c = c ; lock_Prep = <>} ;
|
mkPrep s c = {s = s ; c = c ; lock_Prep = <>} ;
|
||||||
|
accPrep = mkPrep [] accusative ;
|
||||||
|
datPrep = mkPrep [] dative ;
|
||||||
|
genPrep = mkPrep [] genitive ;
|
||||||
|
von_Prep = mkPrep "von" dative ;
|
||||||
|
zu_Prep = mkPrep "zu" dative ;
|
||||||
|
|
||||||
mkV geben gibt gib gab gaebe gegeben =
|
mkV geben gibt gib gab gaebe gegeben =
|
||||||
let
|
let
|
||||||
@@ -316,6 +332,30 @@ oper
|
|||||||
in
|
in
|
||||||
mkV singen singt sing sang saenge gesungen ;
|
mkV singen singt sing sang saenge gesungen ;
|
||||||
|
|
||||||
|
prefixV p v = {s = v.s ; prefix = p ; lock_V = v.lock_V ; aux = v.aux} ;
|
||||||
|
habenV v = {s = v.s ; prefix = v.prefix ; lock_V = v.lock_V ; aux = VHaben} ;
|
||||||
|
seinV v = {s = v.s ; prefix = v.prefix ; lock_V = v.lock_V ; aux = VSein} ;
|
||||||
|
|
||||||
|
no_geV v = let vs = v.s in {
|
||||||
|
s = table {
|
||||||
|
p@(VPastPart _) => Predef.drop 2 (vs ! p) ;
|
||||||
|
p => vs ! p
|
||||||
|
} ;
|
||||||
|
prefix = v.prefix ; lock_V = v.lock_V ; aux = v.aux
|
||||||
|
} ;
|
||||||
|
|
||||||
|
mkV2 v c = v ** {c2 = c ; lock_V2 = <>} ;
|
||||||
|
dirV2 v = mkV2 v (mkPrep [] accusative) ;
|
||||||
|
datV2 v = mkV2 v (mkPrep [] dative) ;
|
||||||
|
|
||||||
|
mkV3 v c d = v ** {c2 = c ; c3 = d ; lock_V3 = <>} ;
|
||||||
|
dirV3 v p = mkV3 v (mkPrep [] accusative) p ;
|
||||||
|
accdatV3 v = dirV3 v (mkPrep [] dative) ;
|
||||||
|
|
||||||
|
mkVS v = v ** {lock_VS = <>} ;
|
||||||
|
mkVQ v = v ** {lock_VQ = <>} ;
|
||||||
|
mkVV v = v ** {isAux = False ; lock_VV = <>} ;
|
||||||
|
|
||||||
V0 : Type = V ;
|
V0 : Type = V ;
|
||||||
V2S, V2V, V2Q, V2A : Type = V2 ;
|
V2S, V2V, V2Q, V2A : Type = V2 ;
|
||||||
AS, A2S, AV : Type = A ;
|
AS, A2S, AV : Type = A ;
|
||||||
|
|||||||
@@ -203,3 +203,5 @@ ParamGer: removed Strong/Weak from AForm to save lexicon storage. Done in agrAdj
|
|||||||
Only affects NounGer and QuestionGer. Notice that making case analysis on <a,gn,c> is
|
Only affects NounGer and QuestionGer. Notice that making case analysis on <a,gn,c> is
|
||||||
much less storage-efficient.
|
much less storage-efficient.
|
||||||
|
|
||||||
|
ParadigmsGer: completed
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user