mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 21:19:31 -06:00
13 lines
298 B
Plaintext
13 lines
298 B
Plaintext
resource PeaceRes = {
|
|
|
|
param Punct = FullStop | QuestMark | ExclMark ;
|
|
|
|
param SForm = SPos | SNeg | SQuest ;
|
|
|
|
oper
|
|
stop, quest, excl : Str -> { s : Str; p : Punct } ;
|
|
stop x = { s = x; p = FullStop } ;
|
|
quest x = { s = x; p = QuestMark } ;
|
|
excl x = { s = x; p = ExclMark } ;
|
|
|
|
} |