GNU logs - #75962, boring messages

Message sent to guix-patches@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: [bug#75962] [PATCH] gnu: Add gambas.
Resent-From: iyzsong@HIDDEN
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Fri, 31 Jan 2025 08:33:02 +0000
Resent-Message-ID: <handler.75962.B.173831232915603 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: report 75962
X-GNU-PR-Package: guix-patches
X-GNU-PR-Keywords: patch
To: 75962 <at> debbugs.gnu.org
Cc: =?UTF-8?Q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
X-Debbugs-Original-To: guix-patches@HIDDEN
Received: via spool by submit <at> debbugs.gnu.org id=B.173831232915603
          (code B ref -1); Fri, 31 Jan 2025 08:33:02 +0000
Received: (at submit) by debbugs.gnu.org; 31 Jan 2025 08:32:09 +0000
Received: from localhost ([127.0.0.1]:49856 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tdmRY-00043T-Sp
	for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:08 -0500
Received: from lists.gnu.org ([2001:470:142::17]:38866)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <iyzsong@HIDDEN>) id 1tdmRV-00042W-DK
 for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:02 -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 <iyzsong@HIDDEN>) id 1tdmR9-0003Sw-Hm
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:41 -0500
Received: from mail.envs.net ([5.199.136.28])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <iyzsong@HIDDEN>) id 1tdmR7-0005Ps-1O
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:39 -0500
Received: from localhost (mail.envs.net [127.0.0.1])
 by mail.envs.net (Postfix) with ESMTP id 0601B38A3E59;
 Fri, 31 Jan 2025 08:31:34 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at mail.envs.net
Received: from mail.envs.net ([127.0.0.1])
 by localhost (mail.envs.net [127.0.0.1]) (amavisd-new, port 10026)
 with ESMTP id iZmWwUSVzDQL; Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost (unknown [112.44.100.200])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 by mail.envs.net (Postfix) with ESMTPSA;
 Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost.localdomain (localhost.lan [127.0.0.1])
 by localhost (OpenSMTPD) with ESMTP id fbec3f02;
 Fri, 31 Jan 2025 08:35:09 +0000 (UTC)
From: iyzsong@HIDDEN
Date: Fri, 31 Jan 2025 16:35:02 +0800
Message-ID: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Mailer: git-send-email 2.47.1
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=5.199.136.28; envelope-from=iyzsong@HIDDEN;
 helo=mail.envs.net
X-Spam_score_int: -18
X-Spam_score: -1.9
X-Spam_bar: -
X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9,
 RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.1 (/)

From: 宋文武 <iyzsong@HIDDEN>

* gnu/packages/patches/gambas-fix-desktop-file-creation.patch: New patch.
* gnu/packages/gambas.scm: New file.
* gnu/local.mk (dist_patch_DATA): Register patch.
(GNU_SYSTEM_MODULES): Register file.

Change-Id: Ia96b34ce49d0e7512a179f8e55a51dc3449fda08
---
 gnu/local.mk                                  |   2 +
 gnu/packages/gambas.scm                       | 172 ++++++++++++++++++
 .../gambas-fix-desktop-file-creation.patch    |  36 ++++
 3 files changed, 210 insertions(+)
 create mode 100644 gnu/packages/gambas.scm
 create mode 100644 gnu/packages/patches/gambas-fix-desktop-file-creation.patch

diff --git a/gnu/local.mk b/gnu/local.mk
index e8c807cf63..2e632ca2c3 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -310,6 +310,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/ftp.scm				\
   %D%/packages/fribidi.scm			\
   %D%/packages/fvwm.scm				\
+  %D%/packages/gambas.scm			\
   %D%/packages/game-development.scm		\
   %D%/packages/games.scm			\
   %D%/packages/gawk.scm				\
@@ -1333,6 +1334,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/fuzzylite-soften-float-equality.patch	\
   %D%/packages/patches/fxdiv-system-libraries.patch		\
   %D%/packages/patches/gajim-honour-GAJIM_PLUGIN_PATH.patch	\
+  %D%/packages/patches/gambas-fix-desktop-file-creation.patch	\
   %D%/packages/patches/ganeti-disable-version-symlinks.patch	\
   %D%/packages/patches/ganeti-haskell-pythondir.patch		\
   %D%/packages/patches/ganeti-lens-compat.patch			\
diff --git a/gnu/packages/gambas.scm b/gnu/packages/gambas.scm
new file mode 100644
index 0000000000..632f3134b9
--- /dev/null
+++ b/gnu/packages/gambas.scm
@@ -0,0 +1,172 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 宋文武 <iyzsong@HIDDEN>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages gambas)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (gnu packages )
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages crypto)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gstreamer)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages libffi)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages webkit)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg))
+
+(define-public gambas
+  (package
+    (name "gambas")
+    (version "3.20.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/gambas/gambas")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1fw3nark7vaw4vbmdvaaqb0an4838k0hhwwvc3dqd7f2033d41xq"))
+       (patches
+        (search-patches "gambas-fix-desktop-file-creation.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:bootstrap-scripts #~'("reconf-all")
+      ;; XXX: Gambas executables expect a '#! /usr/bin/env gbr3' shebang.
+      #:patch-shebangs? #f
+      #:configure-flags
+      #~(list
+         (string-append "--with-inotify-includes="
+                        #$(this-package-input "glibc")
+                        "/include")
+         (string-append "--with-crypt-libraries="
+                        #$(this-package-input "libxcrypt")
+                        "/lib")
+         (string-append "--with-gmp-includes="
+                        #$(this-package-input "gmp")
+                        "/include")
+         (string-append "--with-gmp-libraries="
+                        #$(this-package-input "gmp")
+                        "/lib")
+         (string-append "--with-mysql-includes="
+                        #$(this-package-input "mysql")
+                        "/include/mysql")
+         (string-append "--with-mysql-libraries="
+                        #$(this-package-input "mysql")
+                        "/lib")
+         (string-append "--with-postgresql-includes="
+                        #$(this-package-input "postgresql")
+                        "/include")
+         (string-append "--with-postgresql-libraries="
+                        #$(this-package-input "postgresql")
+                        "/lib")
+         (string-append "--with-bzlib2-includes="
+                        #$(this-package-input "bzip2")
+                        "/include")
+         (string-append "--with-bzlib2-libraries="
+                        #$(this-package-input "bzip2")
+                        "/lib"))))
+    (native-inputs
+     (list autoconf
+           automake
+           libtool
+           gettext-minimal
+           pkg-config))
+    (inputs
+     (list alure
+           bzip2
+           cairo
+           curl
+           dbus
+           gdk-pixbuf
+           glew
+           glibc
+           glu
+           gmime
+           gmp
+           gsl
+           gst-plugins-base
+           gstreamer
+           gtk+
+           imlib2
+           libffi
+           libgnome-keyring
+           libice
+           libsm
+           libxcrypt
+           libxml2
+           libxslt
+           libxtst
+           (list zstd "lib")
+           mesa
+           mysql
+           ncurses
+           openal
+           openssl
+           pcre2
+           poppler
+           postgresql
+           qtbase
+           qtbase-5
+           qtsvg
+           qtsvg-5
+           qtwebengine
+           qtwebengine-5
+           qtx11extras
+           sdl2
+           sdl2-image
+           sdl2-mixer
+           sdl2-ttf
+           sqlite
+           unixodbc
+           v4l-utils
+           webkitgtk-for-gtk3
+           zlib))
+    (home-page "https://gambas.sourceforge.net/")
+    (synopsis "Object-oriented language and development platform")
+    (description
+     "GAMBAS is a free implementation of a graphical development environment
+based on a BASIC interpreter and a full development platform.  It is very
+inspired by Visual Basic and Java.")
+    (license license:gpl2+)))
diff --git a/gnu/packages/patches/gambas-fix-desktop-file-creation.patch b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
new file mode 100644
index 0000000000..348eac1881
--- /dev/null
+++ b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
@@ -0,0 +1,36 @@
+From 33ede510e056c8580346d2652b9dd0e1a1a1d961 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
+Date: Fri, 31 Jan 2025 15:55:55 +0800
+Subject: [PATCH] Store the temporary application desktop file in the
+ $XDG_DATA_HOME directory.
+
+[GB.GUI.BASE]
+* BUG: Store the temporary application desktop file in the $XDG_DATA_HOME directory.
+
+Upstream-status: Submitted to Benoît Minisini <benoit.minisini@HIDDEN>
+---
+ comp/src/gb.gui.base/.src/_Gui.class | 8 +-------
+ 1 file changed, 1 insertion(+), 7 deletions(-)
+
+diff --git a/comp/src/gb.gui.base/.src/_Gui.class b/comp/src/gb.gui.base/.src/_Gui.class
+index 3cdee23da..5c9a49f93 100644
+--- a/comp/src/gb.gui.base/.src/_Gui.class
++++ b/comp/src/gb.gui.base/.src/_Gui.class
+@@ -131,13 +131,7 @@ Static Public Sub _InitApp() As String
+   Dim iPos As Integer
+   
+   $sAppId = "org.gambas." & CStr(Application.Handle)
+-  
+-  For Each sDir In Split(Env["XDG_DATA_DIRS"], ":")
+-    If sDir Begins (User.Home & "/") Then Break
+-    sDir = ""
+-  Next
+-  
+-  If Not sDir Then sDir = User.Home &/ ".local/share"
++  sDir = GetDir("XDG_DATA_HOME", User.Home &/ ".local/share")
+   sDir &/= "applications"
+   
+   Main.MkDir(sDir)
+-- 
+2.47.1
+

base-commit: c994e9262f9dbe4d688f688c92aedb3ee7ba4dfc
-- 
2.47.1

Message sent:


Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: iyzsong@HIDDEN
Subject: bug#75962: Acknowledgement ([PATCH] gnu: Add gambas.)
Message-ID: <handler.75962.B.173831232915603.ack <at> debbugs.gnu.org>
References: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Gnu-PR-Message: ack 75962
X-Gnu-PR-Package: guix-patches
X-Gnu-PR-Keywords: patch
Reply-To: 75962 <at> debbugs.gnu.org
Date: Fri, 31 Jan 2025 08:33:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 guix-patches@HIDDEN

If you wish to submit further information on this problem, please
send it to 75962 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
75962: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D75962
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Message sent:


MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: =?UTF-8?Q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
Subject: bug#75962: closed ([PATCH] gnu: Add gambas.)
CC: tracker <at> debbugs.gnu.org
Message-ID: <handler.75962.D75962.174005196115327.ackdone <at> debbugs.gnu.org>
References: <87jz9khm3n.fsf@HIDDEN>
 <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Gnu-PR-Message: closed 75962
X-Gnu-PR-Package: guix-patches
X-Gnu-PR-Keywords: patch
Date: Thu, 20 Feb 2025 11:46:02 +0000
Content-Type: multipart/mixed; boundary="----------=_1740051962-15333-0"

This is a multi-part message in MIME format...

------------=_1740051962-15333-0
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain; charset=utf-8

Your message dated Thu, 20 Feb 2025 19:49:48 +0800
with message-id <87jz9khm3n.fsf@HIDDEN>
and subject line Re: [bug#75962] [PATCH] gnu: Add gambas.
has caused the debbugs.gnu.org bug report #75962,
regarding [PATCH] gnu: Add gambas.
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@HIDDEN)


--=20
75962: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D75962
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

------------=_1740051962-15333-0
Content-Type: message/rfc822
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

Received: (at submit) by debbugs.gnu.org; 31 Jan 2025 08:32:09 +0000
Received: from localhost ([127.0.0.1]:49856 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tdmRY-00043T-Sp
	for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:08 -0500
Received: from lists.gnu.org ([2001:470:142::17]:38866)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <iyzsong@HIDDEN>) id 1tdmRV-00042W-DK
 for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:02 -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 <iyzsong@HIDDEN>) id 1tdmR9-0003Sw-Hm
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:41 -0500
Received: from mail.envs.net ([5.199.136.28])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <iyzsong@HIDDEN>) id 1tdmR7-0005Ps-1O
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:39 -0500
Received: from localhost (mail.envs.net [127.0.0.1])
 by mail.envs.net (Postfix) with ESMTP id 0601B38A3E59;
 Fri, 31 Jan 2025 08:31:34 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at mail.envs.net
Received: from mail.envs.net ([127.0.0.1])
 by localhost (mail.envs.net [127.0.0.1]) (amavisd-new, port 10026)
 with ESMTP id iZmWwUSVzDQL; Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost (unknown [112.44.100.200])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 by mail.envs.net (Postfix) with ESMTPSA;
 Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost.localdomain (localhost.lan [127.0.0.1])
 by localhost (OpenSMTPD) with ESMTP id fbec3f02;
 Fri, 31 Jan 2025 08:35:09 +0000 (UTC)
From: iyzsong@HIDDEN
To: guix-patches@HIDDEN
Subject: [PATCH] gnu: Add gambas.
Date: Fri, 31 Jan 2025 16:35:02 +0800
Message-ID: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Mailer: git-send-email 2.47.1
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=5.199.136.28; envelope-from=iyzsong@HIDDEN;
 helo=mail.envs.net
X-Spam_score_int: -18
X-Spam_score: -1.9
X-Spam_bar: -
X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9,
 RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-Debbugs-Envelope-To: submit
Cc: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.1 (/)

From: 宋文武 <iyzsong@HIDDEN>

* gnu/packages/patches/gambas-fix-desktop-file-creation.patch: New patch.
* gnu/packages/gambas.scm: New file.
* gnu/local.mk (dist_patch_DATA): Register patch.
(GNU_SYSTEM_MODULES): Register file.

Change-Id: Ia96b34ce49d0e7512a179f8e55a51dc3449fda08
---
 gnu/local.mk                                  |   2 +
 gnu/packages/gambas.scm                       | 172 ++++++++++++++++++
 .../gambas-fix-desktop-file-creation.patch    |  36 ++++
 3 files changed, 210 insertions(+)
 create mode 100644 gnu/packages/gambas.scm
 create mode 100644 gnu/packages/patches/gambas-fix-desktop-file-creation.patch

diff --git a/gnu/local.mk b/gnu/local.mk
index e8c807cf63..2e632ca2c3 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -310,6 +310,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/ftp.scm				\
   %D%/packages/fribidi.scm			\
   %D%/packages/fvwm.scm				\
+  %D%/packages/gambas.scm			\
   %D%/packages/game-development.scm		\
   %D%/packages/games.scm			\
   %D%/packages/gawk.scm				\
@@ -1333,6 +1334,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/fuzzylite-soften-float-equality.patch	\
   %D%/packages/patches/fxdiv-system-libraries.patch		\
   %D%/packages/patches/gajim-honour-GAJIM_PLUGIN_PATH.patch	\
+  %D%/packages/patches/gambas-fix-desktop-file-creation.patch	\
   %D%/packages/patches/ganeti-disable-version-symlinks.patch	\
   %D%/packages/patches/ganeti-haskell-pythondir.patch		\
   %D%/packages/patches/ganeti-lens-compat.patch			\
diff --git a/gnu/packages/gambas.scm b/gnu/packages/gambas.scm
new file mode 100644
index 0000000000..632f3134b9
--- /dev/null
+++ b/gnu/packages/gambas.scm
@@ -0,0 +1,172 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 宋文武 <iyzsong@HIDDEN>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages gambas)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (gnu packages )
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages crypto)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gstreamer)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages libffi)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages webkit)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg))
+
+(define-public gambas
+  (package
+    (name "gambas")
+    (version "3.20.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/gambas/gambas")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1fw3nark7vaw4vbmdvaaqb0an4838k0hhwwvc3dqd7f2033d41xq"))
+       (patches
+        (search-patches "gambas-fix-desktop-file-creation.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:bootstrap-scripts #~'("reconf-all")
+      ;; XXX: Gambas executables expect a '#! /usr/bin/env gbr3' shebang.
+      #:patch-shebangs? #f
+      #:configure-flags
+      #~(list
+         (string-append "--with-inotify-includes="
+                        #$(this-package-input "glibc")
+                        "/include")
+         (string-append "--with-crypt-libraries="
+                        #$(this-package-input "libxcrypt")
+                        "/lib")
+         (string-append "--with-gmp-includes="
+                        #$(this-package-input "gmp")
+                        "/include")
+         (string-append "--with-gmp-libraries="
+                        #$(this-package-input "gmp")
+                        "/lib")
+         (string-append "--with-mysql-includes="
+                        #$(this-package-input "mysql")
+                        "/include/mysql")
+         (string-append "--with-mysql-libraries="
+                        #$(this-package-input "mysql")
+                        "/lib")
+         (string-append "--with-postgresql-includes="
+                        #$(this-package-input "postgresql")
+                        "/include")
+         (string-append "--with-postgresql-libraries="
+                        #$(this-package-input "postgresql")
+                        "/lib")
+         (string-append "--with-bzlib2-includes="
+                        #$(this-package-input "bzip2")
+                        "/include")
+         (string-append "--with-bzlib2-libraries="
+                        #$(this-package-input "bzip2")
+                        "/lib"))))
+    (native-inputs
+     (list autoconf
+           automake
+           libtool
+           gettext-minimal
+           pkg-config))
+    (inputs
+     (list alure
+           bzip2
+           cairo
+           curl
+           dbus
+           gdk-pixbuf
+           glew
+           glibc
+           glu
+           gmime
+           gmp
+           gsl
+           gst-plugins-base
+           gstreamer
+           gtk+
+           imlib2
+           libffi
+           libgnome-keyring
+           libice
+           libsm
+           libxcrypt
+           libxml2
+           libxslt
+           libxtst
+           (list zstd "lib")
+           mesa
+           mysql
+           ncurses
+           openal
+           openssl
+           pcre2
+           poppler
+           postgresql
+           qtbase
+           qtbase-5
+           qtsvg
+           qtsvg-5
+           qtwebengine
+           qtwebengine-5
+           qtx11extras
+           sdl2
+           sdl2-image
+           sdl2-mixer
+           sdl2-ttf
+           sqlite
+           unixodbc
+           v4l-utils
+           webkitgtk-for-gtk3
+           zlib))
+    (home-page "https://gambas.sourceforge.net/")
+    (synopsis "Object-oriented language and development platform")
+    (description
+     "GAMBAS is a free implementation of a graphical development environment
+based on a BASIC interpreter and a full development platform.  It is very
+inspired by Visual Basic and Java.")
+    (license license:gpl2+)))
diff --git a/gnu/packages/patches/gambas-fix-desktop-file-creation.patch b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
new file mode 100644
index 0000000000..348eac1881
--- /dev/null
+++ b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
@@ -0,0 +1,36 @@
+From 33ede510e056c8580346d2652b9dd0e1a1a1d961 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
+Date: Fri, 31 Jan 2025 15:55:55 +0800
+Subject: [PATCH] Store the temporary application desktop file in the
+ $XDG_DATA_HOME directory.
+
+[GB.GUI.BASE]
+* BUG: Store the temporary application desktop file in the $XDG_DATA_HOME directory.
+
+Upstream-status: Submitted to Benoît Minisini <benoit.minisini@HIDDEN>
+---
+ comp/src/gb.gui.base/.src/_Gui.class | 8 +-------
+ 1 file changed, 1 insertion(+), 7 deletions(-)
+
+diff --git a/comp/src/gb.gui.base/.src/_Gui.class b/comp/src/gb.gui.base/.src/_Gui.class
+index 3cdee23da..5c9a49f93 100644
+--- a/comp/src/gb.gui.base/.src/_Gui.class
++++ b/comp/src/gb.gui.base/.src/_Gui.class
+@@ -131,13 +131,7 @@ Static Public Sub _InitApp() As String
+   Dim iPos As Integer
+   
+   $sAppId = "org.gambas." & CStr(Application.Handle)
+-  
+-  For Each sDir In Split(Env["XDG_DATA_DIRS"], ":")
+-    If sDir Begins (User.Home & "/") Then Break
+-    sDir = ""
+-  Next
+-  
+-  If Not sDir Then sDir = User.Home &/ ".local/share"
++  sDir = GetDir("XDG_DATA_HOME", User.Home &/ ".local/share")
+   sDir &/= "applications"
+   
+   Main.MkDir(sDir)
+-- 
+2.47.1
+

base-commit: c994e9262f9dbe4d688f688c92aedb3ee7ba4dfc
-- 
2.47.1




------------=_1740051962-15333-0
Content-Type: message/rfc822
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

Received: (at 75962-done) by debbugs.gnu.org; 20 Feb 2025 11:46:01 +0000
Received: from localhost ([127.0.0.1]:33279 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tl50D-0003z5-52
	for submit <at> debbugs.gnu.org; Thu, 20 Feb 2025 06:46:01 -0500
Received: from mail.envs.net ([5.199.136.28]:49238)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <iyzsong@HIDDEN>) id 1tl50B-0003yc-2M
 for 75962-done <at> debbugs.gnu.org; Thu, 20 Feb 2025 06:45:59 -0500
Received: from localhost (mail.envs.net [127.0.0.1])
 by mail.envs.net (Postfix) with ESMTP id 89DEF38A3F84
 for <75962-done <at> debbugs.gnu.org>; Thu, 20 Feb 2025 11:45:56 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at mail.envs.net
Received: from mail.envs.net ([127.0.0.1])
 by localhost (mail.envs.net [127.0.0.1]) (amavisd-new, port 10026)
 with ESMTP id q6RmpjOx_mxz for <75962-done <at> debbugs.gnu.org>;
 Thu, 20 Feb 2025 11:45:54 +0000 (UTC)
Received: from localhost (unknown [112.44.101.188])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 by mail.envs.net (Postfix) with ESMTPSA
 for <75962-done <at> debbugs.gnu.org>; Thu, 20 Feb 2025 11:45:54 +0000 (UTC)
Received: from localhost (localhost [local])
 by localhost (OpenSMTPD) with ESMTPA id 05dae58c
 for <75962-done <at> debbugs.gnu.org>;
 Thu, 20 Feb 2025 11:49:48 +0000 (UTC)
From: =?utf-8?B?5a6L5paH5q2m?= <iyzsong@HIDDEN>
To: 75962-done <at> debbugs.gnu.org
Subject: Re: [bug#75962] [PATCH] gnu: Add gambas.
In-Reply-To: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
 (iyzsong@HIDDEN's message of "Fri, 31 Jan 2025 16:35:02 +0800")
References: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
Date: Thu, 20 Feb 2025 19:49:48 +0800
Message-ID: <87jz9khm3n.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 75962-done
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


Pushed now, close.


------------=_1740051962-15333-0--

Message sent:


MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: iyzsong@HIDDEN
Subject: bug#75962: closed (Re: [bug#75962] [PATCH] gnu: Add gambas.)
Message-ID: <handler.75962.D75962.174005196115327.notifdone <at> debbugs.gnu.org>
References: <87jz9khm3n.fsf@HIDDEN>
 <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Gnu-PR-Message: they-closed 75962
X-Gnu-PR-Package: guix-patches
X-Gnu-PR-Keywords: patch
Reply-To: 75962 <at> debbugs.gnu.org
Date: Thu, 20 Feb 2025 11:46:02 +0000
Content-Type: multipart/mixed; boundary="----------=_1740051962-15333-1"

This is a multi-part message in MIME format...

------------=_1740051962-15333-1
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain; charset="utf-8"

Your bug report

#75962: [PATCH] gnu: Add gambas.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 75962 <at> debbugs.gnu.org.

--=20
75962: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D75962
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

------------=_1740051962-15333-1
Content-Type: message/rfc822
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

Received: (at 75962-done) by debbugs.gnu.org; 20 Feb 2025 11:46:01 +0000
Received: from localhost ([127.0.0.1]:33279 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tl50D-0003z5-52
	for submit <at> debbugs.gnu.org; Thu, 20 Feb 2025 06:46:01 -0500
Received: from mail.envs.net ([5.199.136.28]:49238)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <iyzsong@HIDDEN>) id 1tl50B-0003yc-2M
 for 75962-done <at> debbugs.gnu.org; Thu, 20 Feb 2025 06:45:59 -0500
Received: from localhost (mail.envs.net [127.0.0.1])
 by mail.envs.net (Postfix) with ESMTP id 89DEF38A3F84
 for <75962-done <at> debbugs.gnu.org>; Thu, 20 Feb 2025 11:45:56 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at mail.envs.net
Received: from mail.envs.net ([127.0.0.1])
 by localhost (mail.envs.net [127.0.0.1]) (amavisd-new, port 10026)
 with ESMTP id q6RmpjOx_mxz for <75962-done <at> debbugs.gnu.org>;
 Thu, 20 Feb 2025 11:45:54 +0000 (UTC)
Received: from localhost (unknown [112.44.101.188])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 by mail.envs.net (Postfix) with ESMTPSA
 for <75962-done <at> debbugs.gnu.org>; Thu, 20 Feb 2025 11:45:54 +0000 (UTC)
Received: from localhost (localhost [local])
 by localhost (OpenSMTPD) with ESMTPA id 05dae58c
 for <75962-done <at> debbugs.gnu.org>;
 Thu, 20 Feb 2025 11:49:48 +0000 (UTC)
From: =?utf-8?B?5a6L5paH5q2m?= <iyzsong@HIDDEN>
To: 75962-done <at> debbugs.gnu.org
Subject: Re: [bug#75962] [PATCH] gnu: Add gambas.
In-Reply-To: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
 (iyzsong@HIDDEN's message of "Fri, 31 Jan 2025 16:35:02 +0800")
References: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
Date: Thu, 20 Feb 2025 19:49:48 +0800
Message-ID: <87jz9khm3n.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: text/plain
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 75962-done
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)


Pushed now, close.


------------=_1740051962-15333-1
Content-Type: message/rfc822
Content-Disposition: inline
Content-Transfer-Encoding: 7bit

Received: (at submit) by debbugs.gnu.org; 31 Jan 2025 08:32:09 +0000
Received: from localhost ([127.0.0.1]:49856 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1tdmRY-00043T-Sp
	for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:08 -0500
Received: from lists.gnu.org ([2001:470:142::17]:38866)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <iyzsong@HIDDEN>) id 1tdmRV-00042W-DK
 for submit <at> debbugs.gnu.org; Fri, 31 Jan 2025 03:32:02 -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 <iyzsong@HIDDEN>) id 1tdmR9-0003Sw-Hm
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:41 -0500
Received: from mail.envs.net ([5.199.136.28])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <iyzsong@HIDDEN>) id 1tdmR7-0005Ps-1O
 for guix-patches@HIDDEN; Fri, 31 Jan 2025 03:31:39 -0500
Received: from localhost (mail.envs.net [127.0.0.1])
 by mail.envs.net (Postfix) with ESMTP id 0601B38A3E59;
 Fri, 31 Jan 2025 08:31:34 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at mail.envs.net
Received: from mail.envs.net ([127.0.0.1])
 by localhost (mail.envs.net [127.0.0.1]) (amavisd-new, port 10026)
 with ESMTP id iZmWwUSVzDQL; Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost (unknown [112.44.100.200])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange ECDHE (P-256) server-signature RSA-PSS (2048 bits) server-digest
 SHA256) (No client certificate requested)
 by mail.envs.net (Postfix) with ESMTPSA;
 Fri, 31 Jan 2025 08:31:30 +0000 (UTC)
Received: from localhost.localdomain (localhost.lan [127.0.0.1])
 by localhost (OpenSMTPD) with ESMTP id fbec3f02;
 Fri, 31 Jan 2025 08:35:09 +0000 (UTC)
From: iyzsong@HIDDEN
To: guix-patches@HIDDEN
Subject: [PATCH] gnu: Add gambas.
Date: Fri, 31 Jan 2025 16:35:02 +0800
Message-ID: <7c58af13a44a9a727c494d056dad188b858c3cf3.1738312496.git.iyzsong@HIDDEN>
X-Mailer: git-send-email 2.47.1
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=5.199.136.28; envelope-from=iyzsong@HIDDEN;
 helo=mail.envs.net
X-Spam_score_int: -18
X-Spam_score: -1.9
X-Spam_bar: -
X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9,
 RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001, RCVD_IN_VALIDITY_SAFE_BLOCKED=0.001,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-Debbugs-Envelope-To: submit
Cc: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.1 (/)

From: 宋文武 <iyzsong@HIDDEN>

* gnu/packages/patches/gambas-fix-desktop-file-creation.patch: New patch.
* gnu/packages/gambas.scm: New file.
* gnu/local.mk (dist_patch_DATA): Register patch.
(GNU_SYSTEM_MODULES): Register file.

Change-Id: Ia96b34ce49d0e7512a179f8e55a51dc3449fda08
---
 gnu/local.mk                                  |   2 +
 gnu/packages/gambas.scm                       | 172 ++++++++++++++++++
 .../gambas-fix-desktop-file-creation.patch    |  36 ++++
 3 files changed, 210 insertions(+)
 create mode 100644 gnu/packages/gambas.scm
 create mode 100644 gnu/packages/patches/gambas-fix-desktop-file-creation.patch

diff --git a/gnu/local.mk b/gnu/local.mk
index e8c807cf63..2e632ca2c3 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -310,6 +310,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/ftp.scm				\
   %D%/packages/fribidi.scm			\
   %D%/packages/fvwm.scm				\
+  %D%/packages/gambas.scm			\
   %D%/packages/game-development.scm		\
   %D%/packages/games.scm			\
   %D%/packages/gawk.scm				\
@@ -1333,6 +1334,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/fuzzylite-soften-float-equality.patch	\
   %D%/packages/patches/fxdiv-system-libraries.patch		\
   %D%/packages/patches/gajim-honour-GAJIM_PLUGIN_PATH.patch	\
+  %D%/packages/patches/gambas-fix-desktop-file-creation.patch	\
   %D%/packages/patches/ganeti-disable-version-symlinks.patch	\
   %D%/packages/patches/ganeti-haskell-pythondir.patch		\
   %D%/packages/patches/ganeti-lens-compat.patch			\
diff --git a/gnu/packages/gambas.scm b/gnu/packages/gambas.scm
new file mode 100644
index 0000000000..632f3134b9
--- /dev/null
+++ b/gnu/packages/gambas.scm
@@ -0,0 +1,172 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2025 宋文武 <iyzsong@HIDDEN>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages gambas)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (gnu packages )
+  #:use-module (gnu packages audio)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages crypto)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages gettext)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gstreamer)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages libffi)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages maths)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages pcre)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages qt)
+  #:use-module (gnu packages sdl)
+  #:use-module (gnu packages video)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages webkit)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg))
+
+(define-public gambas
+  (package
+    (name "gambas")
+    (version "3.20.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/gambas/gambas")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1fw3nark7vaw4vbmdvaaqb0an4838k0hhwwvc3dqd7f2033d41xq"))
+       (patches
+        (search-patches "gambas-fix-desktop-file-creation.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:bootstrap-scripts #~'("reconf-all")
+      ;; XXX: Gambas executables expect a '#! /usr/bin/env gbr3' shebang.
+      #:patch-shebangs? #f
+      #:configure-flags
+      #~(list
+         (string-append "--with-inotify-includes="
+                        #$(this-package-input "glibc")
+                        "/include")
+         (string-append "--with-crypt-libraries="
+                        #$(this-package-input "libxcrypt")
+                        "/lib")
+         (string-append "--with-gmp-includes="
+                        #$(this-package-input "gmp")
+                        "/include")
+         (string-append "--with-gmp-libraries="
+                        #$(this-package-input "gmp")
+                        "/lib")
+         (string-append "--with-mysql-includes="
+                        #$(this-package-input "mysql")
+                        "/include/mysql")
+         (string-append "--with-mysql-libraries="
+                        #$(this-package-input "mysql")
+                        "/lib")
+         (string-append "--with-postgresql-includes="
+                        #$(this-package-input "postgresql")
+                        "/include")
+         (string-append "--with-postgresql-libraries="
+                        #$(this-package-input "postgresql")
+                        "/lib")
+         (string-append "--with-bzlib2-includes="
+                        #$(this-package-input "bzip2")
+                        "/include")
+         (string-append "--with-bzlib2-libraries="
+                        #$(this-package-input "bzip2")
+                        "/lib"))))
+    (native-inputs
+     (list autoconf
+           automake
+           libtool
+           gettext-minimal
+           pkg-config))
+    (inputs
+     (list alure
+           bzip2
+           cairo
+           curl
+           dbus
+           gdk-pixbuf
+           glew
+           glibc
+           glu
+           gmime
+           gmp
+           gsl
+           gst-plugins-base
+           gstreamer
+           gtk+
+           imlib2
+           libffi
+           libgnome-keyring
+           libice
+           libsm
+           libxcrypt
+           libxml2
+           libxslt
+           libxtst
+           (list zstd "lib")
+           mesa
+           mysql
+           ncurses
+           openal
+           openssl
+           pcre2
+           poppler
+           postgresql
+           qtbase
+           qtbase-5
+           qtsvg
+           qtsvg-5
+           qtwebengine
+           qtwebengine-5
+           qtx11extras
+           sdl2
+           sdl2-image
+           sdl2-mixer
+           sdl2-ttf
+           sqlite
+           unixodbc
+           v4l-utils
+           webkitgtk-for-gtk3
+           zlib))
+    (home-page "https://gambas.sourceforge.net/")
+    (synopsis "Object-oriented language and development platform")
+    (description
+     "GAMBAS is a free implementation of a graphical development environment
+based on a BASIC interpreter and a full development platform.  It is very
+inspired by Visual Basic and Java.")
+    (license license:gpl2+)))
diff --git a/gnu/packages/patches/gambas-fix-desktop-file-creation.patch b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
new file mode 100644
index 0000000000..348eac1881
--- /dev/null
+++ b/gnu/packages/patches/gambas-fix-desktop-file-creation.patch
@@ -0,0 +1,36 @@
+From 33ede510e056c8580346d2652b9dd0e1a1a1d961 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@HIDDEN>
+Date: Fri, 31 Jan 2025 15:55:55 +0800
+Subject: [PATCH] Store the temporary application desktop file in the
+ $XDG_DATA_HOME directory.
+
+[GB.GUI.BASE]
+* BUG: Store the temporary application desktop file in the $XDG_DATA_HOME directory.
+
+Upstream-status: Submitted to Benoît Minisini <benoit.minisini@HIDDEN>
+---
+ comp/src/gb.gui.base/.src/_Gui.class | 8 +-------
+ 1 file changed, 1 insertion(+), 7 deletions(-)
+
+diff --git a/comp/src/gb.gui.base/.src/_Gui.class b/comp/src/gb.gui.base/.src/_Gui.class
+index 3cdee23da..5c9a49f93 100644
+--- a/comp/src/gb.gui.base/.src/_Gui.class
++++ b/comp/src/gb.gui.base/.src/_Gui.class
+@@ -131,13 +131,7 @@ Static Public Sub _InitApp() As String
+   Dim iPos As Integer
+   
+   $sAppId = "org.gambas." & CStr(Application.Handle)
+-  
+-  For Each sDir In Split(Env["XDG_DATA_DIRS"], ":")
+-    If sDir Begins (User.Home & "/") Then Break
+-    sDir = ""
+-  Next
+-  
+-  If Not sDir Then sDir = User.Home &/ ".local/share"
++  sDir = GetDir("XDG_DATA_HOME", User.Home &/ ".local/share")
+   sDir &/= "applications"
+   
+   Main.MkDir(sDir)
+-- 
+2.47.1
+

base-commit: c994e9262f9dbe4d688f688c92aedb3ee7ba4dfc
-- 
2.47.1




------------=_1740051962-15333-1--
Last modified: Thu, 20 Feb 2025 12:00:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.