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

morse: [MORSE to MORSE[[

locals-and-roots
Doug Coleman 2016-06-09 14:54:14 -07:00
parent deb7732a84
commit 0f9b3926ef
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
demos/morse/morse-tests.factor
View File

@ -15,30 +15,30 @@ in: morse.tests
{ "abc" } [ ".- -... -.-." morse> ] unit-test
{ "morse code" } [
[MORSE
MORSE[[
-- --- .-. ... . /
-.-. --- -.. .
MORSE] >morse morse> ] unit-test
]] >morse morse> ] unit-test
{ "morse code 123" } [
[MORSE
MORSE[[
__ ___ ._. ... . /
_._. ___ _.. . /
.____ ..___ ...__
MORSE] ] unit-test
]] ] unit-test
{ [MORSE
{ MORSE[[
-- --- .-. ... . /
-.-. --- -.. .
MORSE] } [
]] } [
"morse code" >morse morse>
] unit-test
{ "factor rocks!" } [
[MORSE
MORSE[[
..-. .- -.-. - --- .-. /
.-. --- -.-. -.- ... -.-.--
MORSE] ] unit-test
]] ] unit-test
! [ ] [ "sos" 0.075 play-as-morse* ] unit-test
! [ ] [ "Factor rocks!" play-as-morse ] unit-test
! [ ] [ "\n" play-as-morse ] unit-test

2
demos/morse/morse.factor
View File

@ -112,7 +112,7 @@ PRIVATE>
: morse> ( morse -- plain )
replace-underscores morse>sentence ;
SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ;
SYNTAX: MORSE[[ "]]" parse-multiline-string morse> suffix! ;
<PRIVATE