diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-15 20:21:12 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-15 20:21:12 +0000 |
| commit | 137133b742f38c76d2354047ecc9d4af88826d42 (patch) | |
| tree | 40b29781c11c6c9effd89c08ce7d6501a1bdedd0 /examples/peacekeeping/english/PeaceLexExt_Eng.gf | |
| parent | 66c927937ad8ba4055a30c87c4455186535804dd (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.gf | 48 |
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") ; + +} |
