mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
packages: <origin> no longer has an 'imported-modules' field.
* guix/packages.scm (<origin>)[imported-modules]: Remove. (patch-and-repack): Remove #:imported-modules. Use 'with-imported-modules'. Remove #:modules argument to 'gexp->derivation'. (origin->derivation): Adjust accordingly. * doc/guix.texi (origin Reference): Adjust accordingly.
This commit is contained in:
parent
c1629416d8
commit
1929fdba80
2 changed files with 93 additions and 101 deletions
|
@ -2697,8 +2697,9 @@ file name explicitly because the default is not very descriptive.
|
|||
A list of file names containing patches to be applied to the source.
|
||||
|
||||
@item @code{snippet} (default: @code{#f})
|
||||
A quoted piece of code that will be run in the source directory to make
|
||||
any modifications, which is sometimes more convenient than a patch.
|
||||
A G-expression (@pxref{G-Expressions}) or S-expression that will be run
|
||||
in the source directory. This is a convenient way to modify the source,
|
||||
sometimes more convenient than a patch.
|
||||
|
||||
@item @code{patch-flags} (default: @code{'("-p1")})
|
||||
A list of command-line flags that should be passed to the @code{patch}
|
||||
|
@ -2713,10 +2714,6 @@ such as GNU@tie{}Patch.
|
|||
A list of Guile modules that should be loaded during the patching
|
||||
process and while running the code in the @code{snippet} field.
|
||||
|
||||
@item @code{imported-modules} (default: @code{'()})
|
||||
The list of Guile modules to import in the patch derivation, for use by
|
||||
the @code{snippet}.
|
||||
|
||||
@item @code{patch-guile} (default: @code{#f})
|
||||
The Guile package that should be used in the patching process. When
|
||||
this is @code{#f}, a sensible default is used.
|
||||
|
|
|
@ -56,7 +56,6 @@ (define-module (guix packages)
|
|||
origin-patch-guile
|
||||
origin-snippet
|
||||
origin-modules
|
||||
origin-imported-modules
|
||||
base32
|
||||
|
||||
package
|
||||
|
@ -164,8 +163,7 @@ (define-record-type* <origin>
|
|||
(default #f))
|
||||
(modules origin-modules ; list of module names
|
||||
(default '()))
|
||||
(imported-modules origin-imported-modules ; list of module names
|
||||
(default '()))
|
||||
|
||||
(patch-guile origin-patch-guile ; package or #f
|
||||
(default #f)))
|
||||
|
||||
|
@ -381,14 +379,13 @@ (define* (patch-and-repack source patches
|
|||
(snippet #f)
|
||||
(flags '("-p1"))
|
||||
(modules '())
|
||||
(imported-modules '())
|
||||
(guile-for-build (%guile-for-build))
|
||||
(system (%current-system)))
|
||||
"Unpack SOURCE (a derivation or store path), apply all of PATCHES, and
|
||||
repack the tarball using the tools listed in INPUTS. When SNIPPET is true,
|
||||
it must be an s-expression that will run from within the directory where
|
||||
SOURCE was unpacked, after all of PATCHES have been applied. MODULES and
|
||||
IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
|
||||
SOURCE was unpacked, after all of PATCHES have been applied. MODULES
|
||||
specifies modules in scope when evaluating SNIPPET."
|
||||
(define source-file-name
|
||||
;; SOURCE is usually a derivation, but it could be a store file.
|
||||
(if (derivation? source)
|
||||
|
@ -449,6 +446,7 @@ (define instantiate-patch
|
|||
(patches (sequence %store-monad
|
||||
(map instantiate-patch patches))))
|
||||
(define build
|
||||
(with-imported-modules '((guix build utils))
|
||||
#~(begin
|
||||
(use-modules (ice-9 ftw)
|
||||
(srfi srfi-1)
|
||||
|
@ -512,9 +510,9 @@ (define (first-file directory)
|
|||
(and (every apply-patch '#+patches)
|
||||
#+@(if snippet
|
||||
#~((let ((module (make-fresh-user-module)))
|
||||
(module-use-interfaces! module
|
||||
(map resolve-interface
|
||||
'#+modules))
|
||||
(module-use-interfaces!
|
||||
module
|
||||
(map resolve-interface '#+modules))
|
||||
((@ (system base compile) compile)
|
||||
'#+snippet
|
||||
#:to 'value
|
||||
|
@ -527,11 +525,13 @@ (define (first-file directory)
|
|||
(unless tar-supports-sort?
|
||||
(call-with-output-file ".file_list"
|
||||
(lambda (port)
|
||||
(for-each (lambda (name) (format port "~a~%" name))
|
||||
(for-each (lambda (name)
|
||||
(format port "~a~%" name))
|
||||
(find-files directory
|
||||
#:directories? #t
|
||||
#:fail-on-error? #t)))))
|
||||
(zero? (apply system* (string-append #+tar "/bin/tar")
|
||||
(zero? (apply system*
|
||||
(string-append #+tar "/bin/tar")
|
||||
"cvfa" #$output
|
||||
;; avoid non-determinism in the archive
|
||||
"--mtime=@0"
|
||||
|
@ -541,15 +541,12 @@ (define (first-file directory)
|
|||
`("--sort=name"
|
||||
,directory)
|
||||
'("--no-recursion"
|
||||
"--files-from=.file_list")))))))))
|
||||
"--files-from=.file_list"))))))))))
|
||||
|
||||
(let ((name (tarxz-name original-file-name))
|
||||
(modules (delete-duplicates (cons '(guix build utils)
|
||||
imported-modules))))
|
||||
(let ((name (tarxz-name original-file-name)))
|
||||
(gexp->derivation name build
|
||||
#:graft? #f
|
||||
#:system system
|
||||
#:modules modules
|
||||
#:guile-for-build guile-for-build))))
|
||||
|
||||
(define (transitive-inputs inputs)
|
||||
|
@ -1138,8 +1135,7 @@ (define* (origin->derivation origin
|
|||
;; No patches, no snippet: this is a fixed-output derivation.
|
||||
(method uri 'sha256 sha256 name #:system system))
|
||||
(($ <origin> uri method sha256 name (= force (patches ...)) snippet
|
||||
(flags ...) inputs (modules ...) (imported-modules ...)
|
||||
guile-for-build)
|
||||
(flags ...) inputs (modules ...) guile-for-build)
|
||||
;; Patches and/or a snippet.
|
||||
(mlet %store-monad ((source (method uri 'sha256 sha256 name
|
||||
#:system system))
|
||||
|
@ -1153,7 +1149,6 @@ (define* (origin->derivation origin
|
|||
#:flags flags
|
||||
#:system system
|
||||
#:modules modules
|
||||
#:imported-modules imported-modules
|
||||
#:guile-for-build guile)))))
|
||||
|
||||
(define-gexp-compiler (origin-compiler (origin origin?) system target)
|
||||
|
|
Loading…
Reference in a new issue