gnu: Add fallout-ce.

* rodion/packages/fonts.scm (fpattern): New variable.
* rodion/packages/fonts.scm (fallout-ce): New variable.

1 files changed, 70 insertions, 0 deletions

diff --git a/rodion/packages/games.scm b/rodion/packages/games.scm
new file mode 100644
index 0000000..749806f
--- /dev/null
+++ b/rodion/packages/games.scm
@@ -0,0 +1,70 @@
+(define-module (rodion packages games)
+    #:use-module (guix packages)
+    #:use-module (guix build-system copy)
+    #:use-module (guix build-system cmake)
+    #:use-module (guix git-download)
+    #:use-module (guix gexp)
+    #:use-module (gnu packages sdl)
+    #:use-module ((guix licenses) #:prefix license:))
+
+(define-public fpattern
+  (package
+   (name "fpattern")
+   (version "1.9")
+   (build-system copy-build-system)
+   (home-page "https://github.com/Loadmaster/fpattern")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+	   (url "https://github.com/Loadmaster/fpattern")
+	   (commit (string-append "v" version))))
+     (sha256
+      (base32 "0lm5afk18a6m4wib4xvslik9zz00r36zvdrrgjbwd8d8550cq2zx"))))
+   (arguments
+    (list #:phases
+	  #~(modify-phases %standard-phases
+			   (add-before 'install 'build-library
+				       (lambda* (#:key inputs #:allow-other-keys)
+					 (invoke "gcc" "-c" "-Wall" "-fpic" "fpattern.c")
+					 (invoke "gcc" "-shared" "-o" "libfpattern.so" "fpattern.o"))))
+	  #:install-plan ''(("libfpattern.so" "lib/")
+			    ("fpattern.h" "include/"))))
+   (license license:expat)
+   (description "Filename pattern matching library functions")
+   (synopsis "Filename pattern matching library functions for DOS, Windows, and Unix.
+
+Functions for matching filename patterns to filenames. Written in C. Provided as an object file (fpattern.obj) and a header include source file (fpattern.h).
+
+Filename patterns are composed of regular (printable) characters which may comprise a filename, as well as special pattern matching characters. A filename patterns is a special kind of regular expression, except that it is not as general and is designed to match only file and directory names instead of arbitrary text strings. The syntax is borrowed from Unix, and is a superset of the MS-DOS and Windows syntax.")))
+
+(define-public fallout-ce
+  (package
+   (name "fallout-ce")
+   (version "1.1.0")
+   (build-system cmake-build-system)
+   (home-page "https://github.com/alexbatalov/fallout1-ce")
+   (inputs (list sdl2
+		 fpattern))
+   (arguments
+    (list
+     #:tests? #f
+     #:phases #~(modify-phases %standard-phases
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (bin (string-append out "/bin")))
+                 (mkdir-p bin)
+		 (copy-file "fallout-ce" (string-append bin "/fallout-ce"))))))))
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+	   (url "https://github.com/alexbatalov/fallout1-ce")
+	   (commit (string-append "v" version))))
+     (patches `(,(local-file "./fpattern.patch")))
+     (sha256
+      (base32 "0c11zbvja42s0z8zqfm6gf981m0v2vwxvhqas46lplwbfhbnh836"))))
+   (license license:expat)
+   (description "Fallout")
+   (synopsis "Fallout")))