resource specialized to present tense ; preprocessor flag

2026-05-06 17:52:51 -06:00 · 2006-02-25 18:59:32 +00:00
parent af0dfe0921
commit 9b0036457c
57 changed files with 6560 additions and 6493 deletions
--- a/examples/bronzeage/SwadeshNor.gf
+++ b/examples/bronzeage/SwadeshNor.gf
@@ -0,0 +1,246 @@
+--# -path=.:../norwegian:../common:../abstract:../scandinavian:../../prelude
+
+concrete SwadeshNor of Swadesh = CatNor
+  ** open MorphoNor, LangNor, ParadigmsNor, IrregNor, Prelude in {
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {s = \\_,_ => "alle" ; n = Pl ; det = DDef Indef} ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
+    other_Det = {s = \\_,_ => "andre" ; n = Pl ; det = DDef Indef} ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv ;
+    there_Adv = there_Adv ;
+    where_IAdv = where_IAdv ;
+    when_IAdv = when_IAdv ;
+    how_IAdv = how_IAdv ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = ss "ved" ;
+    in_Prep = ss "i" ;
+    with_Prep = ss "med" ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "riktig" ;
+    dirty_A = dirty_A ;
+    dry_A = mk2A "tørr" "tørt" ;
+    dull_A = regA "sløv" ;
+    full_A = regA "full" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = irregADeg "tung" "tyngre" "tyngst" ;
+    left_A = mkA "venstre" "venstre" "venstre" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = mkADeg "nære" "nære" "nære" "nærmere" "nærmest" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    right_A = mkA "høyre" "høyre" "høyre" ;
+    rotten_A = mk3ADeg "råtten" "råttent" "råtne" ;
+    round_A = regA "rund" ;
+    sharp_A = mk2A "kvass" "kvast" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = mk2A "slett" "slett" ;
+    straight_A = regA "rak" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "våt" ;
+    white_A = white_A ;
+    wide_A = regA "bred" ;
+    yellow_A = yellow_A ;
+
+
+    -- Nouns
+
+    animal_N = mk2N "dyr" "dyret" ;
+    ashes_N = mk2N "aske" "aska" ;
+    back_N = mk2N "rygg" "ryggen" ;
+    bark_N = mk2N "bark" "barken" ;
+    belly_N = mk2N "mage" "magen" ;
+    bird_N = bird_N ;
+    blood_N = mk2N "blod" "blodet" ;
+    bone_N = mk2N "bein" "beinet" ;
+    breast_N = mk2N "bryst" "brystet" ;
+    child_N = child_N ;
+    cloud_N = mk2N "sky" "skya" ;
+    day_N = mk2N "dag" "dagen" ;
+    dog_N = dog_N ;
+    dust_N = mk2N "støv" "støvet" ;
+    ear_N = mk2N "øre" "øret" ;
+    earth_N = mk2N "jord" "jorda" ;
+    egg_N = mk2N "egg" "egget" ;
+    eye_N = mkN "øye" "øyet" "øyne" "øynene" ;
+    fat_N = mk2N "fett" "fettet" ;
+    father_N = mkN "far" "faren" "fedre" "fedrene" ;
+--    father_N = UseN2 father_N2 ;
+    feather_N = mk2N "fjør" "fjøra" ;
+    fingernail_N = mk2N "negl" "neglen" ;
+    fire_N = mk2N "ild" "ilden" ;
+    fish_N = fish_N ;
+    flower_N = mk2N "blomst" "blomsten" ;
+    fog_N = mk2N "tåke" "tåka" ;
+    foot_N = mk2N "fot" "føtter" ;
+    forest_N = mk2N "skog" "skogen" ;
+    fruit_N = fruit_N ;
+    grass_N = mk2N "gras" "graset" ;
+    guts_N = mk2N "tarm" "tarmen" ; ---- involler
+    hair_N = mk2N "hår" "håret" ;
+    hand_N = mk2N "hånd" "hånden" ;
+
+    head_N = mk2N "hode" "hodet" ;
+    heart_N = mk2N "hjerte" "hjertet" ;
+    horn_N = mk2N "horn" "hornet" ;
+    husband_N = mkN "ektemann" "ektemannen" "ektemenn" "ektemennen" ;
+    ice_N = mk2N "is" "isen" ;
+    knee_N = mkN "kne" "kneet" "knær" "knæne" ;
+    lake_N = lake_N ;
+    leaf_N = mk2N "løv" "løvet" ;
+    leg_N = mk2N "bein" "beinet" ;
+    liver_N = mkN "lever" "leveren" "levrer" "levrene" ;
+    louse_N = mk2N "lus" "lusa" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = mkN "mor" "moren" "mødre" "mødrene" ;
+--    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = mk2N "munn" "munnen" ;
+    name_N = mk2N "navn" "navnet" ;
+    neck_N = mk2N "nakke" "nakken" ;
+    night_N = mkN "natt" "natta" "netter" "nettene" ;
+    nose_N = mk2N "nese" "nesen" ;
+    person_N = mk2N "person" "personen" ;
+    rain_N = mk2N "regn" "regnet" ;
+    river_N = river_N ;
+    road_N = mk2N "vei" "veien" ;
+    root_N = mkN "rot" "rota" "røtter" "røttene" ;
+    rope_N = mk2N "tau" "tauet" ;
+    salt_N = mk2N "salt" "saltet" ;
+    sand_N = mk2N "sand" "sanden" ;
+    sea_N = sea_N ;
+    seed_N = mk2N "frø" "frøet" ;
+    skin_N = mk2N "skinn" "skinnet" ;
+    sky_N = mkN "himmel" "himmelen" "himler" "himlene" ;
+    smoke_N = mk2N "røyk" "røyken" ;
+    snake_N = snake_N ;
+    snow_N = mk2N "snø" "snøen" ;
+    star_N = star_N ;
+    stick_N = mk2N "pinne" "pinnen" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = mk2N "hale" "halen" ;
+    tongue_N = mk2N "tunge" "tunga" ;
+    tooth_N = mkN "tann" "tanna" "tenner" "tennene" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = mk2N "kone" "kona" ;
+    wind_N = mk2N "vind" "vinden" ;
+    wing_N = mk2N "vinge" "vingen" ;
+    woman_N = woman_N ;
+    worm_N = mk2N "mark" "marken" ;
+    year_N = mk2N "år" "året" ;
+
+    -- Verbs
+
+    bite_V = dirV2 (IrregNor.bite_V) ;
+    blow_V = mk2V "blåse" "blåste" ;
+    breathe_V = dirV2 (regV "puste") ;
+    burn_V = brenne_V ;
+    come_V = komme_V ;
+    count_V = dirV2 (regV "regne") ;
+    cut_V = dirV2 (skjære_V) ;
+    die_V = dø_V ;
+    dig_V = mk2V "grave" "gravde" ;
+    drink_V = dirV2 (drikke_V) ;
+    eat_V = dirV2 (mk2V "spise" "spiste") ;
+    fall_V = falle_V ;
+    fear_V = dirV2 (regV "frykte") ;
+    fight_V = dirV2 (slåss_V) ;
+    float_V = flyte_V ;
+    flow_V = renne_V ;
+    fly_V = fly_V ;
+    freeze_V = fryse_V ;
+    give_V = dirdirV3 gi_V ;
+    hear_V = dirV2 (mk2V "høre" "hørde") ;
+    hit_V = dirV2 (slå_V) ;
+    hold_V = dirV2 (holde_V) ;
+    hunt_V = dirV2 (regV "jakte") ;
+    kill_V = dirV2 (mk2V "drepe" "drepte") ;
+    know_V = dirV2 (vite_V) ;
+    laugh_V = mkV "le" "ler" "les" "lo" "ledd" "le" ;
+    lie_V = ligge_V ;
+    live_V = mk2V "leve" "levde" ;
+    play_V = mk2V "leke" "lekte" ;
+    pull_V = dirV2 (dra_V) ;
+    push_V = dirV2 (irregV "skyve" "skjøv" "skjøvet") ;
+    rub_V = dirV2 (gni_V) ;
+    say_V = si_V ;
+    scratch_V = dirV2 (regV "klø") ;
+    see_V = dirV2 (se_V) ;
+    sew_V = mk2V "sy" "sydde" ;
+    sing_V = synge_V ;
+    sit_V = sitte_V ;
+    sleep_V = sove_V ;
+    smell_V = dirV2 (regV "lukte") ;
+    spit_V = regV "spytte" ;
+    split_V = dirV2 (mk2V "kløyve" "kløyvde") ;
+    squeeze_V = dirV2 (mk2V "klemme" "klemte") ;
+    stab_V = dirV2 (stikke_V) ;
+    stand_V = stå_V ;
+    suck_V = dirV2 (suge_V) ;
+    swell_V = partV (regV "hovne") "opp" ;
+    swim_V = regV "simme" ;
+    think_V = mk2V "tenke" "tenkte" ;
+    throw_V = dirV2 (regV "kaste") ;
+    tie_V = dirV2 (regV "knytte") ;
+    turn_V = mk2V "vende" "vendte" ;
+    vomit_V = partV (regV "kaste") "opp" ;
+    walk_V = gå_V ;
+    wash_V = dirV2 (regV "vaske") ;
+    wipe_V = dirV2 (regV "tørke") ;
+
+}