summaryrefslogtreecommitdiff
path: root/examples/discourse/DiscourseEng.gf
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/discourse/DiscourseEng.gf
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/discourse/DiscourseEng.gf')
-rw-r--r--examples/discourse/DiscourseEng.gf56
1 files changed, 0 insertions, 56 deletions
diff --git a/examples/discourse/DiscourseEng.gf b/examples/discourse/DiscourseEng.gf
deleted file mode 100644
index 9ee3b070a..000000000
--- a/examples/discourse/DiscourseEng.gf
+++ /dev/null
@@ -1,56 +0,0 @@
---# -path=.:present
-
-concrete DiscourseEng of Discourse =
- LexiconEng,
- NounEng, VerbEng - [SlashV2VNP,SlashVV, Slash2V3, Slash3V3],
- AdjectiveEng, AdverbEng,
- StructuralEng - [nobody_NP,nothing_NP],
- TenseX
-** open SyntaxEng, (P = ParadigmsEng), (R = ParamX), (E = ExtraEng), (L = LangEng), Prelude in {
-
-lincat
- Clause = {s : R.Polarity => {subj : NP ; vps : VPSlash ; obj : NP ; adv : Adv}} ;
- Marker = Adv ;
-
-lin
- PreSubjS marker temp pol cla =
- let cl = cla.s ! pol.p in
- mkS marker (mkS temp pol
- (mkCl cl.subj (mkVP (mkVP cl.vps cl.obj) cl.adv))) ;
-
- PreVerbS marker temp pol cla =
- let cl = cla.s ! pol.p in
- mkS marker (mkS temp pol
- (mkCl cl.subj (mkVP actually_AdV (mkVP (mkVP E.do_VV (mkVP cl.vps cl.obj)) cl.adv)))) ;
-
- PreObjS marker temp pol cla =
- let cl = cla.s ! pol.p in
- mkS marker (mkS (mkCl cl.obj
- (mkRS temp pol (mkRCl E.that_RP (mkClSlash cl.subj (L.AdvVPSlash cl.vps cl.adv)))))) ;
-
- PreAdvS marker temp pol cla =
- let cl = cla.s ! pol.p in
- mkS marker (mkS cl.adv
- (mkS temp pol (mkCl cl.subj (mkVP cl.vps cl.obj)))) ;
-
- NoFocClause np vps obj adv =
- {s = \\p => {subj = np ; vps = vps ; obj = obj ; adv = adv}} ;
- FocSubjClause np vps obj adv =
- {s = \\p => {subj = mkNP np (too p) ; vps = vps ; obj = obj ; adv = adv}} ;
- FocVerbClause np vps obj adv =
- {s = \\p => {subj = np ; vps = L.AdVVPSlash even_AdV vps ; obj = obj ; adv = adv}} ;
- FocObjClause np vps obj adv =
- {s = \\p => {subj = np ; vps = vps ; obj = mkNP obj (too p) ; adv = adv}} ;
- FocAdvClause np vps obj adv =
- {s = \\p => {subj = np ; vps = vps ; obj = obj ; adv = lin Adv (ss (adv.s ++ (too p).s))}} ;
-
- neutralMarker = P.mkAdv [] ;
- remindMarker = P.mkAdv "as we know" ;
- contrastMarker = P.mkAdv "no but" ;
-
-oper
- too : R.Polarity -> Adv = \p -> case p of {R.Pos => P.mkAdv "too" ; R.Neg => P.mkAdv "either"} ;
- even_AdV = P.mkAdV "even" ;
- actually_AdV = P.mkAdV "actually" ;
-
-}