XMCU1 ;(WASH ISC)/CMW-Encode/Decode String APIs ;04/17/2002 08:30
;;8.0;MailMan;;Jun 28, 2002
; Entry points (DBIA 1136):
; $$ENCODEUP - Convert all "^" to "~U~"
; $$DECODEUP - Convert all "~U~" to "^"
; $$STRAN - Convert all control characters to printable ones
; $$RTRAN - Undo the conversion done by $$STRAN
;
RTRAN(XXX) ; Extrinsic Function to decode control characters
;Input=STRING
;Output=STRING
N XMESC,X,Y,X1,I
S XMESC="~"
Q:XXX'[XMESC
S Y="",X1=XXX
R1 S I=$F(X1,XMESC) I I=0 S X=Y_X1 G SET
S Y=Y_$E(X1,1,I-2)_$C($A($E(X1,I))-64#128),X1=$E(X1,I+1,999) G R1
SET Q X
STRAN(XXX) ; Extrinsic Function to encode control characters
;Input=STRING
;Output=STRING
N XMESC,Y,X1,I
S XMESC="~"
S Y="" F I=1:1:$L(XXX) S X1=$E(XXX,I) S Y=Y_$S(X1=XMESC:XMESC_$C(62),X1?1C:XMESC_$C($A(X1)+64#128),1:X1)
Q Y
ENCODEUP(XXX) ; Extrinsic Function to encode "^" into "~U~"
; Input=STRING
; Output=STRING
F Q:XXX'[U S XXX=$P(XXX,U)_"~U~"_$P(XXX,U,2,999)
Q XXX
DECODEUP(XXX) ; Extrinsic Function to decode "~U~" to "^"
; Input=STRING
; Output=STRING
F Q:XXX'["~U~" S XXX=$P(XXX,"~U~")_"^"_$P(XXX,"~U~",2,999)
Q XXX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMCU1 1174 printed Dec 13, 2024@02:11:23 Page 2
XMCU1 ;(WASH ISC)/CMW-Encode/Decode String APIs ;04/17/2002 08:30
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ; Entry points (DBIA 1136):
+3 ; $$ENCODEUP - Convert all "^" to "~U~"
+4 ; $$DECODEUP - Convert all "~U~" to "^"
+5 ; $$STRAN - Convert all control characters to printable ones
+6 ; $$RTRAN - Undo the conversion done by $$STRAN
+7 ;
RTRAN(XXX) ; Extrinsic Function to decode control characters
+1 ;Input=STRING
+2 ;Output=STRING
+3 NEW XMESC,X,Y,X1,I
+4 SET XMESC="~"
+5 if XXX'[XMESC
QUIT
+6 SET Y=""
SET X1=XXX
R1 SET I=$FIND(X1,XMESC)
IF I=0
SET X=Y_X1
GOTO SET
+1 SET Y=Y_$EXTRACT(X1,1,I-2)_$CHAR($ASCII($EXTRACT(X1,I))-64#128)
SET X1=$EXTRACT(X1,I+1,999)
GOTO R1
SET QUIT X
STRAN(XXX) ; Extrinsic Function to encode control characters
+1 ;Input=STRING
+2 ;Output=STRING
+3 NEW XMESC,Y,X1,I
+4 SET XMESC="~"
+5 SET Y=""
FOR I=1:1:$LENGTH(XXX)
SET X1=$EXTRACT(XXX,I)
SET Y=Y_$SELECT(X1=XMESC:XMESC_$CHAR(62),X1?1C:XMESC_$CHAR($ASCII(X1)+64#128),1:X1)
+6 QUIT Y
ENCODEUP(XXX) ; Extrinsic Function to encode "^" into "~U~"
+1 ; Input=STRING
+2 ; Output=STRING
+3 FOR
if XXX'[U
QUIT
SET XXX=$PIECE(XXX,U)_"~U~"_$PIECE(XXX,U,2,999)
+4 QUIT XXX
DECODEUP(XXX) ; Extrinsic Function to decode "~U~" to "^"
+1 ; Input=STRING
+2 ; Output=STRING
+3 FOR
if XXX'["~U~"
QUIT
SET XXX=$PIECE(XXX,"~U~")_"^"_$PIECE(XXX,"~U~",2,999)
+4 QUIT XXX
