resource specialized to present tense ; preprocessor flag

1 files changed, 260 insertions, 0 deletions

diff --git a/examples/bronzeage/SwadeshFin.gf b/examples/bronzeage/SwadeshFin.gf
new file mode 100644
index 000000000..b41687bee
--- /dev/null
+++ b/examples/bronzeage/SwadeshFin.gf
@@ -0,0 +1,260 @@
+--# -path=.:../present:../finnish:../common:../abstract:../../prelude
+
+concrete SwadeshFin of Swadesh = CatFin
+  ** open MorphoFin, LangFin, ParadigmsFin, Prelude in {
+
+  flags optimize=values ;
+
+  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 = mkDet Pl {s = \\nf => 
+      let
+        kaiket = (nhn (sKorpi "kaikki" "kaiken" "kaikkena")).s
+      in
+      case nf of {
+        NCase Pl Nom => "kaikki" ;
+        _ => kaiket ! nf
+        }
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = mkDet Sg (regN "harva") ;
+    other_Det = mkDet Sg (regN "muu") ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+    far_Adv = mkAdv "kaukana" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = casePrep adessive ;
+    in_Prep = casePrep inessive ;
+    with_Prep = postGenPrep "kanssa" ;
+
+    -- 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 "oikea" ;
+    dirty_A = dirty_A ;
+    dry_A = mkADeg (regN "kuiva") "kuivempi" "kuivin" ;
+    dull_A = mkADeg (regN "tylsä") "tylsempi" "tylsin" ;
+    full_A = mkADeg (reg3N "täysi" "täyden" "täysiä") "täydempi" "täysin" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "raskas" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "läheinen" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = regA "mätä" ;
+    round_A = regA "pyöreä" ;
+    sharp_A = regA "terävä" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "sileä" ;
+    straight_A = mkADeg (regN "suora") "suorempi" "suorin" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = mkADeg (regN "märkä") "märempi" "märin" ;
+    white_A = white_A ;
+    wide_A = regA "leveä" ;
+    yellow_A = yellow_A ;
+
+    left_A = mkA (regN "vasen") ; ----
+    right_A = mkA (regN "oikea") ;
+
+    -- Nouns
+
+    animal_N = reg3N "eläin" "eläimen" "eläimiä" ;
+    ashes_N = regN "tuhka" ;
+    back_N = regN "selkä" ;
+    bark_N = regN "kaarna" ;
+    belly_N = regN "vatsa" ;
+    bird_N = bird_N;
+    blood_N = nMeri "veri" ;
+    bone_N = regN "luu" ;
+    breast_N = regN "rinta" ;
+    child_N = child_N ;
+    cloud_N = reg2N "pilvi" "pilviä" ;
+    day_N = regN "päivä" ;
+    dog_N = dog_N ;
+    dust_N = regN "pöly" ;
+    ear_N = regN "korva" ;
+    earth_N = regN "maa" ;
+    egg_N = regN "muna" ;
+    eye_N = regN "silmä" ;
+    fat_N = regN "rasva" ;
+    father_N = regN "isä" ;
+    feather_N = reg3N "höyhen" "höyhenen" "höyheniä" ;
+    fingernail_N = reg3N "kynsi" "kynnen" "kynsiä" ;
+    fire_N = reg2N "tuli" "tulia" ;
+    fish_N = fish_N ;
+    flower_N = regN "kukka" ;
+    fog_N = regN "sumu" ;
+    foot_N = regN "jalka" ;
+    forest_N = regN "metsä" ;
+    fruit_N = fruit_N ;
+    grass_N = regN "ruoho" ;
+    guts_N = regN "sisälmys" ; --- suoli
+    hair_N = regN "hius" ;
+    hand_N = reg3N "käsi" "käden" "käsiä" ;
+    head_N = regN "pää" ;
+    heart_N = reg3N "sydän" "sydämen" "sydämiä" ;
+    horn_N = reg2N "sarvi" "sarvia" ;
+    husband_N = man_N ; --- aviomies
+    ice_N = regN "jää" ;
+    knee_N = reg2N "polvi" "polvia" ;
+    lake_N = lake_N ;
+    leaf_N = reg2N "lehti" "lehtiä" ;
+    leg_N = regN "jalka" ; --- sääri
+    liver_N = regN "maksa" ;
+    louse_N = regN "lude" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = regN "äiti" ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "suu" ;
+    name_N = reg2N "nimi" "nimiä" ;
+    neck_N = regN "niska" ;
+    night_N = regN "yö" ;
+    nose_N = regN "nenä" ;
+    person_N = regN "henkilö" ;
+    rain_N = regN "sade" ;
+    river_N = river_N ;
+    road_N = regN "tie" ;
+    root_N = reg2N "juuri" "juuria" ;
+    rope_N = reg3N "köysi" "köyden" "köysiä" ;
+    salt_N = regN "suola" ;
+    sand_N = regN "hiekka" ;
+    sea_N = sea_N ;
+    seed_N = regN "siemen" ;
+    skin_N = regN "nahka" ;
+    sky_N = reg3N "taivas" "taivaan" "taivaita" ;
+    smoke_N = regN "savu" ;
+    snake_N = snake_N ;
+    snow_N = sgpartN (nMeri "lumi") "lunta" ;
+    star_N = star_N ;
+    stick_N = regN "keppi" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "häntä" ;
+    tongue_N = reg2N "kieli" "kieliä" ;
+    tooth_N = regN "hammas" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = regN "vaimo" ;
+    wind_N = reg2N "tuuli" "tuulia" ;
+    wing_N = reg2N "siipi" "siipiä" ;
+    woman_N = woman_N ;
+    worm_N = regN "mato" ;
+    year_N = reg3N "vuosi" "vuoden" "vuosia" ;
+
+    -- Verbs
+
+    bite_V = dirV2 (regV "purra") ;
+    blow_V = regV "puhaltaa" ;
+    breathe_V = dirV2 (regV "hengittää") ;
+    burn_V = regV "palaa" ;
+    come_V = come_V ;
+    count_V = dirV2 (regV "laskea") ;
+    cut_V = dirV2 (reg2V "leikata" "leikkasi") ;
+    die_V = regV "kuolla";
+    dig_V = regV "kaivaa" ;
+    drink_V = dirV2 ( drink_V2) ;
+    eat_V = dirV2 ( eat_V2) ;
+    fall_V = reg3V "pudota" "putoan" "putosi" ;
+    fear_V = dirV2 (reg3V "pelätä" "pelkään" "pelkäsi") ;
+    fight_V = dirV2 (regV "taistella") ;
+    float_V = regV "kellua" ;
+    flow_V = reg3V "virrata" "virtaan" "virtasi" ;
+    fly_V = regV "lentää" ;
+    freeze_V = regV "jäätyä" ;
+    give_V = dirdirV3 (regV "antaa") ;
+    hear_V = dirV2 ( hear_V2) ;
+    hit_V = dirV2 (regV "lyödä") ;
+    hold_V = dirV2 (regV "pitää") ;
+    hunt_V = dirV2 (regV "metsästää") ;
+    kill_V = dirV2 (regV "tappaa") ;
+    know_V = dirV2 (reg2V "tuntea" "tunsin") ;
+    laugh_V = reg3V "nauraa" "nauran" "nauroi" ;
+    lie_V = reg3V "maata" "makaan" "makasi" ;
+    live_V = live_V ;
+    play_V =  play_V2 ;
+    pull_V = dirV2 (regV "vetää") ;
+    push_V = dirV2 (regV "työntää") ;
+    rub_V = dirV2 (regV "hieroa") ;
+    say_V = regV "sanoa" ;
+    scratch_V = dirV2 (regV "raapia") ;
+    see_V = ( see_V2) ;
+    sew_V = regV "kylvää" ;
+    sing_V = regV "laulaa" ;
+    sit_V = regV "istua" ;
+    sleep_V = sleep_V ;
+    smell_V = dirV2 (reg2V "haistaa" "haistoi") ;
+    spit_V = regV "sylkeä" ;
+    split_V = dirV2 (reg2V "halkaista" "halkaisi") ;
+    squeeze_V = dirV2 (regV "puristaa") ;
+    stab_V = dirV2 (regV "pistää") ;
+    stand_V = mkV "seistä" "seisoo" "seison" "seisovat" "seiskää" "seistään"
+      "seisoi" "seisoin" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivät
+    suck_V = dirV2 (regV "imeä") ;
+    swell_V = mkV "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
+      "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
+    swim_V = reg3V "uida" "uin" "ui" ;
+    think_V = reg3V "ajatella" "ajattelen" "ajatteli" ;
+    throw_V = dirV2 (regV "heittää") ;
+    tie_V = dirV2 (regV "sitoa") ;
+    turn_V = regV "kääntyä" ;
+    vomit_V = regV "oksentaa" ;
+    walk_V = walk_V ;
+    wash_V = dirV2 (regV "pestä") ;
+    wipe_V = dirV2 (regV "pyyhkiä") ;
+
+oper 
+  regA = regADeg ; ----
+
+
+}