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 { "abc" } [ ".- -... -.-." morse> ] unit-test
{ "morse code" } [ { "morse code" } [
[MORSE MORSE[[
-- --- .-. ... . / -- --- .-. ... . /
-.-. --- -.. . -.-. --- -.. .
MORSE] >morse morse> ] unit-test ]] >morse morse> ] unit-test
{ "morse code 123" } [ { "morse code 123" } [
[MORSE MORSE[[
__ ___ ._. ... . / __ ___ ._. ... . /
_._. ___ _.. . / _._. ___ _.. . /
.____ ..___ ...__ .____ ..___ ...__
MORSE] ] unit-test ]] ] unit-test
{ [MORSE { MORSE[[
-- --- .-. ... . / -- --- .-. ... . /
-.-. --- -.. . -.-. --- -.. .
MORSE] } [ ]] } [
"morse code" >morse morse> "morse code" >morse morse>
] unit-test ] unit-test
{ "factor rocks!" } [ { "factor rocks!" } [
[MORSE MORSE[[
..-. .- -.-. - --- .-. / ..-. .- -.-. - --- .-. /
.-. --- -.-. -.- ... -.-.-- .-. --- -.-. -.- ... -.-.--
MORSE] ] unit-test ]] ] unit-test
! [ ] [ "sos" 0.075 play-as-morse* ] unit-test ! [ ] [ "sos" 0.075 play-as-morse* ] unit-test
! [ ] [ "Factor rocks!" play-as-morse ] unit-test ! [ ] [ "Factor rocks!" play-as-morse ] unit-test
! [ ] [ "\n" 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 ) : morse> ( morse -- plain )
replace-underscores morse>sentence ; replace-underscores morse>sentence ;
SYNTAX: [MORSE "MORSE]" parse-multiline-string morse> suffix! ; SYNTAX: MORSE[[ "]]" parse-multiline-string morse> suffix! ;
<PRIVATE <PRIVATE