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
30
31
32
33
34
35
36
37
38
39
40
|
--# -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 ;
}
|
