summaryrefslogtreecommitdiff
path: root/examples/bronzeage
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/bronzeage
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/bronzeage')
-rw-r--r--examples/bronzeage/Bronzeage.gf36
-rw-r--r--examples/bronzeage/BronzeageAra.gf5
-rw-r--r--examples/bronzeage/BronzeageDan.gf7
-rw-r--r--examples/bronzeage/BronzeageEng.gf7
-rw-r--r--examples/bronzeage/BronzeageFin.gf8
-rw-r--r--examples/bronzeage/BronzeageFre.gf5
-rw-r--r--examples/bronzeage/BronzeageGer.gf8
-rw-r--r--examples/bronzeage/BronzeageI.gf59
-rw-r--r--examples/bronzeage/BronzeageIta.gf7
-rw-r--r--examples/bronzeage/BronzeageNor.gf6
-rw-r--r--examples/bronzeage/BronzeageRus.gf7
-rw-r--r--examples/bronzeage/BronzeageSpa.gf7
-rw-r--r--examples/bronzeage/BronzeageSwe.gf8
-rw-r--r--examples/bronzeage/README47
-rw-r--r--examples/bronzeage/Swadesh.gf245
-rw-r--r--examples/bronzeage/SwadeshAra.gf5
-rw-r--r--examples/bronzeage/SwadeshDan.gf5
-rw-r--r--examples/bronzeage/SwadeshEng.gf5
-rw-r--r--examples/bronzeage/SwadeshFin.gf5
-rw-r--r--examples/bronzeage/SwadeshFre.gf5
-rw-r--r--examples/bronzeage/SwadeshGer.gf5
-rw-r--r--examples/bronzeage/SwadeshI.gf227
-rw-r--r--examples/bronzeage/SwadeshIta.gf5
-rw-r--r--examples/bronzeage/SwadeshNor.gf5
-rw-r--r--examples/bronzeage/SwadeshRus.gf5
-rw-r--r--examples/bronzeage/SwadeshSpa.gf5
-rw-r--r--examples/bronzeage/SwadeshSwe.gf5
-rw-r--r--examples/bronzeage/old/SwadeshEng.gf243
-rw-r--r--examples/bronzeage/old/SwadeshFin.gf269
-rw-r--r--examples/bronzeage/old/SwadeshFre.gf259
-rw-r--r--examples/bronzeage/old/SwadeshGer.gf248
-rw-r--r--examples/bronzeage/old/SwadeshIta.gf258
-rw-r--r--examples/bronzeage/old/SwadeshNor.gf252
-rw-r--r--examples/bronzeage/old/SwadeshRus.gf251
-rw-r--r--examples/bronzeage/old/SwadeshSpa.gf262
-rw-r--r--examples/bronzeage/old/SwadeshSwe.gf252
36 files changed, 0 insertions, 3038 deletions
diff --git a/examples/bronzeage/Bronzeage.gf b/examples/bronzeage/Bronzeage.gf
deleted file mode 100644
index 0e8dc8656..000000000
--- a/examples/bronzeage/Bronzeage.gf
+++ /dev/null
@@ -1,36 +0,0 @@
-abstract Bronzeage = Cat, Swadesh ** {
-
- cat
- Sent ; MassCN ;
-
- fun
- PhrPos : Sent -> Phr ;
- PhrNeg : Sent -> Phr ;
- PhrQuest : Sent -> Phr ;
- PhrImp : Imp -> Phr ;
- PhrImpNeg : Imp -> Phr ;
-
- SentV : V -> NP -> Sent ;
- SentV2 : V2 -> NP -> NP -> Sent ;
- SentV2Mass : V2 -> NP -> MassCN -> Sent ;
- SentV3 : V3 -> NP -> NP -> NP -> Sent ;
- SentA : A -> NP -> Sent ;
- SentNP : NP -> NP -> Sent ;
-
- SentAdvV : V -> NP -> Adv -> Sent ;
- SentAdvV2 : V2 -> NP -> NP -> Adv -> Sent ;
-
- ImpV : V -> Imp ;
- ImpV2 : V2 -> NP -> Imp ;
-
- UsePron : Pron -> NP ;
- DetCN : Det -> CN -> NP ;
- NumCN : Num -> CN -> NP ;
-
- UseN : N -> CN ;
- ModCN : A -> CN -> CN ;
-
- UseMassN : MassN -> MassCN ;
- ModMass : A -> MassCN -> MassCN ;
-
-}
diff --git a/examples/bronzeage/BronzeageAra.gf b/examples/bronzeage/BronzeageAra.gf
deleted file mode 100644
index dcf35e5f4..000000000
--- a/examples/bronzeage/BronzeageAra.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageAra of Bronzeage = CatAra, SwadeshAra ** BronzeageI with
- (Lang = LangAra) ;
-
diff --git a/examples/bronzeage/BronzeageDan.gf b/examples/bronzeage/BronzeageDan.gf
deleted file mode 100644
index e8328e721..000000000
--- a/examples/bronzeage/BronzeageDan.gf
+++ /dev/null
@@ -1,7 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageDan of Bronzeage = CatDan, SwadeshDan ** BronzeageI with
- (Lang = LangDan) ** {
- flags language = da_DK;
-}
-
diff --git a/examples/bronzeage/BronzeageEng.gf b/examples/bronzeage/BronzeageEng.gf
deleted file mode 100644
index 04ff53a3c..000000000
--- a/examples/bronzeage/BronzeageEng.gf
+++ /dev/null
@@ -1,7 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageEng of Bronzeage = CatEng, SwadeshEng ** BronzeageI with
- (Lang = LangEng) ** {
- flags language = en_US;
-}
-
diff --git a/examples/bronzeage/BronzeageFin.gf b/examples/bronzeage/BronzeageFin.gf
deleted file mode 100644
index cc5940d4e..000000000
--- a/examples/bronzeage/BronzeageFin.gf
+++ /dev/null
@@ -1,8 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageFin of Bronzeage = CatFin, SwadeshFin ** BronzeageI with
- (Lang = LangFin) ** {
- flags language = fi_FI;
-}
-
-
diff --git a/examples/bronzeage/BronzeageFre.gf b/examples/bronzeage/BronzeageFre.gf
deleted file mode 100644
index 63231a652..000000000
--- a/examples/bronzeage/BronzeageFre.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageFre of Bronzeage = CatFre, SwadeshFre ** BronzeageI with
- (Lang = LangFre) ;
-
diff --git a/examples/bronzeage/BronzeageGer.gf b/examples/bronzeage/BronzeageGer.gf
deleted file mode 100644
index dec77d187..000000000
--- a/examples/bronzeage/BronzeageGer.gf
+++ /dev/null
@@ -1,8 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageGer of Bronzeage = CatGer, SwadeshGer ** BronzeageI with
- (Lang = LangGer) ** {
- flags language = de_DE;
-}
-
-
diff --git a/examples/bronzeage/BronzeageI.gf b/examples/bronzeage/BronzeageI.gf
deleted file mode 100644
index 23693dc6f..000000000
--- a/examples/bronzeage/BronzeageI.gf
+++ /dev/null
@@ -1,59 +0,0 @@
-incomplete concrete BronzeageI of Bronzeage = open Lang in {
-
- flags
- startcat = Phr ; optimize = all_subs ; --optimize = share_subs ;
- unlexer = text ; lexer = text ;
-
- lincat
- Sent = {s : SForm => Str} ; MassCN = CN ;
-
- lin
- PhrPos sent = {s = sent.s ! SPos ++ "."} ;
- PhrNeg sent = {s = sent.s ! SNeg ++ "."} ;
- PhrQuest sent = {s = sent.s ! SQuest ++ "?"} ;
- PhrImp imp = {s = (PhrUtt NoPConj (UttImpSg PPos imp) NoVoc).s ++ "!"} ;
- PhrImpNeg imp = {s = (PhrUtt NoPConj (UttImpSg PNeg imp) NoVoc).s ++ "!"} ;
-
- SentV v np = mkSent np (UseV v) ;
-
- SentV2 v x y = mkSent x (ComplV2 v y) ;
- SentV2Mass v x y = mkSent x (ComplV2 v (massNP y)) ;
- SentV3 v x y z = mkSent x (ComplV3 v y z) ;
- SentA a x = mkSent x (UseComp (CompAP (PositA a))) ;
- SentNP a x = mkSent x (UseComp (CompNP a)) ;
-
- SentAdvV v np adv = mkSent np (AdvVP (UseV v) adv) ;
- SentAdvV2 v x y adv = mkSent x (AdvVP (ComplV2 v y) adv) ;
-
- ImpV v = ImpVP (UseV v) ;
- ImpV2 v x = ImpVP (ComplV2 v x) ;
-
- UsePron p = Lang.UsePron p ;
- DetCN d n = Lang.DetCN d n ;
- NumCN k cn = Lang.DetCN (DetPl (IndefArt) k NoOrd) cn ;
-
- UseN n = Lang.UseN n ;
- ModCN a cn = AdjCN (PositA a) cn ;
-
- UseMassN mn = Lang.UseN mn ;
- ModMass a cn = AdjCN (PositA a) cn ;
-
- param
- SForm = SPos | SNeg | SQuest ;
-
- oper
- mkSent : NP -> VP -> Sent ;
- mkSent np vp =
- let cl = PredVP np vp
- in {
- s = table {
- SPos => Predef.toStr S (UseCl Lang.TPres ASimul PPos cl) ;
- SNeg => Predef.toStr S (UseCl Lang.TPres ASimul PNeg cl) ;
- SQuest => Predef.toStr QS (UseQCl Lang.TPres ASimul PPos (QuestCl cl))
- } ;
- lock_Sent = <>
- } ;
-
- massNP : CN -> NP = \mcn -> Lang.DetCN (DetSg MassDet NoOrd) mcn ;
-
-}
diff --git a/examples/bronzeage/BronzeageIta.gf b/examples/bronzeage/BronzeageIta.gf
deleted file mode 100644
index 54ba559a6..000000000
--- a/examples/bronzeage/BronzeageIta.gf
+++ /dev/null
@@ -1,7 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageIta of Bronzeage = CatIta, SwadeshIta ** BronzeageI with
- (Lang = LangIta) ** {
- flags language = it_IT;
-}
-
diff --git a/examples/bronzeage/BronzeageNor.gf b/examples/bronzeage/BronzeageNor.gf
deleted file mode 100644
index 75b469cee..000000000
--- a/examples/bronzeage/BronzeageNor.gf
+++ /dev/null
@@ -1,6 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageNor of Bronzeage = CatNor, SwadeshNor ** BronzeageI with
- (Lang = LangNor) ** {
- flags language = nb_NO;
-}
diff --git a/examples/bronzeage/BronzeageRus.gf b/examples/bronzeage/BronzeageRus.gf
deleted file mode 100644
index 916c78e38..000000000
--- a/examples/bronzeage/BronzeageRus.gf
+++ /dev/null
@@ -1,7 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageRus of Bronzeage = CatRus, SwadeshRus ** BronzeageI with
- (Lang = LangRus) ** {
- flags language = ru_RU;
-}
-
diff --git a/examples/bronzeage/BronzeageSpa.gf b/examples/bronzeage/BronzeageSpa.gf
deleted file mode 100644
index db10f2885..000000000
--- a/examples/bronzeage/BronzeageSpa.gf
+++ /dev/null
@@ -1,7 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageSpa of Bronzeage = CatSpa, SwadeshSpa ** BronzeageI with
- (Lang = LangSpa) ** {
- flags language = es_ES;
-}
-
diff --git a/examples/bronzeage/BronzeageSwe.gf b/examples/bronzeage/BronzeageSwe.gf
deleted file mode 100644
index 24a4cf759..000000000
--- a/examples/bronzeage/BronzeageSwe.gf
+++ /dev/null
@@ -1,8 +0,0 @@
---# -path=.:present:prelude
-
-concrete BronzeageSwe of Bronzeage = CatSwe, SwadeshSwe ** BronzeageI with
- (Lang = LangSwe) ** {
- flags language = sv_SE;
-}
-
-
diff --git a/examples/bronzeage/README b/examples/bronzeage/README
deleted file mode 100644
index 9275d1e09..000000000
--- a/examples/bronzeage/README
+++ /dev/null
@@ -1,47 +0,0 @@
-(AR 24/2/2006)
-
-(c) Bjrn Bringert and Aarne Ranta 2005-2006
-
-Based on grammars and lexicon in GF/examples/stoneage by Bjrn Bringert.
-These grammars use a more varying syntax, with negation, questions,
-imperatives, adverbs, and adjectival predication added.
-
-
-To build the run-time grammar:
-
- echo "s ;; pm | wf bronzeage.gfcm" | gf -nocf Bronzeage???.gf
-
-Before this, you have to have compiled the libraries:
-
- cd <whatever you need>GF/lib/resource-1.0
- make present
-
-To work with the grammar
-
- gf bronzeage.gfcm
-
-Once in GF, you can do translation,
-
- p -mcfg -lang=BronzeageEng "Don't eat that thick snake!" | tb
-
-spoken-language translation (requires ATK),
-
- si -lang=BronzeageEng -tr | p -mcfg -lang=BronzeageEng | tb
-
-random generation,
-
- gr | tb
-
-translation quiz lists
-
- tl -number=5 -cat=CN BronzeageEng BronzeageFre
-
-morphological quiz lists
-
- ml -number=5 -cat=V -lang=BronzeageSpa
-
-sentence transformation quiz lists
-
- ml -number=5 -cat=Sent -lang=BronzeageEng
-
-
diff --git a/examples/bronzeage/Swadesh.gf b/examples/bronzeage/Swadesh.gf
deleted file mode 100644
index 98402b801..000000000
--- a/examples/bronzeage/Swadesh.gf
+++ /dev/null
@@ -1,245 +0,0 @@
-abstract Swadesh = Cat ** {
-
- cat
- MassN ;
-
- fun
-
- -- Pronouns
-
- i_NP : Pron ;
- youSg_NP : Pron ;
- he_NP : Pron ;
- we_NP : Pron ;
- youPl_NP : Pron ;
- they_NP : Pron ;
- whoPl_IP : IP ; -- only one who in Swadesh 207
- whoSg_IP : IP ;
- whatPl_IP : IP ; -- only one what in Swadesh 207
- whatSg_IP : IP ;
-
- -- Determiners
-
- that_Det : Det ;
- this_Det : Det ;
----- all_Predet : Predet ;
- many_Det : Det ;
- some_Det : Det ;
-
- left_Ord : Ord ;
- right_Ord : Ord ;
-
- -- Adverbs
-
- here_Adv : Adv ;
- there_Adv : Adv ;
- where_IAdv : IAdv ;
- when_IAdv : IAdv ;
- how_IAdv : IAdv ;
- far_Adv : Adv ;
-
- -- Conjunctions
-
- and_Conj : Conj ;
-
- -- Prepositions
-
--- at_Prep : Prep ;
- in_Prep : Prep ;
- with_Prep : Prep ;
-
- -- not -- ?
- -- if -- ?
- -- because -- ?
-
- -- Numerals
-
- one_Det : Det ;
- two_Num : Num ;
- three_Num : Num ;
- four_Num : Num ;
- five_Num : Num ;
-
- -- Adjectives
-
- bad_A : A ;
- big_A : A ;
- black_A : A ;
- cold_A : A ;
- correct_A : A ;
- dirty_A : A ;
- dry_A : A ;
- dull_A : A ;
- full_A : A ;
- good_A : A ;
- green_A : A ;
- heavy_A : A ;
- long_A : A ;
- narrow_A : A ;
- near_A : A ;
- new_A : A ;
- old_A : A ;
----- other_A : A ;
- red_A : A ;
- rotten_A : A ;
- round_A : A ;
- sharp_A : A ;
- short_A : A ;
- small_A : A ;
- smooth_A : A ;
- straight_A : A ;
- thick_A : A ;
- thin_A : A ;
- warm_A : A ;
- wet_A : A ;
- white_A : A ;
- wide_A : A ;
- yellow_A : A ;
-
- -- Nouns
-
- animal_N : N ;
- ashes_N : MassN ;
- back_N : N ;
- bark_N : MassN ;
- belly_N : N ;
- bird_N : N ;
- blood_N : MassN ;
- bone_N : N ;
- breast_N : N ;
- child_N : N ;
- cloud_N : N ;
- day_N : N ;
- dog_N : N ;
- dust_N : MassN ;
- ear_N : N ;
- earth_N : MassN ;
- egg_N : N ;
- eye_N : N ;
- fat_N : MassN ;
----- father_N : N ;
- feather_N : N ;
- fingernail_N : N ;
- fire_N : N ;
- fish_N : N ;
- flower_N : N ;
- fog_N : MassN ;
- foot_N : N ;
- forest_N : N ;
- fruit_N : N ;
- grass_N : N ;
- guts_N : N ;
- hair_N : N ;
- hand_N : N ;
- head_N : N ;
- heart_N : N ;
- horn_N : N ;
- husband_N : N ;
- ice_N : MassN ;
- knee_N : N ;
- lake_N : N ;
- leaf_N : N ;
- leg_N : N ;
- liver_N : N ;
- louse_N : N ;
- man_N : N ;
- meat_N : MassN ;
- moon_N : N ;
----- mother_N : N ;
- mountain_N : N ;
- mouth_N : N ;
- name_N : N ;
- neck_N : N ;
- night_N : N ;
- nose_N : N ;
- person_N : N ;
- rain_N : MassN ;
- river_N : N ;
- road_N : N ;
- root_N : N ;
- rope_N : N ;
- salt_N : MassN ;
- sand_N : MassN ;
- sea_N : N ;
- seed_N : N ;
- skin_N : N ;
- sky_N : N ;
- smoke_N : MassN ;
- snake_N : N ;
- snow_N : MassN ;
- star_N : N ;
- stick_N : N ;
- stone_N : N ;
- sun_N : N ;
- tail_N : N ;
- tongue_N : N ;
- tooth_N : N ;
- tree_N : N ;
- water_N : MassN ;
- wife_N : N ;
- wind_N : N ;
- wing_N : N ;
- woman_N : N ;
- worm_N : N ;
- year_N : N ;
-
- -- Verbs
-
- bite_V2 : V2 ;
- blow_V : V ;
- breathe_V : V ;
- burn_V : V ;
- come_V : V ;
- count_V2 : V2 ;
- cut_V2 : V2 ;
- die_V : V ;
- dig_V : V ;
- drink_V2 : V2 ;
- eat_V2 : V2 ;
- fall_V : V ;
- fear_V2 : V2 ;
- fight_V2 : V2 ;
- float_V : V ;
- flow_V : V ;
- fly_V : V ;
- freeze_V : V ;
- give_V3 : V3 ;
- hear_V2 : V2 ;
- hit_V2 : V2 ;
- hold_V2 : V2 ;
- hunt_V2 : V2 ;
- kill_V2 : V2 ;
- know_V2 : V2 ;
- laugh_V : V ;
- lie_V : V ;
- live_V : V ;
- play_V : V ;
- pull_V2 : V2 ;
- push_V2 : V2 ;
- rub_V2 : V2 ;
- say_V : V ;
- scratch_V2 : V2 ;
- see_V2 : V2 ;
- sew_V : V ;
- sing_V : V ;
- sit_V : V ;
- sleep_V : V ;
- smell_V : V ;
- spit_V : V ;
- split_V2 : V2 ;
- squeeze_V2 : V2 ;
- stab_V2 : V2 ;
- stand_V : V ;
- suck_V2 : V2 ;
- swell_V : V ;
- swim_V : V ;
- think_V : V ;
- throw_V2 : V2 ;
- tie_V2 : V2 ;
- turn_V : V ;
- vomit_V : V ;
- walk_V : V ;
- wash_V2 : V2 ;
- wipe_V2 : V2 ;
-
-}
diff --git a/examples/bronzeage/SwadeshAra.gf b/examples/bronzeage/SwadeshAra.gf
deleted file mode 100644
index cfe54d1b2..000000000
--- a/examples/bronzeage/SwadeshAra.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshAra of Swadesh = CatAra ** SwadeshI with
- (Lang = LangAra) ;
-
diff --git a/examples/bronzeage/SwadeshDan.gf b/examples/bronzeage/SwadeshDan.gf
deleted file mode 100644
index e667609f3..000000000
--- a/examples/bronzeage/SwadeshDan.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshDan of Swadesh = CatDan ** SwadeshI with
- (Lang = LangDan) ;
-
diff --git a/examples/bronzeage/SwadeshEng.gf b/examples/bronzeage/SwadeshEng.gf
deleted file mode 100644
index 5b10141c5..000000000
--- a/examples/bronzeage/SwadeshEng.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshEng of Swadesh = CatEng ** SwadeshI with
- (Lang = LangEng) ;
-
diff --git a/examples/bronzeage/SwadeshFin.gf b/examples/bronzeage/SwadeshFin.gf
deleted file mode 100644
index 191874c05..000000000
--- a/examples/bronzeage/SwadeshFin.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshFin of Swadesh = CatFin ** SwadeshI with
- (Lang = LangFin) ;
-
diff --git a/examples/bronzeage/SwadeshFre.gf b/examples/bronzeage/SwadeshFre.gf
deleted file mode 100644
index bffe9e36e..000000000
--- a/examples/bronzeage/SwadeshFre.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshFre of Swadesh = CatFre ** SwadeshI with
- (Lang = LangFre) ;
-
diff --git a/examples/bronzeage/SwadeshGer.gf b/examples/bronzeage/SwadeshGer.gf
deleted file mode 100644
index 096d3496c..000000000
--- a/examples/bronzeage/SwadeshGer.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshGer of Swadesh = CatGer ** SwadeshI with
- (Lang = LangGer) ;
-
diff --git a/examples/bronzeage/SwadeshI.gf b/examples/bronzeage/SwadeshI.gf
deleted file mode 100644
index 0cd3fcd32..000000000
--- a/examples/bronzeage/SwadeshI.gf
+++ /dev/null
@@ -1,227 +0,0 @@
-incomplete concrete SwadeshI of Swadesh = open Lang in {
-
- lincat
- MassN = Lang.N ;
-
- lin
-
- -- Pronouns
-
- i_NP = Lang.i_Pron ;
- youSg_NP = Lang.youSg_Pron ;
- he_NP = Lang.he_Pron ;
- we_NP = Lang.we_Pron ;
- youPl_NP = Lang.youPl_Pron ;
- they_NP = Lang.they_Pron ;
- whoPl_IP = Lang.whoPl_IP ;
- whoSg_IP = Lang.whoSg_IP ;
- whatPl_IP = Lang.whatPl_IP ;
- whatSg_IP = Lang.whatSg_IP ;
-
- -- Determiners
-
- this_Det = DetSg (this_Quant) NoOrd ;
- that_Det = DetSg (that_Quant) NoOrd ;
- many_Det = Lang.many_Det ;
- some_Det = someSg_Det ;
----- few_Det = few_Det ;
-
- left_Ord = Lang.left_Ord ;
- right_Ord = Lang.right_Ord ;
- -- Adverbs
- here_Adv = Lang.here_Adv;
- there_Adv = Lang.there_Adv;
- where_IAdv = Lang.where_IAdv;
- when_IAdv = Lang.when_IAdv;
- how_IAdv = Lang.how_IAdv;
- far_Adv = Lang.far_Adv ;
- -- not : Adv ; -- ?
- -- Conjunctions
- and_Conj = Lang.and_Conj ;
- -- Prepositions
- in_Prep = Lang.in_Prep ;
- with_Prep = Lang.with_Prep ;
- -- Numerals
- one_Det = Lang.DetPl IndefArt
- (Lang.NumNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01))))) NoOrd ;
- two_Num = Lang.NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
- three_Num = Lang.NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
- four_Num = Lang.NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
- five_Num = Lang.NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
- -- Adjectives
- bad_A = Lang.bad_A ;
- big_A = Lang.big_A ;
- black_A = Lang.black_A ;
- cold_A = Lang.cold_A ;
- correct_A = Lang.correct_A ;
- dirty_A = Lang.dirty_A ;
- dry_A = Lang.dry_A ;
- dull_A = Lang.dull_A ;
- full_A = Lang.full_A ;
- good_A = Lang.good_A ;
- green_A = Lang.green_A ;
- heavy_A = Lang.heavy_A ;
- long_A = Lang.long_A ;
- narrow_A = Lang.narrow_A ;
- near_A = Lang.near_A ;
- new_A = Lang.new_A ;
- old_A = Lang.old_A ;
----- other_A = Lang.other_A ;
- red_A = Lang.red_A ;
- rotten_A = Lang.rotten_A ;
- round_A = Lang.round_A ;
- sharp_A = Lang.sharp_A ;
- short_A = Lang.short_A ;
- small_A = Lang.small_A ;
- smooth_A = Lang.smooth_A ;
- straight_A = Lang.straight_A ;
- thick_A = Lang.thick_A ;
- thin_A = Lang.thin_A ;
- warm_A = Lang.warm_A ;
- wet_A = Lang.wet_A ;
- white_A = Lang.white_A ;
- wide_A = Lang.wide_A ;
- yellow_A = Lang.yellow_A ;
- -- Nouns
- animal_N = Lang.animal_N ;
- ashes_N = Lang.ashes_N ;
- back_N = Lang.back_N ;
- bark_N = Lang.bark_N ;
- belly_N = Lang.belly_N ;
- bird_N = Lang.bird_N;
- blood_N = Lang.blood_N ;
- bone_N = Lang.bone_N ;
- breast_N = Lang.breast_N ;
- child_N = Lang.child_N ;
- cloud_N = Lang.cloud_N ;
- day_N = Lang.day_N ;
- dog_N = Lang.dog_N ;
- dust_N = Lang.dust_N ;
- ear_N = Lang.ear_N ;
- earth_N = Lang.earth_N ;
- egg_N = Lang.egg_N ;
- eye_N = Lang.eye_N ;
- fat_N = Lang.fat_N ;
- feather_N = Lang.feather_N ;
- fingernail_N = Lang.fingernail_N ;
- fire_N = Lang.fire_N ;
- fish_N = Lang.fish_N ;
- flower_N = Lang.flower_N ;
- fog_N = Lang.fog_N ;
- foot_N = Lang.foot_N ;
- forest_N = Lang.forest_N ;
- fruit_N = Lang.fruit_N ;
- grass_N = Lang.grass_N ;
- guts_N = Lang.guts_N ;
- hair_N = Lang.hair_N ;
- hand_N = Lang.hand_N ;
- head_N = Lang.head_N ;
- heart_N = Lang.heart_N ;
- horn_N = Lang.horn_N ;
- husband_N = Lang.man_N ; --- aviomies
- ice_N = Lang.ice_N ;
- knee_N = Lang.knee_N ;
- lake_N = Lang.lake_N ;
- leaf_N = Lang.leaf_N ;
- leg_N = Lang.leg_N ;
- liver_N = Lang.liver_N ;
- louse_N = Lang.louse_N ;
- man_N = Lang.man_N ;
- meat_N = Lang.meat_N ;
- moon_N = Lang.moon_N ;
----- mother_N = Lang.mother_N ;
- mountain_N = Lang.mountain_N ;
- mouth_N = Lang.mouth_N ;
- name_N = Lang.name_N ;
- neck_N = Lang.neck_N ;
- night_N = Lang.night_N ;
- nose_N = Lang.nose_N ;
- person_N = Lang.person_N ;
- rain_N = Lang.rain_N ;
- river_N = Lang.river_N ;
- road_N = Lang.road_N ;
- root_N = Lang.root_N ;
- rope_N = Lang.rope_N ;
- salt_N = Lang.salt_N ;
- sand_N = Lang.sand_N ;
- sea_N = Lang.sea_N ;
- seed_N = Lang.seed_N ;
- skin_N = Lang.skin_N ;
- sky_N = Lang.sky_N ;
- smoke_N = Lang.smoke_N ;
- snake_N = Lang.snake_N ;
- snow_N = Lang.snow_N ;
- star_N = Lang.star_N ;
- stick_N = Lang.stick_N ;
- stone_N = Lang.stone_N ;
- sun_N = Lang.sun_N ;
- tail_N = Lang.tail_N ;
- tongue_N = Lang.tongue_N ;
- tooth_N = Lang.tooth_N ;
- tree_N = Lang.tree_N ;
- water_N = Lang.water_N ;
- wife_N = Lang.wife_N ;
- wind_N = Lang.wind_N ;
- wing_N = Lang.wing_N ;
- woman_N = Lang.woman_N ;
- worm_N = Lang.worm_N ;
- year_N = Lang.year_N ;
- -- Verbs
- bite_V2 = Lang.bite_V2 ;
- blow_V = Lang.blow_V ;
- breathe_V = Lang.breathe_V ;
- burn_V = Lang.burn_V ;
- come_V = Lang.come_V ;
- count_V2 = Lang.count_V2 ;
- cut_V2 = Lang.cut_V2 ;
- die_V = Lang.die_V ;
- dig_V = Lang.dig_V ;
- drink_V2 = Lang.drink_V2 ;
- eat_V2 = Lang.eat_V2 ;
- fall_V = Lang.fall_V ;
- fear_V2 = Lang.fear_V2 ;
- fight_V2 = Lang.fight_V2 ;
- float_V = Lang.float_V ;
- flow_V = Lang.flow_V ;
- fly_V = Lang.fly_V ;
- freeze_V = Lang.freeze_V ;
- give_V3 = Lang.give_V3 ;
- hear_V2 = Lang.hear_V2 ;
- hit_V2 = Lang.hit_V2 ;
- hold_V2 = Lang.hold_V2 ;
- hunt_V2 = Lang.hunt_V2 ;
- kill_V2 = Lang.kill_V2 ;
- know_V2 = Lang.know_V2 ;
- laugh_V = Lang.laugh_V ;
- lie_V = Lang.lie_V ;
- live_V = Lang.live_V ;
- play_V = Lang. play_V2 ;
- pull_V2 = Lang.pull_V2 ;
- push_V2 = Lang.push_V2 ;
- rub_V2 = Lang.rub_V2 ;
- say_V = Lang.say_VS ;
- scratch_V2 = Lang.scratch_V2 ;
- see_V2 = Lang.see_V2 ;
- sew_V = Lang.sew_V ;
- sing_V = Lang.sing_V ;
- sit_V = Lang.sit_V ;
- sleep_V = Lang.sleep_V ;
- smell_V = Lang.smell_V ;
- spit_V = Lang.spit_V ;
- split_V2 = Lang.split_V2 ;
- squeeze_V2 = Lang.squeeze_V2 ;
- stab_V2 = Lang.stab_V2 ;
- stand_V = Lang.stand_V ;
- suck_V2 = Lang.suck_V2 ;
- swell_V = Lang.swell_V ;
- swim_V = Lang.swim_V ;
- think_V = Lang.think_V ;
- throw_V2 = Lang.throw_V2 ;
- tie_V2 = Lang.tie_V2 ;
- turn_V = Lang.turn_V ;
- vomit_V = Lang.vomit_V ;
- walk_V = Lang.walk_V ;
- wash_V2 = Lang.wash_V2 ;
- wipe_V2 = Lang.wipe_V2 ;
-
-}
diff --git a/examples/bronzeage/SwadeshIta.gf b/examples/bronzeage/SwadeshIta.gf
deleted file mode 100644
index b84295867..000000000
--- a/examples/bronzeage/SwadeshIta.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshIta of Swadesh = CatIta ** SwadeshI with
- (Lang = LangIta) ;
-
diff --git a/examples/bronzeage/SwadeshNor.gf b/examples/bronzeage/SwadeshNor.gf
deleted file mode 100644
index 5d392462d..000000000
--- a/examples/bronzeage/SwadeshNor.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshNor of Swadesh = CatNor ** SwadeshI with
- (Lang = LangNor) ;
-
diff --git a/examples/bronzeage/SwadeshRus.gf b/examples/bronzeage/SwadeshRus.gf
deleted file mode 100644
index 263819f07..000000000
--- a/examples/bronzeage/SwadeshRus.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshRus of Swadesh = CatRus ** SwadeshI with
- (Lang = LangRus) ;
-
diff --git a/examples/bronzeage/SwadeshSpa.gf b/examples/bronzeage/SwadeshSpa.gf
deleted file mode 100644
index 48de83341..000000000
--- a/examples/bronzeage/SwadeshSpa.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshSpa of Swadesh = CatSpa ** SwadeshI with
- (Lang = LangSpa) ;
-
diff --git a/examples/bronzeage/SwadeshSwe.gf b/examples/bronzeage/SwadeshSwe.gf
deleted file mode 100644
index 2a82b2bc4..000000000
--- a/examples/bronzeage/SwadeshSwe.gf
+++ /dev/null
@@ -1,5 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshSwe of Swadesh = CatSwe ** SwadeshI with
- (Lang = LangSwe) ;
-
diff --git a/examples/bronzeage/old/SwadeshEng.gf b/examples/bronzeage/old/SwadeshEng.gf
deleted file mode 100644
index b79111b11..000000000
--- a/examples/bronzeage/old/SwadeshEng.gf
+++ /dev/null
@@ -1,243 +0,0 @@
-concrete SwadeshEng of Swadesh = CatEng
- ** open MorphoEng, LangEng, ParadigmsEng, IrregEng, Prelude in {
-
- lincat
- MassN = N ;
-
- 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_Predet = all_Predet ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
-
--- left_Ord = left_Ord ;
--- right_Ord = right_Ord ;
-
- -- Adverbs
-
- here_Adv = here_Adv;
- there_Adv = there_Adv;
- where_IAdv = where_IAdv;
- when_IAdv = when_IAdv;
- how_IAdv = how_IAdv;
--- far_Adv = far_Adv ;
-
- -- "not" treated in Verb
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
---- at_Prep = ss "at" ;
- in_Prep = in_Prep ;
- with_Prep = with_Prep ;
-
- -- 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 "correct") ;
- dirty_A = dirty_A ;
- dry_A = regA "dry" ;
- dull_A = regA "dull" ;
- full_A = regA "full" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = regA "heavy" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = regA "near" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = (regA "rotten") ;
- round_A = regA "round" ;
- sharp_A = regA "sharp" ;
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = regA "smooth" ;
- straight_A = regA "straight" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = regA "wet" ; ----
- white_A = white_A ;
- wide_A = regA "wide" ;
- yellow_A = yellow_A ;
-
- -- Nouns
-
- animal_N = regN "animal" ;
- ashes_N = regN "ash" ; -- FIXME: plural only?
- back_N = regN "back" ;
- bark_N = regN "bark" ;
- belly_N = regN "belly" ;
- bird_N = bird_N;
- blood_N = regN "blood" ;
- bone_N = regN "bone" ;
- breast_N = regN "breast" ;
- child_N = child_N ;
- cloud_N = regN "cloud" ;
- day_N = regN "day" ;
- dog_N = dog_N ;
- dust_N = regN "dust" ;
- ear_N = regN "ear" ;
- earth_N = regN "earth" ;
- egg_N = regN "egg" ;
- eye_N = regN "eye" ;
- fat_N = regN "fat" ;
- father_N = UseN2 father_N2 ;
- feather_N = regN "feather" ;
- fingernail_N = regN "fingernail" ;
- fire_N = regN "fire" ;
- fish_N = fish_N ;
- flower_N = regN "flower" ;
- fog_N = regN "fog" ;
- foot_N = mk2N "foot" "feet" ;
- forest_N = regN "forest" ;
- fruit_N = fruit_N ;
- grass_N = regN "grass" ;
- guts_N = regN "gut" ; -- FIXME: no singular
- hair_N = regN "hair" ;
- hand_N = regN "hand" ;
- head_N = regN "head" ;
- heart_N = regN "heart" ;
- horn_N = regN "horn" ;
- husband_N = genderN masculine (regN "husband") ;
- ice_N = regN "ice" ;
- knee_N = regN "knee" ;
- lake_N = lake_N ;
- leaf_N = mk2N "leaf" "leaves" ;
- leg_N = regN "leg" ;
- liver_N = regN "liver" ;
- louse_N = mk2N "louse" "lice" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = regN "mouth" ;
- name_N = regN "name" ;
- neck_N = regN "neck" ;
- night_N = regN "night" ;
- nose_N = regN "nose" ;
- person_N = genderN human (regN "person") ;
- rain_N = regN "rain" ;
- river_N = river_N ;
- road_N = regN "road" ;
- root_N = regN "root" ;
- rope_N = regN "rope" ;
- salt_N = regN "salt" ;
- sand_N = regN "sand" ;
- sea_N = sea_N ;
- seed_N = regN "seed" ;
- skin_N = regN "skin" ;
- sky_N = regN "sky" ;
- smoke_N = regN "smoke" ;
- snake_N = snake_N ;
- snow_N = regN "snow" ;
- star_N = star_N ;
- stick_N = regN "stick" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = regN "tail" ;
- tongue_N = regN "tongue" ;
- tooth_N = mk2N "tooth" "teeth" ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = genderN feminine (mk2N "wife" "wives") ;
- wind_N = regN "wind" ;
- wing_N = regN "wing" ;
- woman_N = woman_N ;
- worm_N = regN "worm" ;
- year_N = regN "year" ;
-
- -- Verbs
-
- bite_V2 = dirV2 bite_V ;
- blow_V = blow_V ;
- breathe_V = dirV2 (regV "breathe") ;
- burn_V = burn_V ;
- come_V = come_V ;
- count_V2 = dirV2 (regV "count") ;
- cut_V2 = dirV2 cut_V ;
- die_V = die_V ;
- dig_V = dig_V ;
- drink_V2 = dirV2 drink_V ;
- eat_V2 = dirV2 eat_V ;
- fall_V = fall_V ;
- fear_V2 = dirV2 (regV "fear") ;
- fight_V2 = dirV2 fight_V ;
- float_V = regV "float" ;
- flow_V = regV "flow" ;
- fly_V = fly_V ;
- freeze_V = freeze_V ;
- give_V3 = dirV3 give_V "to" ;
- hear_V2 = dirV2 hear_V ;
- hit_V2 = dirV2 hit_V ;
- hold_V2 = dirV2 hold_V ;
- hunt_V2 = dirV2 (regV "hunt") ;
- kill_V2 = dirV2 (regV "kill") ;
- know_V2 = dirV2 know_V ;
- laugh_V = regV "laugh" ;
- lie_V = lie_V ;
- live_V = live_V ;
- play_V = regV "play" ;
- pull_V2 = dirV2 (regV "pull") ;
- push_V2 = dirV2 (regV "push") ;
- rub_V2 = dirV2 (regDuplV "rub") ;
- say_V = say_V ;
- scratch_V2 = dirV2 (regV "scratch") ;
- see_V2 = dirV2 see_V ;
- sew_V = sew_V ;
- sing_V = sing_V ;
- sit_V = sit_V ;
- sleep_V = sleep_V ;
- smell_V = regV "smell" ;
- spit_V = spit_V ;
- split_V2 = dirV2 split_V ;
- squeeze_V2 = dirV2 (regV "squeeze") ;
- stab_V2 = dirV2 (regDuplV "stab") ;
- stand_V = stand_V ;
- suck_V2 = dirV2 (regV "suck") ;
- swell_V = swell_V ;
- swim_V = swim_V ;
- think_V = think_V ;
- throw_V2 = dirV2 throw_V ;
- tie_V2 = dirV2 (regV "tie") ;
- turn_V = regV "turn" ;
- vomit_V = regV "vomit" ;
- walk_V = walk_V ;
- wash_V2 = dirV2 (regV "wash") ;
- wipe_V2 = dirV2 (regV "wipe") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshFin.gf b/examples/bronzeage/old/SwadeshFin.gf
deleted file mode 100644
index 4f73c5a09..000000000
--- a/examples/bronzeage/old/SwadeshFin.gf
+++ /dev/null
@@ -1,269 +0,0 @@
---# -path=.:../present:../finnish:../common:../abstract:../../prelude
-
-concrete SwadeshFin of Swadesh = CatFin
- ** open MorphoFin, LangFin, ParadigmsFin, Prelude in {
-
- flags optimize=values ;
-
- lincat
- MassN = N ;
-
- 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") ;
-
- left_Ord = mkOrd (regN "vasen") ;
- right_Ord = mkOrd (regN "oikea") ;
-
- oper
- mkOrd : N -> Ord ;
- mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;
-
- lin
-
- -- 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 "tysi" "tyden" "tysi") "tydempi" "tysin" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = regA "raskas" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = regA "lheinen" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = regA "mt" ;
- round_A = regA "pyre" ;
- sharp_A = regA "terv" ;
- 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 "mrk") "mrempi" "mrin" ;
- white_A = white_A ;
- wide_A = regA "leve" ;
- yellow_A = yellow_A ;
-
- -- Nouns
-
- animal_N = reg3N "elin" "elimen" "elimi" ;
- 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 "piv" ;
- dog_N = dog_N ;
- dust_N = regN "ply" ;
- 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 "hyhen" "hyhenen" "hyheni" ;
- 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 "sislmys" ; --- suoli
- hair_N = regN "hius" ;
- hand_N = reg3N "ksi" "kden" "ksi" ;
- head_N = regN "p" ;
- heart_N = reg3N "sydn" "sydmen" "sydmi" ;
- 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" ; --- sri
- 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 "kysi" "kyden" "kysi" ;
- 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 "hnt" ;
- 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_V2 = dirV2 (regV "purra") ;
- blow_V = regV "puhaltaa" ;
- breathe_V2 = dirV2 (regV "hengitt") ;
- burn_V = regV "palaa" ;
- come_V = come_V ;
- count_V2 = dirV2 (regV "laskea") ;
- cut_V2 = dirV2 (reg2V "leikata" "leikkasi") ;
- die_V = regV "kuolla";
- dig_V = regV "kaivaa" ;
- drink_V2 = dirV2 ( drink_V2) ;
- eat_V2 = dirV2 ( eat_V2) ;
- fall_V = reg3V "pudota" "putoan" "putosi" ;
- fear_V2 = dirV2 (reg3V "pelt" "pelkn" "pelksi") ;
- fight_V2 = dirV2 (regV "taistella") ;
- float_V = regV "kellua" ;
- flow_V = reg3V "virrata" "virtaan" "virtasi" ;
- fly_V = regV "lent" ;
- freeze_V = regV "jty" ;
- give_V = dirdirV3 (regV "antaa") ;
- hear_V2 = dirV2 ( hear_V2) ;
- hit_V2 = dirV2 (regV "lyd") ;
- hold_V2 = dirV2 (regV "pit") ;
- hunt_V2 = dirV2 (regV "metsst") ;
- kill_V2 = dirV2 (regV "tappaa") ;
- know_V2 = 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_V2 = dirV2 (regV "vet") ;
- push_V2 = dirV2 (regV "tynt") ;
- rub_V2 = dirV2 (regV "hieroa") ;
- say_V = regV "sanoa" ;
- scratch_V2 = 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 = reg2V "haistaa" "haistoi" ;
- spit_V = regV "sylke" ;
- split_V2 = dirV2 (reg2V "halkaista" "halkaisi") ;
- squeeze_V2 = dirV2 (regV "puristaa") ;
- stab_V2 = dirV2 (regV "pist") ;
- stand_V = mkV "seist" "seisoo" "seison" "seisovat" "seisk" "seistn"
- "seisoi" "seisoin" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivt
- suck_V2 = 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_V2 = dirV2 (regV "heitt") ;
- tie_V2 = dirV2 (regV "sitoa") ;
- turn_V = regV "knty" ;
- vomit_V = regV "oksentaa" ;
- walk_V = walk_V ;
- wash_V2 = dirV2 (regV "pest") ;
- wipe_V2 = dirV2 (regV "pyyhki") ;
-
-oper
- regA = regADeg ; ----
-
-
-}
diff --git a/examples/bronzeage/old/SwadeshFre.gf b/examples/bronzeage/old/SwadeshFre.gf
deleted file mode 100644
index a7c326ca4..000000000
--- a/examples/bronzeage/old/SwadeshFre.gf
+++ /dev/null
@@ -1,259 +0,0 @@
---# -path=.:../french:../common:../abstract:../../prelude:../romance
-
-concrete SwadeshFre of Swadesh = CatFre
- ** open PhonoFre, MorphoFre, LangFre, ParadigmsFre, IrregFre, Prelude in {
-
- lincat
- MassN = N ;
-
- 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 = \\g,c => prepCase c ++ genForms "tous" "toutes" ! g ++ "les" ;
- n = Pl
- } ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
- few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
- other_Det = {
- s = \\g,c => prepCase c ++ "d'autres" ; -- de d'autres
- n = Pl
- } ;
-
- left_Ord = mkOrd (regA "gauche") ;
- right_Ord = mkOrd (regA "droite") ;
-
- oper
- mkOrd : A -> Ord ;
- mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
-
- lin
-
- -- Adverbs
-
- here_Adv = here_Adv;
- there_Adv = there_Adv;
- where_IAdv = where_IAdv;
- when_IAdv = when_IAdv;
- how_IAdv = how_IAdv;
- far_Adv = mkAdv "loin" ;
-
- -- not : Adv ; -- ?
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
- at_Prep = dative ;
- in_Prep = in_Prep ;
- with_Prep = with_Prep ;
-
- -- 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 "correct" ;
- dirty_A = dirty_A ;
- dry_A = (mkA "sec" "sche" "secs" "sches") ;
- dull_A = regA "mouss" ;
- full_A = regA "plein" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = regA "lourd" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = regA "proche" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = regA "pourri" ;
- round_A = regA "rond" ;
- sharp_A = regA "tranchant" ;
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = regA "lisse" ;
- straight_A = regA "droite" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = regA "mouill" ;
- white_A = white_A ;
- wide_A = regA "large" ;
- yellow_A = yellow_A ;
-
- -- Nouns
-
- animal_N = regN "animal" ;
- ashes_N = regGenN "cendre" masculine ;
- back_N = regN "dos" ;
- bark_N = regN "corce" ;
- belly_N = regGenN "ventre" masculine ;
- bird_N = bird_N;
- blood_N = regN "sang" ;
- bone_N = regN "os" ;
- breast_N = regN "sein" ; --- poitrine
- child_N = child_N ;
- cloud_N = regGenN "nuage" masculine ;
- day_N = regN "jour" ;
- dog_N = dog_N ;
- dust_N = regN "poussire" ;
- ear_N = regN "oreille" ;
- earth_N = regN "terre" ;
- egg_N = regN "oeuf" ;
- eye_N = mkN "oeil" "yeux" masculine ;
- fat_N = regN "graisse" ;
- father_N = UseN2 father_N2 ;
- feather_N = regN "plume" ;
- fingernail_N = regGenN "ongle" masculine ;
- fire_N = regN "feu" ;
- fish_N = fish_N ;
- flower_N = regGenN "fleur" feminine ;
- fog_N = regN "brouillard" ;
- foot_N = regN "pied" ;
- forest_N = regGenN "fort" feminine ;
- fruit_N = fruit_N ;
- grass_N = regN "herbe" ;
- guts_N = regN "entraille" ;
- hair_N = regN "cheveu" ;
- hand_N = regGenN "main" feminine ;
- head_N = regN "tte" ;
- heart_N = regN "coeur" ;
- horn_N = regGenN "corne" masculine ;
- husband_N = regN "mari" ;
- ice_N = regN "glace" ;
- knee_N = regN "genou" ;
- lake_N = lake_N ;
- leaf_N = regN "feuille" ;
- leg_N = regN "jambe" ;
- liver_N = regGenN "foie" masculine ;
- louse_N = regN "pou" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = regN "bouche" ;
- name_N = regN "nom" ;
- neck_N = mkN "cou" "cous" masculine ;
- night_N = regGenN "nuit" feminine ;
- nose_N = regN "nez" ;
- person_N = regN "personne" ;
- rain_N = regN "pluie" ;
- river_N = river_N ;
- road_N = regN "route" ;
- root_N = regN "racine" ;
- rope_N = regN "corde" ;
- salt_N = regN "sel" ;
- sand_N = regGenN "sable" masculine ;
- sea_N = sea_N ;
- seed_N = regN "graine" ;
- skin_N = regN "peau" ;
- sky_N = mkN "ciel" "cieux" masculine ;
- smoke_N = regN "fume" ;
- snake_N = snake_N ;
- snow_N = regN "neige" ;
- star_N = star_N ;
- stick_N = regN "bton" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = regN "queue" ;
- tongue_N = regN "langue" ;
- tooth_N = regGenN "dent" feminine ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = regN "femme" ;
- wind_N = regN "vent" ;
- wing_N = regN "aile" ;
- woman_N = woman_N ;
- worm_N = regN "ver" ;
- year_N = regN "an" ; --- anne
-
- -- Verbs
-
- bite_V = ( mordre_V2) ;
- blow_V = regV "souffler" ;
- breathe_V2 = dirV2 (regV "respirer") ;
- burn_V = regV "brler" ;
- come_V = venir_V ;
- count_V2 = dirV2 (regV "conter") ;
- cut_V2 = dirV2 (regV "tailler") ;
- die_V = mourir_V ;
- dig_V = regV "creuser" ;
- drink_V = ( boire_V2) ;
- eat_V2 = dirV2 (regV "manger") ;
- fall_V = regV "tomber" ;
- fear_V = ( craindre_V2) ;
- fight_V2 = dirV2 (regV "lutter") ;
- float_V = regV "flotter" ;
- flow_V = regV "couler" ;
- fly_V = regV "voler" ;
- freeze_V = reg3V "geler" "gle" "glera" ;
- give_V = dirdirV3 (regV "donner") ;
- hear_V = ( entendre_V2) ;
- hit_V2 = dirV2 (regV "frapper") ;
- hold_V = ( tenir_V2) ;
- hunt_V2 = dirV2 (regV "chasser") ;
- kill_V2 = dirV2 (regV "tuer") ;
- know_V = ( connatre_V2) ;
- laugh_V = rire_V2 ;
- lie_V = reflV tendre_V2 ;
- live_V = vivre_V2 ;
- play_V = regV "jouer" ;
- pull_V2 = dirV2 (regV "tirer") ;
- push_V2 = dirV2 (regV "pousser") ;
- rub_V2 = dirV2 (regV "frotter") ;
- say_V = dire_V2 ;
- scratch_V2 = dirV2 (regV "gratter") ;
- see_V = ( voir_V2) ;
- sew_V = coudre_V2 ;
- sing_V = regV "chanter" ;
- sit_V = reflV asseoir_V2 ;
- sleep_V = dormir_V2 ;
- smell_V = v2V ( sentir_V2) ;
- spit_V = regV "cracher" ;
- split_V = ( fendre_V2) ;
- squeeze_V2 = dirV2 (regV "serrer") ;
- stab_V2 = dirV2 (regV "poignarder") ;
- stand_V = reflV (reg3V "lever" "lve" "lvera") ;
- suck_V2 = dirV2 (regV "sucer") ;
- swell_V = regV "gonfler" ;
- swim_V = regV "nager" ;
- think_V = regV "penser" ;
- throw_V2 = dirV2 (regV "jeter") ;
- tie_V2 = dirV2 (regV "lier") ;
- turn_V = regV "tourner" ;
- vomit_V = regV "vomir" ;
- walk_V = regV "marcher" ;
- wash_V2 = dirV2 (regV "laver") ;
- wipe_V2 = dirV2 (regV "essuyer") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshGer.gf b/examples/bronzeage/old/SwadeshGer.gf
deleted file mode 100644
index 85c057bb0..000000000
--- a/examples/bronzeage/old/SwadeshGer.gf
+++ /dev/null
@@ -1,248 +0,0 @@
---# -path=.:../abstract:../common:../german:../../prelude
-
-concrete SwadeshGer of Swadesh = CatGer
- ** open MorphoGer, LangGer, ParadigmsGer, Prelude in {
-
- lincat
- MassN = N ;
-
- 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 = mkDeterminer Pl "all" ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
--- few_Det = mkDeterminer Pl "few" ;
--- other_Det = mkDeterminer Pl "other" ;
-
-
--- left_Ord = regA "left" ;
--- right_Ord = regA "right" ;
-
- -- Adverbs
-
- here_Adv = here_Adv;
- there_Adv = there_Adv;
- where_IAdv = where_IAdv;
- when_IAdv = when_IAdv;
- how_IAdv = how_IAdv;
--- far_Adv = mkAdv "far" ;
-
- -- not : Adv ; -- ?
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
--- at_Prep = ss "at" ;
--- in_Prep = ss "in" ;
--- with_Prep = ss "with" ;
-
- -- 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 "correct") ;
- dirty_A = dirty_A ;
--- dry_A = regA "dry" ;
--- dull_A = regA "dull" ;
--- full_A = regA "full" ;
- good_A = good_A ;
- green_A = green_A ;
--- heavy_A = regA "heavy" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
--- near_A = regA "near" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
--- rotten_A = (regA "rotten") ;
--- round_A = regA "round" ;
--- sharp_A = regA "sharp" ;
- short_A = short_A ;
- small_A = small_A ;
--- smooth_A = regA "smooth" ;
--- straight_A = regA "straight" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
--- wet_A = regA "wet" ; ----
- white_A = white_A ;
--- wide_A = regA "wide" ;
- yellow_A = yellow_A ;
-
- -- Nouns
-
--- animal_N = regN "animal" ;
--- ashes_N = regN "ash" ; -- FIXME: plural only?
--- back_N = regN "back" ;
--- bark_N = regN "bark" ;
--- belly_N = regN "belly" ;
- bird_N = bird_N;
--- blood_N = regN "blood" ;
--- bone_N = regN "bone" ;
--- breast_N = regN "breast" ;
- child_N = child_N ;
--- cloud_N = regN "cloud" ;
--- day_N = regN "day" ;
- dog_N = dog_N ;
--- dust_N = regN "dust" ;
--- ear_N = regN "ear" ;
--- earth_N = regN "earth" ;
--- egg_N = regN "egg" ;
--- eye_N = regN "eye" ;
--- fat_N = regN "fat" ;
---- father_N = UseN2 father_N2 ;
--- feather_N = regN "feather" ;
--- fingernail_N = regN "fingernail" ;
--- fire_N = regN "fire" ;
- fish_N = fish_N ;
--- flower_N = regN "flower" ;
--- fog_N = regN "fog" ;
--- foot_N = mk2N "foot" "feet" ;
--- forest_N = regN "forest" ;
- fruit_N = fruit_N ;
--- grass_N = regN "grass" ;
--- guts_N = regN "gut" ; -- FIXME: no singular
--- hair_N = regN "hair" ;
--- hand_N = regN "hand" ;
--- head_N = regN "head" ;
--- heart_N = regN "heart" ;
--- horn_N = regN "horn" ;
--- husband_N = genderN masculine (regN "husband") ;
--- ice_N = regN "ice" ;
--- knee_N = regN "knee" ;
- lake_N = lake_N ;
--- leaf_N = mk2N "leaf" "leaves" ;
--- leg_N = regN "leg" ;
--- liver_N = regN "liver" ;
--- louse_N = mk2N "louse" "lice" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
---- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
--- mouth_N = regN "mouth" ;
--- name_N = regN "name" ;
--- neck_N = regN "neck" ;
--- night_N = regN "night" ;
--- nose_N = regN "nose" ;
--- person_N = genderN human (regN "person") ;
--- rain_N = regN "rain" ;
- river_N = river_N ;
--- road_N = regN "road" ;
--- root_N = regN "root" ;
--- rope_N = regN "rope" ;
--- salt_N = regN "salt" ;
--- sand_N = regN "sand" ;
- sea_N = sea_N ;
--- seed_N = regN "seed" ;
--- skin_N = regN "skin" ;
--- sky_N = regN "sky" ;
--- smoke_N = regN "smoke" ;
- snake_N = snake_N ;
--- snow_N = regN "snow" ;
- star_N = star_N ;
--- stick_N = regN "stick" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
--- tail_N = regN "tail" ;
--- tongue_N = regN "tongue" ;
--- tooth_N = mk2N "tooth" "teeth" ;
- tree_N = tree_N ;
- water_N = water_N ;
--- wife_N = genderN feminine (mk2N "wife" "wives") ;
--- wind_N = regN "wind" ;
--- wing_N = regN "wing" ;
- woman_N = woman_N ;
--- worm_N = regN "worm" ;
--- year_N = regN "year" ;
-
- -- Verbs
-
--- bite_V = bite_V ;
--- blow_V = blow_V ;
--- breathe_V2 = dirV2 (regV "breathe") ;
--- burn_V = burn_V ;
- come_V = come_V ;
--- count_V2 = dirV2 (regV "count") ;
--- cut_V2 = dirV2 cut_V ;
- die_V = die_V ;
--- dig_V = dig_V ;
- drink_V = drink_V2 ;
- eat_V = eat_V2 ;
--- fall_V = fall_V ;
--- fear_V2 = dirV2 (regV "fear") ;
--- fight_V2 = dirV2 fight_V ;
--- float_V = regV "float" ;
--- flow_V = regV "flow" ;
--- fly_V = fly_V ;
--- freeze_V = freeze_V ;
--- give_V = dirdirV3 give_V ;
- hear_V = hear_V2 ;
--- hit_V2 = dirV2 hit_V ;
--- hold_V2 = dirV2 hold_V ;
--- hunt_V2 = dirV2 (regV "hunt") ;
--- kill_V2 = dirV2 (regV "kill") ;
--- know_V2 = dirV2 know_V ;
--- laugh_V = regV "laugh" ;
--- lie_V = lie_V ;
- live_V = live_V ;
--- play_V = regV "play" ;
--- pull_V2 = dirV2 (regV "pull") ;
--- push_V2 = dirV2 (regV "push") ;
--- rub_V2 = dirV2 (regDuplV "rub") ;
--- say_V = say_V ;
--- scratch_V2 = dirV2 (regV "scratch") ;
--- see_V = see_V2 ;
--- sew_V = sew_V ;
--- sing_V = sing_V ;
--- sit_V = sit_V ;
- sleep_V = sleep_V ;
--- smell_V2 = dirV2 (regV "smell") ;
--- spit_V = spit_V ;
--- split_V2 = dirV2 split_V ;
--- squeeze_V2 = dirV2 (regV "squeeze") ;
--- stab_V2 = dirV2 (regDuplV "stab") ;
--- stand_V = stand_V ;
--- suck_V2 = dirV2 (regV "suck") ;
--- swell_V = swell_V ;
--- swim_V = swim_V ;
--- think_V = think_V ;
--- throw_V2 = dirV2 throw_V ;
--- tie_V2 = dirV2 (regV "tie") ;
--- turn_V = regV "turn" ;
--- vomit_V = regV "vomit" ;
- walk_V = walk_V ;
--- wash_V2 = dirV2 (regV "wash") ;
--- wipe_V2 = dirV2 (regV "wipe") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshIta.gf b/examples/bronzeage/old/SwadeshIta.gf
deleted file mode 100644
index 7d55f2a99..000000000
--- a/examples/bronzeage/old/SwadeshIta.gf
+++ /dev/null
@@ -1,258 +0,0 @@
---# -path=.:../italian:../common:../abstract:../../prelude:../romance
-
-concrete SwadeshIta of Swadesh = CatIta
- ** open PhonoIta, MorphoIta, LangIta, ParadigmsIta, BeschIta, Prelude in {
-
- lincat
- MassN = N ;
-
- 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 = \\g,c => prepCase c ++ genForms ["tutti i"] ["tutte le"] ! g ;
- n = Pl
- } ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
- few_Det = {s = \\g,c => prepCase c ++ genForms "pochi" "poche" ! g ; n = Pl} ;
- other_Det = {
- s = \\g,c => prepCase c ++ genForms "altri" "altre" ! g ;
- n = Pl
- } ;
-
- left_Ord = mkOrd (regA "sinistro") ;
- right_Ord = mkOrd (regA "destro") ;
-
- oper
- mkOrd : A -> Ord ;
- mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
-
- lin
-
- -- Adverbs
-
- here_Adv = here_Adv;
- there_Adv = there_Adv;
- where_IAdv = where_IAdv;
- when_IAdv = when_IAdv;
- how_IAdv = how_IAdv;
- far_Adv = mkAdv "lontano" ;
-
- -- not : Adv ; -- ?
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
- at_Prep = dative ;
- in_Prep = in_Prep ;
- with_Prep = with_Prep ;
-
- -- 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 "corretto" ;
- dirty_A = dirty_A ;
- dry_A = regA "secco" ;
- dull_A = regA "noioso" ;
- full_A = regA "pieno" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = regA "pesante" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = regA "vicino" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = regA "marcio" ;
- round_A = regA "rotondo" ;
- sharp_A = regA "aguzzo" ;
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = regA "liscio" ;
- straight_A = regA "diretto" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = regA "bagnato" ;
- white_A = white_A ;
- wide_A = regA "largo" ;
- yellow_A = yellow_A ;
-
- -- Nouns
-
- animal_N = regN "animale" ;
- ashes_N = regN "cenere" ;
- back_N = regN "schiena" ;
- bark_N = regN "corteccia" ;
- belly_N = regN "pancia" ;
- bird_N = bird_N;
- blood_N = regN "sangue" ;
- bone_N = regN "osso" ;
- breast_N = regN "seno" ;
- child_N = child_N ;
- cloud_N = regN "nuvola" ;
- day_N = regN "giorno" ;
- dog_N = dog_N ;
- dust_N = regN "polvere" ;
- ear_N = regN "orecchio" ;
- earth_N = regN "terra" ;
- egg_N = mkN "uovo" "uova" masculine ; -- fem in Pl
- eye_N = regN "occhio" ;
- fat_N = regN "grasso" ;
- father_N = UseN2 father_N2 ;
- feather_N = regN "piuma" ;
- fingernail_N = regN "unghia" ;
- fire_N = regN "fuoco" ;
- fish_N = fish_N ;
- flower_N = regN "fiore" ;
- fog_N = regN "nebbia" ;
- foot_N = regN "piede" ;
- forest_N = regN "bosco" ;
- fruit_N = fruit_N ;
- grass_N = regN "erba" ;
- guts_N = regN "intestino" ;
- hair_N = regN "capello" ;
- hand_N = femN (regN "mano") ;
- head_N = regN "testa" ;
- heart_N = regN "cuore" ;
- horn_N = regN "corno" ;
- husband_N = regN "marito" ;
- ice_N = regN "ghiaccio" ;
- knee_N = regN "ginocchio" ;
- lake_N = lake_N ;
- leaf_N = regN "foglia" ;
- leg_N = regN "gamba" ;
- liver_N = regN "fegato" ;
- louse_N = regN "pidocchio" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = regN "bocca" ;
- name_N = regN "nome" ;
- neck_N = regN "collo" ;
- night_N = femN (regN "notte") ;
- nose_N = regN "naso" ;
- person_N = regN "persona" ;
- rain_N = regN "pioggia" ;
- river_N = river_N ;
- road_N = regN "strada" ;
- root_N = femN (regN "radice") ;
- rope_N = regN "corda" ;
- salt_N = regN "sale" ;
- sand_N = regN "sabbia" ;
- sea_N = sea_N ;
- seed_N = regN "seme" ;
- skin_N = femN (regN "pelle") ;
- sky_N = regN "cielo" ;
- smoke_N = regN "fumo" ;
- snake_N = snake_N ;
- snow_N = femN (regN "neve") ;
- star_N = star_N ;
- stick_N = regN "bastone" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = regN "coda" ;
- tongue_N = regN "lingua" ;
- tooth_N = regN "dente" ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = regN "donna" ;
- wind_N = regN "vento" ;
- wing_N = regN "ala" ;
- woman_N = woman_N ;
- worm_N = regN "verme" ;
- year_N = regN "anno" ;
-
- -- Verbs
-
- bite_V2 = dirV2 (verboV (esplodere_51 "mordere")) ;
- blow_V = regV "soffiare" ;
- breathe_V2 = dirV2 (regV "respirare") ;
- burn_V = regV "bruciare" ;
- come_V = come_V ;
- count_V2 = dirV2 (regV "contare") ;
- cut_V2 = dirV2 (regV "tagliare") ;
- die_V = die_V ;
- dig_V = regV "scavare" ;
- drink_V2 = dirV2 (drink_V2) ;
- eat_V2 = dirV2 (regV "mangiare") ;
- fall_V = essereV (verboV (cadere_28 "cadere")) ;
- fear_V2 = dirV2 (fear_VS) ;
- fight_V2 = dirV2 (regV "lottare") ;
- float_V = regV "galleggiare" ;
- flow_V = verboV (finire_100 "fluire") ;
- fly_V = regV "volare" ;
- freeze_V = regV "gelare" ;
- give_V = dirdirV3 (verboV (dare_15 "dare")) ;
- hear_V2 = dirV2 (hear_V2) ;
- hit_V2 = dirV2 (regV "colpire") ;
- hold_V2 = dirV2 (verboV (venire_110 "tenire")) ;
- hunt_V2 = dirV2 (regV "cacciare") ;
- kill_V2 = dirV2 (verboV (ridere_74 "uccidere")) ;
- know_V2 = dirV2 (know_V2) ;
- laugh_V = verboV (ridere_74 "ridere") ;
- lie_V = verboV (piacere_64 "giacere") ;
- live_V = live_V ;
- play_V = regV "giocare" ;
- pull_V2 = dirV2 (regV "tirare") ;
- push_V2 = dirV2 (verboV (cingere_31 "spingere")) ;
- rub_V2 = dirV2 (regV "strofinare") ;
- say_V = say_VS ;
- scratch_V2 = dirV2 (regV "graffiare") ;
- see_V2 = dirV2 (see_V2) ;
- sew_V = verboV (cucire_103 "cucire") ;
- sing_V = regV "cantare" ;
- sit_V = reflV (verboV (sedere_84 "sedere")) ;
- sleep_V = sleep_V ;
- smell_V = verboV (sentire_99 "sentire") ;
- spit_V = regV "sputare" ;
- split_V2 = dirV2 (verboV (ridere_74 "dividere")) ;
- squeeze_V2 = dirV2 (verboV (temere_20 "spremere")) ;
- stab_V2 = dirV2 (regV "pugnalare") ;
- stand_V = verboV (stare_16 "stare") ; ---- in piedi
- suck_V2 = dirV2 (regV "succhiare") ;
- swell_V = regV "gonfiare" ;
- swim_V = regV "nuotare" ;
- think_V = regV "pensare" ;
- throw_V2 = dirV2 (regV "gettare") ;
- tie_V2 = dirV2 (regV "legare") ;
- turn_V = regV "tornare" ;
- vomit_V = regV "vomitare" ;
- walk_V = regV "camminare" ;
- wash_V2 = dirV2 (regV "lavare") ;
- wipe_V2 = dirV2 (regV "asciugare") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshNor.gf b/examples/bronzeage/old/SwadeshNor.gf
deleted file mode 100644
index 48d8a4db8..000000000
--- a/examples/bronzeage/old/SwadeshNor.gf
+++ /dev/null
@@ -1,252 +0,0 @@
---# -path=.:../norwegian:../common:../abstract:../scandinavian:../../prelude
-
-concrete SwadeshNor of Swadesh = CatNor
- ** open MorphoNor, LangNor, ParadigmsNor, IrregNor, Prelude in {
-
- lincat
- MassN = N ;
-
- 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} ;
-
- left_Ord = {s = "venstre" ; isDet = True} ;
- right_Ord = {s = "hyre" ; isDet = True} ;
-
- -- Adverbs
-
- here_Adv = here_Adv ;
- there_Adv = there_Adv ;
- where_IAdv = where_IAdv ;
- when_IAdv = when_IAdv ;
- how_IAdv = how_IAdv ;
-
- far_Adv = mkAdv "fjern" ;
-
- -- 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 "trr" "trt" ;
- dull_A = regA "slv" ;
- full_A = regA "full" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = irregADeg "tung" "tyngre" "tyngst" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = mkADeg "nre" "nre" "nre" "nrmere" "nrmest" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = mk3ADeg "rtten" "rttent" "rtne" ;
- 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 "vt" ;
- 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 "stv" "stvet" ;
- 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 "fjr" "fjra" ;
- fingernail_N = mk2N "negl" "neglen" ;
- fire_N = mk2N "ild" "ilden" ;
- fish_N = fish_N ;
- flower_N = mk2N "blomst" "blomsten" ;
- fog_N = mk2N "tke" "tka" ;
- foot_N = mk2N "fot" "ftter" ;
- forest_N = mk2N "skog" "skogen" ;
- fruit_N = fruit_N ;
- grass_N = mk2N "gras" "graset" ;
- guts_N = mk2N "tarm" "tarmen" ; ---- involler
- hair_N = mk2N "hr" "hret" ;
- hand_N = mk2N "hnd" "hnden" ;
-
- 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" "knr" "knne" ;
- lake_N = lake_N ;
- leaf_N = mk2N "lv" "lvet" ;
- 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" "mdre" "mdrene" ;
--- 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" "rtter" "rttene" ;
- rope_N = mk2N "tau" "tauet" ;
- salt_N = mk2N "salt" "saltet" ;
- sand_N = mk2N "sand" "sanden" ;
- sea_N = sea_N ;
- seed_N = mk2N "fr" "fret" ;
- skin_N = mk2N "skinn" "skinnet" ;
- sky_N = mkN "himmel" "himmelen" "himler" "himlene" ;
- smoke_N = mk2N "ryk" "ryken" ;
- snake_N = snake_N ;
- snow_N = mk2N "sn" "snen" ;
- 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_V2 = dirV2 (IrregNor.bite_V) ;
- blow_V = mk2V "blse" "blste" ;
- breathe_V2 = dirV2 (regV "puste") ;
- burn_V = brenne_V ;
- come_V = komme_V ;
- count_V2 = dirV2 (regV "regne") ;
- cut_V2 = dirV2 (skjre_V) ;
- die_V = d_V ;
- dig_V = mk2V "grave" "gravde" ;
- drink_V2 = dirV2 (drikke_V) ;
- eat_V2 = dirV2 (mk2V "spise" "spiste") ;
- fall_V = falle_V ;
- fear_V2 = dirV2 (regV "frykte") ;
- fight_V2 = dirV2 (slss_V) ;
- float_V = flyte_V ;
- flow_V = renne_V ;
- fly_V = fly_V ;
- freeze_V = fryse_V ;
- give_V = dirdirV3 gi_V ;
- hear_V2 = dirV2 (mk2V "hre" "hrde") ;
- hit_V2 = dirV2 (sl_V) ;
- hold_V2 = dirV2 (holde_V) ;
- hunt_V2 = dirV2 (regV "jakte") ;
- kill_V2 = dirV2 (mk2V "drepe" "drepte") ;
- know_V2 = 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_V2 = dirV2 (dra_V) ;
- push_V2 = dirV2 (irregV "skyve" "skjv" "skjvet") ;
- rub_V2 = dirV2 (gni_V) ;
- say_V = si_V ;
- scratch_V2 = dirV2 (regV "kl") ;
- see_V2 = dirV2 (se_V) ;
- sew_V = mk2V "sy" "sydde" ;
- sing_V = synge_V ;
- sit_V = sitte_V ;
- sleep_V = sove_V ;
- smell_V = regV "lukte" ;
- spit_V = regV "spytte" ;
- split_V2 = dirV2 (mk2V "klyve" "klyvde") ;
- squeeze_V2 = dirV2 (mk2V "klemme" "klemte") ;
- stab_V2 = dirV2 (stikke_V) ;
- stand_V = st_V ;
- suck_V2 = dirV2 (suge_V) ;
- swell_V = partV (regV "hovne") "opp" ;
- swim_V = regV "simme" ;
- think_V = mk2V "tenke" "tenkte" ;
- throw_V2 = dirV2 (regV "kaste") ;
- tie_V2 = dirV2 (regV "knytte") ;
- turn_V = mk2V "vende" "vendte" ;
- vomit_V = partV (regV "kaste") "opp" ;
- walk_V = g_V ;
- wash_V2 = dirV2 (regV "vaske") ;
- wipe_V2 = dirV2 (regV "trke") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshRus.gf b/examples/bronzeage/old/SwadeshRus.gf
deleted file mode 100644
index 651b0b0fa..000000000
--- a/examples/bronzeage/old/SwadeshRus.gf
+++ /dev/null
@@ -1,251 +0,0 @@
---# -path=.:../abstract:../../prelude
-
-concrete SwadeshRus of Swadesh = CatRus
- ** open ResourceRus, SyntaxRus, ParadigmsRus,
- BasicRus, Prelude in {
-flags coding=utf8 ;
-
- lincat
- MassN = N ;
-
- 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 = this_Det ;
- that_Det = that_Det ;
- all_Det = all_NDet ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
- few_Det = adjInvar "мало" ** {n = Sg; g = PNoGen; c= Nom} ;
- other_Det = drugojDet ** {n = Sg; g = PNoGen; c= Nom} ;
-
--- left_Ord = AStaruyj "лев";
--- right_Ord = AStaruyj "прав";
-
- -- 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 = { s2 = "у" ; c = genitive} ;
- in_Prep = { s2 = "в" ; c = prepositional} ;
- with_Prep = { s2 = "с" ; c = instructive} ;
-
- -- 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 = mkA (AStaruyj "правильн") "правильнее";
- dirty_A = dirty_A ;
- dry_A = mkA (AMolodoj "сух") "суше";
- dull_A = mkA (AStaruyj "скучн") "скучнее";
- far_A = mkA (AKhoroshij "далекий") "дальше";
- full_A = mkA (AStaruyj "полн") "полнее";
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = mkA (AStaruyj "тяжел") "тяжелее";
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = mkA (AMalenkij "близк") "ближе";
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = mkA (AMolodoj "гнил") "гнилее";
- round_A = mkA (AStaruyj "кругл") "круглее";
- sharp_A = mkA (AStaruyj "остр") "острее";
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = mkA (AMalenkij "гладк") "глаже";
- straight_A = mkA (AMolodoj "прям") "прямее";
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = mkA (AStaruyj "мокр") "мокрее";
- white_A = white_A ;
- wide_A = mkA (AMalenkij "широк") "шире";
- yellow_A = yellow_A ;
-
-
- -- Nouns
-
- animal_N = nZhivotnoe "животн" ;
- ashes_N = nPepel "пеп" ;
- back_N = nMashina "спин" ;
- bark_N = mkN "лай" "лая" "лаю" "лай" "лаем" "лае" "лаи" "лаев" "лаям" "лаи" "лаями" "лаях" masculine inanimate;
- belly_N = nTelefon "живот" ;
- bird_N = bird_N ;
- blood_N = nBol "кров" ;
- bone_N = nBol "кост" ;
- breast_N = nBol "грудь" ;
- child_N = child_N ;
- cloud_N = nChislo "облак" ;
- day_N = mkN "день" "дня" "дню" "день" "днём" "дне" "дни" "дней" "дням" "дни" "днями" "днях" masculine inanimate ;
- dog_N = dog_N ;
- dust_N = nBol "пыл" ;
- ear_N = nChislo "ухо" ;
- earth_N = nTetya "земл" ;
- egg_N = nChislo "яйц" ;
- eye_N = nAdres "глаз" ;
- fat_N = nBank "жир" ;
- father_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ;
--- father_N = UseN2 father_N2 ;
- feather_N = mkN "перо" "пера" "перу" "пера" "пером" "пере" "перья" "перьев" "перьям" "перьев" "перьями" "перьях" neuter inanimate ;
- fingernail_N = mkN "ноготь" "ногтя" "ногтю" "ногтя" "ногтем" "ногте" "ногти" "ногтей" "ногтям" "ногтей" "ногтями" "ногтях" masculine inanimate ;
- fire_N = mkN "огонь" "огня" "огню" "огня" "огнём" "огне" "огни" "огней" "огням" "огней" "огнями" "огнях" masculine inanimate ;
- fish_N = fish_N ;
- flower_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ;
- fog_N = nTelefon "туман" ;
- foot_N = nTetya "ступн" ;
- forest_N = nAdres "лес" ;
- fruit_N = fruit_N ;
- grass_N = nMashina "трав" ;
- guts_N = nBol "внутренност" ;
- hair_N = nTelefon "волос" ;
- hand_N = nNoga "рук" ;
- head_N = nMashina "голов" ;
- heart_N = mkN "сердце" "сердца" "сердцу" "сердца" "сердцем" "сердце" "сердца" "сердец" "сердцам" "сердец" "сердцами" "сердцах" neuter inanimate;
- horn_N = nAdres "рог" ;
- husband_N = mkN "муж" "мужа" "мужу" "мужа" "мужем" "муже" "мужья" "мужей" "мужьям" "мужей" "мужьями" "мужьях" masculine animate ;
- ice_N = mkN "лёд" "льда" "льду" "льда" "льдом" "льде" "льды" "льдов" "льдам" "льдов" "льдами" "льдах" masculine inanimate ;
- knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ;
- lake_N = lake_N ;
- leaf_N = nStul "лист" ;
- leg_N = nNoga "ног" ;
- liver_N = nBol "печен" ;
- louse_N = mkN "вошь" "вши" "вши" "вошь" "вошью" "вше" "вши" "вшей" "вшам" "вшей" "вшами" "вшах" feminine animate ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = mkN "мать" "матери" "матери" "мать" "матерью" "матери" "матери" "матерей" "матерям" "матерей" "матерями" "матерях" feminine animate ;
---- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = mkN "рот" "рта" "рту" "рот" "ртом" "рте" "рты" "ртов" "ртам" "рты" "ртами" "ртах" masculine inanimate;
- name_N = mkN "имя" "имени" "имени" "имя" "именем" "имени" "имена" "имён" "именам" "имена" "именами" "именах" neuter inanimate;
- neck_N = nTetya "ше" ;
- night_N = nBol "ноч" ;
- nose_N = nTelefon "нос" ;
- person_N = nBol "личность" ;
- rain_N = nNol "дожд" ;
- river_N = river_N ;
- road_N = nNoga "дорог" ;
- root_N = nUroven "кор" ;
- rope_N = nNoga "веревк" ;
- salt_N = nBol "сол" ;
- sand_N = mkN "песок" "песка" "песку" "песок" "песком" "песке" "пески" "песков" "пескам" "песков" "песками" "песках" masculine inanimate ;
- sea_N = sea_N ;
- seed_N = mkN "семя" "семени" "семении" "семя" "семенем" "семени" "семена" "семян" "семенам" "семена" "семенами" "семенах" neuter inanimate ;
- skin_N = nEdinica "кож" ;
- sky_N = mkN "небо" "неба" "небу" "небо" "небом" "небе" "небеса" "небес" "небесам" "небес" "небесами" "небесах" neuter inanimate ;
- smoke_N = nTelefon "дым" ;
- snake_N = snake_N ;
- snow_N = nAdres "снег" ;
- star_N = star_N ;
- stick_N = nNoga "палк" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = nTelefon "хвост" ;
- tongue_N = nBank "язык" ;
- tooth_N = nTelefon "зуб" ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = nMashina "жен" ;
- wind_N = mkN "ветер" "ветра" "ветру" "ветер" "ветром" "ветра" "ветров" "ветра" "ветрам" "ветров" "ветрами" "ветрах" masculine inanimate ;
- wing_N = mkN "крыло" "крыла" "крылу" "крыло" "крылом" "крыле" "крылья" "крыльев" "крыльям" "крылья" "крыльями" "крыльях" neuter inanimate ;
- woman_N = woman_N ;
- worm_N = nNol "черв" ;
- year_N = nAdres "год" ;
-
- -- Verbs
-
- bite_V = mkRegVerb imperfective first "куса" "ю" "кусал" "кусай" "кусать";
- blow_V = mkRegVerb imperfective first "ду" "ю" "дул" "дуй" "дуть" ;
- breathe_V = mkRegVerb imperfective second "дыш" "у" "дышал" "дыши" "дышать" ;
- burn_V = mkRegVerb imperfective second "гор" "ю" "горел" "гори" "гореть" ;
- come_V = come_V ;
- count_V = mkRegVerb imperfective first "счита" "ю" "считал" "считай" "считать" ;
- cut_V = mkRegVerb imperfective first "реж" "у" "резал" "режь" "резать" ;
- die_V = die_V ;
- dig_V = mkRegVerb imperfective first "копа" "ю" "копал" "копай" "копать" ;
- drink_V = mkRegVerb imperfective firstE "пь" "ю" "пил" "пей" "пить" ;
- eat_V = mkVerbum imperfective "ем" "ешь" "ест" "едим" "едите" "едят" "ел" "ешь" "есть" ;
- fall_V = mkRegVerb imperfective first "пада" "ю" "падал" "падай" "падать" ;
- fear_V = mkRegVerb imperfective second "бо" "ю" "боял" "бой" "боять" ;
- fight_V = mkRegVerb imperfective firstE "дер" "у" "драл" "дери" "драть" ;
- float_V = mkRegVerb imperfective firstE "плыв" "у" "плыл" "плыви" "плыть" ;
- flow_V = mkRegVerb imperfective firstE "тек" "у" "тёк" "теки" "течь" ;
- fly_V = mkRegVerb imperfective second "лета" "ю" "летал" "летай" "летать" ;
- freeze_V = mkRegVerb imperfective first "замерза" "ю" "замерзал" "замерзай" "замерзать" ;
- give_V = mkRegVerb imperfective firstE "да" "ю" "давал" "давай" "давать" ;
- hear_V = mkRegVerb imperfective first "слыш" "у" "слышал" "слышь" "слышать" ;
- hit_V = mkRegVerb imperfective first "ударя" "ю" "ударял" "ударяй" "ударять" ;
- hold_V = mkRegVerb imperfective second "держ" "у" "держал" "держи" "держать" ;
- hunt_V = mkRegVerb imperfective second "охоч" "у" "охотил" "охоть" "охотить" ;
- kill_V = mkRegVerb imperfective first "убива" "ю" "убивал" "убивай" "убивать" ;
- know_V = mkRegVerb imperfective first "зна" "ю" "знал" "знай" "знать" ;
- laugh_V = mkRegVerb imperfective firstE "сме" "ю" "смеял" "смей" "смеять" ;
- lie_V = mkRegVerb imperfective firstE "лг" "у" "лгал" "лги" "лгать" ;
- live_V = live_V ;
- play_V = mkRegVerb imperfective first "игра" "ю" "играл" "играй" "играть" ;
- pull_V = mkRegVerb imperfective first "тян" "у" "тянул" "тяни" "тянуть" ;
- push_V = mkRegVerb imperfective first "толка" "ю" "толкал" "толкай" "толкать" ;
- rub_V = mkRegVerb imperfective firstE "тр" "у" "тёр" "три" "тереть" ;
- say_V = mkRegVerb imperfective second "говор" "ю" "говорил" "говори" "говорить";
- scratch_V = mkRegVerb imperfective first "чеш" "у" "чесал" "чеши" "чесать" ; see_V = mkRegVerb imperfective second "смотр" "ю" "смотрел" "смотри" "смотреть" ;
- sew_V = mkRegVerb imperfective firstE "шь" "ю" "шил" "шей" "шить" ;
- sing_V = mkRegVerb imperfective firstE "по" "ю" "пел" "пой" "петь" ;
- sit_V = mkVerbum imperfective "сижу" "сидишь" "сидит" "сидим" "сидите" "сидят" "сидел" "сиди" "сидеть" ;
- sleep_V = sleep_V ;
- smell_V = mkRegVerb imperfective first "пахн" "у" "пахнул" "пахни" "пахнуть" ;
- spit_V = mkRegVerb imperfective firstE "плю" "ю" "плевал" "плюй" "плевать" ;
- split_V = mkRegVerb imperfective first "разбива" "ю" "разбивал" "разбей" "разбивать" ;
- squeeze_V = mkRegVerb imperfective first "сжима" "ю" "сжимал" "сжимай" "сжимать" ;
- stab_V = mkRegVerb imperfective first "кол" "ю" "колол" "коли" "колоть" ;
- stand_V = mkRegVerb imperfective second "сто" "ю" "стоял" "стой" "стоять" ;
- suck_V = mkRegVerb imperfective firstE "сос" "у" "сосал" "соси" "сосать" ;
- swell_V = mkRegVerb imperfective first "опуха" "ю" "опухал" "опухай" "опухать" ;
- swim_V = mkRegVerb imperfective first "плава" "ю" "плавал" "плавай" "плавать" ;
- think_V = mkRegVerb imperfective first "дума" "ю" "думал" "думай" "думать" ;
- throw_V = mkRegVerb imperfective first "броса" "ю" "бросал" "бросай" "бросать" ;
- tie_V = mkRegVerb imperfective first "вяж" "у" "вязал" "вяжи" "вязать" ;
- turn_V = mkRegVerb imperfective first "поворачива" "ю" "поворачивал" "поворачивай" "поворачивать" ;
- vomit_V = mkRegVerb imperfective firstE "рв" "у" "рвал" "рви" "рвать" ;
- walk_V = walk_V ;
- wash_V = mkRegVerb imperfective first "мо" "ю" "мыл" "мой" "мыть" ;
- wipe_V = mkRegVerb imperfective first "вытира" "ю" "вытирал" "вытирай" "вытирать" ;
-
-};
diff --git a/examples/bronzeage/old/SwadeshSpa.gf b/examples/bronzeage/old/SwadeshSpa.gf
deleted file mode 100644
index c7ef810df..000000000
--- a/examples/bronzeage/old/SwadeshSpa.gf
+++ /dev/null
@@ -1,262 +0,0 @@
---# -path=.:../spanish:../common:../abstract:../../prelude:../romance
-
-concrete SwadeshSpa of Swadesh = CatSpa
- ** open PhonoSpa, MorphoSpa, LangSpa, ParadigmsSpa, BeschSpa, Prelude in {
-
--- words contributed by Ana Bove, May 2005
-
- lincat
- MassN = N ;
-
- 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 = \\g,c => prepCase c ++ genForms ["todos los"] ["todas las"] ! g ;
- n = Pl
- } ;
- many_Det = many_Det ;
- some_Det = someSg_Det ;
- few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ;
- other_Det = {
- s = \\g,c => prepCase c ++ genForms "otros" "otras" ! g ;
- n = Pl
- } ;
-
- left_Ord = mkOrd (regA "izquierda") ;
- right_Ord = mkOrd (regA "derecha") ;
-
- oper
- mkOrd : A -> Ord ;
- mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
-
- lin
-
- -- Adverbs
-
- here_Adv = here_Adv;
- there_Adv = there_Adv;
- where_IAdv = where_IAdv;
- when_IAdv = when_IAdv;
- how_IAdv = how_IAdv;
- far_Adv = mkAdv "lejos" ; ----?
-
- -- not : Adv ; -- ?
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
- at_Prep = dative ;
- in_Prep = in_Prep ;
- with_Prep = with_Prep ;
-
- -- 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 "correcto" ;
- dirty_A = dirty_A ;
- dry_A = regA "seco" ;
- dull_A = regA "desafilado" ;
- full_A = regA "lleno" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = regA "pesado" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = regA "cerca" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = regA "podrido" ;
- round_A = regA "redondo" ;
- sharp_A = regA "filoso" ; -- afilado, puntiagudo
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = regA "liso" ; -- suave
- straight_A = regA "directo" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = regA "mojado" ;
- white_A = white_A ;
- wide_A = regA "ancho" ; -- extenso
- yellow_A = yellow_A ;
-
- -- Nouns
-
- animal_N = regN "animal" ; -- masc (sometimes fem when adj)
- ashes_N = regN "ceniza" ;
- back_N = regN "espalda" ;
- bark_N = regN "corteza" ;
- belly_N = regN "panza" ; -- barriga
- bird_N = bird_N;
- blood_N = femN (regN "sangre") ;
- bone_N = regN "hueso" ;
- breast_N = regN "seno" ; -- pecho
- child_N = child_N ;
- cloud_N = femN (regN "nube") ;
- day_N = mascN (regN "da") ;
- dog_N = dog_N ;
- dust_N = regN "polvo" ;
- ear_N = regN "oreja" ;
- earth_N = regN "tierra" ;
- egg_N = regN "huevo" ;
- eye_N = regN "ojo" ;
- fat_N = regN "grasa" ;
- father_N = UseN2 father_N2 ;
- feather_N = regN "pluma" ;
- fingernail_N = regN "ua" ;
- fire_N = regN "fuego" ;
- fish_N = fish_N ;
- flower_N = femN (regN "flor") ;
- fog_N = regN "niebla" ;
- foot_N = regN "pie" ;
- forest_N = regN "bosque" ;
- fruit_N = fruit_N ;
- grass_N = regN "pasto" ; -- hierba, csped (masc)
- guts_N = regN "tripa" ; -- gut=intestino ---- pl.t. tripas
- hair_N = regN "cabello" ; -- pelo
- hand_N = femN (regN "mano") ;
- head_N = regN "cabeza" ;
- heart_N = mkN "corazn" "corazones" masculine ;
- horn_N = regN "cuerno" ;
- husband_N = regN "marido" ; -- esposo
- ice_N = regN "hielo" ;
- knee_N = regN "rodilla" ;
- lake_N = lake_N ;
- leaf_N = regN "hoja" ;
- leg_N = regN "pierna" ;
- liver_N = regN "hgado" ;
- louse_N = regN "piojo" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = regN "boca" ;
- name_N = regN "nombre" ;
- neck_N = regN "cuello" ;
- night_N = femN (regN "noche") ;
- nose_N = femN (regN "nariz") ;
- person_N = regN "persona" ;
- rain_N = regN "lluvia" ;
- river_N = river_N ;
- road_N = femN (regN "calle") ; -- camino
- root_N = femN (regN "raz") ;
- rope_N = regN "cuerda" ;
- salt_N = femN (regN "sal") ;
- sand_N = regN "arena" ;
- sea_N = sea_N ;
- seed_N = regN "semilla" ;
- skin_N = femN (regN "piel") ; -- fem
- sky_N = regN "cielo" ;
- smoke_N = regN "humo" ;
- snake_N = snake_N ;
- snow_N = femN (regN "nieve") ; -- fem
- star_N = star_N ;
- stick_N = mkN "bastn" "bastones" masculine ; -- palo
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = regN "cola" ;
- tongue_N = regN "lengua" ;
- tooth_N = regN "diente" ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = regN "esposa" ;
- wind_N = regN "viento" ;
- wing_N = regN "ala" ;
- woman_N = woman_N ;
- worm_N = regN "gusano" ; -- lombriz (fem)
- year_N = regN "ao" ;
-
- -- Verbs
-
- bite_V2 = dirV2 (verboV (morder_50b "morder")) ;
- blow_V = regV "soplar" ;
- breathe_V2 = dirV2 (regV "respirar") ;
- burn_V = regV "quemar" ;
- come_V = come_V ;
- count_V2 = dirV2 (verboV (contar_38b "contar")) ;
- cut_V2 = dirV2 (regV "cortar") ;
- die_V = die_V ;
- dig_V = regV "escarbar" ;
- drink_V2 = dirV2 (regV "tomar") ;
- eat_V2 = dirV2 (regV "comer") ;
- fall_V = verboV (caer_20 "caer") ;
- fear_V2 = dirV2 (fear_VS) ;
- fight_V2 = dirV2 (regV "pelear") ;
- float_V = regV "flotar" ;
- flow_V = verboV (influir_45 "fluir") ; -- circular
- fly_V = regV "volar" ;
- freeze_V = regV "congelar" ;
- give_V = dirdirV3 (verboV (dar_27 "dar")) ;
- hear_V2 = dirV2 (hear_V2) ;
- hit_V2 = dirV2 (regV "golpear") ;
- hold_V2 = dirV2 (verboV (tener_4 "tener")) ;
- hunt_V2 = dirV2 (regV "cazar") ;
- kill_V2 = dirV2 (regV "matar") ;
- know_V2 = dirV2 (know_V2) ;
- laugh_V = regV "reir" ; ----V rer_67
- lie_V = reflV (regV "acostar") ; -- "acostarse"
- live_V = live_V ;
- play_V = regV "jugar" ;
- pull_V2 = dirV2 (regV "tirar") ;
- push_V2 = dirV2 (regV "empujar") ;
- rub_V2 = dirV2 (regV "resfregar") ;
- say_V = say_VS ;
- scratch_V2 = dirV2 (regV "rascar") ;
- see_V2 = dirV2 (see_V2) ;
- sew_V = regV "coser" ;
- sing_V = regV "cantar" ;
- sit_V = reflV (regV "sentar") ;
- sleep_V = sleep_V ;
- smell_V = verboV (oler_52 "oler") ;
- spit_V = regV "escupir" ;
- split_V2 = dirV2 (regV "separar") ; -- dividir,) ;
- squeeze_V2 = dirV2 (regV "exprimir") ;
- stab_V2 = dirV2 (regV "apualar") ;
- stand_V = verboV (estar_2 "estar") ; ---- "estar de pie" ;
- suck_V2 = dirV2 (regV "chupar") ;
- swell_V = regV "tragar" ;
- swim_V = regV "nadar" ;
- think_V = regV "pensar" ;
- throw_V2 = dirV2 (regV "tirar") ;
- tie_V2 = dirV2 (regV "atar") ;
- turn_V = regV "doblar" ;
- vomit_V = regV "vomitar" ;
- walk_V = regV "caminar" ;
- wash_V2 = dirV2 (regV "lavar") ;
- wipe_V2 = dirV2 (regV "secar") ;
-
-}
diff --git a/examples/bronzeage/old/SwadeshSwe.gf b/examples/bronzeage/old/SwadeshSwe.gf
deleted file mode 100644
index be548b07f..000000000
--- a/examples/bronzeage/old/SwadeshSwe.gf
+++ /dev/null
@@ -1,252 +0,0 @@
---# -path=.:present:prelude
-
-concrete SwadeshSwe of Swadesh = CatSwe
- ** open MorphoSwe, LangSwe, ParadigmsSwe, IrregSwe, Prelude in {
-
- lincat
- MassN = N ;
-
- 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 = \\_,_ => "alla" ; 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 = \\_,_ => "andra" ; n = Pl ; det = DDef Indef} ;
-
- left_Ord = {s = "vnstra" ; isDet = True} ;
- right_Ord = {s = "hgra" ; isDet = True} ;
-
- -- Adverbs
-
- here_Adv = here_Adv ;
- there_Adv = there_Adv ;
- where_IAdv = where_IAdv ;
- when_IAdv = when_IAdv ;
- how_IAdv = how_IAdv ;
- far_Adv = mkAdv "lngt" ;
-
- -- not : Adv ; -- ?
-
- -- Conjunctions
-
- and_Conj = and_Conj ;
-
- -- Prepositions
-
- at_Prep = ss "vid" ;
- 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 = regA "torr" ;
- dull_A = mk2A "sl" "sltt";
- full_A = regA "full" ;
- good_A = good_A ;
- green_A = green_A ;
- heavy_A = irregA "tung" "tyngre" "tyngst" ;
- long_A = long_A ;
- narrow_A = narrow_A ;
- near_A = mkA "nra" "nra" "nra" "nra"
- "nrmare" "nrmast" "nrmaste" ;
- new_A = new_A ;
- old_A = old_A ;
- red_A = red_A ;
- rotten_A = mk3A "rutten" "ruttet" "ruttna" ;
- round_A = regA "rund" ;
- sharp_A = regA "vass" ;
- short_A = short_A ;
- small_A = small_A ;
- smooth_A = regA "slt" ;
- straight_A = regA "rak" ;
- thick_A = thick_A ;
- thin_A = thin_A ;
- warm_A = warm_A ;
- wet_A = regA "vt" ;
- white_A = white_A ;
- wide_A = mk2A "bred" "brett" ;
- yellow_A = yellow_A ;
-
-
- -- Nouns
-
- animal_N = mk2N "djur" "djur" ;
- ashes_N = mk2N "aska" "askor" ;
- back_N = mk2N "rygg" "ryggar" ;
- bark_N = mk2N "bark" "barkar" ;
- belly_N = mk2N "mage" "magar" ;
- bird_N = bird_N ;
- blood_N = mk2N "blod" "blod" ;
- bone_N = mk2N "ben" "ben" ;
- breast_N = mk2N "brst" "brst" ;
- child_N = child_N ;
- cloud_N = mk2N "moln" "moln" ;
- day_N = mk2N "dag" "dagar" ;
- dog_N = dog_N ;
- dust_N = mk2N "damm" "damm" ;
- ear_N = mkN "ra" "rat" "ron" "ronen" ;
- earth_N = mk2N "jord" "jordar" ;
- egg_N = mk2N "gg" "gg" ;
- eye_N = mkN "ga" "gat" "gon" "gonen" ;
- fat_N = mk2N "fett" "fett" ;
- father_N = (mkN "far" "fadern" "fder" "fderna") ;
--- father_N = UseN2 father_N2 ;
- feather_N = mk2N "fjder" "fjdrar" ;
- fingernail_N = mkN "nagel" "nageln" "naglar" "naglarna";
- fire_N = mk2N "eld" "eldar" ;
- fish_N = fish_N ;
- flower_N = mk2N "blomma" "blommor" ;
- fog_N = mk2N "dimma" "dimmor" ;
- foot_N = mk2N "fot" "ftter" ;
- forest_N = mk2N "skog" "skogar" ;
- fruit_N = fruit_N ;
- grass_N = mk2N "grs" "grs" ;
- guts_N = mk2N "inlva" "inlvor" ;
- hair_N = mk2N "hr" "hr" ;
- hand_N = mk2N "hand" "hnder" ;
- head_N = mkN "huvud" "huvudet" "huvuden" "huvudena" ;
- heart_N = mkN "hjrta" "hjrtat" "hjrtan" "hjrtana" ;
- horn_N = mk2N "horn" "horn" ;
- husband_N = (mk2N "make" "makar") ;
- ice_N = mk2N "is" "isar" ;
- knee_N = mkN "kn" "knet" "knn" "knna" ;
- lake_N = lake_N ;
- leaf_N = mk2N "lv" "lv" ;
- leg_N = mk2N "ben" "ben" ;
- liver_N = mkN "lever" "levern" "levrar" "levrarna";
- louse_N = mkN "lus" "lusen" "lss" "lssen" ;
- man_N = man_N ;
- meat_N = meat_N ;
- moon_N = moon_N ;
- mother_N = mkN "mor" "modern" "mdrar" "mdrarna" ;
--- mother_N = UseN2 mother_N2 ;
- mountain_N = mountain_N ;
- mouth_N = mkN "mun" "munnen" "munnar" "munnarna" ;
- name_N = mk2N "namn" "namn" ;
- neck_N = mk2N "nacke" "nackar" ;
- night_N = mk2N "natt" "ntter" ;
- nose_N = mk2N "nsa" "nsor" ;
- person_N = mk2N "person" "personer" ;
- rain_N = mk2N "regn" "regn" ;
- river_N = river_N ;
- road_N = mk2N "vg" "vgar" ;
- root_N = mk2N "rot" "rtter" ;
- rope_N = mk2N "rep" "rep" ;
- salt_N = mkN "salt" "saltet" "salter" "salterna";
- sand_N = mk2N "sand" "sander" ;
- sea_N = sea_N ;
- seed_N = mkN "fr" "fret" "frn" "frna" ;
- skin_N = mk2N "skinn" "skinn" ;
- sky_N = mk2N "himmel" "himlar" ;
- smoke_N = mk2N "rk" "rkar" ;
- snake_N = snake_N ;
- snow_N = mkN "sn" "snn" "sner" "snerna" ;
- star_N = star_N ;
- stick_N = mk2N "pinne" "pinnar" ;
- stone_N = stone_N ;
- sun_N = sun_N ;
- tail_N = mk2N "svans" "svansar" ;
- tongue_N = mk2N "tunga" "tungor" ;
- tooth_N = mk2N "tand" "tnder" ;
- tree_N = tree_N ;
- water_N = water_N ;
- wife_N = mk2N "fru" "fruar" ;
- wind_N = mk2N "vind" "vindar" ;
- wing_N = mk2N "vinge" "vingar" ;
- woman_N = woman_N ;
- worm_N = mk2N "mask" "maskar" ;
- year_N = mk2N "r" "r" ;
-
- -- Verbs
-
- bite_V2 = dirV2 (bita_V) ;
- blow_V = mk2V "blsa" "blste" ;
- breathe_V2 = dirV2 (depV (regV "anda")) ;
- burn_V = brinna_V ; -- FIXME: brnna?
- come_V = komma_V ;
- count_V2 = dirV2 (regV "rkna") ;
- cut_V2 = dirV2 (skra_V) ;
- die_V = d_V ;
- dig_V = mk2V "grva" "grvde" ;
- drink_V2 = dirV2 (dricka_V) ;
- eat_V2 = dirV2 (ta_V) ;
- fall_V = falla_V ;
- fear_V2 = dirV2 (regV "frukta") ;
- -- FIXME: passive forms are very strange
- fight_V = mkV2 (mkV "slss" "slss" "slss" "slogs" "slagits" "slagen") "med" ;
- float_V = flyta_V ;
- flow_V = rinna_V ;
- fly_V = flyga_V ;
- freeze_V = frysa_V ;
- give_V = dirV3 giva_V "till";
- hear_V2 = dirV2 (mk2V "hra" "hrde") ;
- hit_V2 = dirV2 (sl_V) ;
- hold_V2 = dirV2 (hlla_V) ;
- hunt_V2 = dirV2 (regV "jaga") ;
- kill_V2 = dirV2 (regV "dda") ;
- know_V2 = dirV2 (knna_V) ;
- laugh_V = regV "skratta" ;
- lie_V = ligga_V ;
- live_V = leva_V ;
- play_V = mk2V "leka" "lekte" ;
- pull_V2 = dirV2 (draga_V) ;
- push_V2 = dirV2 (mk2V "trycka" "tryckte") ;
- rub_V2 = dirV2 (gnida_V) ;
- say_V = sga_V ;
- scratch_V2 = dirV2 (regV "klia") ;
- see_V2 = dirV2 (se_V) ;
- sew_V = sy_V ;
- sing_V = sjunga_V ;
- sit_V = sitta_V ;
- sleep_V = sova_V ;
- smell_V = regV "lukta" ;
- spit_V = regV "spotta" ;
- split_V2 = dirV2 (klyva_V) ;
- squeeze_V2 = dirV2 (klmma_V) ;
- stab_V2 = dirV2 (sticka_V) ;
- stand_V = st_V ;
- suck_V2 = dirV2 (suga_V) ;
- swell_V = svlla_V ;
- swim_V = regV "simma" ;
- think_V = mk2V "tnka" "tnkte" ;
- throw_V2 = dirV2 (regV "kasta") ;
- tie_V2 = dirV2 (knyta_V) ;
- turn_V = vnda_V ;
- vomit_V = mk2V "spy" "spydde" ;
- walk_V = g_V ;
- wash_V2 = dirV2 (regV "tvtta") ;
- wipe_V2 = dirV2 (regV "torka") ;
-
-}