GNU bug report logs - #52404
[PATCH] gnu: Add xblackjack.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 52404 in the body.
You can then email your comments to 52404 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Foo Chuan Wei <chuanwei.foo <at> hotmail.com>
To: guix-patches <at> gnu.org
Subject: [PATCH] gnu: Add xblackjack.
Date: Fri, 10 Dec 2021 06:09:08 +0000

* gnu/packages/games.scm (xblackjack): New variable.
---
 gnu/packages/games.scm | 80 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 819a832baf..e0287dc02c 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -67,6 +67,7 @@
 ;;; Copyright © 2021 Petr Hodina <phodina <at> protonmail.com>
 ;;; Copyright © 2021 Brendan Tildesley <mail <at> brendan.scot>
 ;;; Copyright © 2021 Christopher Baines <mail <at> cbaines.net>
+;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo <at> hotmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -151,6 +152,7 @@
   #:use-module (gnu packages kde)
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages less)
+  #:use-module (gnu packages lesstif)
   #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages libedit)
   #:use-module (gnu packages libidn)
@@ -12402,6 +12404,84 @@ game.")  ;thanks to Debian for description
 computer opponents or against real players online.")
     (license license:agpl3+)))
 
+(define-public xblackjack
+  (package
+    (name "xblackjack")
+    (version "2.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://www.ibiblio.org/pub/X11/contrib/games/"
+                           "xblackjack-" version ".tar.gz"))
+       (sha256
+        (base32 "05h93rya7zwnx2l58f0a7wkjadymkj4y77clcr2hryhrhhy1vwjx"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((imake (assoc-ref inputs "imake"))
+                   (out (assoc-ref outputs "out")))
+               (substitute* "Imakefile"
+                 (("EXTRA_LIBRARIES = -lXm \\$\\(DEPLIBS\\) -lbsd")
+                  "EXTRA_LIBRARIES = -lXm -lXt -lXmu -lXext -lX11")
+                 (("^#define NonStandardInstallTargets NO")
+                  "#define NonStandardInstallTargets YES")
+                 (("BINDIR = /usr/local/bin")
+                  (string-append "BINDIR = " out "/bin"))
+                 (("MANDIR = /usr/local/man/cat1")
+                  (string-append "MANDIR = " out "/share/man/man1"))
+                 (("XAPPLOADDIR = /usr/local/lib/app-defaults")
+                  (string-append "XAPPLOADDIR = " out "/lib/X11/app-defaults")))
+
+               (invoke "xmkmf")  ; Generate Makefile.
+               (substitute* "Makefile"
+                 ((imake) out)
+                 (("ETCX11DIR = /etc/X11")
+                  (string-append "ETCX11DIR = " out "/etc/X11"))
+                 ;; Fix incorrect argument given to gcc. Error message:
+                 ;; "gcc: error: DefaultGcc2AMD64Opt: No such file or directory"
+                 (("CDEBUGFLAGS = [^\n]*") ""))
+
+               ;; Fix header paths.
+               (substitute* '("Draw.c"
+                              "Strategy.c")
+                 (("^#include <X11/Xm/Xm.h>")
+                  "#include <Xm/Xm.h>"))
+               (substitute* "Strategy.c"
+                 (("^#include <X11/Xm/Label.h>")
+                  "#include <Xm/Label.h>"))
+
+               ;; Fix compilation errors.
+               (substitute* "Table.c"
+                 (("/\\* focus_moved_proc \\*/	XtInheritFocusMovedProc,") "")
+                 (("_XmMoveObject\\(\\(RectObj\\) w, rx, ry\\);")
+                  "_XmMoveObject(w, rx, ry);")
+                 (("_XmResizeObject\\(\\(RectObj\\) managed->locs[i].w, nw, nh,")
+                  "_XmResizeObject(managed->locs[i].w, nw, nh,")))))
+         (add-after 'install 'install-man-pages
+           (lambda _
+             (invoke "make" "install.man"))))
+       #:tests? #f))  ; No check target.
+    (inputs
+     `(("lesstif" ,lesstif)
+       ("libx11" ,libx11)
+       ("libxext" ,libxext)
+       ("libxmu" ,libxmu)
+       ("libxt" ,libxt)))
+    (native-inputs
+     `(("imake" ,imake)))
+    (home-page "https://www.ibiblio.org/pub/X11/contrib/games/")
+    (synopsis "X11/Motif blackjack game")
+    (description
+     "Xblackjack is a MOTIF/OLIT based tool constructed to get you ready for
+the casino.  It was inspired by a book called \"Beat the Dealer\" by Edward
+O. Thorp, Ph.D. of UCLA.  A number of important statistics are maintained
+for display, and used by the program to implement Thorp's \"Complete Point
+System\" (high-low system).")
+    (license license:x11-style)))
+
 (define-public azimuth
   (package
     (name "azimuth")

base-commit: e1973ae74beb2880c11593155849f43e23ef620c
-- 
2.25.1

Message #10 received at 52404-done <at> debbugs.gnu.org (full text, mbox):

From: Ludovic Courtès <ludo <at> gnu.org>
To: 52404-done <at> debbugs.gnu.org
Subject: Re: bug#52404: [PATCH] gnu: Add xblackjack.
Date: Wed, 22 Dec 2021 22:54:04 +0100

[Message part 1 (text/plain, inline)]

Hi,

Foo Chuan Wei <chuanwei.foo <at> hotmail.com> skribis:

> * gnu/packages/games.scm (xblackjack): New variable.

Applied with the changes below, mostly to placate ‘guix lint’.

Thanks,
Ludo’.

[Message part 2 (text/x-patch, inline)]

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 3e6aeec839..fa6865c050 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -12253,7 +12253,7 @@ (define-public xblackjack
 
                ;; Fix compilation errors.
                (substitute* "Table.c"
-                 (("/\\* focus_moved_proc \\*/	XtInheritFocusMovedProc,") "")
+                 (("/\\* focus_moved_proc \\*/\tXtInheritFocusMovedProc,") "")
                  (("_XmMoveObject\\(\\(RectObj\\) w, rx, ry\\);")
                   "_XmMoveObject(w, rx, ry);")
                  (("_XmResizeObject\\(\\(RectObj\\) managed->locs[i].w, nw, nh,")
@@ -12263,13 +12263,9 @@ (define-public xblackjack
              (invoke "make" "install.man"))))
        #:tests? #f))  ; No check target.
     (inputs
-     `(("lesstif" ,lesstif)
-       ("libx11" ,libx11)
-       ("libxext" ,libxext)
-       ("libxmu" ,libxmu)
-       ("libxt" ,libxt)))
+     (list lesstif libx11 libxext libxmu libxt))
     (native-inputs
-     `(("imake" ,imake)))
+     (list imake))
     (home-page "https://www.ibiblio.org/pub/X11/contrib/games/")
     (synopsis "X11/Motif blackjack game")
     (description
@@ -12278,7 +12274,7 @@ (define-public xblackjack
 O. Thorp, Ph.D. of UCLA.  A number of important statistics are maintained
 for display, and used by the program to implement Thorp's \"Complete Point
 System\" (high-low system).")
-    (license license:x11-style)))
+    (license (license:x11-style "" "See file headers."))))
 
 (define-public azimuth
   (package

Previous Next

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