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

API module titles, resource.txt corrections

Browse Source
This commit is contained in:
aarne
2006-06-14 21:16:06 +00:00
parent d15022b24b
commit 20db7bf224
14 changed files with 25 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
resource-1.0/abstract/Text.gf
View File

@@ -1,11 +1,15 @@
--1 Texts
--1 Text: Texts
-- Texts are built from an empty text by adding $Phr$ases,
-- using as constructors the punctuation marks ".", "?", and "!".
-- Any punctuation mark can be attached to any kind of phrase.
abstract Text = Common ** {
fun
TEmpty : Text ;
TFullStop : Phr -> Text -> Text ;
TQuestMark : Phr -> Text -> Text ;
TExclMark : Phr -> Text -> Text ;
TEmpty : Text ; --
TFullStop : Phr -> Text -> Text ; -- John walks. ...
TQuestMark : Phr -> Text -> Text ; -- Are you OK? ...
TExclMark : Phr -> Text -> Text ; -- John walks! ...
}