GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-25 18:58:56 -06:00
Code Issues Packages Projects Releases Wiki Activity

Added mkText : Cl -> Text

Browse Source
This commit is contained in:
bringert
2007-04-21 14:57:17 +00:00
parent 531119dad5
commit b3b7e9a8f7
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-1.0/api/Constructors.gf
View File

@@ -41,6 +41,7 @@ incomplete resource Constructors = open Grammar in {
mkText : Phr -> Text ; -- John walks. mkText : Phr -> Text ; -- John walks.
mkText : Utt -> Text ; -- John walks. mkText : Utt -> Text ; -- John walks.
mkText : S -> Text ; -- John walks. mkText : S -> Text ; -- John walks.
mkText : Cl -> Text ; -- John walks.
mkText : QS -> Text ; -- Does John walk? mkText : QS -> Text ; -- Does John walk?
mkText : Imp -> Text ; -- Walk! mkText : Imp -> Text ; -- Walk!
mkText : Pol -> Imp -> Text ; -- Don't 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 ; = \u -> TFullStop (PhrUtt NoPConj u NoVoc) TEmpty ;
mkText : S -> Text mkText : S -> Text
= \s -> TFullStop (PhrUtt NoPConj (UttS s) NoVoc) TEmpty; = \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 mkText : QS -> Text
= \q -> TQuestMark (PhrUtt NoPConj (UttQS q) NoVoc) TEmpty ; = \q -> TQuestMark (PhrUtt NoPConj (UttQS q) NoVoc) TEmpty ;
mkText : Imp -> Text mkText : Imp -> Text