GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

factored DiscourseFin to 4+5 constructors

Browse Source
This commit is contained in:
aarne
2011-02-09 17:11:45 +00:00
parent 9c68dbcdb1
commit 805c12c49a
2 changed files with 39 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
examples/discourse/DiscourseFin.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:alltenses
--# -path=.:present
concrete DiscourseFin of Discourse =
LexiconFin,
@@ -9,9 +9,31 @@ concrete DiscourseFin of Discourse =
** 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 vp =
E.PredClPlus np vp ;
FocSubjClause np vp =
E.PredClPlusFocSubj np vp ;
FocVerbClause np vp =
E.PredClPlusFocVerb np vp ;
FocObjClause np vp obj =
lin ClPlus (E.PredClPlusFocObj np vp obj) ;
FocAdvS np vp adv =
lin ClPlus (E.PredClPlusFocAdv np vp adv) ;
{-
ClauseS marker temp pol np vp =
E.S_SVO marker temp pol (E.PredClPlus np vp) ;
FocSubjS marker temp pol np vp =
@@ -22,7 +44,7 @@ lin
E.S_SVO marker temp pol (E.PredClPlusFocObj np vp obj) ;
FocAdvS marker temp pol np vp adv =
E.S_SVO marker temp pol (E.PredClPlusFocAdv np vp adv) ;
-}
neutralMarker = E.noPart ;
remindMarker = E.han_Part ;
contrastMarker = E.pas_Part ;