From patchwork Wed Feb 15 22:00:05 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Csepp X-Patchwork-Id: 46968 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 2A15716888; Wed, 15 Feb 2023 22:02:28 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-3.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS, URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 902151687E for ; Wed, 15 Feb 2023 22:02:27 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pSPqr-0001pU-0I; Wed, 15 Feb 2023 17:02:09 -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 ) id 1pSPqn-0001kO-HG for guix-patches@gnu.org; Wed, 15 Feb 2023 17:02:05 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pSPqm-0002RR-IQ for guix-patches@gnu.org; Wed, 15 Feb 2023 17:02:05 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pSPqm-0006zg-Ds for guix-patches@gnu.org; Wed, 15 Feb 2023 17:02:04 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#60673] [PATCH v2 16/39] gnu: Add ocaml-mirage-profile-unix. Resent-From: Csepp Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Wed, 15 Feb 2023 22:02:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 60673 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: moreinfo patch To: 60673@debbugs.gnu.org Cc: raingloom Received: via spool by 60673-submit@debbugs.gnu.org id=B60673.167649851326653 (code B ref 60673); Wed, 15 Feb 2023 22:02:04 +0000 Received: (at 60673) by debbugs.gnu.org; 15 Feb 2023 22:01:53 +0000 Received: from localhost ([127.0.0.1]:34253 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pSPqa-0006vj-Mk for submit@debbugs.gnu.org; Wed, 15 Feb 2023 17:01:52 -0500 Received: from mx0.riseup.net ([198.252.153.6]:44784) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pSPpo-0006qO-Qz for 60673@debbugs.gnu.org; Wed, 15 Feb 2023 17:01:05 -0500 Received: from fews2.riseup.net (fews2-pn.riseup.net [10.0.1.84]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256 client-signature RSA-PSS (2048 bits) client-digest SHA256) (Client CN "mail.riseup.net", Issuer "R3" (not verified)) by mx0.riseup.net (Postfix) with ESMTPS id 4PHBpz3SYqz9sNy for <60673@debbugs.gnu.org>; Wed, 15 Feb 2023 22:00:59 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1676498459; bh=zPo/qlg1vZ9T+K83kRLzARViw3wNkh4EyePXIO8MnPY=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=lzULc666xoVgGQ7NDSufw3w1G2sPSeKy8FBKRcktGWRFvMEGq+rMaZDZZiF27XNeM qmE9y1Wd2xiW5aIv+tRjWXYQpoRucMYTIw3WdwaZ+gEvvKRxyRG9F6aZeROstr8uAG xti3fYD1USBW5YHF6krJLeYepApluGpSuQQe1org= X-Riseup-User-ID: 3D60ECE05CD0B17E895EE33945C2259982DCA9E460DDC763F7DEA34E6E23A941 Received: from [127.0.0.1] (localhost [127.0.0.1]) by fews2.riseup.net (Postfix) with ESMTPSA id 4PHBpy4QpQz1y8Z; Wed, 15 Feb 2023 22:00:58 +0000 (UTC) From: Csepp Date: Wed, 15 Feb 2023 23:00:05 +0100 Message-Id: <20230215220028.18575-17-raingloom@riseup.net> In-Reply-To: <20230215220028.18575-1-raingloom@riseup.net> References: <20230215220028.18575-1-raingloom@riseup.net> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches From: raingloom * gnu/packages/ocaml.scm (ocaml-mirage-profile-unix): New variable. --- gnu/packages/ocaml.scm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm index dfd194faaf..665bf943da 100644 --- a/gnu/packages/ocaml.scm +++ b/gnu/packages/ocaml.scm @@ -3848,6 +3848,44 @@ (define-public ocaml-mirage-unix handles the main loop and timers.") (license license:isc))) +(define-public ocaml-mirage-profile-unix + (package + (name "ocaml-mirage-profile-unix") + (version "0.9.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mirage/mirage-profile/") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "11p3ai8g993algds9mbg4xf3is0agqah127r69fb7rm35dryzq95")))) + (build-system dune-build-system) + (arguments + '(#:package "mirage-profile-unix" + #:tests? #f ;depends on ocaml-mirage-profile which would form a loop + #:phases (modify-phases %standard-phases + ;; TODO is there a way to do this with dune build flags? + (add-after 'unpack 'disable-xen + (lambda _ + ;; this way it is not detected as a build target + (rename-file "xen" "_xen")))))) + (propagated-inputs (list ocaml-cstruct ocaml-ocplib-endian ocaml-lwt + ocaml-mtime ocaml-ppx-cstruct)) + (native-inputs (list ocaml-ppx-cstruct)) + (home-page "https://github.com/mirage/mirage-profile") + (synopsis "Collects Ocaml/Lwt profiling information in CTF format") + (description + "Used to trace execution of OCaml/Lwt programs (such as Mirage +unikernels) at the level of Lwt threads. The traces can be viewed using +JavaScript or GTK viewers provided by mirage-trace-viewer or processed by +tools supporting the Common Trace Format. +When compiled against a normal version of Lwt, OCaml's cross-module inlining +will optimise these calls away, meaning there should be no overhead in the +non-profiling case.") + (license license:bsd-2))) + (define-public ocaml-ocurl (package (name "ocaml-ocurl")