summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-01-01 22:41:35 +0100
committerLudovic Courtès <ludo@gnu.org>2016-01-01 22:41:35 +0100
commitf8865db6a002c9b968d39d0d91524edf55e0d873 (patch)
tree9173211a06d52ea09ee7cec4612d9f5194db1a29 /gnu/system
parent29824d80ec3b86bcf68afc1a9d903e2a3c479533 (diff)
downloadpatches-f8865db6a002c9b968d39d0d91524edf55e0d873.tar
patches-f8865db6a002c9b968d39d0d91524edf55e0d873.tar.gz
file-systems: Move 'string->uuid' to the build side.
* gnu/system/file-systems.scm (%uuid-rx, string->uuid): Move to... * gnu/build/file-systems.scm (%uuid-rx, string->uuid): ... here. New variables.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/file-systems.scm45
1 files changed, 5 insertions, 40 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index 47a3dbc1e8..d93044ce04 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -18,13 +18,13 @@
(define-module (gnu system file-systems)
#:use-module (ice-9 match)
- #:use-module (ice-9 regex)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix store)
- #:use-module (rnrs bytevectors)
- #:use-module ((gnu build file-systems) #:select (uuid->string))
- #:re-export (uuid->string)
+ #:use-module ((gnu build file-systems)
+ #:select (string->uuid uuid->string))
+ #:re-export (string->uuid
+ uuid->string)
#:export (<file-system>
file-system
file-system?
@@ -41,7 +41,6 @@
file-system-dependencies
file-system->spec
- string->uuid
uuid
%fuse-control-file-system
@@ -118,40 +117,6 @@ initrd code."
(($ <file-system> device title mount-point type flags options _ _ check?)
(list device title mount-point type flags options check?))))
-(define %uuid-rx
- ;; The regexp of a UUID.
- (make-regexp "^([[:xdigit:]]{8})-([[:xdigit:]]{4})-([[:xdigit:]]{4})-([[:xdigit:]]{4})-([[:xdigit:]]{12})$"))
-
-(define (string->uuid str)
- "Parse STR as a DCE UUID (see <https://tools.ietf.org/html/rfc4122>) and
-return its contents as a 16-byte bytevector. Return #f if STR is not a valid
-UUID representation."
- (and=> (regexp-exec %uuid-rx str)
- (lambda (match)
- (letrec-syntax ((hex->number
- (syntax-rules ()
- ((_ index)
- (string->number (match:substring match index)
- 16))))
- (put!
- (syntax-rules ()
- ((_ bv index (number len) rest ...)
- (begin
- (bytevector-uint-set! bv index number
- (endianness big) len)
- (put! bv (+ index len) rest ...)))
- ((_ bv index)
- bv))))
- (let ((time-low (hex->number 1))
- (time-mid (hex->number 2))
- (time-hi (hex->number 3))
- (clock-seq (hex->number 4))
- (node (hex->number 5))
- (uuid (make-bytevector 16)))
- (put! uuid 0
- (time-low 4) (time-mid 2) (time-hi 2)
- (clock-seq 2) (node 6)))))))
-
(define-syntax uuid
(lambda (s)
"Return the bytevector corresponding to the given UUID representation."