steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better fix for morse

db4
Doug Coleman 2009-04-26 14:43:06 -05:00
parent 319ac42ac2
commit 2862843a9b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/morse/morse.factor
View File

@ -3,7 +3,7 @@
USING: accessors ascii assocs biassocs combinators hashtables kernel lists literals math namespaces make multiline openal parser sequences splitting strings synth synth.buffers ; USING: accessors ascii assocs biassocs combinators hashtables kernel lists literals math namespaces make multiline openal parser sequences splitting strings synth synth.buffers ;
IN: morse IN: morse
ERROR: no-morse-code ch ; ERROR: no-morse-ch ch ;
<PRIVATE <PRIVATE
@ -11,7 +11,7 @@ CONSTANT: dot-char CHAR: .
CONSTANT: dash-char CHAR: - CONSTANT: dash-char CHAR: -
CONSTANT: char-gap-char CHAR: \s CONSTANT: char-gap-char CHAR: \s
CONSTANT: word-gap-char CHAR: / CONSTANT: word-gap-char CHAR: /
CONSTANT: unknown-char "?" CONSTANT: unknown-char CHAR: ?
PRIVATE> PRIVATE>
@ -76,7 +76,7 @@ CONSTANT: morse-code-table $[
] ]
: ch>morse ( ch -- morse ) : ch>morse ( ch -- morse )
ch>lower morse-code-table at unknown-char or ; ch>lower morse-code-table at unknown-char 1string or ;
: morse>ch ( str -- ch ) : morse>ch ( str -- ch )
morse-code-table value-at char-gap-char or ; morse-code-table value-at char-gap-char or ;
@ -156,7 +156,8 @@ CONSTANT: beep-freq 880
{ dot-char [ dot ] } { dot-char [ dot ] }
{ dash-char [ dash ] } { dash-char [ dash ] }
{ word-gap-char [ intra-char-gap ] } { word-gap-char [ intra-char-gap ] }
[ drop intra-char-gap ] { unknown-char [ intra-char-gap ] }
[ no-morse-ch ]
} case } case
] interleave ; ] interleave ;