play-char ( string -- )

Vocabulary

morse.private

Inputs

string

an object

Outputs

None

Definition

USING: combinators morse sequences ;

IN: morse.private

: play-char ( string -- )
    [ intra-char-gap ] [
        {
            { dot-char [ dot ] }
            { dash-char [ dash ] }
            { word-gap-char [ intra-char-gap ] }
            { unknown-char [ intra-char-gap ] }
            [ no-morse-ch ]
        } case
    ] interleave ;