From c24fff615b5217299246f40d45c230dab933d59b Mon Sep 17 00:00:00 2001
From: Julian Graham <joolean@gmail.com>
Date: Mon, 28 Sep 2015 23:08:30 -0400
Subject: [PATCH] gnu: Add gzochi.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/game-development.scm (gzochi): New variable.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/game-development.scm | 51 +++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)

diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm
index c1757ac4de..e8efc2c5a3 100644
--- a/gnu/packages/game-development.scm
+++ b/gnu/packages/game-development.scm
@@ -1,6 +1,8 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014 Tomáš Čech <sleep_walker@suse.cz>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2015 Julian Graham <joolean@gmail.com>
+;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -24,6 +26,12 @@
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnunet)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages multiprecision)
+  #:use-module (gnu packages ncurses)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages zip)
@@ -64,6 +72,49 @@
 is used in some video games and movies.")
     (license license:zlib)))
 
+(define-public gzochi
+  (package
+    (name "gzochi")
+    (version "0.9")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://savannah/gzochi/gzochi-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1nf8naqbc4hmhy99b8n70yswg9j71nh5mfpwwh6d8pdw5mp9b46a"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:phases (modify-phases %standard-phases
+                  (add-before 'configure 'remove-Werror
+                              (lambda _
+                                ;; We can't build with '-Werror', notably
+                                ;; because deprecated functions of
+                                ;; libmicrohttpd are being used.
+                                (substitute* (find-files "." "^Makefile\\.in$")
+                                  (("-Werror")
+                                   ""))
+                                #t)))))
+    (native-inputs `(("pkgconfig" ,pkg-config)))
+    (inputs `(("bdb" ,bdb)
+              ("glib" ,glib)
+              ("gmp" ,gmp)
+              ("guile" ,guile-2.0)
+              ("libmicrohttpd" ,libmicrohttpd)
+              ("ncurses" ,ncurses)
+              ("sdl" ,sdl)
+              ("zlib" ,zlib)))
+    (home-page "http://www.nongnu.org/gzochi/")
+    (synopsis "Scalable middleware for multiplayer games")
+    (description
+     "gzochi is a framework for developing massively multiplayer online games.
+A server container provides services to deployed games, which are written in
+Guile Scheme, that abstract and simplify some of the most challenging and
+error-prone aspects of online game development: Concurrency, data persistence,
+and network communications.  A very thin client library can be embedded to
+provide connectivity for client applications written in any language.")
+    (license license:gpl3+)))
+
 (define-public tiled
   (package
     (name "tiled")