nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

utils: Add 'elf-file?'. 

* guix/build/utils.scm (elf-file?): New procedure.
This commit is contained in:
Ludovic Courtès 2014-11-22 12:44:56 +01:00
parent e6039b9c70
commit 99533da50d
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/build/utils.scm
View File

@ -36,6 +36,7 @@
directory-exists? directory-exists?
executable-file? executable-file?
call-with-ascii-input-file call-with-ascii-input-file
elf-file?
with-directory-excursion with-directory-excursion
mkdir-p mkdir-p
copy-recursively copy-recursively
@ -106,6 +107,17 @@ return values of applying PROC to the port."
(lambda () (lambda ()
(close-input-port port))))) (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 ...) (define-syntax-rule (with-directory-excursion dir body ...)
"Run BODY with DIR as the process's current directory." "Run BODY with DIR as the process's current directory."
(let ((init (getcwd))) (let ((init (getcwd)))
@ -783,6 +795,7 @@ the previous wrapper."
;;; Local Variables: ;;; Local Variables:
;;; eval: (put 'call-with-output-file/atomic 'scheme-indent-function 1) ;;; 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 'with-throw-handler 'scheme-indent-function 1)
;;; eval: (put 'let-matches 'scheme-indent-function 3) ;;; eval: (put 'let-matches 'scheme-indent-function 3)
;;; eval: (put 'with-atomic-file-replacement 'scheme-indent-function 1) ;;; eval: (put 'with-atomic-file-replacement 'scheme-indent-function 1)