CH.lss

<h1>CH - Hex to string</h1>

CH(H) will convert the sequence of hexadecimal digits into the
corresponding character string. [[CH]] is the inverse of [[HEX]].

<h2>Uses</h2>
<a href="HEX.html">HEX</a><br>

<<INCLUDES>>=
-INCLUDE 'HEX.INC'
@

<<CH>>=
-PUBLIC CH()
*
         DEFINE('CH(H)C,P')
*
         CH_H_ = ' ' HEX(&ALPHABET)
CH_2     CH_H_ ' ' LEN(2) . C1
+          (ANY('0123456789ABCDEF') LEN(1)) . C2 = ' ' C1 ' ' C2
+                                                      :S(CH_2)F(CH_END)
*
CH       H = REPLACE(H, &LCASE, &UCASE)
CH_3     H LEN(2) . C =                                       :F(RETURN)
         CH_H_ ' ' C @P                                      :F(FRETURN)
         P = (P - 1) / 3
         &ALPHABET LEN(P) LEN(1) . C
         CH = CH C                                               :(CH_3)
*
CH_END
@

<<unit_test>>=
#!/usr/bin/bash
         exec "snobol4" "-b" "$0" "$@"
-INCLUDE 'CH.INC'
         &CODE = 1
         IDENT(CH('414243'), 'ABC')                              :F(END)
         &CODE = 0
END
@

<<>>=
-MODULE CH
<<INCLUDES>>
-IN72
-STITL CH
-EJECT
*
************************************************************************
*                                                                      *
*                            #####   #     #                           *
*                           #     #  #     #                           *
*                           #        #     #                           *
*                           #        #######                           *
*                           #        #     #                           *
*                           #     #  #     #                           *
*                            #####   #     #                           *
*                                                                      *
* CH                         HEX TO STRING                             *
*                                                                      *
************************************************************************
*
* CH.lss
*
<<CH>>
*
* CE: .MSNOBOL4;
@