From patchwork Sat Jul 9 21:47:41 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Sharlatan Hellseher X-Patchwork-Id: 40617 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 9719427BBE9; Sat, 9 Jul 2022 22:48:13 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,MAILING_LIST_MULTI, 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 BAF4E27BBEA for ; Sat, 9 Jul 2022 22:48:12 +0100 (BST) Received: from localhost ([::1]:41606 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oAIJ9-0003B9-Sx for patchwork@mira.cbaines.net; Sat, 09 Jul 2022 17:48:11 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38926) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oAIJ0-0003Am-G0 for guix-patches@gnu.org; Sat, 09 Jul 2022 17:48:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:42091) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oAIJ0-0005Qt-7V for guix-patches@gnu.org; Sat, 09 Jul 2022 17:48:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oAIJ0-0008Cx-2q for guix-patches@gnu.org; Sat, 09 Jul 2022 17:48:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#56472] [PATCH]: gnu: Add glop Resent-From: Sharlatan Hellseher Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 09 Jul 2022 21:48:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 56472 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 56472@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.165740327931527 (code B ref -1); Sat, 09 Jul 2022 21:48:01 +0000 Received: (at submit) by debbugs.gnu.org; 9 Jul 2022 21:47:59 +0000 Received: from localhost ([127.0.0.1]:35988 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oAIIx-0008CR-2K for submit@debbugs.gnu.org; Sat, 09 Jul 2022 17:47:59 -0400 Received: from lists.gnu.org ([209.51.188.17]:39358) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oAIIv-0008C9-3f for submit@debbugs.gnu.org; Sat, 09 Jul 2022 17:47:57 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38924) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oAIIu-0003AO-Mu for guix-patches@gnu.org; Sat, 09 Jul 2022 17:47:56 -0400 Received: from mail-ej1-x62e.google.com ([2a00:1450:4864:20::62e]:35372) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oAIIs-0005QS-RC for guix-patches@gnu.org; Sat, 09 Jul 2022 17:47:56 -0400 Received: by mail-ej1-x62e.google.com with SMTP id j22so3088936ejs.2 for ; Sat, 09 Jul 2022 14:47:54 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=+750gCoPncap2ndKdBwxTCk+/izZbP9Ftl3JasI7upc=; b=aLz8Q3Jvv2f55dPwKsFKEtF8gqMQDSyFLACZth6iOMhFwzf6wM77E+aCQK3m+4hp/n X3SARc8t2c7cOKeaUFwVtvNXImk/GsX7Jluj2gou99v0PbAyDPGwLZJ/vhI7PZrY1CM1 qHgAnwac7z3AryQcYcELJsbpBKcasbCJiLgEIdX5pZhrVKN34W+M6jW3xCsZ4GyzFds7 NKEcN1O82xKfdpfnrWvkUpvX0+zI6H34CavaCveTSp80RWH4kxOlhuR0H7UROzykUU2j l3gR7dyZC3maLW/9K2aIUarCBVbMgJGU+ub8GN2yLinEbuyBX5wOfw/3F5HhxUeGN3R1 nlWw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=+750gCoPncap2ndKdBwxTCk+/izZbP9Ftl3JasI7upc=; b=OnlEx/OcGHlUO+jzO4WfTDf/SUZmCEpG6N+y46g7S205xb1oo1em/VAOTIshxmQx2A rhPDcFqKt6UKBdxh7yedxQmP4gnO7mqvQnXs6M7b1tbphMewakUMcSAW98F172FT6Xq9 XRAgZB7Dj+34vbwOh+kbGDlBRrC8YDrhtUxhWuSbCqeVOzaTFNPnwG3KBJLiBHxhxGtX OJORw0L3eqyigh8oiTARzyVuWUVkIGk+kc2+dSPc3MnZh1Dj1z3y+9XWLv2P0N8kEW4O FG50N2bZgw0u/Jq02actcaJjEQrUVjh1jDFpNrdzyKr04/7CDyDERgYNc+IdR+zVqTpk cESg== X-Gm-Message-State: AJIora+cNQ5pSih3l5mwafTelbbeZAWmDCULuCbTrq66HBjVNu6meXwt ihgDn5/3Zy8xvRIQbrwzx1eS6n4kSFe1pOZ38uG3NnGdND8= X-Google-Smtp-Source: AGRyM1s9BdWZSBc6QijsZdtMKrLw98dafTta6FaMB8NGh0LrpkTevglVpbpQixX4WGUr4mn/y8tXWYEQf9RVL0LmYKw= X-Received: by 2002:a17:907:da7:b0:726:9c0b:708b with SMTP id go39-20020a1709070da700b007269c0b708bmr10603100ejc.595.1657403272445; Sat, 09 Jul 2022 14:47:52 -0700 (PDT) MIME-Version: 1.0 From: Sharlatan Hellseher Date: Sat, 9 Jul 2022 22:47:41 +0100 Message-ID: Received-SPF: pass client-ip=2a00:1450:4864:20::62e; envelope-from=sharlatanus@gmail.com; helo=mail-ej1-x62e.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action 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" X-getmail-retrieved-from-mailbox: Patches Hi Guix team! Patch adds Common Lisp FFI bindings to OpenGL. Sharlatan Hellseher (1): gnu: Add glop gnu/packages/lisp-xyz.scm | 68 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) base-commit: e0d47d8facafb6d6c04741bbf30eefbc68aaefb9 > ./pre-inst-env guix build sbcl-glop ecl-glop cl-glop --rounds=2 /gnu/store/z6hivp2g8zqm2q8brcghl1wfzd9gb1ay-cl-glop-0.1.0-1.45e722a /gnu/store/z5bk61yzhhaj67drkfr8py342h6baw1j-ecl-glop-0.1.0-1.45e722a /gnu/store/w87di9p2r01y92gll56h7mrgfn682wvx-sbcl-glop-0.1.0-1.45e722a --- … наш разум - превосходная объяснительная машина которая способна найти смысл почти в чем угодно, истолковать любой феномен, но совершенно не в состоянии принять мысль о непредсказуемости. From 618fa41db9995a792db8d85e09fc08db75635051 Mon Sep 17 00:00:00 2001 From: Sharlatan Hellseher Date: Sat, 9 Jul 2022 22:42:11 +0100 Subject: [PATCH 1/1] gnu: Add glop * gnu/packages/lisp-xyz.scm: (sbcl-glop, ecl-glop, cl-glop): New variables. --- gnu/packages/lisp-xyz.scm | 68 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 129b99e485..48a94f80b1 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -17839,6 +17839,74 @@ (define-public ecl-cl-posix-mqueue (define-public cl-posix-mqueue (sbcl-package->cl-source-package sbcl-cl-posix-mqueue)) +(define-public sbcl-glop + (let ((commit "45e722ab4a0cd2944d550bf790206b3326041e38") + (revision "1")) + (package + (name "sbcl-glop") + (version (git-version "0.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lispgames/glop") + (commit commit))) + (file-name (git-file-name "glop" version)) + (sha256 + (base32 "1nm35kvigflfjlmsa8zwdajc61f02fh4sq08jv0wnqylhx8yg2bv")))) + (build-system asdf-build-system/sbcl) + (arguments + (list #:test-asd-file "glop-test.asd" + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-lib-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "src/x11/xcomposite.lisp" + (("libXcomposite.so") + (search-input-file inputs "/lib/libXcomposite.so"))) + (substitute* "src/x11/xlib.lisp" + (("libX11") + (string-drop-right + (search-input-file inputs "/lib/libX11.so") 3))) + (substitute* "src/utils.lisp" + (("libX11") + (string-drop-right + (search-input-file inputs "/lib/libX11.so") 3))) + (substitute* "src/utils.lisp" + (("libGL.so") + (search-input-file inputs "/lib/libGL.so.1"))) + (substitute* "src/x11/glx.lisp" + (("libGL.so") + (search-input-file inputs "/lib/libGL.so"))) + (substitute* "src/x11/display-ctrl.lisp" + (("libXrandr") + (string-drop-right + (search-input-file inputs "/lib/libXrandr.so") 3)))))))) + (native-inputs + (list sbcl-cl-opengl)) + (inputs + (list libx11 + libxcomposite + libxrandr + mesa + sbcl-cffi + sbcl-split-sequence + sbcl-trivial-garbage)) + (home-page "https://github.com/lispgames/glop") + (synopsis "Direct FFI bindings for OpenGL window and context management") + (description + "This package provides Common Lisp bindings to create OpenGL window and +context manipulation code as well as system input handling. Direct FFI +bindings to system functions are used so no third party C lib is required +except system libraries.") + (license license:expat)))) + +(define-public ecl-glop + (sbcl-package->ecl-package sbcl-glop)) + +(define-public cl-glop + (sbcl-package->cl-source-package sbcl-glop)) + (define-public sbcl-sdl2 (let ((commit "bb2aa2a41cf799e3bb1ddf50de41fe389c6db668") (revision "1")) -- 2.36.1