From 805c12c49a82888fc791a238c39b8c1cf725345a Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Feb 2011 17:11:45 +0000 Subject: factored DiscourseFin to 4+5 constructors --- examples/discourse/Discourse.gf | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'examples/discourse/Discourse.gf') diff --git a/examples/discourse/Discourse.gf b/examples/discourse/Discourse.gf index 1172032c5..0b942dbdf 100644 --- a/examples/discourse/Discourse.gf +++ b/examples/discourse/Discourse.gf @@ -9,16 +9,30 @@ abstract Discourse = 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 -> VP -> Clause ; -- Jussi juo maitoa nyt + FocSubjClause : NP -> VP -> Clause ; -- Jussikin juo maitoa nyt + FocVerbClause : NP -> VP -> Clause ; -- Jussi juokin maitoa nyt + FocObjClause : NP -> VPSlash -> NP -> Clause ; -- Jussi juo maitoakin nyt + FocAdvClause : NP -> VP -> Adv -> Clause ; -- Jussi juo maitoa nytkin + + +{- ClauseS : Marker -> Temp -> Pol -> NP -> VP -> S ; -- Jussihan juo maitoa nyt FocSubjS : Marker -> Temp -> Pol -> NP -> VP -> S ; -- Jussikinhan juo maitoa nyt FocVerbS : Marker -> Temp -> Pol -> NP -> VP -> S ; -- Jussihan juokin maitoa nyt FocObjS : Marker -> Temp -> Pol -> NP -> VPSlash -> NP -> S ; -- Jussihan juo maitoakin nyt FocAdvS : Marker -> Temp -> Pol -> NP -> VP -> Adv -> S ; -- Jussihan juo maitoa nytkin - +-} {- PreAdvS : Part -> Temp -> Pol -> Adv -> Clause -> S ; -- nythän Jussi juo maitoa PreAdvKinS : Part -> Temp -> Pol -> Adv -> Clause -> S ; -- nytkinhän Jussi juo maitoa -- cgit v1.2.3