From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id 3T5ADjrdrl6FLAAA0tVLHw (envelope-from ) for ; Sun, 03 May 2020 15:03:22 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id wKQkOkTdrl7HLAAAbx9fmQ (envelope-from ) for ; Sun, 03 May 2020 15:03:32 +0000 Received: from lists.gnu.org (lists.gnu.org [IPv6:2001:470:142::17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id E7070942009 for ; Sun, 3 May 2020 15:03:30 +0000 (UTC) Received: from localhost ([::1]:37958 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jVG9T-0006F7-6G for larch@yhetil.org; Sun, 03 May 2020 11:03:31 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46036) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jVG92-0005o5-07 for guix-patches@gnu.org; Sun, 03 May 2020 11:03:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:46103) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1jVG90-0000lJ-Pa for guix-patches@gnu.org; Sun, 03 May 2020 11:03:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jVG90-0005CQ-MJ for guix-patches@gnu.org; Sun, 03 May 2020 11:03:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#39258] [PATCH v4 1/3] DRAFT packages: Add fields to packages cache. Resent-From: zimoun Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 03 May 2020 15:03:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 39258 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: To: 39258@debbugs.gnu.org Cc: arunisaac@systemreboot.net, mail@ambrevar.xyz, ludo@gnu.org, zimoun Received: via spool by 39258-submit@debbugs.gnu.org id=B39258.158851814219877 (code B ref 39258); Sun, 03 May 2020 15:03:02 +0000 Received: (at 39258) by debbugs.gnu.org; 3 May 2020 15:02:22 +0000 Received: from localhost ([127.0.0.1]:57636 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jVG8L-0005AX-UI for submit@debbugs.gnu.org; Sun, 03 May 2020 11:02:22 -0400 Received: from mail-wm1-f51.google.com ([209.85.128.51]:32904) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jVG8K-0005A5-K1 for 39258@debbugs.gnu.org; Sun, 03 May 2020 11:02:20 -0400 Received: by mail-wm1-f51.google.com with SMTP id v8so13605639wma.0 for <39258@debbugs.gnu.org>; Sun, 03 May 2020 08:02:20 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=y04cqSlE39HhVd4m/qFcpwd9f0fVV7i91JQx8qrUMzw=; b=iY8ptmiXpAF652gZ6YEcpqqPhwG6//eBSIgM17SO0LVy6U4+0YCBEcQdJgyOYotVXl nKm/Eg1lpUGKNc0fsq+yW1RKdx3l5f9WGdU/GQ7X0tU0qXBwP+pxDDaeY1CfURc0ws/6 +Ied4NsLnPqGcitldVLl4FxgOS/nUkeGytw3YoDs1u+h7ffR+kPH48V8ntAOlXZouM24 Lh/EF0bC9GsGOE+f5SJL91DWlBqjZ/zA9YUv0kzyuqR1ffw+vTD6pwY7tp1kW7DL5xdi Y5qpfB6fgXGM5RyJbTPK3WLLP/J5l98U5L6x/hDa52l420ltWsZzFCgccoArXMrvnzGn 7ADg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=y04cqSlE39HhVd4m/qFcpwd9f0fVV7i91JQx8qrUMzw=; b=CFh9bbvHqcwlvgDhaf2+hemC2FMfPQebkmCD1rJ/O97XEmBiw0C284YxEaazFpKCLY vwqNvsZRxuL/jsCSpwy2ZeoVAxu0wlpb7vXPi3d8Skle1Au5W9wQCUSt5x3XNgBmGaox qM/l2KQF/V96Ky2XB4V59M4s9nMBTYou9z22g4ESMWDI68sKoIJwKeU3EollkIN5QTee 8cz8y70nrjGjoBKAucqTKV9Bcn531iMfXelDmEHFtbmklzPVJCsZyqOvYkgIs6FM3ZvT yTLjnA1XD3saFHXkVnj28anpu7bgOPvuDXwq5BhiSbc+CrH6JKd/E4fo9C5OjHmrXfGd wRPg== X-Gm-Message-State: AGi0Pubt5C+XHK11zW7PLhdWHLBjo5tgHCyDPNkokYkVBUHttr9lRcvx BEbekYrIXaT6hwlbfKu9hMjMKxSk X-Google-Smtp-Source: APiQypI7s7YEhwiDdvCYaY67HeKN5HTLiuK/MeDcBvi7CARVNcjedPgpTuG6SxDuQZEDVY7ATFcFGw== X-Received: by 2002:a1c:24d4:: with SMTP id k203mr9857854wmk.49.1588518134442; Sun, 03 May 2020 08:02:14 -0700 (PDT) Received: from localhost.localdomain (57.246.195.77.rev.sfr.net. [77.195.246.57]) by smtp.gmail.com with ESMTPSA id x13sm9787829wmc.5.2020.05.03.08.02.13 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 03 May 2020 08:02:14 -0700 (PDT) From: zimoun Date: Sun, 3 May 2020 17:01:52 +0200 Message-Id: <20200503150154.26532-2-zimon.toutoune@gmail.com> X-Mailer: git-send-email 2.26.1 In-Reply-To: <20200503150154.26532-1-zimon.toutoune@gmail.com> References: <20200503150154.26532-1-zimon.toutoune@gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -1.0 (-) X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Scanner: scn0 X-Spam-Score: 5.59 Authentication-Results: aspmx1.migadu.com; dkim=fail (rsa verify failed) header.d=gmail.com header.s=20161025 header.b=iY8ptmiX; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 2001:470:142::17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Scan-Result: default: False [5.59 / 13.00]; RCVD_VIA_SMTP_AUTH(0.00)[]; GENERIC_REPUTATION(0.00)[-0.49374333924558]; FORGED_SENDER_MAILLIST(0.00)[]; TO_DN_SOME(0.00)[]; R_SPF_ALLOW(-0.20)[+ip6:2001:470:142::/48:c]; FREEMAIL_FROM(0.00)[gmail.com]; DWL_DNSWL_FAIL(0.00)[2001:470:142::17:server fail]; R_MISSING_CHARSET(2.50)[]; BROKEN_CONTENT_TYPE(1.50)[]; RCPT_COUNT_FIVE(0.00)[5]; R_DKIM_REJECT(1.00)[gmail.com:s=20161025]; DKIM_TRACE(0.00)[gmail.com:-]; MX_GOOD(-0.50)[cached: eggs.gnu.org]; MAILLIST(-0.20)[mailman]; FORGED_RECIPIENTS_MAILLIST(0.00)[]; RCVD_IN_DNSWL_FAIL(0.00)[2001:470:142::17:server fail]; MIME_TRACE(0.00)[0:+]; RCVD_TLS_LAST(0.00)[]; ASN(0.00)[asn:22989, ipnet:2001:470:142::/48, country:US]; TAGGED_FROM(0.00)[larch=yhetil.org]; FROM_NEQ_ENVFROM(0.00)[zimontoutoune@gmail.com,guix-patches-bounces@gnu.org]; ARC_NA(0.00)[]; IP_REPUTATION_HAM(0.00)[asn: 22989(0.14), country: US(-0.00), ip: 2001:470:142::17(-0.49)]; MID_RHS_MATCH_FROM(0.00)[]; FROM_HAS_DN(0.00)[]; TAGGED_RCPT(0.00)[]; MIME_GOOD(-0.10)[text/plain]; PREVIOUSLY_DELIVERED(0.00)[39258@debbugs.gnu.org]; HAS_LIST_UNSUB(-0.01)[]; FREEMAIL_CC(0.00)[systemreboot.net,ambrevar.xyz,gnu.org,gmail.com]; RCVD_COUNT_SEVEN(0.00)[9]; SUSPICIOUS_RECIPS(1.50)[]; DMARC_POLICY_SOFTFAIL(0.10)[gmail.com : SPF not aligned (relaxed),none] X-TUID: s3nrV5llH9q8 --- gnu/packages.scm | 51 +++++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 46 insertions(+), 5 deletions(-) diff --git a/gnu/packages.scm b/gnu/packages.scm index d22c992bb1..fa18f81487 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -33,6 +33,8 @@ #:use-module (guix profiles) #:use-module (guix describe) #:use-module (guix deprecation) + #:use-module (guix build-system) + #:use-module (guix licenses) #:use-module (ice-9 vlist) #:use-module (ice-9 match) #:use-module (ice-9 binary-ports) @@ -212,7 +214,8 @@ package module." (match vector (#(name version module symbol outputs supported? deprecated? - file line column) + file line column + _ _ _ _ _ _ _ _ _ _) (proc name version result #:outputs outputs #:location (and file @@ -269,7 +272,11 @@ package names. Return #f on failure." (match item (#(name version module symbol outputs supported? deprecated? - file line column) + file line column + synopsis description home-page + build-system-name build-system-description + supported-systems direct-inputs + license-name license-uri license-comment) (vhash-cons name item vhash)))) vlist-null lst)) @@ -316,7 +323,8 @@ decreasing version order." (if (and (cache-is-authoritative?) cache) (match (cache-lookup cache name) (#f #f) - ((#(_ versions modules symbols _ _ _ _ _ _) ...) + ((#(_ versions modules symbols _ _ _ _ _ _ + _ _ _ _ _ _ _ _ _ _) ...) (fold (lambda (version* module symbol result) (if (or (not version) (version-prefix? version version*)) @@ -339,7 +347,8 @@ matching NAME and VERSION." (#f '()) ((#(name versions modules symbols outputs supported? deprecated? - files lines columns) ...) + files lines columns + _ _ _ _ _ _ _ _ _ _) ...) (fold (lambda (version* file line column result) (if (and file (or (not version) @@ -401,7 +410,39 @@ reducing the memory footprint." `(,(location-file loc) ,(location-line loc) ,(location-column loc)) - '(#f #f #f)))) + '(#f #f #f))) + + ,(package-synopsis package) + ,(package-description package) + ,(package-home-page package) + + ,@(let ((build-system + (package-build-system package))) + `(,(symbol->string + (build-system-name build-system)) + ,(build-system-description build-system))) + + ,(package-transitive-supported-systems package) + + ,(delete-duplicates + (sort (map package-full-name + (match (package-direct-inputs package) + (((labels inputs . _) ...) + (filter package? inputs)))) + stringuris? + ;; see gpl1+ comment #f + ,(license-comment (car licenses)))) + ((? license? license) + `(,(license-name license) + ,(license-uri license) + ,(license-comment license))) + (_ '(#f #f #f)))) result) (vhash-consq package #t seen)))))) (_ -- 2.26.1