From 99533da50db89318c7ab7ae3e7a28c261fb88e84 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 22 Nov 2014 12:44:56 +0100
Subject: utils: Add 'elf-file?'.

* guix/build/utils.scm (elf-file?): New procedure.
---
 guix/build/utils.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'guix/build/utils.scm')

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index bfbc4dd43e..fcf6dfc12c 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -36,6 +36,7 @@
             directory-exists?
             executable-file?
             call-with-ascii-input-file
+            elf-file?
             with-directory-excursion
             mkdir-p
             copy-recursively
@@ -106,6 +107,17 @@ return values of applying PROC to the port."
       (lambda ()
         (close-input-port port)))))
 
+(define (elf-file? file)
+  "Return true if FILE starts with the ELF magic bytes."
+  (define (get-header)
+    (call-with-input-file file
+      (lambda (port)
+        (get-bytevector-n port 4))
+      #:binary #t #:guess-encoding #f))
+
+  (equal? (get-header)
+          #vu8(#x7f #x45 #x4c #x46)))             ;"\177ELF"
+
 (define-syntax-rule (with-directory-excursion dir body ...)
   "Run BODY with DIR as the process's current directory."
   (let ((init (getcwd)))
@@ -783,6 +795,7 @@ the previous wrapper."
 
 ;;; Local Variables:
 ;;; eval: (put 'call-with-output-file/atomic 'scheme-indent-function 1)
+;;; eval: (put 'call-with-ascii-input-file 'scheme-indent-function 1)
 ;;; eval: (put 'with-throw-handler 'scheme-indent-function 1)
 ;;; eval: (put 'let-matches 'scheme-indent-function 3)
 ;;; eval: (put 'with-atomic-file-replacement 'scheme-indent-function 1)
-- 
cgit v1.2.3