bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

elf: Remove bundled Guile source.

Browse source 
This module has been included in Guile as (system vm elf) since around version
2.1.

* guix/elf.scm: Delete file.
* CODEOWNERS: De-register module.
* Makefile.am (MODULES): Likewise.
* etc/teams.scm (core): Likewise.
* gnu/build/linux-modules.scm: Adjust imports.
* gnu/packages/gnuzilla.scm (icecat-minimal) [modules]: Likewise.
* gnu/packages/librewolf.scm (librewolf): Likewise.
* gnu/packages/sequoia.scm (sequoia): Likewise.
* gnu/packages/tor-browsers.scm (make-torbrowser): Likewise.
* gnu/packages/version-control.scm (hg-commitsigs): Likewise.
* guix/build/debug-link.scm: Likewise.
* guix/build/gnu-build-system.scm: Likewise.
* guix/build/gremlin.scm: Likewise.
* guix/build/meson-build-system.scm: Likewise.
* guix/grafts.scm (graft-derivation/shallow): Likewise.
* guix/scripts/pack.scm (wrapped-package): Likewise.
* tests/debug-link.scm: ("elf-debuglink", "set-debuglink-crc"): Likewise.
* tests/gremlin.scm: Likewise.
* guix/build-system/gnu.scm (%default-gnu-imported-modules): Remove (guix elf).

Change-Id: I86ac4237fdd820a6b54dc0fe7a7d10403a290ef9
This commit is contained in:
Maxim Cournoyer 2025-10-28 21:50:34 +09:00
parent 2c1fe0df11
commit 11cf5b2fe4
No known key found for this signature in database
GPG key ID: 1260E46482E63562
19 changed files with 23 additions and 1076 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CODEOWNERS
View file

@ -45,7 +45,6 @@ guix/diagnostics\.scm @guix/core
guix/discovery\.scm @guix/core
guix/docker\.scm @guix/core
guix/download\.scm @guix/core
guix/elf\.scm @guix/core
guix/ftp-client\.scm @guix/core
guix/gexp\.scm @guix/core
guix/git-authenticate\.scm @guix/core

1
Makefile.am
View file

@ -201,7 +201,6 @@ MODULES = \
guix/ftp-client.scm \
guix/http-client.scm \
guix/gnupg.scm \
guix/elf.scm \
guix/profiling.scm \
guix/store.scm \
guix/cvs-download.scm \

1
etc/teams.scm
View file

@ -510,7 +510,6 @@ already exists. Lookup team IDs among CURRENT-TEAMS."
"guix/discovery.scm"
"guix/docker.scm"
"guix/download.scm"
"guix/elf.scm"
"guix/ftp-client.scm"
"guix/gexp.scm"
"guix/git-authenticate.scm"

2
gnu/build/linux-modules.scm
View file

@ -21,7 +21,6 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu build linux-modules)
#:use-module (guix elf)
#:use-module (guix glob)
#:use-module (guix build syscalls)
#:use-module ((guix build utils) #:select (find-files invoke))
@ -39,6 +38,7 @@
#:use-module (ice-9 match)
#:use-module (ice-9 rdelim)
#:autoload (ice-9 pretty-print) (pretty-print)
#:use-module (system vm elf)
#:export (dot-ko
ensure-dot-ko
module-formal-name

2
gnu/packages/gnuzilla.scm
View file

@ -927,7 +927,7 @@ preferences/advanced-scripts.dtd"
(srfi srfi-26)
(rnrs bytevectors)
(rnrs io ports)
(guix elf)
(system vm elf)
(guix build gremlin)
,@%default-gnu-modules)
#:phases

2
gnu/packages/librewolf.scm
View file

@ -282,7 +282,7 @@
(srfi srfi-26)
(rnrs bytevectors)
(rnrs io ports)
(guix elf)
(system vm elf)
(guix build gremlin)
,@%default-gnu-imported-modules)
#:phases

2
gnu/packages/sequoia.scm
View file

@ -318,7 +318,7 @@ This Guix package is built to use the nettle cryptographic library.")
(guix build union)
(guix build gnu-build-system)
(guix build gremlin)
(guix elf))
(system vm elf))
#:builder
#~(begin
(use-modules (guix build utils)

2
gnu/packages/tor-browsers.scm
View file

@ -362,7 +362,7 @@ Browser.")
(srfi srfi-26)
(rnrs bytevectors)
(rnrs io ports)
(guix elf)
(system vm elf)
(guix build gremlin)
,@%default-gnu-imported-modules)
#:phases

2
gnu/packages/version-control.scm
View file

@ -2948,7 +2948,7 @@ history. It implements the changeset evolution concept for Mercurial.")
(guix build utils)
(guix build gremlin)
(ice-9 ftw)
(guix elf))
(system vm elf))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths

3
guix/build-system/gnu.scm
View file

@ -55,8 +55,7 @@
;; Build-side modules imported and used by default.
'((guix build gnu-build-system)
(guix build utils)
(guix build gremlin)
(guix elf)))
(guix build gremlin)))
(define-deprecated/public-alias %gnu-build-system-modules
%default-gnu-imported-modules)

2
guix/build/debug-link.scm
View file

@ -18,7 +18,6 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix build debug-link)
#:use-module (guix elf)
#:use-module (guix build io)
#:use-module ((guix build utils)
#:select (find-files elf-file? make-file-writable))
@ -26,6 +25,7 @@
#:use-module (rnrs io ports)
#:use-module (srfi srfi-1)
#:use-module (system foreign)
#:use-module (system vm elf)
#:use-module (ice-9 match)
#:export (debuglink-crc32
elf-debuglink

2
guix/build/gnu-build-system.scm
View file

@ -22,7 +22,6 @@
(define-module (guix build gnu-build-system)
#:use-module (guix build utils)
#:use-module (guix build gremlin)
#:use-module (guix elf)
#:use-module (ice-9 ftw)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
@ -35,6 +34,7 @@
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (srfi srfi-26)
#:use-module (system vm elf)
#:use-module (rnrs io ports)
#:export (%standard-phases
%license-file-regexp

2
guix/build/gremlin.scm
View file

@ -18,7 +18,6 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix build gremlin)
#:use-module (guix elf)
#:use-module (guix build io)
#:use-module ((guix build utils) #:select (store-file-name?))
#:use-module (ice-9 match)
@ -28,6 +27,7 @@
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (system foreign)
#:use-module (system vm elf)
#:use-module (rnrs bytevectors)
#:use-module (rnrs io ports)
#:export (elf-error?

2
guix/build/meson-build-system.scm
View file

@ -24,10 +24,10 @@
#:use-module ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
#:use-module (guix build utils)
#:use-module (guix build gremlin)
#:use-module (guix elf)
#:use-module (ice-9 match)
#:use-module (rnrs io ports)
#:use-module (srfi srfi-1)
#:use-module (system vm elf)
#:export (%standard-phases
meson-build))

1046
guix/elf.scm
View file

File diff suppressed because it is too large Load diff

6
guix/grafts.scm
View file

@ -118,12 +118,12 @@ are not recursively applied to dependencies of DRV."
(define build
(with-imported-modules '((guix build graft)
(guix build utils)
(guix build debug-link)
(guix elf))
(guix build debug-link))
#~(begin
(use-modules (guix build graft)
(guix build utils)
(ice-9 match))
(ice-9 match)
(system vm elf))
(define %outputs
(ungexp (outputs->gexp outputs)))

7
guix/scripts/pack.scm
View file

@ -1224,20 +1224,19 @@ libfakechroot.so and related ld.so machinery as a fallback."
'((guix build io)
(guix build utils)
(guix build union)
(guix build gremlin)
(guix elf)))
(guix build gremlin)))
#~(begin
(use-modules (guix build io)
(guix build utils)
((guix build union) #:select (symlink-relative))
(guix elf)
(guix build gremlin)
(ice-9 binary-ports)
(ice-9 ftw)
(ice-9 match)
(ice-9 receive)
(srfi srfi-1)
(rnrs bytevectors))
(rnrs bytevectors)
(system vm elf))
(define input
;; The OUTPUT* output of PACKAGE.

12
tests/debug-link.scm
View file

@ -18,7 +18,6 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-debug-link)
#:use-module (guix elf)
#:use-module (guix build utils)
#:use-module (guix build debug-link)
#:use-module (guix build io)
@ -33,6 +32,7 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-64)
#:use-module (system vm elf)
#:use-module (rnrs io ports)
#:use-module (ice-9 match))
@ -69,13 +69,12 @@
(exp (with-imported-modules (source-module-closure
'((guix build io)
(guix build utils)
(guix build debug-link)
(guix elf)))
(guix build debug-link)))
#~(begin
(use-modules (guix build io)
(guix build utils)
(guix build debug-link)
(guix elf)
(system vm elf)
(rnrs io ports))
(define read-elf
@ -115,13 +114,12 @@
(exp (with-imported-modules (source-module-closure
'((guix build io)
(guix build utils)
(guix build debug-link)
(guix elf)))
(guix build debug-link)))
#~(begin
(use-modules (guix build io)
(guix build utils)
(guix build debug-link)
(guix elf)
(system vm elf)
(rnrs io ports))
(define read-elf

2
tests/gremlin.scm
View file

@ -19,7 +19,6 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (test-gremlin)
#:use-module (guix elf)
#:use-module (guix tests)
#:use-module ((guix utils) #:select (call-with-temporary-directory
target-aarch64?))
@ -31,6 +30,7 @@
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-64)
#:use-module (system vm elf)
#:use-module (rnrs io ports)
#:use-module (ice-9 popen)
#:use-module (ice-9 rdelim)