summaryrefslogtreecommitdiff
path: root/examples/discourse
diff options
context:
space:
mode:
Diffstat (limited to 'examples/discourse')
-rw-r--r--examples/discourse/Discourse.gf29
-rw-r--r--examples/discourse/DiscourseEng.gf56
-rw-r--r--examples/discourse/DiscourseFin.gf40
-rw-r--r--examples/discourse/particles.txt55
4 files changed, 0 insertions, 180 deletions
diff --git a/examples/discourse/Discourse.gf b/examples/discourse/Discourse.gf
deleted file mode 100644
index f70d46b4b..000000000
--- a/examples/discourse/Discourse.gf
+++ /dev/null
@@ -1,29 +0,0 @@
-abstract Discourse =
- Lexicon,
- Noun, Verb,
- Adjective, Adverb,
- Structural - [nobody_NP, nothing_NP],
- Tense
-** {
-
-flags startcat = S ;
-
-cat
- Clause ; -- subject, verb, object, adverb(s)
- Marker ; -- discourse marker
-
-fun
- PreSubjS : Marker -> Temp -> Pol -> Clause -> S ; -- Jussihan juo maitoa nyt
- PreVerbS : Marker -> Temp -> Pol -> Clause -> S ; -- juohan Jussi maitoa nyt
- PreObjS : Marker -> Temp -> Pol -> Clause -> S ; -- maitoahan Jussi juo nyt
- PreAdvS : Marker -> Temp -> Pol -> Clause -> S ; -- nythän Jussi juo maitoa
-
- NoFocClause : NP -> VPSlash -> NP -> Adv -> Clause ; -- Jussi juo maitoa nyt
- FocSubjClause : NP -> VPSlash -> NP -> Adv -> Clause ; -- Jussikin juo maitoa nyt
- FocVerbClause : NP -> VPSlash -> NP -> Adv -> Clause ; -- Jussi juokin maitoa nyt
- FocObjClause : NP -> VPSlash -> NP -> Adv -> Clause ; -- Jussi juo maitoakin nyt
- FocAdvClause : NP -> VPSlash -> NP -> Adv -> Clause ; -- Jussi juo maitoa nytkin
-
- neutralMarker, remindMarker, contrastMarker : Marker ;
-
-}
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" ;
-
-}
diff --git a/examples/discourse/DiscourseFin.gf b/examples/discourse/DiscourseFin.gf
deleted file mode 100644
index 59e730f22..000000000
--- a/examples/discourse/DiscourseFin.gf
+++ /dev/null
@@ -1,40 +0,0 @@
---# -path=.:present
-
-concrete DiscourseFin of Discourse =
- LexiconFin,
- NounFin, VerbFin - [SlashV2VNP,SlashVV, Slash2V3, Slash3V3],
- AdjectiveFin, AdverbFin,
- StructuralFin - [nobody_NP,nothing_NP],
- TenseX
-** open SyntaxFin, (P = ParadigmsFin), (R = ParamX), (E = ExtraFin), Prelude in {
-
-lincat
- Clause = E.ClPlus ;
- Marker = E.Part ;
-
-lin
- PreSubjS marker temp pol cl =
- E.S_SVO marker temp pol cl ;
- PreVerbS marker temp pol cl =
- E.S_VSO marker temp pol cl ;
- PreObjS marker temp pol cl =
- E.S_OSV marker temp pol cl ;
- PreAdvS marker temp pol cl =
- E.S_ASV marker temp pol cl ;
-
- NoFocClause np vps obj adv =
- E.PredClPlus np (mkVP (mkVP vps obj) adv) ;
- FocSubjClause np vps obj adv =
- E.PredClPlusFocSubj np (mkVP (mkVP vps obj) adv) ;
- FocVerbClause np vps obj adv =
- E.PredClPlusFocVerb np (mkVP (mkVP vps obj) adv) ;
--- FocObjClause np vps obj adv =
--- lin ClPlus (E.PredClPlusFocObj np (mkVP vps adv) obj) ;
- FocAdvClause np vps obj adv =
- lin ClPlus (E.PredClPlusFocAdv np (mkVP vps obj) adv) ;
-
- neutralMarker = E.noPart ;
- remindMarker = E.han_Part ;
- contrastMarker = E.pas_Part ;
-
-}
diff --git a/examples/discourse/particles.txt b/examples/discourse/particles.txt
deleted file mode 100644
index e47724b84..000000000
--- a/examples/discourse/particles.txt
+++ /dev/null
@@ -1,55 +0,0 @@
-On the syntax of clitic particles in Finnish
-
--- AR 29/12/2010
-
-The clitic particles come in two groups:
-
- Pas ::= pas | pa | han | kos | ko | kohan | pahan -- free variation
- Kin ::= kin/kaan -- depending on polarity
-
-(vowel harmony ignored). A Finnish sentence can have at most one of each. A Pas clitic is
-always attached to the first word ("Aripas juo maitoa") or phrase such as NP
-("minun poikanipas juo maitoa"). A Kin clitic can be attached to almost any word; if the
-same as Pas, Kin must come first ("Arikinhan juo maitoa"). Some combinations are clumsy
-but presumably OK ("Arikinpas"). If the verb is first, it doesn't seem to allow Kin
-(*"juokin Ari maitoa").
-
-The following is a list of combinatory possibilities. Adverbs (represented by "nyt")
-can be added ad libitum - at most two of them then become carriers of clitics
-("nythän Ari juo maitoa täälläkin").
-
-
--- declaratives and questions
-
-(Notice that, in the presence of "ei", Kin is "kaan", otherwise "kin".)
-
-ari Pas? ei? (juo Kin maitoa nyt | juo maitoa Kin nyt | juo maitoa nyt Kin?)
-maitoa Pas? ei? (ari Kin juo nyt | ari juo Kin nyt | ari juo nyt Kin?)
-nyt Pas? ei? (ari Kin juo maitoa | ari juo Kin maitoa | ari juo maitoa Kin?)
-
-ari Kin Pas? ei? juo maitoa nyt
-maitoa Kin Pas? ari ei? juo nyt
-nyt Kin Pas? ari ei? juo maitoa
-
-juo Pas? (ari Kin maitoa nyt | ari maitoa Kin nyt | ari maitoa nyt Kin?)
-ei Pas? (ari Kin juo maitoa nyt | ari juo Kin maitoa nyt | ari juo maitoa Kin nyt |
- ari juo maitoa nyt Kin?)
-
--- imperatives
-
-The question clitic is (for obvious semantic reasons) omitted from the Pas category:
-
- Pas- ::= pa | pas | han | pahan
-
-juo Pas-? (ari Kin maitoa nyt | ari maitoa Kin nyt | ari maitoa nyt Kin?)
-älä Pas-? (ari Kin juo maitoa nyt | ari juo Kin maitoa nyt | ari juo maitoa Kin nyt
- | ari juo maitoa nyt Kin?)
-
-
--- negation word
-
-Strangely enough, Kin seems to be getting accepted in plural (= two-syllabic) negations:
-
- *enkään, *etkään, *eikään, ?emmekään, ?ettekään, ?eivätkään (quite some Google hits)
-
-
generated by cgit v1.2.3 (git 2.39.1) at 2026-05-20 05:16:34 +0000