summaryrefslogtreecommitdiff
path: root/examples/nlg
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/nlg
parent8e1c6cca407c82fc09569d80c231b8d256735989 (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.gf20
-rw-r--r--examples/nlg/LogicCnc.gf23
-rw-r--r--examples/nlg/NLG.gf115
-rw-r--r--examples/nlg/NLGEng.gf69
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;
-
-}