GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-20 18:29:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

Constructors: added more variants of mkText.

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

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

@@ -39,6 +39,11 @@ incomplete resource Constructors = open Grammar in {
mkText : overload {
mkText : Text ; -- [empty text]
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. ...
} ;
@@ -612,6 +617,16 @@ incomplete resource Constructors = open Grammar in {
= TEmpty ;
mkText : Phr -> Text -- John walks.
= \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. ...
= TFullStop
} ;