X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=lsp-misc%2Fmisc.lsp;h=9e77db93efe06db5c81e050265abcc7f3dd561b7;hb=de600b7667b5df4b1fb48c0c496f8e2fc86c08c7;hp=5b7248401680c2fd977e411e219463dd445c2c0a;hpb=1dd263248af0120fa0ab167f69f13f44adb18391;p=rrq%2Flsp-utils.git

diff --git a/lsp-misc/misc.lsp b/lsp-misc/misc.lsp
index 5b72484..9e77db9 100644
--- a/lsp-misc/misc.lsp
+++ b/lsp-misc/misc.lsp
@@ -6,17 +6,24 @@
   (and N (exit N)))
 (global 'die)
 
+(define (char2hex STR)
+  (join (map (curry format "%2x") (map char (explode STR)))))
+(global 'char2hex)
+
 ;; Print binary byte as octal or as ASCII character [32-126]
 (define (octal-byte x)
   (if (and (> x 31) (< x 127)) (char x) (format "\\%o" x)))
+(global 'octal-byte)
 
 ;; Print string as binary octals
 (define (octals-string S)
   (join (map octal-byte (unpack (dup "b" (length S)) S))))
+(global 'octals-string)
 
 ;; Return byte code as printable or as code.
 (define (human-byte B)
   (if (and (> B 32) (< B 127)) (char B) B))
+(global 'human-byte)
 
 ;; Return a packed encoding of a list of bytes, joining string elements
 (define (human-bytes BL)
@@ -28,5 +35,6 @@
              (setf X nil))))
     (when (string? X) (push X OUT -1))
     OUT))
-      
-(global 'octals-string 'octal-byte 'human-byte 'human-bytes)
+(global 'human-bytes)
+
+"misc.lsp"