34 lines
1.7 KiB
Factor
34 lines
1.7 KiB
Factor
! Copyright (C) 2007 Alex Chapman
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: help.markup help.syntax ;
|
|
IN: morse
|
|
|
|
HELP: ch>morse
|
|
{ $values
|
|
{ "ch" "A character that has a morse code translation" } { "morse" "A string consisting of zero or more dots and dashes" } }
|
|
{ $description "If the given character has a morse code translation, then return that translation, otherwise return a ? character." } ;
|
|
|
|
HELP: morse>ch
|
|
{ $values
|
|
{ "str" "A string of dots and dashes that represents a single character in morse code" } { "ch" "The translated character" } }
|
|
{ $description "If the given string represents a morse code character, then return that character, otherwise return a space character." } ;
|
|
|
|
HELP: >morse
|
|
{ $values
|
|
{ "str" "A string of ASCII characters which can be translated into morse code" } { "newstr" "A string in morse code" } }
|
|
{ $description "Translates ASCII text into morse code, represented by a series of dots, dashes, and slashes." }
|
|
{ $see-also morse> ch>morse } ;
|
|
|
|
HELP: morse>
|
|
{ $values { "morse" "A string of morse code, in which the character '.' represents dots, '-' dashes, ' ' spaces between letters, and ' / ' spaces between words." } { "plain" "The ASCII translation of the given string" } }
|
|
{ $description "Translates morse code into ASCII text" }
|
|
{ $see-also >morse morse>ch } ;
|
|
|
|
HELP: play-as-morse*
|
|
{ $values { "str" "A string of ascii characters which can be translated into morse code" } { "unit-length" "The length of a dot" } }
|
|
{ $description "Plays a string as morse code" } ;
|
|
|
|
HELP: play-as-morse
|
|
{ $values { "str" "A string of ascii characters which can be translated into morse code" } }
|
|
{ $description "Plays a string as morse code" } ;
|