From 7fee10e1e015746e9007b1a9b9626ca9a7f3b7b7 Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Fri, 27 Mar 2020 15:50:19 +0100 Subject: [PATCH] (Hun) Remove unnecessary files and code from copying English --- src/hungarian/AllEngHun.gf | 13 --- src/hungarian/AllHun.gf | 13 +-- src/hungarian/AllHunAbs.gf | 6 ++ src/hungarian/BackwardHun.gf | 80 --------------- src/hungarian/ExtraEngHun.gf | 40 -------- src/hungarian/ExtraHun.gf | 164 ------------------------------- src/hungarian/IrregHun.gf | 185 ----------------------------------- src/hungarian/IrregHunAbs.gf | 180 ---------------------------------- src/hungarian/MorphoHun.gf | 47 --------- src/hungarian/ParseEngHun.gf | 50 ---------- src/hungarian/ParseHun.gf | 101 ------------------- 11 files changed, 9 insertions(+), 870 deletions(-) delete mode 100644 src/hungarian/AllEngHun.gf create mode 100644 src/hungarian/AllHunAbs.gf delete mode 100644 src/hungarian/BackwardHun.gf delete mode 100644 src/hungarian/ExtraEngHun.gf delete mode 100644 src/hungarian/ExtraHun.gf delete mode 100644 src/hungarian/IrregHun.gf delete mode 100644 src/hungarian/IrregHunAbs.gf delete mode 100644 src/hungarian/MorphoHun.gf delete mode 100644 src/hungarian/ParseEngHun.gf delete mode 100644 src/hungarian/ParseHun.gf diff --git a/src/hungarian/AllEngHun.gf b/src/hungarian/AllEngHun.gf deleted file mode 100644 index edf3b187..00000000 --- a/src/hungarian/AllEngHun.gf +++ /dev/null @@ -1,13 +0,0 @@ ---# -path=.:../abstract:../common:prelude - -abstract AllHunAbs = - Lang, - IrregHunAbs-[ - blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V, - sew_V,sing_V,sit_V,sleep_V,spit_V,stand_V,swell_V,swim_V,think_V], - ExtraHunAbs - ** -{ ---{} ; - -} diff --git a/src/hungarian/AllHun.gf b/src/hungarian/AllHun.gf index c8d4c3ed..0d147c37 100644 --- a/src/hungarian/AllHun.gf +++ b/src/hungarian/AllHun.gf @@ -1,13 +1,6 @@ --# -path=.:../abstract:../common:../prelude -concrete AllHun of AllHunAbs = +concrete AllHun of AllHunAbs = LangHun, - IrregHun-[ - blow_V,burn_V,come_V,dig_V,fall_V,fly_V,freeze_V,go_V,lie_V,run_V, - sew_V,sing_V,sit_V,sleep_V,spit_V,stand_V,swell_V,swim_V,think_V], - ExtraHun - ** -{ ---{} ; - -} + ExtendHun + ** {} ; diff --git a/src/hungarian/AllHunAbs.gf b/src/hungarian/AllHunAbs.gf new file mode 100644 index 00000000..4656dcf3 --- /dev/null +++ b/src/hungarian/AllHunAbs.gf @@ -0,0 +1,6 @@ +--# -path=.:../abstract:../common:prelude + +abstract AllHunAbs = + Lang, + Extend + ** {} ; diff --git a/src/hungarian/BackwardHun.gf b/src/hungarian/BackwardHun.gf deleted file mode 100644 index 7d42b77b..00000000 --- a/src/hungarian/BackwardHun.gf +++ /dev/null @@ -1,80 +0,0 @@ -concrete BackwardHun of Backward = CatHun ** open ResHun in -{ ---{ --- --- flags optimize=all_subs ; --- --- lin --- ----- A repository of obsolete constructs, needed for backward compatibility. ----- They create spurious ambiguities if used in combination with Lang. --- ----- from Verb 19/4/2008 --- --- ComplV2 v np = insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v) ; --- ComplV3 v np np2 = --- insertObj (\\_ => v.c2 ++ np.s ! Acc ++ v.c3 ++ np2.s ! Acc) (predV v) ; --- ComplV2V v np vp = --- insertObj (\\a => infVP v.isAux vp a) --- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; --- ComplV2S v np s = --- insertObj (\\_ => conjThat ++ s.s) --- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; --- ComplV2Q v np q = --- insertObj (\\_ => q.s ! QIndir) --- (insertObj (\\_ => v.c2 ++ np.s ! Acc) (predV v)) ; --- ComplV2A v np ap = --- insertObj (\\_ => v.c2 ++ np.s ! Acc ++ ap.s ! np.a) (predV v) ; --- --- ReflV2 v = insertObj (\\a => v.c2 ++ reflPron ! a) (predV v) ; --- ----- from Sentence 19/4/2008 --- --- SlashV2 np v2 = --- mkClause (np.s ! Nom) np.a (predV v2) ** {c2 = v2.c2} ; --- --- SlashVVV2 np vv v2 = --- mkClause (np.s ! Nom) np.a --- (insertObj (\\a => infVP vv.isAux (predV v2) a) (predVV vv)) ** --- {c2 = v2.c2} ; --- ----- from Noun 19/4/2008 --- --- NumInt n = {s = n.s ; n = Pl} ; --- OrdInt n = {s = n.s ++ "th"} ; --- DEPRECATED --- --- DetSg quant ord = { --- s = quant.s ! Sg ++ ord.s ; --- n = Sg --- } ; --- --- DetPl quant num ord = { --- s = quant.s ! num.n ++ num.s ++ ord.s ; --- n = num.n --- } ; --- --- NoNum = {s = []; n = Pl } ; --- --- DefArt = {s = \\_ => artDef} ; --- --- IndefArt = { --- s = table { --- Sg => artIndef ; --- Pl => [] --- } --- } ; --- --- MassDet = {s = \\_ => []} ; --- --- --- ----- from Structural 19/4/2008 --- --- that_NP = regNP "that" Sg ; --- these_NP = regNP "these" Pl ; --- this_NP = regNP "this" Sg ; --- those_NP = regNP "those" Pl ; --- ---} - -} diff --git a/src/hungarian/ExtraEngHun.gf b/src/hungarian/ExtraEngHun.gf deleted file mode 100644 index 1339ee3a..00000000 --- a/src/hungarian/ExtraEngHun.gf +++ /dev/null @@ -1,40 +0,0 @@ -abstract ExtraHunAbs = Extra - [ProDrop] ** -{ ---{ --- ----- uncontracted negative polarity; contracted is the default for PNeg --- fun --- UncNeg : Pol ; --- ----- freely compounded nouns --- --- CompoundCN : CN -> CN -> CN ; -- rock album --- --- that_RP : RP ; -- "that" as a relational pronoun (IdRP is "which" / "who") --- --- each_Det : Det ; --- any_Quant : Quant ; --- ----- infinitive without to --- --- UttVPShort : VP -> Utt ; --- ----- emphasizing "do", e.g. "John does walk" --- --- do_VV : VV ; --- --- ------ these are obsolete: use UncNeg : Pol instead --- --- fun --- UncNegCl : Temp -> Pol -> Cl -> S ; --- UncNegQCl : Temp -> Pol -> QCl -> QS ; --- UncNegRCl : Temp -> Pol -> RCl -> RS ; --- --- UncNegImpSg : Pol -> Imp -> Utt; -- do not help yourself --- UncNegImpPl : Pol -> Imp -> Utt; -- do not help yourselves --- --- ---} - -} diff --git a/src/hungarian/ExtraHun.gf b/src/hungarian/ExtraHun.gf deleted file mode 100644 index 072e85f7..00000000 --- a/src/hungarian/ExtraHun.gf +++ /dev/null @@ -1,164 +0,0 @@ -concrete ExtraHun of ExtraHunAbs = CatHun ** - open ResHun, Coordination, Prelude, MorphoHun, ParadigmsHun in -{ ---{ --- --- lin --- GenNP np = {s = \\_,_ => np.s ! npGen ; sp = \\_,_,_ => np.s ! npGen} ; --- GenIP ip = {s = \\_ => ip.s ! NCase Gen} ; --- GenRP nu cn = { --- s = \\c => "whose" ++ nu.s ! Nom ++ --- case c of { --- RC _ (NCase Gen) => cn.s ! nu.n ! Gen ; --- _ => cn.s ! nu.n ! Nom --- } ; --- a = RAg (agrP3 Sg) --- } ; --- --- ComplBareVS v s = insertObj (\\_ => s.s) (predV v) ; --- --- StrandRelSlash rp slash = { --- s = \\t,a,p,ag => --- rp.s ! RC (fromAgr ag).g NPAcc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ; --- c = NPAcc --- } ; --- EmptyRelSlash slash = { --- s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ; --- c = NPAcc --- } ; --- --- StrandQuestSlash ip slash = --- {s = \\t,a,b,q => --- (mkQuestion (ss (ip.s ! NPAcc)) slash).s ! t ! a ! b ! q ++ slash.c2 --- }; --- --- lincat --- VPI = {s : VPIForm => Agr => Str} ; --- [VPI] = {s1,s2 : VPIForm => Agr => Str} ; --- --- lin --- BaseVPI = twoTable2 VPIForm Agr ; --- ConsVPI = consrTable2 VPIForm Agr comma ; --- --- MkVPI vp = { --- s = \\v,a => vp.ad ++ vp.inf ++ vp.s2 ! a --- } ; --- ConjVPI = conjunctDistrTable2 VPIForm Agr ; --- ComplVPIVV vv vpi = ------- insertObj (\\a => infVP vv.typ vpi a) (predVV vv) ; --- let isAux = case vv.typ of {VVAux => True ; _ => False} in --- insertObj (\\a => (if_then_Str isAux [] "to") ++ vpi.s ! VPIInf ! a) (predVV vv) ; --- --- lin --- that_RP = --- { s = table { --- RC _ (NCase Gen) => "whose" ; --- RC _ _ => "that" ; --- _ => "that" ---- "in that" ? ----- RPrep Neutr => "which" ; ----- RPrep _ => "whom" --- } ; --- a = RNoAg --- } ; --- --- each_Det = mkDeterminer Sg "each" ; --- any_Quant = mkQuant "any" "any" ; --- ----- for VP conjunction --- --- param --- VPIForm = VPIInf | VPIPPart ; --- --- lincat --- VPS = {s : Agr => Str} ; --- [VPS] = {s1,s2 : Agr => Str} ; --- --- lin --- BaseVPS = twoTable Agr ; --- ConsVPS = consrTable Agr comma ; --- --- PredVPS np vpi = {s = np.s ! npNom ++ vpi.s ! np.a} ; --- --- MkVPS t p vp = { --- s = \\a => --- let --- verb = vp.s ! t.t ! t.a ! p.p ! ODir ! a ; --- verbf = verb.aux ++ verb.adv ++ verb.fin ++ verb.inf ; --- in t.s ++ p.s ++ vp.ad ++ verbf ++ vp.s2 ! a --- } ; --- --- ConjVPS = conjunctDistrTable Agr ; --- --- ICompAP ap = {s = "how" ++ ap.s ! agrP3 Sg} ; ---- IComp should have agr! --- --- IAdvAdv adv = {s = "how" ++ adv.s} ; --- --- PartVP vp = { --- s = \\a => vp.ad ++ vp.prp ++ vp.s2 ! a ; --- isPre = False ---- depends on whether there are complements --- } ; --- --- EmbedPresPart vp = {s = infVP VVPresPart vp (agrP3 Sg)} ; --- agr --- --- UttVPShort vp = {s = infVP VVAux vp (agrP3 Sg)} ; --- --- do_VV = { --- s = table { --- VVF VInf => ["do"] ; --- VVF VPres => "does" ; --- VVF VPPart => ["done"] ; ---- --- VVF VPresPart => ["doing"] ; --- VVF VPast => ["did"] ; --# notpresent --- VVPastNeg => ["didn't"] ; --# notpresent --- VVPresNeg => "doesn't" --- } ; --- typ = VVAux --- } ; --- --- ---lin --- UncNeg = {s = [] ; p = CNeg False} ; --- --- PassVPSlash vps = --- let --- be = predAux auxBe ; --- ppt = vps.ptp --- in { --- s = be.s ; --- prp = be.prp ; --- ptp = be.ptp ; --- inf = be.inf ; --- ad = vps.ad ; --- s2 = \\a => ppt ++ vps.s2 ! a ---- order --- } ; --- --------------- ------ obsolete: use UncNeg : Pol --- --- UncNegCl t p cl = { --- s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! ODir --- } ; --- UncNegQCl t p cl = { --- s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! q --- } ; --- UncNegRCl t p cl = { --- s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! r ; --- c = cl.c --- } ; --- --- UncNegImpSg p imp = {s = p.s ++ imp.s ! unc p.p ! ImpF Sg False} ; --- UncNegImpPl p imp = {s = p.s ++ imp.s ! unc p.p ! ImpF Pl False} ; --- --- CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c ; g = b.g} ; --- --- oper --- unc : CPolarity -> CPolarity = \x -> case x of { --- CNeg _ => CNeg False ; --- _ => x --- } ; ---------- --- --- ---} - -} diff --git a/src/hungarian/IrregHun.gf b/src/hungarian/IrregHun.gf deleted file mode 100644 index f113b81e..00000000 --- a/src/hungarian/IrregHun.gf +++ /dev/null @@ -1,185 +0,0 @@ ---# -path=.:prelude:../abstract:../common - -concrete IrregHun of IrregHunAbs = CatHun ** open ParadigmsHun in -{ ---{ --- ---flags optimize=values ; --- --- lin --- awake_V = irregV "awake" "awoke" "awoken" ; --- bear_V = irregV "bear" "bore" "born" ; --- beat_V = irregV "beat" "beat" "beat" ; --- become_V = irregV "become" "became" "become" ; --- begin_V = irregV "begin" "began" "begun" ; --- bend_V = irregV "bend" "bent" "bent" ; --- beset_V = irregV "beset" "beset" "beset" ; --- bet_V = irregDuplV "bet" "bet" "bet" ; --- bid_V = irregDuplV "bid" (variants {"bid" ; "bade"}) (variants {"bid" ; "bidden"}) ; --- bind_V = irregV "bind" "bound" "bound" ; --- bite_V = irregV "bite" "bit" "bitten" ; --- bleed_V = irregV "bleed" "bled" "bled" ; --- blow_V = irregV "blow" "blew" "blown" ; --- break_V = irregV "break" "broke" "broken" ; --- breed_V = irregV "breed" "bred" "bred" ; --- bring_V = irregV "bring" "brought" "brought" ; --- broadcast_V = irregV "broadcast" "broadcast" "broadcast" ; --- build_V = irregV "build" "built" "built" ; --- burn_V = irregV "burn" (variants {"burned" ; "burnt"}) (variants {"burned" ; "burnt"}) ; --- burst_V = irregV "burst" "burst" "burst" ; --- buy_V = irregV "buy" "bought" "bought" ; --- cast_V = irregV "cast" "cast" "cast" ; --- catch_V = irregV "catch" "caught" "caught" ; --- choose_V = irregV "choose" "chose" "chosen" ; --- cling_V = irregV "cling" "clung" "clung" ; --- come_V = irregV "come" "came" "come" ; --- cost_V = irregV "cost" "cost" "cost" ; --- creep_V = irregV "creep" "crept" "crept" ; --- cut_V = irregDuplV "cut" "cut" "cut" ; --- deal_V = irregV "deal" "dealt" "dealt" ; --- dig_V = irregDuplV "dig" "dug" "dug" ; --- dive_V = irregV "dive" (variants {"dived" ; "dove"}) "dived" ; --- do_V = mk5V "do" "does" "did" "done" "doing" ; --- draw_V = irregV "draw" "drew" "drawn" ; --- dream_V = irregV "dream" (variants {"dreamed" ; "dreamt"}) (variants {"dreamed" ; "dreamt"}) ; --- drive_V = irregV "drive" "drove" "driven" ; --- drink_V = irregV "drink" "drank" "drunk" ; --- eat_V = irregV "eat" "ate" "eaten" ; --- fall_V = irregV "fall" "fell" "fallen" ; --- feed_V = irregV "feed" "fed" "fed" ; --- feel_V = irregV "feel" "felt" "felt" ; --- fight_V = irregV "fight" "fought" "fought" ; --- find_V = irregV "find" "found" "found" ; --- fit_V = irregDuplV "fit" "fit" "fit" ; --- flee_V = irregV "flee" "fled" "fled" ; --- fling_V = irregV "fling" "flung" "flung" ; --- fly_V = irregV "fly" "flew" "flown" ; --- forbid_V = irregDuplV "forbid" "forbade" "forbidden" ; --- forget_V = irregDuplV "forget" "forgot" "forgotten" ; --- forgive_V = irregV "forgive" "forgave" "forgiven" ; --- forsake_V = irregV "forsake" "forsook" "forsaken" ; --- freeze_V = irregV "freeze" "froze" "frozen" ; --- get_V = irregDuplV "get" "got" "gotten" ; --- give_V = irregV "give" "gave" "given" ; --- go_V = mk5V "go" "goes" "went" "gone" "going" ; --- grind_V = irregV "grind" "ground" "ground" ; --- grow_V = irregV "grow" "grew" "grown" ; --- hang_V = irregV "hang" "hung" "hung" ; --- have_V = mk5V "have" "has" "had" "had" "having" ; --- hear_V = irregV "hear" "heard" "heard" ; --- hide_V = irregV "hide" "hid" "hidden" ; --- hit_V = irregDuplV "hit" "hit" "hit" ; --- hold_V = irregV "hold" "held" "held" ; --- hurt_V = irregV "hurt" "hurt" "hurt" ; --- keep_V = irregV "keep" "kept" "kept" ; --- kneel_V = irregV "kneel" "knelt" "knelt" ; --- knit_V = irregDuplV "knit" "knit" "knit" ; --- know_V = irregV "know" "knew" "know" ; --- lay_V = irregV "lay" "laid" "laid" ; --- lead_V = irregV "lead" "led" "led" ; --- leap_V = irregV "leap" (variants {"leaped" ; "lept"}) (variants {"leaped" ; "lept"}) ; --- learn_V = irregV "learn" (variants {"learned" ; "learnt"}) (variants {"learned" ; "learnt"}) ; --- leave_V = irregV "leave" "left" "left" ; --- lend_V = irregV "lend" "lent" "lent" ; --- let_V = irregDuplV "let" "let" "let" ; --- lie_V = irregV "lie" "lay" "lain" ; --- light_V = irregV "light" (variants {"lighted" ; "lit"}) "lighted" ; --- lose_V = irregV "lose" "lost" "lost" ; --- make_V = irregV "make" "made" "made" ; --- mean_V = irregV "mean" "meant" "meant" ; --- meet_V = irregV "meet" "met" "met" ; --- misspell_V = irregV "misspell" (variants {"misspelled" ; "misspelt"}) (variants {"misspelled" ; "misspelt"}) ; --- mistake_V = irregV "mistake" "mistook" "mistaken" ; --- mow_V = irregV "mow" "mowed" (variants {"mowed" ; "mown"}) ; --- overcome_V = irregV "overcome" "overcame" "overcome" ; --- overdo_V = mk5V "overdo" "overdoes" "overdid" "overdone" "overdoing" ; --- overtake_V = irregV "overtake" "overtook" "overtaken" ; --- overthrow_V = irregV "overthrow" "overthrew" "overthrown" ; --- pay_V = irregV "pay" "paid" "paid" ; --- plead_V = irregV "plead" "pled" "pled" ; --- prove_V = irregV "prove" "proved" (variants {"proved" ; "proven"}) ; --- put_V = irregDuplV "put" "put" "put" ; --- quit_V = irregDuplV "quit" "quit" "quit" ; --- read_V = irregV "read" "read" "read" ; --- rid_V = irregDuplV "rid" "rid" "rid" ; --- ride_V = irregV "ride" "rode" "ridden" ; --- ring_V = irregV "ring" "rang" "rung" ; --- rise_V = irregV "rise" "rose" "risen" ; --- run_V = irregDuplV "run" "ran" "run" ; --- saw_V = irregV "saw" "sawed" (variants {"sawed" ; "sawn"}) ; --- say_V = irregV "say" "said" "said" ; --- see_V = irregV "see" "saw" "seen" ; --- seek_V = irregV "seek" "sought" "sought" ; --- sell_V = irregV "sell" "sold" "sold" ; --- send_V = irregV "send" "sent" "sent" ; --- set_V = irregDuplV "set" "set" "set" ; --- sew_V = irregV "sew" "sewed" (variants {"sewed" ; "sewn"}) ; --- shake_V = irregV "shake" "shook" "shaken" ; --- shave_V = irregV "shave" "shaved" (variants {"shaved" ; "shaven"}) ; --- shear_V = irregV "shear" "shore" "shorn" ; --- shed_V = irregDuplV "shed" "shed" "shed" ; --- shine_V = irregV "shine" "shone" "shone" ; --- shoe_V = irregV "shoe" "shoed" (variants {"shoed" ; "shod"}) ; --- shoot_V = irregV "shoot" "shot" "shot" ; --- show_V = irregV "show" "showed" (variants {"showed" ; "shown"}) ; --- shrink_V = irregV "shrink" "shrank" "shrunk" ; --- shut_V = irregDuplV "shut" "shut" "shut" ; --- sing_V = irregV "sing" "sang" "sung" ; --- sink_V = irregV "sink" "sank" "sunk" ; --- sit_V = irregDuplV "sit" "sat" "sat" ; --- sleep_V = irregV "sleep" "slept" "slept" ; --- slay_V = irregV "slay" "slew" "slain" ; --- slide_V = irregV "slide" "slid" "slid" ; --- sling_V = irregV "sling" "slung" "slung" ; --- slit_V = irregDuplV "slit" "slit" "slit" ; --- smite_V = irregV "smite" "smote" "smitten" ; --- sow_V = irregV "sow" "sowed" (variants {"sowed" ; "sown"}) ; --- speak_V = irregV "speak" "spoke" "spoken" ; --- speed_V = irregV "speed" "sped" "sped" ; --- spend_V = irregV "spend" "spent" "spent" ; --- spill_V = irregV "spill" (variants {"spilled" ; "spilt"}) (variants {"spilled" ; "spilt"}) ; --- spin_V = irregDuplV "spin" "spun" "spun" ; --- spit_V = irregDuplV "spit" (variants {"spit" ; "spat"}) "spit" ; --- split_V = irregDuplV "split" "split" "split" ; --- spread_V = irregV "spread" "spread" "spread" ; --- spring_V = irregV "spring" (variants {"sprang" ; "sprung"}) "sprung" ; --- stand_V = irregV "stand" "stood" "stood" ; --- steal_V = irregV "steal" "stole" "stolen" ; --- stick_V = irregV "stick" "stuck" "stuck" ; --- sting_V = irregV "sting" "stung" "stung" ; --- stink_V = irregV "stink" "stank" "stunk" ; --- stride_V = irregV "stride" "strod" "stridden" ; --- strike_V = irregV "strike" "struck" "struck" ; --- string_V = irregV "string" "strung" "strung" ; --- strive_V = irregV "strive" "strove" "striven" ; --- swear_V = irregV "swear" "swore" "sworn" ; --- sweep_V = irregV "sweep" "swept" "swept" ; --- swell_V = irregV "swell" "swelled" (variants {"swelled" ; "swollen"}) ; --- swim_V = irregDuplV "swim" "swam" "swum" ; --- swing_V = irregV "swing" "swung" "swung" ; --- take_V = irregV "take" "took" "taken" ; --- teach_V = irregV "teach" "taught" "taught" ; --- tear_V = irregV "tear" "tore" "torn" ; --- tell_V = irregV "tell" "told" "told" ; --- think_V = irregV "think" "thought" "thought" ; --- thrive_V = irregV "thrive" (variants {"thrived" ; "throve"}) "thrived" ; --- throw_V = irregV "throw" "threw" "thrown" ; --- thrust_V = irregV "thrust" "thrust" "thrust" ; --- tread_V = irregV "tread" "trod" "trodden" ; --- understand_V = irregV "understand" "understood" "understood" ; --- uphold_V = irregV "uphold" "upheld" "upheld" ; --- upset_V = irregDuplV "upset" "upset" "upset" ; --- wake_V = irregV "wake" "woke" "woken" ; --- wear_V = irregV "wear" "wore" "worn" ; --- weave_V = irregV "weave" (variants {"weaved" ; "wove"}) (variants {"weaved" ; "woven"}) ; --- wed_V = irregDuplV "wed" "wed" "wed" ; --- weep_V = irregV "weep" "wept" "wept" ; --- wind_V = irregV "wind" "wound" "wound" ; --- win_V = irregDuplV "win" "won" "won" ; --- withhold_V = irregV "withhold" "withheld" "withheld" ; --- withstand_V = irregV "withstand" "withstood" "withstood" ; --- wring_V = irregV "wring" "wrung" "wrung" ; --- write_V = irregV "write" "wrote" "written" ; ---} - -} diff --git a/src/hungarian/IrregHunAbs.gf b/src/hungarian/IrregHunAbs.gf deleted file mode 100644 index 5c3edd3a..00000000 --- a/src/hungarian/IrregHunAbs.gf +++ /dev/null @@ -1,180 +0,0 @@ -abstract IrregHunAbs = Cat ** -{ ---{ ---fun --- awake_V : V ; --- bear_V : V ; --- beat_V : V ; --- become_V : V ; --- begin_V : V ; --- bend_V : V ; --- beset_V : V ; --- bet_V : V ; --- bid_V : V ; --- bind_V : V ; --- bite_V : V ; --- bleed_V : V ; --- blow_V : V ; --- break_V : V ; --- breed_V : V ; --- bring_V : V ; --- broadcast_V : V ; --- build_V : V ; --- burn_V : V ; --- burst_V : V ; --- buy_V : V ; --- cast_V : V ; --- catch_V : V ; --- choose_V : V ; --- cling_V : V ; --- come_V : V ; --- cost_V : V ; --- creep_V : V ; --- cut_V : V ; --- deal_V : V ; --- dig_V : V ; --- dive_V : V ; --- do_V : V ; --- draw_V : V ; --- dream_V : V ; --- drive_V : V ; --- drink_V : V ; --- eat_V : V ; --- fall_V : V ; --- feed_V : V ; --- feel_V : V ; --- fight_V : V ; --- find_V : V ; --- fit_V : V ; --- flee_V : V ; --- fling_V : V ; --- fly_V : V ; --- forbid_V : V ; --- forget_V : V ; --- forgive_V : V ; --- forsake_V : V ; --- freeze_V : V ; --- get_V : V ; --- give_V : V ; --- go_V : V ; --- grind_V : V ; --- grow_V : V ; --- hang_V : V ; --- have_V : V ; --- hear_V : V ; --- hide_V : V ; --- hit_V : V ; --- hold_V : V ; --- hurt_V : V ; --- keep_V : V ; --- kneel_V : V ; --- knit_V : V ; --- know_V : V ; --- lay_V : V ; --- lead_V : V ; --- leap_V : V ; --- learn_V : V ; --- leave_V : V ; --- lend_V : V ; --- let_V : V ; --- lie_V : V ; --- light_V : V ; --- lose_V : V ; --- make_V : V ; --- mean_V : V ; --- meet_V : V ; --- misspell_V : V ; --- mistake_V : V ; --- mow_V : V ; --- overcome_V : V ; --- overdo_V : V ; --- overtake_V : V ; --- overthrow_V : V ; --- pay_V : V ; --- plead_V : V ; --- prove_V : V ; --- put_V : V ; --- quit_V : V ; --- read_V : V ; --- rid_V : V ; --- ride_V : V ; --- ring_V : V ; --- rise_V : V ; --- run_V : V ; --- saw_V : V ; --- say_V : V ; --- see_V : V ; --- seek_V : V ; --- sell_V : V ; --- send_V : V ; --- set_V : V ; --- sew_V : V ; --- shake_V : V ; --- shave_V : V ; --- shear_V : V ; --- shed_V : V ; --- shine_V : V ; --- shoe_V : V ; --- shoot_V : V ; --- show_V : V ; --- shrink_V : V ; --- shut_V : V ; --- sing_V : V ; --- sink_V : V ; --- sit_V : V ; --- sleep_V : V ; --- slay_V : V ; --- slide_V : V ; --- sling_V : V ; --- slit_V : V ; --- smite_V : V ; --- sow_V : V ; --- speak_V : V ; --- speed_V : V ; --- spend_V : V ; --- spill_V : V ; --- spin_V : V ; --- spit_V : V ; --- split_V : V ; --- spread_V : V ; --- spring_V : V ; --- stand_V : V ; --- steal_V : V ; --- stick_V : V ; --- sting_V : V ; --- stink_V : V ; --- stride_V : V ; --- strike_V : V ; --- string_V : V ; --- strive_V : V ; --- swear_V : V ; --- sweep_V : V ; --- swell_V : V ; --- swim_V : V ; --- swing_V : V ; --- take_V : V ; --- teach_V : V ; --- tear_V : V ; --- tell_V : V ; --- think_V : V ; --- thrive_V : V ; --- throw_V : V ; --- thrust_V : V ; --- tread_V : V ; --- understand_V : V ; --- uphold_V : V ; --- upset_V : V ; --- wake_V : V ; --- wear_V : V ; --- weave_V : V ; --- wed_V : V ; --- weep_V : V ; --- wind_V : V ; --- win_V : V ; --- withhold_V : V ; --- withstand_V : V ; --- wring_V : V ; --- write_V : V ; ---} - -} diff --git a/src/hungarian/MorphoHun.gf b/src/hungarian/MorphoHun.gf deleted file mode 100644 index fa984088..00000000 --- a/src/hungarian/MorphoHun.gf +++ /dev/null @@ -1,47 +0,0 @@ ---# -path=.:../../prelude - ---1 A Simple Hunlish Resource Morphology --- --- Aarne Ranta 2002 -- 2005 --- --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsHun$, which --- gives a higher-level access to this module. - -resource MorphoHun = open Prelude, (Predef=Predef), ResHun in -{ ---{ --- --- flags optimize=all ; --- -----2 Determiners --- --- oper --- --- mkDeterminer : Number -> Str -> --- {s : Str ; sp : NPCase => Str; n : Number ; hasNum : Bool} = \n,s -> --- {s = s; --- sp = \\c => regGenitiveS s ! npcase2case c ; --- n = n ; --- hasNum = True ; -- doesn't matter since s = sp --- } ; --- -----2 Pronouns --- --- --- mkPron : (i,me,my,mine : Str) -> Number -> Person -> Gender -> --- {s : NPCase => Str ; sp : Case => Str ; a : Agr} = --- \i,me,my,mine,n,p,g -> { --- s = table { --- NCase Nom => i ; --- NPAcc => me ; --- NCase Gen => my --- } ; --- a = toAgr n p g ; --- sp = regGenitiveS mine --- } ; --- ---} ; --- - -} diff --git a/src/hungarian/ParseEngHun.gf b/src/hungarian/ParseEngHun.gf deleted file mode 100644 index b4775d37..00000000 --- a/src/hungarian/ParseEngHun.gf +++ /dev/null @@ -1,50 +0,0 @@ -abstract ParseHunAbs = - Tense, - Cat, - Noun, - Adjective, - Numeral, - Symbol, - Conjunction, - Verb - [SlashV2V, PassV2], - Adverb, - Phrase, - Sentence, - Relative, - Idiom [VP, ProgrVP], - Extra [NP, Quant, VPSlash, VP, GenNP, PassVPSlash], - DictHunAbs ** -{ ---{ --- ---fun CompoundCN : Num -> N -> CN -> CN ; --- DashCN : N -> N -> N ; --- GerundN : V -> N ; --- GerundAP : V -> AP ; --- PastPartAP : V2 -> AP ; --- myself_NP : NP ; --- yourselfSg_NP : NP ; --- himself_NP : NP ; --- herself_NP : NP ; --- itself_NP : NP ; --- ourself_NP : NP ; --- yourselfPl_NP : NP ; --- themself_NP : NP ; --- OrdCompar : A -> Ord ; --- --- PositAdVAdj : A -> AdV ; --- --- UseQuantPN : Quant -> PN -> NP; --- --- SlashV2V : V2V -> Pol -> VP -> VPSlash ; --- --- ComplPredVP : NP -> VP -> Cl ; --- --- that_RP, no_RP : RP ; --- --- CompS : S -> Comp ; --- CompVP : VP -> Comp ; --- ---} - -} diff --git a/src/hungarian/ParseHun.gf b/src/hungarian/ParseHun.gf deleted file mode 100644 index 29263ff2..00000000 --- a/src/hungarian/ParseHun.gf +++ /dev/null @@ -1,101 +0,0 @@ ---# -path=alltenses -concrete ParseHun of ParseHunAbs = - TenseX - [Pol, PNeg, PPos], - CatHun, - NounHun, - AdjectiveHun, - NumeralHun, - SymbolHun, - ConjunctionHun, - VerbHun - [SlashV2V, PassV2], - AdverbHun, - PhraseHun, - SentenceHun, - RelativeHun, - IdiomHun [VP, Tense, ProgrVP], - ExtraHun [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash], - DictHun ** -open MorphoHun, ResHun, ParadigmsHun, Prelude in -{ ---{ --- ---flags --- literal=Symb ; --- ---lin --- myself_NP = regNP "myself" singular ; --- yourselfSg_NP = regNP "yourself" singular ; --- himself_NP = regNP "himself" singular ; --- herself_NP = regNP "herself" singular ; --- itself_NP = regNP "itself" singular ; --- ourself_NP = regNP "ourself" plural ; --- yourselfPl_NP = regNP "yourself" plural ; --- themself_NP = regNP "themself" plural ; --- --- CompoundCN num noun cn = { --- s = \\n,c => num.s ! Nom ++ noun.s ! num.n ! Nom ++ cn.s ! n ! c ; --- g = cn.g --- } ; --- --- DashCN noun1 noun2 = { --- s = \\n,c => noun1.s ! Sg ! Nom ++ "-" ++ noun2.s ! n ! c ; --- g = noun2.g --- } ; --- --- GerundN v = { --- s = \\n,c => v.s ! VPresPart ; --- g = Neutr --- } ; --- --- GerundAP v = { --- s = \\agr => v.s ! VPresPart ; --- isPre = True --- } ; --- --- PastPartAP v = { --- s = \\agr => v.s ! VPPart ; --- isPre = True --- } ; --- --- OrdCompar a = {s = \\c => a.s ! AAdj Compar c } ; --- --- PositAdVAdj a = {s = a.s ! AAdv} ; --- --- UseQuantPN q pn = {s = \\c => q.s ! False ! Sg ++ pn.s ! npcase2case c ; a = agrgP3 Sg pn.g} ; --- --- SlashV2V v p vp = insertObjc (\\a => p.s ++ case p.p of {CPos => ""; _ => "not"} ++ --- v.c3 ++ --- infVP v.typ vp a) --- (predVc v) ; --- --- ComplPredVP np vp = { --- s = \\t,a,b,o => --- let --- verb = vp.s ! t ! a ! b ! o ! np.a ; --- compl = vp.s2 ! np.a --- in --- case o of { --- ODir => compl ++ "," ++ np.s ! npNom ++ verb.aux ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf ; --- OQuest => verb.aux ++ compl ++ "," ++ np.s ! npNom ++ verb.adv ++ vp.ad ++ verb.fin ++ verb.inf --- } --- } ; --- --- that_RP = { --- s = \\_ => "that" ; --- a = RNoAg --- } ; --- no_RP = { --- s = \\_ => "" ; --- a = RNoAg --- } ; --- --- CompS s = {s = \\_ => "that" ++ s.s} ; --- CompVP vp = {s = \\a => infVP VVInf vp a} ; --- ---lin --- PPos = {s = [] ; p = CPos} ; --- PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't --- ---} - -}