guix_mirror_bot pushed a commit to branch master
in repository guix.

commit bbb5d7449ba6c6933475b6da29bad9f404785c37
Author: Andreas Enge <[email protected]>
AuthorDate: Tue Aug 26 10:36:32 2025 +0200

    gnu: Remove xblackjack.
    
    * gnu/packages/games.scm (xblackjack): Delete variable.
    
    Change-Id: I500fc25fefc26e20205ad67859d7b84bc97f0ddf
---
 gnu/packages/games.scm | 74 --------------------------------------------------
 1 file changed, 74 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 0d3d663ab8..d8ec14af1c 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -12476,80 +12476,6 @@ 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 \\*/\tXtInheritFocusMovedProc,") "")
-                 (("_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
-     (list lesstif libx11 libxext libxmu libxt))
-    (native-inputs
-     (list 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 "" "See file headers."))))
-
 (define-public xevil
   ;; This game is old.  Use a maintained fork that builds with modern 
toolchains
   ;; on modern, 64-bit hardware.

Reply via email to