escape-char ( ch -- )

Vocabulary

help.html

Inputs

ch

an object

Outputs

None

Definition

USING: ascii assocs kernel make math.parser sequences ;

IN: help.html

: escape-char ( ch -- )
    dup ascii? [
        [
            H{
                { 64 "__at__" }
                { 34 "__quo__" }
                { 35 "__hash__" }
                { 37 "__percent__" }
                { 124 "__pipe__" }
                { 42 "__star__" }
                { 44 "__comma__" }
                { 47 "__slash__" }
                { 58 "__colon__" }
                { 60 "__lt__" }
                { 92 "__back__" }
                { 62 "__gt__" }
                { 63 "__que__" }
            } at
        ] [ % ] [ check-printable , ] ?if
    ] [ number>string "__" "__" surround % ] if ;