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

utils: Add 'symbolic-link?'. 

* guix/build/utils.scm (symbolic-link?): New procedure.
This commit is contained in:
Ludovic Courtès 2014-12-01 15:46:10 +01:00
parent d68fe74162
commit 9741aca9a5
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/build/utils.scm
View File

@ -35,6 +35,7 @@
directory-exists? directory-exists?
executable-file? executable-file?
symbolic-link?
call-with-ascii-input-file call-with-ascii-input-file
elf-file? elf-file?
ar-file? ar-file?
@ -93,6 +94,10 @@
(and s (and s
(not (zero? (logand (stat:mode s) #o100)))))) (not (zero? (logand (stat:mode s) #o100))))))
(define (symbolic-link? file)
"Return #t if FILE is a symbolic link (aka. \"symlink\".)"
(eq? (stat:type (lstat file)) 'symlink))
(define (call-with-ascii-input-file file proc) (define (call-with-ascii-input-file file proc)
"Open FILE as an ASCII or binary file, and pass the resulting port to "Open FILE as an ASCII or binary file, and pass the resulting port to
PROC. FILE is closed when PROC's dynamic extent is left. Return the PROC. FILE is closed when PROC's dynamic extent is left. Return the