escape-char ( ch -- )


Vocabulary
help.html

Inputs
chan object


Outputs
None

Definition


: 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 ;