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

Constructors: added more variants of mkText.

Browse Source
This commit is contained in:
bringert
2007-04-21 10:02:49 +00:00
parent bc67940b3c
commit 7973297529
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
resource-1.0/api/Constructors.gf
View File

@@ -39,6 +39,11 @@ incomplete resource Constructors = open Grammar in {
mkText : overload { mkText : overload {
mkText : Text ; -- [empty text] mkText : Text ; -- [empty text]
mkText : Phr -> Text ; -- John walks. mkText : Phr -> Text ; -- John walks.
mkText : Utt -> Text ; -- John walks.
mkText : S -> Text ; -- John walks.
mkText : QS -> Text ; -- Does John walk?
mkText : Imp -> Text ; -- Walk!
mkText : Pol -> Imp -> Text ; -- Don't walk!
mkText : Phr -> Text -> Text -- John walks. ... mkText : Phr -> Text -> Text -- John walks. ...
} ; } ;
@@ -612,6 +617,16 @@ incomplete resource Constructors = open Grammar in {
= TEmpty ; = TEmpty ;
mkText : Phr -> Text -- John walks. mkText : Phr -> Text -- John walks.
= \x -> TFullStop x TEmpty ; = \x -> TFullStop x TEmpty ;
mkText : Utt -> Text
= \u -> TFullStop (PhrUtt NoPConj u NoVoc) TEmpty ;
mkText : S -> Text
= \s -> TFullStop (PhrUtt NoPConj (UttS s) NoVoc) TEmpty;
mkText : QS -> Text
= \q -> TQuestMark (PhrUtt NoPConj (UttQS q) NoVoc) TEmpty ;
mkText : Imp -> Text
= \i -> TExclMark (PhrUtt NoPConj (UttImpSg PPos i) NoVoc) TEmpty;
mkText : Pol -> Imp -> Text
= \p,i -> TExclMark (PhrUtt NoPConj (UttImpSg p i) NoVoc) TEmpty;
mkText : Phr -> Text -> Text -- John walks. ... mkText : Phr -> Text -> Text -- John walks. ...
= TFullStop = TFullStop
} ; } ;