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

some more mkText API functions

Browse Source
This commit is contained in:
aarne
2012-05-30 20:13:29 +00:00
parent 2e4aedd211
commit e905764fe6
2 changed files with 26 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/src/api/Constructors.gf
View File

@@ -91,13 +91,29 @@ incomplete resource Constructors = open Grammar in { --%
mkText : Phr -> Text -- But she sleeps. --%
= \x -> TFullStop x TEmpty ; --%
-- A text can also be directly built from utterances.
-- A text can also be directly built from utterances, which in turn can
-- be directly built from sentences, present-tense clauses, questions, or
mkText : Utt -> (Punct) -> (Text) -> Text -- Does she sleep? Yes. --:
= \u,punct,text -> let phr = (PhrUtt NoPConj u NoVoc) in case punct of { --%
PFullStop => TFullStop phr text ; --%
PExclMark => TExclMark phr text ; --%
PQuestMark => TQuestMark phr text --%
} ; --%
mkText : Utt -> Text -> Text -- But she sleeps. Yes! --%
= \u,t -> TFullStop (PhrUtt NoPConj u NoVoc) t ; --%
mkText : Utt -> Punct -> Text --%
= \u,punct -> let phr = (PhrUtt NoPConj u NoVoc) in case punct of { --%
PFullStop => TFullStop phr TEmpty ; --%
PExclMark => TExclMark phr TEmpty ; --%
PQuestMark => TQuestMark phr TEmpty --%
} ; --%
mkText : Utt -> Text -- But she sleeps. --%
= \u -> TFullStop (PhrUtt NoPConj u NoVoc) TEmpty ; --%
-- Utterances in turn can
-- be directly given as sentences, present-tense clauses, questions, or
-- positive imperatives.
mkText : Utt -> Text -- Yes.
= \u -> TFullStop (PhrUtt NoPConj u NoVoc) TEmpty ; --%
mkText : S -> Text -- She slept.
= \s -> TFullStop (PhrUtt NoPConj (UttS s) NoVoc) TEmpty ; --%
mkText : Cl -> Text -- She sleeps.