summaryrefslogtreecommitdiff
path: root/examples/discourse/Discourse.gf
blob: f70d46b4b213f5568b2c2d9420c6e59d7dcfea99 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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 ; 

}