summaryrefslogtreecommitdiff
path: root/guix/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-06-01 23:29:55 +0200
committerLudovic Courtès <ludo@gnu.org>2012-06-03 23:27:18 +0200
commit38b3122afb5093f3094eceb4648f6ff65bd684b2 (patch)
tree48218f23cc56f447325f8ef1fcc6afec9e29f803 /guix/utils.scm
parentf9c7080aa3acafc6fb15fa1b304670acfe114704 (diff)
downloadgnu-guix-38b3122afb5093f3094eceb4648f6ff65bd684b2.tar
gnu-guix-38b3122afb5093f3094eceb4648f6ff65bd684b2.tar.gz
Add `bytevector->base16-string'.
* guix/utils.scm (bytevector->base16-string): New procedure.
Diffstat (limited to 'guix/utils.scm')
-rw-r--r--guix/utils.scm38
1 files changed, 38 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index ad7fe8583f..a5f64f97a9 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -17,16 +17,25 @@
;;; along with Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix utils)
+ #:use-module (srfi srfi-1)
+ #:use-module (srfi srfi-26)
#:use-module (srfi srfi-60)
#:use-module (rnrs bytevectors)
+ #:use-module (ice-9 format)
#:use-module ((chop hash)
#:select (bytevector-hash
hash-method/sha256))
#:export (bytevector-quintet-length
bytevector->base32-string
bytevector->nix-base32-string
+ bytevector->base16-string
sha256))
+
+;;;
+;;; Base 32.
+;;;
+
(define bytevector-quintet-ref
(let* ((ref bytevector-u8-ref)
(ref+ (lambda (bv offset)
@@ -151,6 +160,35 @@ the previous application or INIT."
(define bytevector->nix-base32-string
(make-bytevector->base32-string bytevector-quintet-fold-right
%nix-base32-chars))
+
+
+;;;
+;;; Base 16.
+;;;
+
+(define (bytevector->base16-string bv)
+ "Return the hexadecimal representation of BV's contents."
+ (define len
+ (bytevector-length bv))
+
+ (let-syntax ((base16-chars (lambda (s)
+ (syntax-case s ()
+ (_
+ (let ((v (list->vector
+ (unfold (cut > <> 255)
+ (lambda (n)
+ (format #f "~2,'0x" n))
+ 1+
+ 0))))
+ v))))))
+ (define chars base16-chars)
+ (let loop ((i 0)
+ (r '()))
+ (if (= i len)
+ (string-concatenate-reverse r)
+ (loop (+ 1 i)
+ (cons (vector-ref chars (bytevector-u8-ref bv i)) r))))))
+
;;;
;;; Hash.