summaryrefslogtreecommitdiff
path: root/examples/peacekeeping/english/PeaceLexExt_Eng.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-15 20:21:12 +0000
committerbjorn <bjorn@bringert.net>2008-08-15 20:21:12 +0000
commit137133b742f38c76d2354047ecc9d4af88826d42 (patch)
tree40b29781c11c6c9effd89c08ce7d6501a1bdedd0 /examples/peacekeeping/english/PeaceLexExt_Eng.gf
parent66c927937ad8ba4055a30c87c4455186535804dd (diff)
Added peacekeeping example back in. Doesn't compile yet.
Diffstat (limited to 'examples/peacekeeping/english/PeaceLexExt_Eng.gf')
-rw-r--r--examples/peacekeeping/english/PeaceLexExt_Eng.gf48
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/peacekeeping/english/PeaceLexExt_Eng.gf b/examples/peacekeeping/english/PeaceLexExt_Eng.gf
new file mode 100644
index 000000000..6ecfcf341
--- /dev/null
+++ b/examples/peacekeeping/english/PeaceLexExt_Eng.gf
@@ -0,0 +1,48 @@
+--# -path=.:present:prelude
+
+concrete PeaceLexExt_Eng of PeaceLexExt =
+ PeaceCat_Eng ** open ParadigmsEng, IrregEng,
+ LexiconEng, StructuralEng 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";
+ face_N = regN "face" ;
+ food_N = regN "food";
+ friend_N = regN "friend";
+ ground_N = regN "ground" ;
+ knife_N = mk2N "knife" "knives" ;
+ landmine_N = regN "landmine" ;
+ map_N = regN "map" ;
+ medicine_N = regN "medicine" ;
+ police8officer_N = compoundN "police" (regN "officer") ;
+ skin_N = regN "skin" ;
+ soldier_N = regN "soldier" ;
+ toy_N = regN "toy" ;
+ translation8machine_N = compoundN "translation" (regN "machine") ;
+ weapon_N = regN "weapon";
+
+ -- Verbs
+ cooperate_V2 = mkV2 (regV "cooperate") (mkPrep "with") ;
+ cough_V = regV "cough" ;
+ drop_V2 = dirV2 (regDuplV "drop") ;
+ hurt_V = hurt_V ;
+ need_V2 = dirV2 (regV "need");
+ own_V2 = dirV2 (regV "own") ;
+ show_V3 = dirdirV3 (regV "show") ;
+
+}