1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright 2006 Fidelity Information Services, Inc ;
; ;
; This source code contains the intellectual property ;
; of its copyright holder(s), and is made available ;
; under a license. If you do not know the terms of ;
; the license, please stop and do not read further. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
%UTF2HEX;GT.M %UTF2HEX utility - UTF-8 string to hexadecimal byte notation
;invoke with %S storing the UTF-8 string to return %U having the hexadecimal byte notation
;invoke at INT to execute interactively
;invoke at FUNC as an extrinsic function
;
set %U=$$FUNC(%S)
quit
INT new %S
read !,"String: ",%S set %U=$$FUNC(%S)
quit
FUNC(s)
new l
set l=$ZLENGTH(s)
quit $$recurse(1,l)
recurse(start,end);
new l,m
set l=end-start+1
if (l<1024) quit $$eval(start,end)
set m=l\2
quit $$recurse(start,start+m-1)_$$recurse(start+m,end)
eval(start,end);
new u,a,i
set u=""
for i=start:1:end set a=$ZASCII(s,i),u=u_$$FUNC^%DH(a,2)
quit u
|
