From b3b7e9a8f70e2458390d33adf1722bde6d32a668 Mon Sep 17 00:00:00 2001 From: bringert Date: Sat, 21 Apr 2007 14:57:17 +0000 Subject: [PATCH] Added mkText : Cl -> Text --- lib/resource-1.0/api/Constructors.gf | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/resource-1.0/api/Constructors.gf b/lib/resource-1.0/api/Constructors.gf index 01b016de5..ab4394fa0 100644 --- a/lib/resource-1.0/api/Constructors.gf +++ b/lib/resource-1.0/api/Constructors.gf @@ -41,6 +41,7 @@ incomplete resource Constructors = open Grammar in { mkText : Phr -> Text ; -- John walks. mkText : Utt -> Text ; -- John walks. mkText : S -> Text ; -- John walks. + mkText : Cl -> Text ; -- John walks. mkText : QS -> Text ; -- Does John walk? mkText : Imp -> Text ; -- Walk! mkText : Pol -> Imp -> Text ; -- Don't walk! @@ -636,6 +637,8 @@ incomplete resource Constructors = open Grammar in { = \u -> TFullStop (PhrUtt NoPConj u NoVoc) TEmpty ; mkText : S -> Text = \s -> TFullStop (PhrUtt NoPConj (UttS s) NoVoc) TEmpty; + mkText : Cl -> Text + = \c -> TFullStop (PhrUtt NoPConj (UttS (UseCl TPres ASimul PPos c)) NoVoc) TEmpty; mkText : QS -> Text = \q -> TQuestMark (PhrUtt NoPConj (UttQS q) NoVoc) TEmpty ; mkText : Imp -> Text