From a1e2767dbe912467ecb1dfe7d33bf173244b99b7 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 20 Apr 2006 17:55:46 +0000 Subject: [PATCH] Reorganized the peacekeeping grammar. --- examples/peacekeeping/Peace.gf | 1 + examples/peacekeeping/PeaceCat.gf | 6 +++ examples/peacekeeping/PeaceCatI.gf | 6 +++ examples/peacekeeping/PeaceKeep_Eng.gf | 5 --- .../{PeaceLex.gf => PeaceLexCommon.gf} | 28 +------------- .../{PeaceLex_Eng.gf => PeaceLexCommonI.gf} | 28 +------------- examples/peacekeeping/PeaceLexExt.gf | 37 +++++++++++++++++++ .../{PeaceKeep.gf => PeaceSyntax.gf} | 6 ++- .../{PeaceKeepI.gf => PeaceSyntaxI.gf} | 2 +- examples/peacekeeping/english/PeaceCat_Eng.gf | 3 ++ .../english/PeaceLexCommon_Eng.gf | 5 +++ .../peacekeeping/english/PeaceLexExt_Eng.gf | 37 +++++++++++++++++++ .../peacekeeping/english/PeaceSyntax_Eng.gf | 5 +++ examples/peacekeeping/english/Peace_Eng.gf | 3 ++ 14 files changed, 110 insertions(+), 62 deletions(-) create mode 100644 examples/peacekeeping/Peace.gf create mode 100644 examples/peacekeeping/PeaceCat.gf create mode 100644 examples/peacekeeping/PeaceCatI.gf delete mode 100644 examples/peacekeeping/PeaceKeep_Eng.gf rename examples/peacekeeping/{PeaceLex.gf => PeaceLexCommon.gf} (72%) rename examples/peacekeeping/{PeaceLex_Eng.gf => PeaceLexCommonI.gf} (71%) create mode 100644 examples/peacekeeping/PeaceLexExt.gf rename examples/peacekeeping/{PeaceKeep.gf => PeaceSyntax.gf} (95%) rename examples/peacekeeping/{PeaceKeepI.gf => PeaceSyntaxI.gf} (97%) create mode 100644 examples/peacekeeping/english/PeaceCat_Eng.gf create mode 100644 examples/peacekeeping/english/PeaceLexCommon_Eng.gf create mode 100644 examples/peacekeeping/english/PeaceLexExt_Eng.gf create mode 100644 examples/peacekeeping/english/PeaceSyntax_Eng.gf create mode 100644 examples/peacekeeping/english/Peace_Eng.gf diff --git a/examples/peacekeeping/Peace.gf b/examples/peacekeeping/Peace.gf new file mode 100644 index 000000000..13546fa08 --- /dev/null +++ b/examples/peacekeeping/Peace.gf @@ -0,0 +1 @@ +abstract Peace = PeaceSyntax, PeaceLexCommon, PeaceLexExt ** {} \ No newline at end of file diff --git a/examples/peacekeeping/PeaceCat.gf b/examples/peacekeeping/PeaceCat.gf new file mode 100644 index 000000000..ac75334ad --- /dev/null +++ b/examples/peacekeeping/PeaceCat.gf @@ -0,0 +1,6 @@ +abstract PeaceCat = Cat ** { + + cat + MassN ; + +} \ No newline at end of file diff --git a/examples/peacekeeping/PeaceCatI.gf b/examples/peacekeeping/PeaceCatI.gf new file mode 100644 index 000000000..9b19b319b --- /dev/null +++ b/examples/peacekeeping/PeaceCatI.gf @@ -0,0 +1,6 @@ +incomplete concrete PeaceCatI of PeaceCat = Cat ** open Cat in { + + lincat + MassN = N ; + +} \ No newline at end of file diff --git a/examples/peacekeeping/PeaceKeep_Eng.gf b/examples/peacekeeping/PeaceKeep_Eng.gf deleted file mode 100644 index 3b1faec72..000000000 --- a/examples/peacekeeping/PeaceKeep_Eng.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceKeep_Eng of PeaceKeep = CatEng, PeaceLex_Eng ** PeaceKeepI with - (Lang = LangEng) ; - diff --git a/examples/peacekeeping/PeaceLex.gf b/examples/peacekeeping/PeaceLexCommon.gf similarity index 72% rename from examples/peacekeeping/PeaceLex.gf rename to examples/peacekeeping/PeaceLexCommon.gf index 71c3fc491..35bdf35b6 100644 --- a/examples/peacekeeping/PeaceLex.gf +++ b/examples/peacekeeping/PeaceLexCommon.gf @@ -1,7 +1,4 @@ -abstract PeaceLex = Cat ** { - - cat - MassN ; +abstract PeaceLexCommon = PeaceCat ** { fun @@ -49,62 +46,39 @@ abstract PeaceLex = Cat ** { black_A : A ; blue_A : A ; cold_A : A ; - dangerous_A : A ; - dead_A : A ; green_A : A ; hot_A : A ; - hungry_A : A ; - large_A : A ; red_A : A ; - sick_A : A ; small_A : A ; white_A : A ; yellow_A : A ; -- Nouns - air_N : MassN ; airplane_N : N ; - arm_N : N ; animal_N : N ; blood_N : MassN ; boat_N : N ; boy_N : N ; child_N : N ; - corpse_N : N ; - building_N : N ; - car_N : N ; - doctor_N : N ; - enemy_N : N ; factory_N : N ; - food_N : MassN ; foot_N : N ; - friend_N : N ; girl_N : N ; hand_N : N ; head_N : N ; house_N : N ; - landmine_N : N ; leg_N : N ; - medicine_N : MassN ; man_N : N ; road_N : N ; - skin_N : MassN ; - soldier_N : N ; water_N : MassN ; - weapon_N : N ; woman_N : N; -- Verbs - cough_V : V ; eat_V2 : V2 ; drink_V2 : V2 ; give_V3 : V3 ; have_V2 : V2; - need_V2 : V2; - own_V2 : V2 ; see_V2 : V2 ; - show_V3 : V3 ; sleep_V : V ; walk_V : V ; diff --git a/examples/peacekeeping/PeaceLex_Eng.gf b/examples/peacekeeping/PeaceLexCommonI.gf similarity index 71% rename from examples/peacekeeping/PeaceLex_Eng.gf rename to examples/peacekeeping/PeaceLexCommonI.gf index 4e21ee370..ba4347dbf 100644 --- a/examples/peacekeeping/PeaceLex_Eng.gf +++ b/examples/peacekeeping/PeaceLexCommonI.gf @@ -1,7 +1,4 @@ -concrete PeaceLex_Eng of PeaceLex = CatEng ** open LangEng, ParadigmsEng in { - - lincat - MassN = N ; +incomplete concrete PeaceLexCommonI of PeaceLexCommon = PeaceCatI ** open Lang in { lin @@ -47,61 +44,38 @@ concrete PeaceLex_Eng of PeaceLex = CatEng ** open LangEng, ParadigmsEng in { black_A = black_A ; blue_A = blue_A ; cold_A = cold_A ; - dangerous_A = regA "dangerous" ; - dead_A = regA "dead" ; green_A = green_A ; hot_A = hot_A ; - hungry_A = regA "hungry" ; - large_A = regA "large" ; red_A = red_A ; - sick_A = regA "sick" ; small_A = small_A ; white_A = white_A ; yellow_A = yellow_A ; -- Nouns - air_N = regN "air" ; airplane_N = airplane_N ; animal_N = animal_N ; - arm_N = regN "arm" ; blood_N = blood_N ; boat_N = boat_N ; boy_N = boy_N ; - building_N = regN "building" ; - car_N = regN "car" ; child_N = child_N ; - corpse_N = regN "corpse" ; - doctor_N = regN "doctor"; - enemy_N = regN "enemy"; factory_N = factory_N ; - food_N = regN "food"; foot_N = foot_N ; - friend_N = regN "friend"; girl_N = girl_N ; hand_N = hand_N ; head_N = head_N ; house_N = house_N ; - landmine_N = regN "landmine" ; leg_N = leg_N ; man_N = man_N ; - medicine_N = regN "medicine" ; road_N = road_N ; - skin_N = regN "skin" ; - soldier_N = regN "soldier" ; water_N = water_N ; - weapon_N = regN "weapon"; woman_N = woman_N ; -- Verbs - cough_V = regV "cough" ; drink_V2 = drink_V2 ; eat_V2 = eat_V2 ; give_V3 = give_V3; have_V2 = have_V2; - need_V2 = dirV2 (regV "need"); - own_V2 = dirV2 (regV "own") ; see_V2 = see_V2 ; - show_V3 = dirdirV3 (regV "show") ; sleep_V = sleep_V ; walk_V = walk_V ; diff --git a/examples/peacekeeping/PeaceLexExt.gf b/examples/peacekeeping/PeaceLexExt.gf new file mode 100644 index 000000000..1e4e777ad --- /dev/null +++ b/examples/peacekeeping/PeaceLexExt.gf @@ -0,0 +1,37 @@ +abstract PeaceLexExt = PeaceCat ** { + + fun + + -- Adjectives + + dangerous_A : A ; + dead_A : A ; + hungry_A : A ; + large_A : A ; + sick_A : A ; + + -- Nouns + + air_N : MassN ; + arm_N : N ; + building_N : N ; + car_N : N ; + corpse_N : N ; + doctor_N : N ; + doctor_N : N ; + enemy_N : N ; + food_N : MassN ; + friend_N : N ; + landmine_N : N ; + medicine_N : MassN ; + skin_N : MassN ; + soldier_N : N ; + weapon_N : N; + + -- Verbs + cough_V : V ; + need_V2 : V2; + own_V2 : V2 ; + show_V3 : V3 ; + +} \ No newline at end of file diff --git a/examples/peacekeeping/PeaceKeep.gf b/examples/peacekeeping/PeaceSyntax.gf similarity index 95% rename from examples/peacekeeping/PeaceKeep.gf rename to examples/peacekeeping/PeaceSyntax.gf index 2278385f1..00da55ad2 100644 --- a/examples/peacekeeping/PeaceKeep.gf +++ b/examples/peacekeeping/PeaceSyntax.gf @@ -1,7 +1,9 @@ -abstract PeaceKeep = Cat, PeaceLex ** { +abstract PeaceSyntax = PeaceCat ** { cat - Sent ; Quest; MassCN ; + Sent ; + Quest ; + MassCN ; fun PhrPos : Sent -> Phr ; diff --git a/examples/peacekeeping/PeaceKeepI.gf b/examples/peacekeeping/PeaceSyntaxI.gf similarity index 97% rename from examples/peacekeeping/PeaceKeepI.gf rename to examples/peacekeeping/PeaceSyntaxI.gf index a57cd03ee..a2cb13484 100644 --- a/examples/peacekeeping/PeaceKeepI.gf +++ b/examples/peacekeeping/PeaceSyntaxI.gf @@ -1,4 +1,4 @@ -incomplete concrete PeaceKeepI of PeaceKeep = open Lang in { +incomplete concrete PeaceSyntaxI of PeaceSyntax = PeaceCatI ** open Lang in { flags startcat = Phr ; optimize = all_subs ; diff --git a/examples/peacekeeping/english/PeaceCat_Eng.gf b/examples/peacekeeping/english/PeaceCat_Eng.gf new file mode 100644 index 000000000..ac1d9a7dd --- /dev/null +++ b/examples/peacekeeping/english/PeaceCat_Eng.gf @@ -0,0 +1,3 @@ +--# -path=.:present:prelude + +concrete PeaceCat_Eng of PeaceCat = CatEng ** PeaceCatI with (Cat = CatEng); \ No newline at end of file diff --git a/examples/peacekeeping/english/PeaceLexCommon_Eng.gf b/examples/peacekeeping/english/PeaceLexCommon_Eng.gf new file mode 100644 index 000000000..fc3ab664d --- /dev/null +++ b/examples/peacekeeping/english/PeaceLexCommon_Eng.gf @@ -0,0 +1,5 @@ +--# -path=.:present:prelude + +concrete PeaceLexCommon_Eng of PeaceLexCommon = + PeaceCat_Eng ** PeaceLexCommonI with (Lang = LangEng) ; + diff --git a/examples/peacekeeping/english/PeaceLexExt_Eng.gf b/examples/peacekeeping/english/PeaceLexExt_Eng.gf new file mode 100644 index 000000000..413cb02e5 --- /dev/null +++ b/examples/peacekeeping/english/PeaceLexExt_Eng.gf @@ -0,0 +1,37 @@ +--# -path=.:present:prelude + +concrete PeaceLexExt_Eng of PeaceLexExt = + PeaceCat_Eng ** open ParadigmsEng in { + + lin + + -- Adjectives + dangerous_A = regA "dangerous" ; + dead_A = regA "dead" ; + hungry_A = regA "hungry" ; + large_A = regA "large" ; + sick_A = regA "sick" ; + + -- Nouns + air_N = regN "air" ; + arm_N = regN "arm" ; + building_N = regN "building" ; + car_N = regN "car" ; + corpse_N = regN "corpse" ; + doctor_N = regN "doctor"; + enemy_N = regN "enemy"; + food_N = regN "food"; + friend_N = regN "friend"; + landmine_N = regN "landmine" ; + medicine_N = regN "medicine" ; + skin_N = regN "skin" ; + soldier_N = regN "soldier" ; + weapon_N = regN "weapon"; + + -- Verbs + cough_V = regV "cough" ; + need_V2 = dirV2 (regV "need"); + own_V2 = dirV2 (regV "own") ; + show_V3 = dirdirV3 (regV "show") ; + +} diff --git a/examples/peacekeeping/english/PeaceSyntax_Eng.gf b/examples/peacekeeping/english/PeaceSyntax_Eng.gf new file mode 100644 index 000000000..674e1e123 --- /dev/null +++ b/examples/peacekeeping/english/PeaceSyntax_Eng.gf @@ -0,0 +1,5 @@ +--# -path=.:present:prelude + +concrete PeaceSyntax_Eng of PeaceSyntax = PeaceCat_Eng ** PeaceSyntaxI with + (Lang = LangEng) ; + diff --git a/examples/peacekeeping/english/Peace_Eng.gf b/examples/peacekeeping/english/Peace_Eng.gf new file mode 100644 index 000000000..c4432a593 --- /dev/null +++ b/examples/peacekeeping/english/Peace_Eng.gf @@ -0,0 +1,3 @@ +--# -path=.:present:prelude + +concrete Peace_Eng of Peace = PeaceSyntax_Eng, PeaceLexCommon_Eng, PeaceLexExt_Eng ** {} \ No newline at end of file