diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-09-08 22:44:26 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2015-10-10 22:46:14 +0200 |
commit | 15a01c72209b2d43239fe7516a22e531b7fcb85f (patch) | |
tree | efa0f72643c6b53a75966957eef524eeae712072 | |
parent | 919370291f4f9cc93878eea7db11013949ee8473 (diff) | |
download | guix-15a01c72209b2d43239fe7516a22e531b7fcb85f.tar guix-15a01c72209b2d43239fe7516a22e531b7fcb85f.tar.gz |
gexp: Add 'program-file'.
* guix/gexp.scm (<program-file>): New record type.
(program-file, program-file-compiler): New procedures.
* tests/gexp.scm ("program-file"): New test.
* doc/guix.texi (G-Expressions): Document it.
-rw-r--r-- | doc/guix.texi | 17 | ||||
-rw-r--r-- | guix/gexp.scm | 33 | ||||
-rw-r--r-- | tests/gexp.scm | 17 |
3 files changed, 63 insertions, 4 deletions
diff --git a/doc/guix.texi b/doc/guix.texi index 9c63230a4f..e0a6f2bddf 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -3345,10 +3345,10 @@ The other arguments are as for @code{derivation} (@pxref{Derivations}). @end deffn @cindex file-like objects -The @code{local-file}, @code{plain-file}, and @code{computed-file} -procedures below return @dfn{file-like objects}. That is, when unquoted -in a G-expression, these objects lead to a file in the store. Consider -this G-expression: +The @code{local-file}, @code{plain-file}, @code{computed-file}, and +@code{program-file} procedures below return @dfn{file-like objects}. +That is, when unquoted in a G-expression, these objects lead to a file +in the store. Consider this G-expression: @example #~(system* (string-append #$glibc "/sbin/nscd") "-f" @@ -3421,6 +3421,15 @@ executable file @file{/gnu/store/@dots{}-list-files} along these lines: @end example @end deffn +@deffn {Scheme Procedure} program-file @var{name} @var{exp} @ + [#:modules '()] [#:guile #f] +Return an object representing the executable store item @var{name} that +runs @var{gexp}. @var{guile} is the Guile package used to execute that +script, and @var{modules} is the list of modules visible to that script. + +This is the declarative counterpart of @code{gexp->script}. +@end deffn + @deffn {Monadic Procedure} gexp->file @var{name} @var{exp} Return a derivation that builds a file @var{name} containing @var{exp}. diff --git a/guix/gexp.scm b/guix/gexp.scm index ebb147d7db..10acf2ba1b 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -50,6 +50,13 @@ computed-file-modules computed-file-options + program-file + program-file? + program-file-name + program-file-gexp + program-file-modules + program-file-guile + gexp->derivation gexp->file gexp->script @@ -247,6 +254,32 @@ This is the declarative counterpart of 'gexp->derivation'." (($ <computed-file> name gexp modules options) (apply gexp->derivation name gexp #:modules modules options)))) +(define-record-type <program-file> + (%program-file name gexp modules guile) + program-file? + (name program-file-name) ;string + (gexp program-file-gexp) ;gexp + (modules program-file-modules) ;list of module names + (guile program-file-guile)) ;package + +(define* (program-file name gexp + #:key (modules '()) (guile #f)) + "Return an object representing the executable store item NAME that runs +GEXP. GUILE is the Guile package used to execute that script, and MODULES is +the list of modules visible to that script. + +This is the declarative counterpart of 'gexp->script'." + (%program-file name gexp modules guile)) + +(define-gexp-compiler (program-file-compiler (file program-file?) + system target) + ;; Compile FILE by returning a derivation that builds the script. + (match file + (($ <program-file> name gexp modules guile) + (gexp->script name gexp + #:modules modules + #:guile (or guile (default-guile)))))) + ;;; ;;; Inputs & outputs. diff --git a/tests/gexp.scm b/tests/gexp.scm index ccbbbae7da..0a8ce6544f 100644 --- a/tests/gexp.scm +++ b/tests/gexp.scm @@ -619,6 +619,23 @@ (return (and (zero? (close-pipe pipe)) (= (expt n 2) (string->number str))))))) +(test-assertm "program-file" + (let* ((n (random (expt 2 50))) + (exp (gexp (begin + (use-modules (guix build utils)) + (display (ungexp n))))) + (file (program-file "program" exp + #:modules '((guix build utils)) + #:guile %bootstrap-guile))) + (mlet* %store-monad ((drv (lower-object file)) + (out -> (derivation->output-path drv))) + (mbegin %store-monad + (built-derivations (list drv)) + (let* ((pipe (open-input-pipe out)) + (str (get-string-all pipe))) + (return (and (zero? (close-pipe pipe)) + (= n (string->number str))))))))) + (test-assert "text-file*" (let ((references (store-lift references))) (run-with-store %store |