guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 1e61d778c67b6ea8df3088b54c5e95c32d4da270
Author: Adam Faiz <[email protected]>
AuthorDate: Sun Feb 15 15:04:17 2026 +0100

    gnu: Add dialogc.
    
    * gnu/packages/game-development.scm (dialogc): New variable.
    
    Change-Id: Idf34af88e164e4f3fa3e0b0d627cf0deb7f3e7fb
    Signed-off-by: Andreas Enge <[email protected]>
---
 gnu/packages/game-development.scm | 47 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/gnu/packages/game-development.scm 
b/gnu/packages/game-development.scm
index 1d1ce8c474..f589fd9b6e 100644
--- a/gnu/packages/game-development.scm
+++ b/gnu/packages/game-development.scm
@@ -323,6 +323,53 @@ conversions (for example, from PPM to Doom picture 
format).  In addition,
 DeuTex has functions such as merging wads, etc.")
    (license license:gpl2+)))
 
+(define-public dialogc
+  (let ((commit "68476f9f3b1ca2db15615e508837ca721e0759ab")
+        (revision "0"))
+    (package
+      (name "dialogc")
+      (version (git-version "1a-01" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/Dialog-IF/dialog";)
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1gm6fb86chq74fh2llmmgji6fwylk0xd53fmij6l9x348nvw1bkn"))))
+      (build-system gnu-build-system)
+      (native-inputs (list frotz-dumb-terminal perl python))
+      (arguments
+       (list
+        #:test-target "test"
+        #:parallel-tests? #f
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)
+            (add-before 'build 'set-install-prefix
+              (lambda _
+                (setenv "PREFIX" #$output)))
+            (replace 'build
+              (lambda _
+                (with-directory-excursion "src"
+                  (substitute* "Makefile"
+                    (("cp dialogc" all)
+                     (string-append "install -d ${PREFIX}/bin\n\t" all))
+                    (("/usr/local") "${PREFIX}"))
+                  (invoke "make"))))
+            (replace 'install
+              (lambda _
+                (let ((bin (string-append #$output "/bin")))
+                  (install-file "src/dialogc" bin)
+                  (install-file "src/dgdebug" bin)))))))
+      (synopsis "Dialog interactive fiction compiler")
+      (description
+       "Dialog is a domain-specific language for creating works
+of interactive fiction.  It is heavily inspired by Inform 7 and Prolog.")
+      (home-page "https://github.com/Dialog-IF/dialog";)
+      (license license:bsd-2))))
+
 (define-public go-codeberg-org-anaseto-gruid-sdl
   (package
     (name "go-codeberg-org-anaseto-gruid-sdl")

Reply via email to