amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: import: Support expressions defined by 'define.

Browse source 
* guix/utils.scm (find-definition-location): New procedure.
(find-definition-insertion-location): Define with it.
* guix/scripts/import.scm (import-as-definitions, guix-import): Support
expressions defined by 'define.

Change-Id: I03118e1a3372028b4f0530964aba871b4a1a4d25
This commit is contained in:
Hilton Chain 2025-02-27 15:23:50 +08:00
parent 115accdb26
commit 6094090db2
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
2 changed files with 36 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix/scripts/import.scm
View file

@ -30,6 +30,7 @@
#:use-module (guix read-print)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (ice-9 format)
#:use-module (ice-9 match)
#:export (%standard-import-options
@ -84,7 +85,8 @@ PROC callback."
((and expr (or ('package _ ...)
('let _ ...)))
(proc (package->definition expr)))
((and expr ('define-public _ ...))
((and expr (or ('define-public _ ...)
('define _ ...)))
(proc expr))
((expressions ...)
(for-each (lambda (expr)
@ -92,7 +94,8 @@ PROC callback."
((and expr (or ('package _ ...)
('let _ ...)))
(proc (package->definition expr)))
((and expr ('define-public _ ...))
((and expr (or ('define-public _ ...)
('define _ ...)))
(proc expr))))
expressions))
(x
@ -129,13 +132,19 @@ PROC callback."
(show-version-and-exit "guix import"))
((or ("-i" file importer args ...)
("--insert" file importer args ...))
(let ((find-and-insert
(let* ((define-prefixes
`(,@(if (member importer '("crate"))
'(define)
'())
define-public))
(define-prefix? (cut member <> define-prefixes))
(find-and-insert
(lambda (expr)
(match expr
(('define-public term _ ...)
(((? define-prefix? define-prefix) term _ ...)
(let ((source-properties
(find-definition-insertion-location
file term)))
(find-definition-insertion-location
file term #:define-prefix define-prefix)))
(if source-properties
(insert-expression source-properties expr)
(let ((port (open-file file "a")))