Add khanat

LEPILLER JulienWed Jul 05 13:36:41+0200 2017

439a9f5

Add khanat

more/packages/boost.scm

2828 
  #:use-module (guix build-system gnu)
2929 
  #:use-module (gnu packages)
3030 
  #:use-module (gnu packages base)
31+
  #:use-module (gnu packages bash)
32+
  #:use-module (gnu packages boost)
3133 
  #:use-module (gnu packages compression)
3234 
  #:use-module (gnu packages icu4c)
3335 
  #:use-module (gnu packages python)
3436 
  #:use-module (gnu packages shells)
3537 
  #:use-module (gnu packages perl))
3638 
37-
(define-public boost
39+
(define-public boost-build
3840 
  (package
39-
    (name "boost")
40-
    (version "1.63.0")
41+
    (name "boost-build")
42+
    (version "2016.03")
4143 
    (source (origin
4244 
              (method url-fetch)
43-
              (uri (string-append
44-
                    "mirror://sourceforge/boost/boost/" version "/boost_"
45-
                    (string-map (lambda (x) (if (eq? x #\.) #\_ x)) version)
46-
                    ".tar.bz2"))
45+
              (uri (string-append "https://github.com/boostorg/build/archive/"
46+
                                  version ".tar.gz"))
4747 
              (sha256
4848 
               (base32
49-
                "1c5kzhcqahnic55dxcnw7r80qvwx5sfa2sa97yzv7xjrywljbbmy"))))
49+
                "1sgvl8jisz73ff4vlqjkns4zgjs1yapgw18wmh4dpjp4dhx2ay8y"))))
5050 
    (build-system gnu-build-system)
5151 
    (inputs
52-
     `(("zlib" ,zlib)
53-
       ("icu" ,icu4c)))
54-
    (native-inputs
55-
     `(("perl" ,perl)
56-
       ("python" ,python-2)
57-
       ("tcsh" ,tcsh)
58-
       ("which" ,which)))
52+
     `(("sh" ,bash)))
5953 
    (arguments
6054 
     `(#:tests? #f
61-
       #:make-flags
62-
       (list "threading=multi" "link=shared"
63-
64-
             ;; Set the RUNPATH to $libdir so that the libs find each other.
65-
             (string-append "linkflags=-Wl,-rpath="
66-
                            (assoc-ref %outputs "out") "/lib")
67-
68-
             ;; Boost's 'context' library is not yet supported on mips64, so
69-
             ;; we disable it.  The 'coroutine' library depends on 'context',
70-
             ;; so we disable that too.
71-
             ,@(if (string-prefix? "mips64" (or (%current-target-system)
72-
                                                (%current-system)))
73-
                   '("--without-context"
74-
                     "--without-coroutine" "--without-coroutine2")
75-
                   '()))
7655 
       #:phases
7756 
       (modify-phases %standard-phases
78-
         (replace
79-
             'configure
80-
           (lambda* (#:key outputs #:allow-other-keys)
81-
             (let ((out (assoc-ref outputs "out")))
82-
               (substitute* '("libs/config/configure"
83-
                              "libs/spirit/classic/phoenix/test/runtest.sh"
84-
                              "tools/build/doc/bjam.qbk"
85-
                              "tools/build/src/engine/execunix.c"
86-
                              "tools/build/src/engine/Jambase"
87-
                              "tools/build/src/engine/jambase.c")
57+
         (delete 'configure)
58+
         (replace 'build
59+
           (lambda _
60+
             (begin
61+
               ;; TODO: we can use JAMSHELL here, but not in 'install, so
62+
               ;; I added a dependance on the shell here.
63+
               (substitute* "src/engine/execunix.c"
8864 
                 (("/bin/sh") (which "sh")))
65+
               (zero? (system* "./bootstrap.sh")))))
66+
         (replace 'install
67+
           (lambda* (#:key outputs #:allow-other-keys)
68+
             (zero? (system* "./b2" "install"
69+
                             (string-append "--prefix=" (assoc-ref outputs "out")))))))))
70+
    (home-page "http://www.boost.org/build/")
71+
    (synopsis "")
72+
    (description "")
73+
    (license license:boost1.0)))
8974 
90-
               (setenv "SHELL" (which "sh"))
91-
               (setenv "CONFIG_SHELL" (which "sh"))
92-
93-
               (zero? (system* "./bootstrap.sh"
94-
                               (string-append "--prefix=" out)
95-
                               "--with-toolset=gcc" "--with-icu")))))
96-
         (replace
97-
             'build
98-
           (lambda* (#:key outputs make-flags #:allow-other-keys)
99-
             (zero? (apply system* "./b2"
100-
                           (format #f "-j~a" (parallel-job-count))
101-
                           make-flags))))
102-
         (replace
103-
             'install
104-
           (lambda* (#:key outputs make-flags #:allow-other-keys)
105-
             (zero? (apply system* "./b2" "install" make-flags)))))))
106-
107-
    (home-page "http://boost.org")
108-
    (synopsis "Peer-reviewed portable C++ source libraries")
109-
    (description
110-
     "A collection of libraries intended to be widely useful, and usable
111-
across a broad spectrum of applications.")
112-
    (license (license:x11-style "http://www.boost.org/LICENSE_1_0.txt"
113-
                                "Some components have other similar licences."))))
75+
(define-public boost-fix
76+
  (package
77+
    (inherit boost)
78+
    (name "boost-fix")
79+
    (native-inputs
80+
     `(("perl" ,perl)
81+
       ("python" ,python-2)
82+
       ("tcsh" ,tcsh)
83+
       ("which" ,which)))
84+
    (inputs
85+
     `(("zlib" ,zlib)
86+
       ("icu" ,icu4c)))))
more/packages/games.scm
1919 
(define-module (more packages games)
2020 
  #:use-module (guix packages)
2121 
  #:use-module (guix download)
22+
  #:use-module (guix git-download)
2223 
  #:use-module (guix build-system cmake)
2324 
  #:use-module (guix build-system gnu)
25+
  #:use-module (guix build-system trivial)
2426 
  #:use-module ((guix licenses) #:prefix license:)
2527 
  #:use-module (gnu packages)
2628 
  #:use-module (gnu packages audio)
29+
  #:use-module (more packages boost)
2730 
  #:use-module (gnu packages boost)
2831 
  #:use-module (gnu packages check)
2932 
  #:use-module (gnu packages compression)
33+
  #:use-module (gnu packages curl)
3034 
  #:use-module (gnu packages databases)
3135 
  #:use-module (gnu packages documentation)
3236 
  #:use-module (gnu packages fontutils)
…
3640 
  #:use-module (gnu packages gtk)
3741 
  #:use-module (gnu packages image)
3842 
  #:use-module (gnu packages lua)
43+
  #:use-module (more packages lua)
3944 
  #:use-module (gnu packages ncurses)
4045 
  #:use-module (gnu packages pcre)
4146 
  #:use-module (gnu packages pkg-config)
…
4348 
  #:use-module (gnu packages sdl)
4449 
  #:use-module (gnu packages tbb)
4550 
  #:use-module (more packages tcl)
51+
  #:use-module (gnu packages tls)
4652 
  #:use-module (gnu packages xiph)
4753 
  #:use-module (gnu packages xml)
4854 
  #:use-module (gnu packages xorg)
…
6773 
     `(("doxygen" ,doxygen)))
6874 
    (inputs
6975 
     `(("freetype" ,freetype)
70-
       ("boost" ,boost)
76+
       ("boost" ,boost-fix)
7177 
       ("sdl2" ,sdl2)
7278 
       ("cppunit" ,cppunit)
7379 
       ("freeimage" ,freeimage)
…
129135 
       ("python" ,python)
130136 
       ("lua" ,lua-5.1)
131137 
       ("gtk" ,gtk+-2)
132-
       ("boost" ,boost)
138+
       ("boost" ,boost-fix)
133139 
       ("minizip" ,minizip)
134140 
       ("tinyxml" ,tinyxml)))
135141 
    (home-page "http://cegui.org.uk/")
…
179185 
uses a modified version of the SM2 algorithm taking inspiration from mnemosyne
180186 
and anki.")
181187 
    (license license:isc)))
188+
189+
(define-public cpptest
190+
  (package
191+
    (name "cpptest")
192+
    (version "1.1.2")
193+
    (source (origin
194+
              (method url-fetch)
195+
              (uri (string-append "mirror://sourceforge/cpptest/cpptest/cpptest-"
196+
                                  version "/cpptest-" version ".tar.gz"))
197+
              (sha256
198+
               (base32
199+
                "09v070a9dv6zq6hgj4v67i31zsis3s96psrnhlq9g4vhdcaxykwy"))))
200+
    (build-system gnu-build-system)
201+
    (home-page "http://cpptest.sourceforge.net/")
202+
    (synopsis "")
203+
    (description "")
204+
    (license license:lgpl2.1)))
205+
206+
(define-public khanat
207+
  (package
208+
    (name "khanat")
209+
    (version "3.0")
210+
    (source (origin
211+
              (method git-fetch)
212+
              (uri (git-reference
213+
                     (url "https://git.khaganat.net/khaganat/khanat-code.git")
214+
                     (commit "90d9f6da6c367312ea856e1b8df67ec9ef1959c7")))
215+
              (sha256
216+
               (base32
217+
                "0wh4k6k4213pm4bbynlsnbvpcmqiliny19v9sffgd011pzywy7cp"))))
218+
    (build-system cmake-build-system)
219+
    (inputs
220+
     `(("boost" ,boost-fix)
221+
       ("cpptest" ,cpptest)
222+
       ("curl" ,curl)
223+
       ("giflib" ,giflib)
224+
       ("libfreetype" ,freetype)
225+
       ("libjpeg" ,libjpeg)
226+
       ("libpng" ,libpng)
227+
       ("libvorbis" ,libvorbis)
228+
       ("libxml2" ,libxml2)
229+
       ("lua" ,lua-5.1)
230+
       ("luabind" ,luabind)
231+
       ("mesa" ,mesa)
232+
       ("openal" ,openal)
233+
       ("openssl" ,openssl)
234+
       ("zlib" ,zlib)))
235+
    (arguments
236+
     `(#:out-of-source? #t
237+
       #:tests? #f
238+
       #:configure-flags (list "-DFINAL_VERSION=ON" "-DWITH_RYZOM_SERVER=OFF"
239+
                               "-DWITH_RYZOM_TOOLS=OFF" "-DWITH_NEL_TESTS=OFF"
240+
                               "-DWITH_RYZOM_CLIENT=ON" "-DWITH_NEL_TOOLS=OFF"
241+
                               "-DWITH_NEL_SAMPLES=OFF" "-DWITH_STATIC=OFF"
242+
                               "-DWITH_STATIC_EXTERNAL=OFF")
243+
       #:phases
244+
       (modify-phases %standard-phases
245+
         (add-before 'configure 'chdir
246+
           (lambda _
247+
             (chdir "code"))))))
248+
    (home-page "https://khaganat.net/")
249+
    (synopsis "")
250+
    (description "")
251+
    (license license:agpl3)))
252+
253+
(define-public khanat-assets
254+
  (package
255+
    (name "khanat-assets")
256+
    (version "3.0")
257+
    (source (origin
258+
              (method url-fetch)
259+
              (uri (string-append "https://git.khaganat.net/khaganat/khanat-assets"
260+
                                  "/repository/archive.tar.bz2?ref="
261+
                                  "22abb542c6b87637ccf24bfd79ccd762b35f8f19"))
262+
              (file-name (string-append name "-" version ".tar.bz2"))
263+
              (sha256
264+
               (base32
265+
                "1f08s6682v6i909d0gp20pk599685gyhwivqxgs9cxxg6h132azz"))))
266+
    (build-system trivial-build-system)
267+
    (arguments
268+
     `(#:modules ((guix build utils))
269+
       #:builder
270+
       (begin
271+
         (use-modules (guix build utils))
272+
         (let* ((source (assoc-ref %build-inputs "source"))
273+
                (output (assoc-ref %outputs "out"))
274+
                (vardir (string-append output "/share/khanat")))
275+
           (chdir (string-append source "/database"))
276+
           (for-each
277+
             (lambda (file)
278+
               (mkdir-p (dirname (string-append vardir "/" file)))
279+
               (copy-file file (string-append vardir "/" file)))
280+
             (find-files "." "[^/]*"))))))
281+
    (home-page "")
282+
    (synopsis "")
283+
    (description "")
284+
    (license license:cc-by-sa3.0)))
285+
286+
(define-public khanat-resources
287+
  (package
288+
    (name "khanat-resources")
289+
    (version "3.0")
290+
    (source (origin
291+
              (method git-fetch)
292+
              (uri (git-reference
293+
                     (url "https://git.khaganat.net/khaganat/khanat-ressources.git")
294+
                     (commit "8db7ba5840ced758710696a401ee4a4246eb9b70")))
295+
              (sha256
296+
               (base32
297+
                "010z3wvh0bkdbar0n0rvk0pqj87nnk9srgjh8pjx7mic8p517k8j"))))
298+
    (build-system trivial-build-system)
299+
    (arguments
300+
     `(#:modules ((guix build utils))
301+
       #:builder
302+
       (begin
303+
         (use-modules (guix build utils))
304+
         (let* ((source (assoc-ref %build-inputs "source"))
305+
                (output (assoc-ref %outputs "out"))
306+
                (vardir (string-append output "/share/khanat")))
307+
           (chdir source)
308+
           (for-each
309+
             (lambda (file)
310+
               (mkdir-p (dirname (string-append vardir "/" file)))
311+
               (copy-file file (string-append vardir "/" file)))
312+
             (find-files "." "[^/]*"))))))
313+
    (home-page "")
314+
    (synopsis "")
315+
    (description "")
316+
    (license license:cc-by-sa3.0)))
more/packages/java.scm
8686 
     `(("java-javacc" ,java-javacc)))
8787 
    (propagated-inputs
8888 
     `(("java-jmapviewer" ,java-jmapviewer)
89+
       ("java-commons-collections" ,java-commons-collections)
8990 
       ("java-commons-compress" ,java-commons-compress)))
9091 
    (arguments
9192 
     `(;#:build-target "dist"
…
155156 
                                  "commons-collections-" version "-src.tar.gz"))
156157 
              (sha256
157158 
               (base32
158-
                "055r51a5lfc3z7rkxnxmnn1npvkvda7636hjpm4qk7cnfzz98387"))))))
159+
                "055r51a5lfc3z7rkxnxmnn1npvkvda7636hjpm4qk7cnfzz98387"))))
160+
    (arguments
161+
      (substitute-keyword-arguments (package-arguments java-commons-collections4)
162+
        ((#:phases phases)
163+
          `(modify-phases ,phases
164+
            (add-before 'build 'add-manifest
165+
              (lambda _
166+
                (call-with-output-file "MANIFEST.MF"
167+
                  (lambda (file)
168+
                    (format file "Manifest-Version: 1.0\n")
169+
                    (format file "Ant-Version: Apache Ant 1.9.9\n")
170+
                    (format file "Created-By: 1.8.0_131-b11 (Oracle Corporation)")))))))))))
159171 
160172 
(define-public java-velocity
161173 
  (package
more/packages/lua.scm unknown status 1
1+
;;; GNU Guix --- Functional package management for GNU
2+
;;; Copyright ?? 2017 Julien Lepiller <julien@lepiller.eu>
3+
;;;
4+
;;; This file is part of GNU Guix.
5+
;;;
6+
;;; GNU Guix is free software; you can redistribute it and/or modify it
7+
;;; under the terms of the GNU General Public License as published by
8+
;;; the Free Software Foundation; either version 3 of the License, or (at
9+
;;; your option) any later version.
10+
;;;
11+
;;; GNU Guix is distributed in the hope that it will be useful, but
12+
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13+
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14+
;;; GNU General Public License for more details.
15+
;;;
16+
;;; You should have received a copy of the GNU General Public License
17+
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
18+
19+
(define-module (more packages lua)
20+
  #:use-module (guix packages)
21+
  #:use-module (guix download)
22+
  #:use-module (guix hg-download)
23+
  #:use-module (guix build-system cmake)
24+
  #:use-module (guix build-system gnu)
25+
  #:use-module (guix build-system trivial)
26+
  #:use-module ((guix licenses) #:prefix license:)
27+
  #:use-module (gnu packages)
28+
  #:use-module (more packages boost)
29+
  #:use-module (gnu packages lua))
30+
31+
(define-public ryzom-cmake
32+
  (package
33+
    (name "ryzom-cmake")
34+
    (version "0")
35+
    (source (origin
36+
              (method hg-fetch)
37+
              (uri (hg-reference
38+
                     (url "http://hg.kervala.net/cmake")
39+
                     (changeset "56f5e1fd7677")))
40+
              (sha256
41+
               (base32
42+
                "1n7gs9g9igls1xw3dndr6x8ww6xza0ig7igrrn9x382vpn9dw3g7"))))
43+
    (build-system trivial-build-system)
44+
    (arguments
45+
     `(#:modules ((guix build utils))
46+
       #:builder (begin
47+
                   (use-modules (guix build utils))
48+
                   (let* ((source (assoc-ref %build-inputs "source"))
49+
                          (output (assoc-ref %outputs "out"))
50+
                          (vardir (string-append output "/share/cmake")))
51+
                     (chdir source)
52+
                     (for-each
53+
                       (lambda (file)
54+
                         (mkdir-p (dirname (string-append vardir "/" file)))
55+
                         (copy-file file (string-append vardir "/" file)))
56+
                       (find-files "." "[^/]*"))))))
57+
    (home-page "")
58+
    (synopsis "")
59+
    (description "")
60+
    (license license:gpl3+)))
61+
62+
(define-public luabind
63+
  (package
64+
    (name "luabind")
65+
    (version "0.9.2")
66+
    (source (origin
67+
              (method hg-fetch)
68+
              (uri (hg-reference
69+
                     (url "http://hg.kervala.net/luabind")
70+
                     (changeset "3333deedec4a")))
71+
              ;(uri (git-reference
72+
              ;       (url "https://github.com/luabind/luabind")
73+
              ;       (commit "cc743c37a7fffc72c809aed39e75385a34502ece")))
74+
              ;(method url-fetch)
75+
              ;(uri (string-append "https://github.com/luabind/luabind/archive/v"
76+
              ;                    version ".tar.gz"))
77+
              ;(uri (string-append "mirror://sourceforge/luabind/luabind/"
78+
              ;                    version "/luabind-" version ".tar.gz"))
79+
              (sha256
80+
               (base32
81+
                ;"1bma96ba9ahzwax1kis4yx5zfirj9fij4fxcdn7dsy46j425xpl0"))))
82+
                ;"0bgz0lpq8ml6gsfck8j6ds40r40g499nzypji2cd4s3nl18asphf"))))
83+
                ;"0j6lm48yz2y0hxk3qznilfdv1nqfql7cybhih781kq4d6kvccz5n"))))
84+
                "0y6qyb49gsf3dhvyy7sqihcivkhjryyq6cc9q9y3s0flg0gifsw2"))))
85+
    ;(build-system gnu-build-system)
86+
    (build-system cmake-build-system)
87+
    ;(native-inputs
88+
    ; `(("boost-build" ,boost-build)))
89+
    (inputs
90+
     `(("boost" ,boost-fix)
91+
       ("lua" ,lua-5.1)))
92+
    (native-inputs
93+
     `(("ryzom-cmake" ,ryzom-cmake)))
94+
    (arguments
95+
     `(#:out-of-source? #t
96+
       #:tests? #f
97+
       #:phases
98+
       (modify-phases %standard-phases
99+
         (add-before 'configure 'export
100+
           (lambda _
101+
             (setenv "CMAKE_MODULE_PATH"
102+
                     (string-append (assoc-ref %build-inputs "ryzom-cmake")
103+
                                    "/share/cmake/modules"))
104+
             (format #t (getenv "CMAKE_MODULE_PATH")))))))
105+
    ;(arguments
106+
    ; `(#:tests? #f
107+
    ;   #:phases
108+
    ;   (modify-phases %standard-phases
109+
    ;     (delete 'configure)
110+
    ;     (replace 'build
111+
    ;       (lambda* (#:key inputs #:allow-other-keys)
112+
    ;         (substitute* "luabind/object.hpp"
113+
    ;           (("  LUABIND_OPERATOR_ADL_WKND.*") ""))
114+
    ;         (setenv "LUA_PATH" (assoc-ref inputs "lua"))
115+
    ;         (zero? (system* "b2"))))
116+
    ;     (replace 'install
117+
    ;       (lambda* (#:key outputs #:allow-other-keys)
118+
    ;         (zero? (system* "b2" "install"
119+
    ;                         (string-append "--prefix="
120+
    ;                                        (assoc-ref outputs "out")))))))))
121+
    (home-page "http://www.rasterbar.com/products/luabind.html")
122+
    (synopsis "")
123+
    (description "")
124+
    (license license:expat)))
more/packages/smt.scm
127127 
    (propagated-inputs
128128 
     `(("menhir" ,ocaml-menhir)))
129129 
    (arguments
130-
     `(#:tests? #f))
130+
     `(#:tests? #f)) ;; Need Alt-Ergo
131131 
       ;#:phases
132132 
       ;(modify-phases %standard-phases
133133 
       ;  (replace 'check