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

Moved punctuation to a separate field, to allow spoken language grammars to omit it. Created top-level spoken language grammars. (all in peacekeeping)

Browse Source
This commit is contained in:
bringert
2006-04-21 21:53:20 +00:00
parent 6806c98e29
commit 46f17bb535
19 changed files with 105 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
examples/peacekeeping/PeaceCatI.gf
View File

@@ -1,6 +1,22 @@
incomplete concrete PeaceCatI of PeaceCat = Cat ** open Cat in {
incomplete concrete PeaceCatI of PeaceCat =
Cat ** open Lang, PeaceRes, Prelude in {
lincat
MassN = N ;
Phrase = { s : Str; p : Punct } ;
PhraseWritten = { s : Str } ;
PhraseSpoken = { s : Str } ;
lin
Written x = mkWritten x.s x.p ;
Spoken x = { s = x.s } ;
oper
mkWritten : Str -> Punct -> { s : Str } ;
mkWritten x p = case p of {
FullStop => { s = x ++ "." } ; --TFullStop (ss s) TEmpty ;
QuestMark => { s = x ++ "?" } ; --TQuestMark (ss s) TEmpty ;
ExclMark => { s = x ++ "!" } --TExclMark (ss s) TEmpty
} ;
}