diff options
| author | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
|---|---|---|
| committer | john.j.camilleri <john.j.camilleri@chalmers.se> | 2013-09-16 07:17:27 +0000 |
| commit | f5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch) | |
| tree | 946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/nlg | |
| parent | 8e1c6cca407c82fc09569d80c231b8d256735989 (diff) | |
Remove contribs and examples
Everything has now been moved to a separate repository at
https://github.com/GrammaticalFramework/gf-contrib
The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/nlg')
| -rw-r--r-- | examples/nlg/Logic.gf | 20 | ||||
| -rw-r--r-- | examples/nlg/LogicCnc.gf | 23 | ||||
| -rw-r--r-- | examples/nlg/NLG.gf | 115 | ||||
| -rw-r--r-- | examples/nlg/NLGEng.gf | 69 |
4 files changed, 0 insertions, 227 deletions
diff --git a/examples/nlg/Logic.gf b/examples/nlg/Logic.gf deleted file mode 100644 index 63c330faf..000000000 --- a/examples/nlg/Logic.gf +++ /dev/null @@ -1,20 +0,0 @@ -abstract Logic = { - -cat - Ind; Prop; - -fun - john : Ind; - mary : Ind; - boy : Ind -> Prop; - love : Ind -> Ind -> Prop; - leave : Ind -> Prop; - smart : Ind -> Prop; - exists : (Ind -> Prop) -> Prop; - forall : (Ind -> Prop) -> Prop; - and,or : Prop -> Prop -> Prop; - impl : Prop -> Prop -> Prop; - not : Prop -> Prop; - eq : Ind -> Ind -> Prop; - -} diff --git a/examples/nlg/LogicCnc.gf b/examples/nlg/LogicCnc.gf deleted file mode 100644 index b9a2013c9..000000000 --- a/examples/nlg/LogicCnc.gf +++ /dev/null @@ -1,23 +0,0 @@ ---# -path=present -concrete LogicCnc of Logic = { - -lincat - Ind = {s : Str}; - Prop = {s:Str}; - -lin - john = {s="john"}; - mary = {s="mary"}; - boy x = {s="boy"++"("++x.s++")"}; - smart x = {s="smart"++"("++x.s++")"}; - love x y = {s="love"++"("++x.s++","++y.s++")"}; - leave x = {s="leave"++"("++x.s++")"}; - and x y = {s=x.s++"&&"++y.s}; - or x y = {s=x.s++"||"++y.s}; - impl x y = {s=x.s++"=>"++y.s}; - forall f = {s="forall"++f.$0++"."++"("++f.s++")"}; - exists f = {s="exists"++f.$0++"."++"("++f.s++")"}; - not p = {s="not"++"("++p.s++")"}; - eq x y = {s=x.s++"="++y.s}; - -} diff --git a/examples/nlg/NLG.gf b/examples/nlg/NLG.gf deleted file mode 100644 index d3afc73cf..000000000 --- a/examples/nlg/NLG.gf +++ /dev/null @@ -1,115 +0,0 @@ -abstract NLG = Logic ** { - -flags - startcat = Utt; - -cat - N (Ind -> Prop); - A (Ind -> Prop); - CN (Ind -> Prop); - Det ((Ind -> Prop) -> (Ind -> Prop) -> Prop); - PN Ind; - NP ((Ind -> Prop) -> Prop); - AP (Ind -> Prop); - VP (Ind -> Prop); - VPSlash (Ind -> Ind -> Prop); - V (Ind -> Prop); - V2 (Ind -> Ind -> Prop); - Comp (Ind -> Prop); - Pol (Prop -> Prop); - Cl Prop; - ClSlash (Ind -> Prop); - S Prop; - Utt; - - Conj (Prop -> Prop -> Prop) ; - ListNP ((Prop -> Prop -> Prop) -> (Ind -> Prop) -> Prop) ; - ListS ((Prop -> Prop -> Prop) -> Prop) ; - -fun - PredVP : ({np} : (Ind -> Prop) -> Prop) -> - ({vp} : Ind -> Prop) -> - NP np -> VP vp -> Cl (np vp) ; - - UseV : ({v} : Ind -> Prop) -> - V v -> VP v ; - - ComplSlash : ({v2} : Ind -> Ind -> Prop) -> - ({np} : (Ind -> Prop) -> Prop) -> - VPSlash v2 -> NP np -> VP (\i -> np (v2 i)) ; - - SlashV2a : ({v2} : Ind -> Ind -> Prop) -> - V2 v2 -> VPSlash v2 ; - - SlashVP : ({np} : (Ind -> Prop) -> Prop) -> - ({v2} : Ind -> Ind -> Prop) -> - NP np -> VPSlash v2 -> ClSlash (\x -> np (v2 x)); - - ComplClSlash : ({sl} : Ind -> Prop) -> - ({np} : (Ind -> Prop) -> Prop) -> - ClSlash sl -> NP np -> Cl (np sl); - - UseComp : ({c} : Ind -> Prop) -> - Comp c -> VP c ; - - CompAP : ({ap} : Ind -> Prop) -> - AP ap -> Comp ap ; - - CompNP : ({np} : (Ind -> Prop) -> Prop) -> - NP np -> Comp (\x -> np (\y -> eq x y)) ; - - UsePN : ({i} : Ind) -> PN i -> NP (\f -> f i) ; - - DetCN : ({det} : (Ind -> Prop) -> (Ind -> Prop) -> Prop) -> - ({cn} : Ind -> Prop) -> - Det det -> CN cn -> NP (\f -> det cn f); - - AdjCN : ({ap,cn} : Ind -> Prop) -> - AP ap -> CN cn -> CN (\x -> and (ap x) (cn x)) ; - - PositA : ({a} : Ind -> Prop) -> - A a -> AP a ; - - UseN : ({n} : Ind -> Prop) -> N n -> CN n; - - BaseNP : ({np1,np2} : (Ind -> Prop) -> Prop) -> - NP np1 -> NP np2 -> ListNP (\conj,f -> conj (np1 f) (np2 f)) ; - ConsNP : ({np1} : (Ind -> Prop) -> Prop) -> - ({lst} : (Prop -> Prop -> Prop) -> (Ind -> Prop) -> Prop) -> - NP np1 -> ListNP lst -> ListNP (\conj,f -> conj (np1 f) (lst conj f)) ; - ConjNP : ({cnj} : Prop -> Prop -> Prop) -> - ({lst} : (Prop -> Prop -> Prop) -> (Ind -> Prop) -> Prop) -> - Conj cnj -> ListNP lst -> NP (lst cnj) ; - - BaseS : ({s1,s2} : Prop) -> - S s1 -> S s2 -> ListS (\conj -> conj s1 s2) ; - ConsS : ({s1} : Prop) -> - ({lst} : (Prop -> Prop -> Prop) -> Prop) -> - S s1 -> ListS lst -> ListS (\conj -> conj s1 (lst conj)) ; - ConjS : ({cnj} : Prop -> Prop -> Prop) -> - ({lst} : (Prop -> Prop -> Prop) -> Prop) -> - Conj cnj -> ListS lst -> S (lst cnj) ; - - john_PN : PN john; - mary_PN : PN mary; - boy_N : N boy; - somebody_NP : NP exists; - everybody_NP : NP forall; - love_V2 : V2 love ; - leave_V : V leave ; - smart_A : A smart ; - a_Det : Det (\d,f -> exists (\x -> and (d x) (f x))); - every_Det : Det (\d,f -> forall (\x -> impl (d x) (f x))); - some_Det : Det (\d,f -> exists (\x -> and (d x) (f x))); - PPos : Pol (\t -> t) ; - PNeg : Pol (\t -> not t) ; - and_Conj : Conj and ; - or_Conj : Conj or ; - - UseCl : ({cl} : Prop) -> - ({p} : Prop -> Prop) -> - Pol p -> Cl cl -> S (p cl); - - UttS : (s : Prop) -> S s -> Utt; - -} diff --git a/examples/nlg/NLGEng.gf b/examples/nlg/NLGEng.gf deleted file mode 100644 index 731e05a3d..000000000 --- a/examples/nlg/NLGEng.gf +++ /dev/null @@ -1,69 +0,0 @@ ---# -path=present -concrete NLGEng of NLG = LogicCnc ** open (Eng=GrammarEng), ParadigmsEng, ResEng in { - -lincat - Det = Eng.Det; - N = Eng.N; - A = Eng.A; - CN = Eng.CN; - PN = Eng.PN; - NP = Eng.NP; - AP = Eng.AP; - VP = Eng.VP; - VPSlash = Eng.VPSlash; - V2 = Eng.V2; - V = Eng.V; - Comp=Eng.Comp; - Pol= Eng.Pol; - Cl = Eng.Cl; - ClSlash = Eng.ClSlash; - S = Eng.S; - Utt= Eng.Utt; - Conj = Eng.Conj; - ListNP = Eng.ListNP; - ListS = Eng.ListS; - -lin - DetCN _ _ = Eng.DetCN; - UseN _ = Eng.UseN; - UsePN _ = Eng.UsePN; - SlashV2a _ = Eng.SlashV2a; - ComplSlash _ _ = Eng.ComplSlash; - SlashVP _ _ = Eng.SlashVP; - ComplClSlash _ _ cl np = lin Cl { - s = \\t,a,p,o => cl.s ! t ! a ! p ! o ++ cl.c2 ++ np.s ! NCase Nom - } ; - - UseComp _ = Eng.UseComp ; - CompAP _ = Eng.CompAP ; - CompNP _ = Eng.CompNP ; - PredVP _ _ = Eng.PredVP; - PositA _ = Eng.PositA; - AdjCN _ _ = Eng.AdjCN; - UseV _ = Eng.UseV; - PPos = Eng.PPos; - PNeg = Eng.PNeg; - BaseNP _ _ = Eng.BaseNP; - ConsNP _ _ = Eng.ConsNP; - ConjNP _ _ = Eng.ConjNP; - BaseS _ _ = Eng.BaseS; - ConsS _ _ = Eng.ConsS; - ConjS _ _ = Eng.ConjS; - UseCl _ _ p x = Eng.UseCl (Eng.TTAnt Eng.TPres Eng.ASimul) p x; - UttS _ s = Eng.UttS s; - - john_PN = mkPN "John"; - mary_PN = mkPN "Mary"; - love_V2 = mkV2 (mkV "love"); - leave_V = mkV "leave" "left" "left"; - somebody_NP = Eng.somebody_NP; - everybody_NP = Eng.everybody_NP; - boy_N = mkN "boy"; - every_Det = Eng.every_Det; - some_Det = Eng.someSg_Det; - a_Det = Eng.DetQuant Eng.IndefArt Eng.NumSg; - smart_A = mkA "smart"; - and_Conj = Eng.and_Conj; - or_Conj = Eng.or_Conj; - -} |
