diff options
| author | aarne <aarne@chalmers.se> | 2011-02-08 15:49:47 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-02-08 15:49:47 +0000 |
| commit | 9aeb51b4a5bc84046346f2cedef6b4bf949d8de5 (patch) | |
| tree | bb83a94429a55292a76e38dc8813a2b970c36db9 /examples/discourse/DiscourseFin.gf | |
| parent | 3c82593fdd59cb6d8861c5a7d37faa50cddbac3b (diff) | |
experimenting with discourse particles in DiscourseFin
Diffstat (limited to 'examples/discourse/DiscourseFin.gf')
| -rw-r--r-- | examples/discourse/DiscourseFin.gf | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/examples/discourse/DiscourseFin.gf b/examples/discourse/DiscourseFin.gf index 6c577d086..4fa1062b6 100644 --- a/examples/discourse/DiscourseFin.gf +++ b/examples/discourse/DiscourseFin.gf @@ -6,11 +6,12 @@ concrete DiscourseFin of Discourse = AdjectiveFin, AdverbFin, StructuralFin - [nobody_NP,nothing_NP], TenseX -** open SyntaxFin, (P = ParadigmsFin), (R = ParamX), Prelude in { +** open SyntaxFin, (P = ParadigmsFin), (R = ParamX), (E = ExtraFin), Prelude in { lincat - Clause = {subj : NP ; vp : VP} ; - Part = Adv ; + Clause = {subj : NP ; vp : VP} ; + OClause = {subj : NP ; v : V2 ; obj : NP} ; + Part = Adv ; lin ClauseS part temp pol cl = @@ -21,6 +22,7 @@ lin mkS temp pol (mkCl (mkNP cl.subj part) (mkVP cl.vp (kin.s ! pol.p))) ; AdvKinS part temp pol adv cl = mkS temp pol (mkCl (mkNP cl.subj part) (mkVP (mkVP cl.vp adv) (kin.s ! pol.p))) ; + PreAdvS part temp pol adv cl = mkS adv (mkS part (mkS temp pol (mkCl cl.subj cl.vp))) ; PreAdvKinS part temp pol adv cl = @@ -29,20 +31,15 @@ lin mkS adv (mkS part (mkS temp pol (mkCl (mkNP cl.subj (kin.s ! pol.p)) cl.vp))) ; PreAdvVerbKinS part temp pol adv cl = mkS adv (mkS part (mkS temp pol (mkCl cl.subj (mkVP cl.vp (kin.s ! pol.p))))) ; - PreAdvAdvKinS part temp pol adv1 adv2 cl = - mkS adv1 (mkS part (mkS temp pol (mkCl cl.subj (mkVP (mkVP cl.vp adv2) (kin.s ! pol.p))))) ; PredClause subj v = {subj = subj ; vp = v} ; + PredOClause subj v obj = {subj = subj ; v = v ; obj = obj} ; + UseOClause oc = {subj = oc.subj ; vp = mkVP oc.v oc.obj} ; noPart = P.mkAdv [] ; han_Part = P.mkAdv (glueTok "han") ; pa_Part = P.mkAdv (glueTok "pa") ; pas_Part = P.mkAdv (glueTok "pas") ; - ko_Part = P.mkAdv (glueTok "ko") ; - kos_Part = P.mkAdv (glueTok "kos") ; - kohan_Part = P.mkAdv (glueTok "kohan") ; - pahan_Part = P.mkAdv (glueTok "pahan") ; - oper kin : {s : R.Polarity => Adv} = |