From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <guix-patches-bounces+larch=yhetil.org@gnu.org>
Received: from mp0.migadu.com ([2001:41d0:403:4876::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by ms13.migadu.com with LMTPS
	id BDUjI5WNMGdQkQAAqHPOHw:P1
	(envelope-from <guix-patches-bounces+larch=yhetil.org@gnu.org>)
	for <larch@yhetil.org>; Sun, 10 Nov 2024 10:40:21 +0000
Received: from aspmx1.migadu.com ([2001:41d0:403:4876::])
	(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits))
	by mp0.migadu.com with LMTPS
	id BDUjI5WNMGdQkQAAqHPOHw
	(envelope-from <guix-patches-bounces+larch=yhetil.org@gnu.org>)
	for <larch@yhetil.org>; Sun, 10 Nov 2024 11:40:21 +0100
X-Envelope-To: larch@yhetil.org
Authentication-Results: aspmx1.migadu.com;
	dkim=fail ("body hash did not verify") header.d=debbugs.gnu.org header.s=debbugs-gnu-org header.b=vQJc7hWG;
	dkim=fail ("body hash did not verify") header.d=gnu.org header.s=fencepost-gnu-org header.b=i5TbD8+F;
	dmarc=pass (policy=none) header.from=gnu.org;
	spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"
ARC-Seal: i=1; s=key1; d=yhetil.org; t=1731235220; a=rsa-sha256; cv=none;
	b=q67cp+HZIkJI7D+IAEwP7lr92Np2o/P1wyBPUtzWjOQgNORFyKnTf6jQP5CssMzqyV5WJ3
	6X4JYw5VMCrWUf1oJR7plfvxDSyhB4d1jvKxam+iUey7kl2utTBsSQ/vSOKSUI77uypTlq
	sZMegrvyVR1sxu5iKKD9F2Kgp8FvhbEFFLmgwRJ/prYziBMcu5rPoMEEjaDw1KCGx7g6sJ
	jfHducPY0YigW2zqXL9GkQbS55P/WyTyKL6QmGUYkAiJBcCXK2QJBQymyelQlRXLgymP5g
	pvCDUD39B4a41TQWnrd6fVKS6I24yh0UxtxO84Ei3TF3YNHb4Umw/kpCsbWwaw==
ARC-Authentication-Results: i=1;
	aspmx1.migadu.com;
	dkim=fail ("body hash did not verify") header.d=debbugs.gnu.org header.s=debbugs-gnu-org header.b=vQJc7hWG;
	dkim=fail ("body hash did not verify") header.d=gnu.org header.s=fencepost-gnu-org header.b=i5TbD8+F;
	dmarc=pass (policy=none) header.from=gnu.org;
	spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"
ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org;
	s=key1; t=1731235220;
	h=from:from:sender:sender:reply-to:subject:subject:date:date:
	 message-id:message-id:to:to:cc:mime-version:mime-version:
	 content-type:content-type:
	 content-transfer-encoding:content-transfer-encoding:resent-cc:
	 resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to:
	 references:references:list-id:list-help:list-unsubscribe:
	 list-subscribe:list-post:dkim-signature;
	bh=GKi73X94/Wre3qvKmdMIvnuImw1sL2IWD3fZOYKT6pU=;
	b=N+D3Iv9PObduK/CSOwxwpMolSuQYVozj/sh1ryb4Va0ii09ZOBio9N/nsDyLTnwoXlXxJ9
	36+Yr33twaZBs6lpW5en46ZTPhsTJZWlucKTV/jnCyGxKEsQelpeA6Bp17txxKZ8ZVoHmr
	STlaHmEl5fzJSWFz5OGWOW22+hbAw0tdbe6nzcOJ1hzg2ovfpKz2+be/EfF6ZXV54ZzLn1
	MB7rNxg9TcXzgaCIeBnZMZnzyYR80U/JZ/MuMHJCAwHCKZDWuIqaYXPudUuA3IDlGLwmhn
	eqILG1KAvB3zZ7zmrbZmMvTPCfBkL3XiH0vAVHW/dXC5PqxNkICM8I7DZZbVig==
Received: from lists.gnu.org (lists.gnu.org [209.51.188.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 6C5957975C
	for <larch@yhetil.org>; Sun, 10 Nov 2024 11:40:20 +0100 (CET)
Received: from localhost ([::1] helo=lists1p.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.90_1)
	(envelope-from <guix-patches-bounces@gnu.org>)
	id 1tA5MT-0000v1-3U; Sun, 10 Nov 2024 05:40:05 -0500
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1tA5MR-0000so-Nt
 for guix-patches@gnu.org; Sun, 10 Nov 2024 05:40:03 -0500
Received: from debbugs.gnu.org ([2001:470:142:5::43])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1tA5MR-0008Bp-FC
 for guix-patches@gnu.org; Sun, 10 Nov 2024 05:40:03 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed;
 d=debbugs.gnu.org; s=debbugs-gnu-org; 
 h=MIME-Version:References:In-Reply-To:Date:From:To:Subject;
 bh=/pIhBQFbHM3Hte7KNbqHtKa6WkH0OGOXfOnHnNHczww=; 
 b=vQJc7hWG63rUEVE6N1iJQNmQsVPksoZHwuh2XM9xcrPOPuwdNO0ZlLas+lenBRdpCUpi0jwFQn0TDPD+CWVSAttJSkJ7GQi2F2uXGDcrLNla8TKv0TUifDIquAWzUmk+/uMxMXCDMVM+dPTsHeOYvqeXH7zmjAPzeJlYmquUFaDLi3dfoLcqpVfe+Azvjld+8wmJwHj4YeTFL3TpZtcQGVIfdHxxKQo8WJbfwa7U3kxWdiE8I8Km+e9I6zKfa6TDhbCwD5CQIcepK0edPf0wbpUldlu5QGEFjhexTik4ixlNgiErtCVJ2QunmP7YK5zWsL1NA7oMXl7bargA8Fbosg==;
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1tA5MR-0002hl-9Y
 for guix-patches@gnu.org; Sun, 10 Nov 2024 05:40:03 -0500
X-Loop: help-debbugs@gnu.org
Subject: [bug#74290] [PATCH 15/31] system: image: Add hurd64 image types.
Resent-From: Janneke Nieuwenhuizen <janneke@gnu.org>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-CC: guix-patches@gnu.org
Resent-Date: Sun, 10 Nov 2024 10:40:03 +0000
Resent-Message-ID: <handler.74290.B74290.173123516010171@debbugs.gnu.org>
Resent-Sender: help-debbugs@gnu.org
X-GNU-PR-Message: followup 74290
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: patch
To: 74290@debbugs.gnu.org
Received: via spool by 74290-submit@debbugs.gnu.org id=B74290.173123516010171
 (code B ref 74290); Sun, 10 Nov 2024 10:40:03 +0000
Received: (at 74290) by debbugs.gnu.org; 10 Nov 2024 10:39:20 +0000
Received: from localhost ([127.0.0.1]:55769 helo=debbugs.gnu.org)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
 id 1tA5Lj-0002dv-Vx
 for submit@debbugs.gnu.org; Sun, 10 Nov 2024 05:39:20 -0500
Received: from eggs.gnu.org ([209.51.188.92]:42314)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <janneke@gnu.org>) id 1tA5LS-0002YX-Jp
 for 74290@debbugs.gnu.org; Sun, 10 Nov 2024 05:39:04 -0500
Received: from fencepost.gnu.org ([2001:470:142:3::e])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <janneke@gnu.org>)
 id 1tA5LN-0007pZ-Da; Sun, 10 Nov 2024 05:38:57 -0500
DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org;
 s=fencepost-gnu-org; h=MIME-Version:References:In-Reply-To:Date:Subject:To:
 From; bh=/pIhBQFbHM3Hte7KNbqHtKa6WkH0OGOXfOnHnNHczww=; b=i5TbD8+FsI+swv5s9TkB
 TwXTQNQxSAeoBVtwc/P2ptXfBVQaV/RqPAFxPGuAV6+UXHTngi+UhdiECCyVSb0Z7wJK+oJUBu6c/
 OsQAfVLghMF+VB5ZsbtcT8uqP5KsXhDpG+EJpttJgzLlc/v/uJfwSDJm7iVMGc/7CIpex8upzQosi
 T1Yu6vjvwwwTwhyQBWysnEg/f3SDSwnJdwS2LpMRJPvPlWHhAqn0xSBkeD6rj/jg4HGbpuR7pV5IR
 xY9uBMaNi4YE3AfXu8cyZEq5LkG0dh/ELg59yEAB4x84TcX/nWo5xB1unhcontzdImZNhVMTEmPQZ
 yl/7vuxnlzYxJg==;
From: Janneke Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 10 Nov 2024 11:38:11 +0100
Message-ID: <bf129f5e6dd084e2589732cb2b4625b84357004b.1731232753.git.janneke@gnu.org>
X-Mailer: git-send-email 2.46.0
In-Reply-To: <cover.1731232753.git.janneke@gnu.org>
References: <cover.1731232753.git.janneke@gnu.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
X-BeenThere: guix-patches@gnu.org
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guix-patches>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
 <mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org
Sender: guix-patches-bounces+larch=yhetil.org@gnu.org
X-Migadu-Country: US
X-Migadu-Flow: FLOW_IN
X-Migadu-Spam-Score: -2.36
X-Spam-Score: -2.36
X-Migadu-Queue-Id: 6C5957975C
X-Migadu-Scanner: mx10.migadu.com
X-TUID: 7xG/i+7oeIcI

* gnu/system/images/hurd.scm (hurd64-disk-image, hurd64-image-type,
hurd64-qcow2-image-type, hurd64-barebones-disk-image,
hurd64-barebones-qcow2-image): New variables.

Change-Id: I68834a4c5c18b0e154d06082824008d13ca52214
---
 gnu/system/images/hurd.scm | 47 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 45 insertions(+), 2 deletions(-)

diff --git a/gnu/system/images/hurd.scm b/gnu/system/images/hurd.scm
index 01c422a54f..75f255ed94 100644
--- a/gnu/system/images/hurd.scm
+++ b/gnu/system/images/hurd.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
-;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2020, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -36,7 +36,13 @@ (define-module (gnu system images hurd)
             hurd-image-type
             hurd-qcow2-image-type
             hurd-barebones-disk-image
-            hurd-barebones-qcow2-image))
+            hurd-barebones-qcow2-image
+
+            hurd64-disk-image
+            hurd6-image-type
+            hurd64-qcow2-image-type
+            hurd64-barebones-disk-image
+            hurd64-barebones-qcow2-image))
 
 (define hurd-barebones-os
   (operating-system
@@ -115,5 +121,42 @@ (define hurd-barebones-qcow2-image
                         #:type hurd-qcow2-image-type))
    (name 'hurd-barebones.qcow2)))
 
+
+;;;
+;;; 64bit Hurd
+;;;
+(define hurd64-disk-image
+  (image
+   (inherit hurd-disk-image)
+   (platform x86_64-gnu)))
+
+(define hurd64-image-type
+  (image-type
+   (name 'hurd64-raw)
+   (constructor (cut image-with-os hurd64-disk-image <>))))
+
+(define hurd64-qcow2-image-type
+  (image-type
+   (name 'hurd64-qcow2)
+   (constructor (lambda (os)
+                  (image
+                   (inherit hurd64-disk-image)
+                   (format 'compressed-qcow2)
+                   (operating-system os))))))
+
+(define hurd64-barebones-disk-image
+  (image
+   (inherit
+    (os+platform->image hurd-barebones-os x86_64-gnu
+                        #:type hurd64-image-type))
+   (name 'hurd64-barebones-disk-image)))
+
+(define hurd64-barebones-qcow2-image
+  (image
+   (inherit
+    (os+platform->image hurd-barebones-os x86_64-gnu
+                        #:type hurd64-qcow2-image-type))
+   (name 'hurd64-barebones.qcow2)))
+
 ;; Return the default image.
 hurd-barebones-qcow2-image
-- 
Janneke Nieuwenhuizen <janneke@gnu.org>  | GNU LilyPond https://LilyPond.org
Freelance IT https://www.JoyOfSource.com | Avatar® https://AvatarAcademy.com