diff options
Diffstat (limited to 'examples/peacekeeping')
35 files changed, 0 insertions, 773 deletions
diff --git a/examples/peacekeeping/EXAMPLES b/examples/peacekeeping/EXAMPLES deleted file mode 100644 index 822e649eb..000000000 --- a/examples/peacekeeping/EXAMPLES +++ /dev/null @@ -1,66 +0,0 @@ -== Working now == - -Yes. - -Who coughs? -Who owns this building? -Who needs water? -Who gives weapons to the soldiers? -Who gives water to the children? -Who is hungry? -Where do you sleep? -Where do you see the landmine? -Where are the weapons? - -The doctor sleeps. -I see a small girl. -Does your leg hurt? -Soldiers don't eat corpses. -Do you need medicine? -We don't give weapons to dangerous soldiers. -We give food to children. -Are you cold? -Landmines are dangerous. -We are your friends. -I am a police officer. -This is a translation machine. -Weapons aren't toys. -These soldiers aren't your enemies. - -Walk! -Breathe! -Don't eat your friend! -Drink cold water! -Give your weapon to the soldier! -Show me the landmine! -Give water to the boy! -Drop your weapon! -Cooperate with us! - -== Should work == - -Drink this water! (can't modify MassCN) -Drink! (drink is V2) - - -== How do we do these? == - -(without overgenerating too much) - -Turn around! - -plural-/singular-only nouns: clothes, ... - - -== English == - -=== Variants that should work === - -don't / do not -doesn't / does not -isn't / is not -aren't / are not - -corpse / dead body -give X to Y / give Y X - diff --git a/examples/peacekeeping/Makefile b/examples/peacekeeping/Makefile deleted file mode 100644 index 3e8cc0af8..000000000 --- a/examples/peacekeeping/Makefile +++ /dev/null @@ -1,2 +0,0 @@ -peace.pgf: - gfc --make english/Peace_Eng.gf swedish/Peace_Swe.gf diff --git a/examples/peacekeeping/Peace.gf b/examples/peacekeeping/Peace.gf deleted file mode 100644 index 506fdf62a..000000000 --- a/examples/peacekeeping/Peace.gf +++ /dev/null @@ -1,8 +0,0 @@ -abstract Peace = - PeaceSyntax, PeaceLexCommon, - PeaceLexExt, PeacePhrases - ** { - - flags startcat = PhraseWritten ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/PeaceCat.gf b/examples/peacekeeping/PeaceCat.gf deleted file mode 100644 index 71ee4c0aa..000000000 --- a/examples/peacekeeping/PeaceCat.gf +++ /dev/null @@ -1,20 +0,0 @@ -abstract PeaceCat = { - - cat - N; A; V; V2; V3; Pron; - IP; IAdv; - Adv; NP; CN; Imp; Det; Num ; - Card ; Art ; --a - MassN ; - Phrase ; - PhraseWritten ; - PhraseSpoken ; - Sent ; - Quest ; - MassCN ; - - fun - Written : Phrase -> PhraseWritten ; - Spoken : Phrase -> PhraseSpoken ; - -} diff --git a/examples/peacekeeping/PeaceCatI.gf b/examples/peacekeeping/PeaceCatI.gf deleted file mode 100644 index 7941de276..000000000 --- a/examples/peacekeeping/PeaceCatI.gf +++ /dev/null @@ -1,31 +0,0 @@ -incomplete concrete PeaceCatI of PeaceCat = - open Lang, PeaceRes, Prelude in { - - lincat - N = N; A = A; V = V; V2 = V2; V3 = V3; Pron = Pron; - Card = Card ; Art = Art ; --a - IP = IP; IAdv = IAdv; - Adv = Adv; NP = NP; CN = CN; Imp = Imp; Det = Det; Num = Num; - - MassN = N ; - Phrase = { s : Str; p : Punct } ; - PhraseWritten = { s : Str } ; - PhraseSpoken = { s : Str } ; - - Sent = {s : SForm => Str} ; - Quest = { s : Str } ; - MassCN = CN ; - - lin - Written x = mkWritten x.s x.p ; - Spoken x = { s = x.s } ; - - oper - mkWritten : Str -> Punct -> { s : Str } ; - mkWritten x p = case p of { - FullStop => { s = x ++ "." } ; --TFullStop (ss s) TEmpty ; - QuestMark => { s = x ++ "?" } ; --TQuestMark (ss s) TEmpty ; - ExclMark => { s = x ++ "!" } --TExclMark (ss s) TEmpty - } ; - -} diff --git a/examples/peacekeeping/PeaceLexCommon.gf b/examples/peacekeeping/PeaceLexCommon.gf deleted file mode 100644 index cec47c235..000000000 --- a/examples/peacekeeping/PeaceLexCommon.gf +++ /dev/null @@ -1,93 +0,0 @@ -abstract PeaceLexCommon = PeaceCat ** { - - fun - - -- Pronouns - - i_Pron : Pron ; - youSg_Pron : Pron ; - he_Pron : Pron ; - we_Pron : Pron ; - youPl_Pron : Pron ; - they_Pron : Pron ; - whoPl_IP : IP ; - whoSg_IP : IP ; - whatPl_IP : IP ; - whatSg_IP : IP ; - - this_NP : NP ; - that_NP : NP ; - - -- Determiners - - the_Art : Art ; --a - a_Art : Art ; --a - -- aSg_Det : Det ; - -- aPl_Det : Det ; - -- theSg_Det : Det ; - -- thePl_Det : Det ; --a - - that_Det : Det ; - those_Det : Det ; - this_Det : Det ; - these_Det : Det ; - - -- Adverbs - - here_Adv : Adv ; - there_Adv : Adv ; - where_IAdv : IAdv ; - when_IAdv : IAdv ; - - -- Numerals - --- Causes too much ambiguity --- one_Det : Det ; - two_Num : Card ; --a - three_Num : Card ; - four_Num : Card ; - five_Num : Card ; - - -- Adjectives - - black_A : A ; - blue_A : A ; - cold_A : A ; - green_A : A ; - hot_A : A ; - red_A : A ; - small_A : A ; - white_A : A ; - yellow_A : A ; - - -- Nouns - - airplane_N : N ; - animal_N : N ; - blood_N : MassN ; - boat_N : N ; - boy_N : N ; - child_N : N ; - factory_N : N ; - foot_N : N ; - girl_N : N ; - hand_N : N ; - head_N : N ; - house_N : N ; - leg_N : N ; - man_N : N ; - road_N : N ; - water_N : MassN ; - woman_N : N; - - -- Verbs - breathe_V : V ; - eat_V2 : V2 ; - drink_V2 : V2 ; - give_V3 : V3 ; - have_V2 : V2; - see_V2 : V2 ; - sleep_V : V ; - walk_V : V ; - -} diff --git a/examples/peacekeeping/PeaceLexCommonI.gf b/examples/peacekeeping/PeaceLexCommonI.gf deleted file mode 100644 index 21dcac350..000000000 --- a/examples/peacekeeping/PeaceLexCommonI.gf +++ /dev/null @@ -1,84 +0,0 @@ -incomplete concrete PeaceLexCommonI of PeaceLexCommon = PeaceCatI ** - open Lang, Constructors in { - - lin - - -- Pronouns - - i_Pron = i_Pron ; - youSg_Pron = youSg_Pron ; - he_Pron = he_Pron ; - we_Pron = we_Pron ; - youPl_Pron = youPl_Pron ; - they_Pron = they_Pron ; - whoPl_IP = whoPl_IP ; - whoSg_IP = whoSg_IP ; - whatPl_IP = whatPl_IP ; - whatSg_IP = whatSg_IP ; - - this_NP = mkNP this_Quant ; - that_NP = mkNP that_Quant ; - - -- Determiners - - a_Art = IndefArt ; - the_Art = DefArt ; - that_Det = mkDet that_Quant ; - those_Det = mkDet that_Quant plNum ; - this_Det = mkDet this_Quant ; - these_Det = mkDet this_Quant plNum ; - - -- Adverbs - here_Adv = here_Adv; - there_Adv = there_Adv; - where_IAdv = where_IAdv; - when_IAdv = when_IAdv; - - -- 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 - black_A = black_A ; - blue_A = blue_A ; - cold_A = cold_A ; - green_A = green_A ; - hot_A = hot_A ; - red_A = red_A ; - small_A = small_A ; - white_A = white_A ; - yellow_A = yellow_A ; - - -- Nouns - airplane_N = airplane_N ; - animal_N = animal_N ; - blood_N = blood_N ; - boat_N = boat_N ; - boy_N = boy_N ; - child_N = child_N ; - factory_N = factory_N ; - foot_N = foot_N ; - girl_N = girl_N ; - hand_N = hand_N ; - head_N = head_N ; - house_N = house_N ; - leg_N = leg_N ; - man_N = man_N ; - road_N = road_N ; - water_N = water_N ; - woman_N = woman_N ; - - -- Verbs - breathe_V = breathe_V ; - drink_V2 = drink_V2 ; - eat_V2 = eat_V2 ; - give_V3 = give_V3; - have_V2 = have_V2; - see_V2 = see_V2 ; - sleep_V = sleep_V ; - walk_V = walk_V ; - -} diff --git a/examples/peacekeeping/PeaceLexExt.gf b/examples/peacekeeping/PeaceLexExt.gf deleted file mode 100644 index 984440ef6..000000000 --- a/examples/peacekeeping/PeaceLexExt.gf +++ /dev/null @@ -1,47 +0,0 @@ -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 ; - face_N : N ; - food_N : MassN ; - friend_N : N ; - ground_N : N ; - knife_N : N ; - landmine_N : N ; - map_N : N ; - medicine_N : MassN ; - police8officer_N : N ; - skin_N : MassN ; - soldier_N : N ; - toy_N : N ; - translation8machine_N : N ; - weapon_N : N; - - -- Verbs - cooperate_V2 : V2 ; - cough_V : V ; - drop_V2 : V2 ; - hurt_V : V ; - need_V2 : V2; - own_V2 : V2 ; - show_V3 : V3 ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/PeacePhrases.gf b/examples/peacekeeping/PeacePhrases.gf deleted file mode 100644 index e883e9e19..000000000 --- a/examples/peacekeeping/PeacePhrases.gf +++ /dev/null @@ -1,9 +0,0 @@ -abstract PeacePhrases = PeaceCat ** { - - fun - Hello : Phrase ; - GoodMorning : Phrase ; - GoodEvening : Phrase ; - WhatIsNamePron : Pron -> Phrase ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/PeaceRes.gf b/examples/peacekeeping/PeaceRes.gf deleted file mode 100644 index f39107a1e..000000000 --- a/examples/peacekeeping/PeaceRes.gf +++ /dev/null @@ -1,13 +0,0 @@ -resource PeaceRes = { - - param Punct = FullStop | QuestMark | ExclMark ; - - param SForm = SPos | SNeg | SQuest ; - - oper - stop, quest, excl : Str -> { s : Str; p : Punct } ; - stop x = { s = x; p = FullStop } ; - quest x = { s = x; p = QuestMark } ; - excl x = { s = x; p = ExclMark } ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/PeaceSpoken.gf b/examples/peacekeeping/PeaceSpoken.gf deleted file mode 100644 index be4efd406..000000000 --- a/examples/peacekeeping/PeaceSpoken.gf +++ /dev/null @@ -1,5 +0,0 @@ -abstract PeaceSpoken = Peace ** { - - flags startcat = PhraseSpoken ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/PeaceSyntax.gf b/examples/peacekeeping/PeaceSyntax.gf deleted file mode 100644 index 2cc7a8c93..000000000 --- a/examples/peacekeeping/PeaceSyntax.gf +++ /dev/null @@ -1,56 +0,0 @@ -abstract PeaceSyntax = PeaceCat ** { - - fun - PhrPos : Sent -> Phrase ; - PhrNeg : Sent -> Phrase ; - PhrQuest : Quest -> Phrase ; - PhrImp : Imp -> Phrase ; - PhrImpNeg : Imp -> Phrase ; - - PhrYes : Phrase ; - PhrNo : Phrase ; - - QuestSent : Sent -> Quest ; - - QuestIP_V : V -> IP -> Quest ; - QuestIP_V2 : V2 -> IP -> NP -> Quest ; - QuestIP_V2Mass : V2 -> IP -> MassCN -> Quest ; - QuestIP_V3 : V3 -> IP -> NP -> NP -> Quest ; - QuestIP_V3Mass : V3 -> IP -> MassCN -> NP -> Quest ; - QuestIP_A : A -> IP -> Quest ; - QuestIAdv_V : V -> NP -> IAdv -> Quest ; - QuestIAdv_V2 : V2 -> NP -> NP -> IAdv -> Quest ; - QuestIAdv_NP : NP -> IAdv -> Quest ; - - SentV : V -> NP -> Sent ; - SentV2 : V2 -> NP -> NP -> Sent ; - SentV2Mass : V2 -> NP -> MassCN -> Sent ; - SentV3 : V3 -> NP -> NP -> NP -> Sent ; - SentV3Mass : V3 -> NP -> MassCN -> 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 ; - ImpV2Mass : V2 -> MassCN -> Imp ; - ImpV3 : V3 -> NP -> NP -> Imp ; - ImpV3Mass : V3 -> MassCN -> NP -> Imp ; - - UsePron : Pron -> NP ; - PossPronCNSg : Pron -> CN -> NP ; - PossPronCNPl : Pron -> CN -> NP ; - ArtCNSg : Art -> CN -> NP ; --a - ArtCNPl : Art -> CN -> NP ; --a - DetCN : Det -> CN -> NP ; - NumCN : Card -> CN -> NP ; --a - - UseN : N -> CN ; - ModCN : A -> CN -> CN ; - - UseMassN : MassN -> MassCN ; - ModMass : A -> MassCN -> MassCN ; - -} diff --git a/examples/peacekeeping/PeaceSyntaxI.gf b/examples/peacekeeping/PeaceSyntaxI.gf deleted file mode 100644 index 7e738eea5..000000000 --- a/examples/peacekeeping/PeaceSyntaxI.gf +++ /dev/null @@ -1,79 +0,0 @@ -incomplete concrete PeaceSyntaxI of PeaceSyntax = - PeaceCatI ** open Lang,Constructors,PeaceRes in { - - flags - unlexer = text ; lexer = text ; - - lin - PhrPos sent = stop (sent.s!SPos) ; - PhrNeg sent = stop (sent.s!SNeg) ; - PhrQuest q = quest q.s ; - PhrImp imp = excl (mkPhr (mkUtt imp)).s; - PhrImpNeg imp = excl (mkPhr (mkUtt negativePol imp)).s; - - PhrYes = stop yes_Utt.s ; - PhrNo = stop no_Utt.s ; - - - QuestSent sent = { s = sent.s!SQuest } ; - QuestIP_V v ip = mkQuest (QuestVP ip (UseV v)) ; - QuestIP_V2 v2 ip x = mkQuest (QuestVP ip (mkVP v2 x)) ; - QuestIP_V2Mass v2 ip x = mkQuest (QuestVP ip (mkVP v2 (MassNP x))) ; - QuestIP_V3 v3 ip x y = mkQuest (QuestVP ip (mkVP v3 x y)) ; - QuestIP_V3Mass v3 ip x y = mkQuest (QuestVP ip (mkVP v3 (MassNP x) y)) ; - QuestIP_A a ip = mkQuest (QuestVP ip (UseComp (CompAP (PositA a)))); - QuestIAdv_NP x ia = mkQuest (QuestIComp (CompIAdv ia) x); - - QuestIAdv_V v x ia = mkQuest (QuestIAdv ia (PredVP x (UseV v))); - QuestIAdv_V2 v x y ia = mkQuest (QuestIAdv ia (PredVP x (ComplV2 v y))); - - - SentV v np = mkSent (mkCl np v) ; - - SentV2 v2 x y = mkSent (mkCl x v2 y) ; - SentV2Mass v2 x y = mkSent (mkCl x v2 (MassNP y)) ; - SentV3 v3 x y z = mkSent (mkCl x v3 y z) ; - SentV3Mass v3 x y z = mkSent (mkCl x v3 (MassNP y) z) ; - SentA a x = mkSent (mkCl x a) ; - SentNP np x = mkSent (mkCl x np) ; - - SentAdvV v x adv = mkSent (mkCl x (mkVP (mkVP v) adv)) ; - SentAdvV2 v2 x y adv = mkSent (mkCl x (mkVP (mkVP v2 y) adv)) ; - - ImpV v = mkImp v ; - ImpV2 v2 x = mkImp v2 x ; - ImpV2Mass v2 x = mkImp v2 (MassNP x) ; - ImpV3 v3 x y = mkImp (mkVP v3 x y) ; - ImpV3Mass v3 x y = mkImp (mkVP v3 (MassNP x) y) ; - - UsePron p = mkNP p ; - PossPronCNSg p n = mkNP (mkDet p) n ; - PossPronCNPl p n = mkNP (mkDet p plNum) n ; - DetCN d n = mkNP d n ; - NumCN k cn = mkNP a_Art k cn ; - ArtCNSg = DetArtSg ; - ArtCNPl = DetArtPl ; - - UseN n = mkCN n ; - ModCN a cn = mkCN a cn ; - - UseMassN mn = mkCN mn ; - ModMass a cn = mkCN a cn ; - - oper - mkSent : Lang.Cl -> Sent ; - mkSent cl = - { - s = table { - SPos => Predef.toStr Lang.S (mkS cl) ; - SNeg => Predef.toStr Lang.S (mkS negativePol cl) ; - SQuest => Predef.toStr Lang.QS (mkQS cl) - } ; - lock_Sent = <> - } ; - - mkQuest : Lang.QCl -> Quest ; - mkQuest q = { s = Predef.toStr Lang.QS (mkQS q); - lock_Quest = <> } ; - -} diff --git a/examples/peacekeeping/README b/examples/peacekeeping/README deleted file mode 100644 index f17025853..000000000 --- a/examples/peacekeeping/README +++ /dev/null @@ -1,14 +0,0 @@ - - - -Some things we could use for inspiration: - -Spanish Phrase Book for First-Aid Trained Activists -http://bostoncoop.net/balm/phrasebook1.pdf - -Emergency multilingual phrasebook -http://www.dh.gov.uk/PublicationsAndStatistics/Publications/PublicationsPolicyAndGuidance/PublicationsPolicyAndGuidanceArticle/fs/en?CONTENT_ID=4073230&chk=8XboAN - -Ogden's Basic English: - -http://ogden.basic-english.org/words.html
\ No newline at end of file diff --git a/examples/peacekeeping/english/PeaceCat_Eng.gf b/examples/peacekeeping/english/PeaceCat_Eng.gf deleted file mode 100644 index 0f3e59bf5..000000000 --- a/examples/peacekeeping/english/PeaceCat_Eng.gf +++ /dev/null @@ -1,3 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceCat_Eng of PeaceCat = PeaceCatI with (Lang = LangEng);
\ No newline at end of file diff --git a/examples/peacekeeping/english/PeaceLexCommon_Eng.gf b/examples/peacekeeping/english/PeaceLexCommon_Eng.gf deleted file mode 100644 index 4a047facd..000000000 --- a/examples/peacekeeping/english/PeaceLexCommon_Eng.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceLexCommon_Eng of PeaceLexCommon = - PeaceCat_Eng ** PeaceLexCommonI with (Lang = LangEng), - (Constructors = ConstructorsEng) ; - diff --git a/examples/peacekeeping/english/PeaceLexExt_Eng.gf b/examples/peacekeeping/english/PeaceLexExt_Eng.gf deleted file mode 100644 index 6ecfcf341..000000000 --- a/examples/peacekeeping/english/PeaceLexExt_Eng.gf +++ /dev/null @@ -1,48 +0,0 @@ ---# -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") ; - -} diff --git a/examples/peacekeeping/english/PeacePhrases_Eng.gf b/examples/peacekeeping/english/PeacePhrases_Eng.gf deleted file mode 100644 index 8bcf41ce0..000000000 --- a/examples/peacekeeping/english/PeacePhrases_Eng.gf +++ /dev/null @@ -1,12 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeacePhrases_Eng of PeacePhrases = - PeaceCat_Eng ** open ResEng, PeaceRes in { - -lin - Hello = stop "hello" ; - GoodMorning = stop ["good morning"]; - GoodEvening = stop ["good evening"] ; - WhatIsNamePron p = quest (["what is"] ++ p.s!Gen ++ "name") ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/english/PeaceSpoken_Eng.gf b/examples/peacekeeping/english/PeaceSpoken_Eng.gf deleted file mode 100644 index d18b43945..000000000 --- a/examples/peacekeeping/english/PeaceSpoken_Eng.gf +++ /dev/null @@ -1,4 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeaceSpoken_Eng of PeaceSpoken = - Peace_Eng; diff --git a/examples/peacekeeping/english/PeaceSyntax_Eng.gf b/examples/peacekeeping/english/PeaceSyntax_Eng.gf deleted file mode 100644 index 46c26f183..000000000 --- a/examples/peacekeeping/english/PeaceSyntax_Eng.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceSyntax_Eng of PeaceSyntax = PeaceCat_Eng ** PeaceSyntaxI with - (Constructors = ConstructorsEng), - (Lang = LangEng) ; - diff --git a/examples/peacekeeping/english/Peace_Eng.gf b/examples/peacekeeping/english/Peace_Eng.gf deleted file mode 100644 index 87dd076ee..000000000 --- a/examples/peacekeeping/english/Peace_Eng.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:..:present:prelude - -concrete Peace_Eng of Peace = - PeaceSyntax_Eng, PeaceLexCommon_Eng, - PeaceLexExt_Eng, PeacePhrases_Eng;
\ No newline at end of file diff --git a/examples/peacekeeping/finnish/PeaceCat_Fin.gf b/examples/peacekeeping/finnish/PeaceCat_Fin.gf deleted file mode 100644 index 1a0c6ac9c..000000000 --- a/examples/peacekeeping/finnish/PeaceCat_Fin.gf +++ /dev/null @@ -1,3 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceCat_Fin of PeaceCat = PeaceCatI with (Lang = LangFin); diff --git a/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf b/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf deleted file mode 100644 index faf70724b..000000000 --- a/examples/peacekeeping/finnish/PeaceLexCommon_Fin.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceLexCommon_Fin of PeaceLexCommon = - PeaceCat_Fin ** PeaceLexCommonI with - (Lang = LangFin), (Constructors = ConstructorsFin) ; - diff --git a/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf b/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf deleted file mode 100644 index 637b52d65..000000000 --- a/examples/peacekeeping/finnish/PeaceLexExt_Fin.gf +++ /dev/null @@ -1,44 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceLexExt_Fin of PeaceLexExt = - PeaceCat_Fin ** open ParadigmsFin in { - - lin - - -- Adjectives - dangerous_A = mkA "vaarallinen" ; - dead_A = mkA (mkN "kuollut" "kuolleita") ; - hungry_A = mkA "nälkäinen" ; - large_A = mkA "iso" ; - sick_A = mkA "sairas" ; - - -- Nouns - air_N = mkN "ilma" ; - arm_N = mk3N "käsi" "käden" "käsiä" ; - building_N = mkN "rakennus" ; - car_N = mkN "auto" ; - corpse_N = mkN "ruumis" ; - doctor_N = mkN "lääkäri"; - enemy_N = mkN "vihollinen"; - face_N = mkN "naama" ; ---- kasvot - food_N = mkN "ruoka"; - friend_N = mkN "ystävä"; - ground_N = mkN "maa" ; - knife_N = mk2N "veitsi" "veitsiä" ; ---- veistä - landmine_N = mkN "maamiina" ; - map_N = mkN "kartta" ; - medicine_N = mkN "lääke" ; - police8officer_N = mkN "poliisi" ; - skin_N = mkN "iho" ; - soldier_N = mkN "sotilas" ; - weapon_N = mkN "ase"; - - -- Verbs - cough_V = mkV "yskiä" ; - drop_V2 = dirV2 (mkV "pudottaa") ; - hurt_V = mkV "sattua" ; - need_V2 = dirV2 (mkV "tarvita"); - own_V2 = dirV2 (mkV "omistaa") ; - show_V3 = dirdirV3 (mkV "näyttää") ; - -} diff --git a/examples/peacekeeping/finnish/PeacePhrases_Fin.gf b/examples/peacekeeping/finnish/PeacePhrases_Fin.gf deleted file mode 100644 index 1949e30e7..000000000 --- a/examples/peacekeeping/finnish/PeacePhrases_Fin.gf +++ /dev/null @@ -1,13 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeacePhrases_Fin of PeacePhrases = - PeaceCat_Fin ** open LangFin, ParadigmsFin, ConstructorsFin, PeaceRes in { - -lin - Hello = stop "terve" ; - GoodMorning = stop ["hyvää huomenta"] ; - GoodEvening = stop ["hyvää iltaa"] ; - WhatIsNamePron p = quest ( - mkPhr (mkUtt (mkQS (mkQCl whatSg_IP (mkVP (mkNP (mkDet p) name_N)))))).s ; - -} diff --git a/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf b/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf deleted file mode 100644 index 95cdd7de9..000000000 --- a/examples/peacekeeping/finnish/PeaceSpoken_Fin.gf +++ /dev/null @@ -1,3 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeaceSpoken_Fin of PeaceSpoken = Peace_Fin; diff --git a/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf b/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf deleted file mode 100644 index 3e728dbf8..000000000 --- a/examples/peacekeeping/finnish/PeaceSyntax_Fin.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceSyntax_Fin of PeaceSyntax = PeaceCat_Fin ** PeaceSyntaxI with - (Lang = LangFin), (Constructors = ConstructorsFin) ; - diff --git a/examples/peacekeeping/finnish/Peace_Fin.gf b/examples/peacekeeping/finnish/Peace_Fin.gf deleted file mode 100644 index 905ee2bf8..000000000 --- a/examples/peacekeeping/finnish/Peace_Fin.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:..:present:prelude - -concrete Peace_Fin of Peace = - PeaceSyntax_Fin, PeaceLexCommon_Fin, - PeaceLexExt_Fin, PeacePhrases_Fin; diff --git a/examples/peacekeeping/swedish/PeaceCat_Swe.gf b/examples/peacekeeping/swedish/PeaceCat_Swe.gf deleted file mode 100644 index e056dc86a..000000000 --- a/examples/peacekeeping/swedish/PeaceCat_Swe.gf +++ /dev/null @@ -1,3 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceCat_Swe of PeaceCat = PeaceCatI with (Lang = LangSwe);
\ No newline at end of file diff --git a/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf b/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf deleted file mode 100644 index 7d34010eb..000000000 --- a/examples/peacekeeping/swedish/PeaceLexCommon_Swe.gf +++ /dev/null @@ -1,6 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceLexCommon_Swe of PeaceLexCommon = - PeaceCat_Swe ** PeaceLexCommonI with - (Lang = LangSwe), (Constructors = ConstructorsSwe) ; ; - diff --git a/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf b/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf deleted file mode 100644 index 5f40fc6b6..000000000 --- a/examples/peacekeeping/swedish/PeaceLexExt_Swe.gf +++ /dev/null @@ -1,48 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceLexExt_Swe of PeaceLexExt = - PeaceCat_Swe ** open ParadigmsSwe, IrregSwe, - LexiconSwe, StructuralSwe in { - - lin - - -- Adjectives - dangerous_A = regA "farlig" ; - dead_A = regA "död" ; - hungry_A = regA "hungrig" ; - large_A = big_A ; - sick_A = regA "sjuk" ; - - -- Nouns - air_N = regN "luft" ; - arm_N = regN "arm" ; - building_N = mk2N "byggnad" "byggnader" ; - car_N = regN "bil" ; - corpse_N = mk2N "lik" "lik" ; - doctor_N = mkN "doktor" "doktorn" "doktorer" "doktorerna"; - enemy_N = mk2N "fiende" "fiender" ; - face_N = regN "ansikte" ; - food_N = regN "mat"; - friend_N = mkN "vän" "vännen" "vänner" "vännerna" ; - ground_N = mk2N "mark" "marker"; - knife_N = regN "kniv" ; - landmine_N = regN "landmina" ; - map_N = regN "karta" ; - medicine_N = mk2N "medicin" "mediciner"; - police8officer_N = mk2N "polis" "poliser" ; - skin_N = mk2N "skinn" "skinn" ; - soldier_N = mk2N "soldat" "soldater" ; - toy_N = regN "leksak" ; - translation8machine_N = mk2N "översättningsmaskin" "översättningsmaskiner"; - weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ; - - -- Verbs - cooperate_V2 = mkV2 (regV "samarbetar") (mkPrep "med") ; - cough_V = regV "hostar" ; - drop_V2 = dirV2 (regV "släpper") ; - hurt_V = partV göra_V "ont" ; -- FIXME: "Gör ont ditt ben?" - need_V2 = dirV2 (regV "behöver"); - own_V2 = dirV2 (regV "äger") ; - show_V3 = dirdirV3 (regV "visar") ; - -} diff --git a/examples/peacekeeping/swedish/PeacePhrases_Swe.gf b/examples/peacekeeping/swedish/PeacePhrases_Swe.gf deleted file mode 100644 index 7f9d88014..000000000 --- a/examples/peacekeeping/swedish/PeacePhrases_Swe.gf +++ /dev/null @@ -1,12 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeacePhrases_Swe of PeacePhrases = - PeaceCat_Swe ** open CommonScand, PeaceRes in { - -lin - Hello = stop "hej" ; - GoodMorning = stop ["god morgon"] ; - GoodEvening = stop ["god kväll"] ; - WhatIsNamePron p = stop (["vad heter"] ++ p.s!NPNom) ; - -}
\ No newline at end of file diff --git a/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf b/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf deleted file mode 100644 index 51ed8392c..000000000 --- a/examples/peacekeeping/swedish/PeaceSpoken_Swe.gf +++ /dev/null @@ -1,4 +0,0 @@ ---# -path=.:..:present:prelude - -concrete PeaceSpoken_Swe of PeaceSpoken = - Peace_Swe;
\ No newline at end of file diff --git a/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf b/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf deleted file mode 100644 index bfa0f0a1d..000000000 --- a/examples/peacekeeping/swedish/PeaceSyntax_Swe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:present:prelude - -concrete PeaceSyntax_Swe of PeaceSyntax = PeaceCat_Swe ** PeaceSyntaxI with - (Lang = LangSwe), (Constructors = ConstructorsSwe) ; - diff --git a/examples/peacekeeping/swedish/Peace_Swe.gf b/examples/peacekeeping/swedish/Peace_Swe.gf deleted file mode 100644 index 7c7b2c213..000000000 --- a/examples/peacekeeping/swedish/Peace_Swe.gf +++ /dev/null @@ -1,5 +0,0 @@ ---# -path=.:..:present:prelude - -concrete Peace_Swe of Peace = - PeaceSyntax_Swe, PeaceLexCommon_Swe, - PeaceLexExt_Swe, PeacePhrases_Swe;
\ No newline at end of file |