msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

example/Discourse for English too

Browse Source
This commit is contained in:
aarne
2011-02-09 22:57:56 +00:00
parent 3b713801ad
commit a533b68c55
3 changed files with 58 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
examples/discourse/DiscourseFin.gf
View File

@@ -22,29 +22,17 @@ lin
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) ;
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) ;
{-
ClauseS marker temp pol np vp =
E.S_SVO marker temp pol (E.PredClPlus np vp) ;
FocSubjS marker temp pol np vp =
E.S_SVO marker temp pol (E.PredClPlusFocSubj np vp) ;
FocVerbS marker temp pol np vp =
E.S_SVO marker temp pol (E.PredClPlusFocVerb np vp) ;
FocObjS marker temp pol np vp obj =
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 ;