msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Hun) Remove unnecessary files and code from copying English

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-27 15:50:19 +01:00
parent b94c917d1d
commit 7fee10e1e0
11 changed files with 9 additions and 870 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/hungarian/AllEngHun.gf
View File

@@ -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
**
{
--{} ;
}

11
src/hungarian/AllHun.gf
View File

@@ -2,12 +2,5 @@
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
** {} ;

6
src/hungarian/AllHunAbs.gf Normal file
View File

@@ -0,0 +1,6 @@
--# -path=.:../abstract:../common:prelude
abstract AllHunAbs =
Lang,
Extend
** {} ;

80
src/hungarian/BackwardHun.gf
View File

@@ -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 ;
--
--}
}

40
src/hungarian/ExtraEngHun.gf
View File

@@ -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
--
--
--}
}

164
src/hungarian/ExtraHun.gf
View File

@@ -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
-- } ;
---------
--
--
--}
}

185
src/hungarian/IrregHun.gf
View File

@@ -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" ;
--}
}

180
src/hungarian/IrregHunAbs.gf
View File

@@ -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 ;
--}
}

47
src/hungarian/MorphoHun.gf
View File

@@ -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
-- } ;
--
--} ;
--
}

50
src/hungarian/ParseEngHun.gf
View File

@@ -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 ;
--
--}
}

101
src/hungarian/ParseHun.gf
View File

@@ -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
--
--}
}