From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:35927) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hSoBd-0001wk-KK for guix-patches@gnu.org; Mon, 20 May 2019 15:43:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hSoBb-0003eV-3D for guix-patches@gnu.org; Mon, 20 May 2019 15:43:05 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:52676) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hSoBa-0003e3-KG for guix-patches@gnu.org; Mon, 20 May 2019 15:43:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hSoBa-0007rA-38 for guix-patches@gnu.org; Mon, 20 May 2019 15:43:02 -0400 Subject: [bug#35813] [PATCH] import: crate: add recursive option Resent-Message-ID: Received: from eggs.gnu.org ([209.51.188.92]:46397) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hSmwN-0000qS-3s for guix-patches@gnu.org; Mon, 20 May 2019 14:23:16 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hSmwL-0000mM-7A for guix-patches@gnu.org; Mon, 20 May 2019 14:23:14 -0400 Received: from mail-wr1-x431.google.com ([2a00:1450:4864:20::431]:34158) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hSmwK-0000lP-VV for guix-patches@gnu.org; Mon, 20 May 2019 14:23:13 -0400 Received: by mail-wr1-x431.google.com with SMTP id f8so9301865wrt.1 for ; Mon, 20 May 2019 11:23:11 -0700 (PDT) From: Karl Meakin Date: Mon, 20 May 2019 19:23:06 +0100 Message-Id: <20190520182306.11899-1-Karlwfmeakin@gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 35813@debbugs.gnu.org Cc: Karl Meakin * guix/script/import/crate.scm: Add recursive option. * guix/import/crate.scm (crate-recursive-import): New variable. --- doc/guix.texi | 8 ++++++++ guix/import/crate.scm | 24 ++++++++++++++++-------- guix/scripts/import/crate.scm | 27 ++++++++++++++++++++++----- 3 files changed, 46 insertions(+), 13 deletions(-) diff --git a/doc/guix.texi b/doc/guix.texi index ae9ad0739e..636bb7521d 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -8787,6 +8787,14 @@ in Guix. Import metadata from the crates.io Rust package repository @uref{https://crates.io, crates.io}. +@table @code +@item --recursive +@itemx -r +Traverse the dependency graph of the given upstream package recursively +and generate package expressions for all those packages that are not yet +in Guix. +@end table + @item opam @cindex OPAM @cindex OCaml diff --git a/guix/import/crate.scm b/guix/import/crate.scm index e0b400d054..d8554b0e7a 100644 --- a/guix/import/crate.scm +++ b/guix/import/crate.scm @@ -37,6 +37,7 @@ #:use-module (srfi srfi-26) #:export (crate->guix-package guix-package->crate-name + crate-recursive-import %crate-updater)) (define (crate-fetch crate-name callback) @@ -86,8 +87,8 @@ VERSION, INPUTS, NATIVE-INPUTS, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE." (let* ((port (http-fetch (crate-uri name version))) (guix-name (crate-name->package-name name)) - (inputs (map crate-name->package-name inputs)) - (native-inputs (map crate-name->package-name native-inputs)) + (input-packages (map crate-name->package-name inputs)) + (native-input-packages (map crate-name->package-name native-inputs)) (pkg `(package (name ,guix-name) (version ,version) @@ -99,8 +100,8 @@ VERSION, INPUTS, NATIVE-INPUTS, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE." (base32 ,(bytevector->nix-base32-string (port-sha256 port)))))) (build-system cargo-build-system) - ,@(maybe-native-inputs native-inputs "src") - ,@(maybe-inputs inputs "src") + ,@(maybe-native-inputs native-input-packages "src") + ,@(maybe-inputs input-packages "src") (home-page ,(match home-page (() "") (_ home-page))) @@ -111,12 +112,14 @@ VERSION, INPUTS, NATIVE-INPUTS, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE." ((license) license) (_ `(list ,@license))))))) (close-port port) - pkg)) + (values pkg inputs))) -(define (crate->guix-package crate-name) - "Fetch the metadata for CRATE-NAME from crates.io, and return the +(define crate->guix-package + (memoize + (lambda* (crate-name _) + "Fetch the metadata for CRATE-NAME from crates.io, and return the `package' s-expression corresponding to that package, or #f on failure." - (crate-fetch crate-name make-crate-sexp)) + (crate-fetch crate-name make-crate-sexp)))) (define (guix-package->crate-name package) "Return the crate name of PACKAGE." @@ -158,6 +161,11 @@ VERSION, INPUTS, NATIVE-INPUTS, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE." (version version) (urls (list url))))) +(define* (crate-recursive-import package-name) + (recursive-import package-name #f + #:repo->guix-package crate->guix-package + #:guix-name crate-name->package-name)) + (define %crate-updater (upstream-updater (name 'crates) diff --git a/guix/scripts/import/crate.scm b/guix/scripts/import/crate.scm index cab9a4397b..8fadcdd57c 100644 --- a/guix/scripts/import/crate.scm +++ b/guix/scripts/import/crate.scm @@ -27,6 +27,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-37) + #:use-module (srfi srfi-41) #:use-module (ice-9 match) #:use-module (ice-9 format) #:export (guix-import-crate)) @@ -45,6 +46,8 @@ Import and convert the crate.io package for PACKAGE-NAME.\n")) (display (G_ " -h, --help display this help and exit")) (display (G_ " + -r, --recursive import packages recursively")) + (display (G_ " -V, --version display version information and exit")) (newline) (show-bug-report-information)) @@ -58,6 +61,9 @@ Import and convert the crate.io package for PACKAGE-NAME.\n")) (option '(#\V "version") #f #f (lambda args (show-version-and-exit "guix import crate"))) + (option '(#\r "recursive") #f #f + (lambda (opt name arg result) + (alist-cons 'recursive #t result))) %standard-import-options)) @@ -83,11 +89,22 @@ Import and convert the crate.io package for PACKAGE-NAME.\n")) (reverse opts)))) (match args ((package-name) - (let ((sexp (crate->guix-package package-name))) - (unless sexp - (leave (G_ "failed to download meta-data for package '~a'~%") - package-name)) - sexp)) + (if (assoc-ref opts 'recursive) + ;; Recursive import + (map (match-lambda + ((and ('package ('name name) . rest) pkg) + `(define-public ,(string->symbol name) + ,pkg)) + (_ #f)) + (reverse + (stream->list + (crate-recursive-import package-name)))) + ;; Single import + (let ((sexp (crate->guix-package package-name #f))) + (unless sexp + (leave (G_ "failed to download meta-data for package '~a'~%") + package-name)) + sexp))) (() (leave (G_ "too few arguments~%"))) ((many ...) -- 2.21.0