guix-more/more/packages/lua.scm

lua.scm

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 boost)
30
  #:use-module (gnu packages lua))
31
32
(define-public ryzom-cmake
33
  (package
34
    (name "ryzom-cmake")
35
    (version "0")
36
    (source (origin
37
              (method hg-fetch)
38
              (uri (hg-reference
39
                     (url "http://hg.kervala.net/cmake")
40
                     (changeset "56f5e1fd7677")))
41
              (sha256
42
               (base32
43
                "1n7gs9g9igls1xw3dndr6x8ww6xza0ig7igrrn9x382vpn9dw3g7"))))
44
    (build-system trivial-build-system)
45
    (arguments
46
     `(#:modules ((guix build utils))
47
       #:builder (begin
48
                   (use-modules (guix build utils))
49
                   (let* ((source (assoc-ref %build-inputs "source"))
50
                          (output (assoc-ref %outputs "out"))
51
                          (vardir (string-append output "/share/cmake")))
52
                     (chdir source)
53
                     (for-each
54
                       (lambda (file)
55
                         (mkdir-p (dirname (string-append vardir "/" file)))
56
                         (copy-file file (string-append vardir "/" file)))
57
                       (find-files "." "[^/]*"))))))
58
    (home-page "")
59
    (synopsis "")
60
    (description "")
61
    (license license:gpl3+)))
62
63
(define-public luabind
64
  (package
65
    (name "luabind")
66
    (version "0.9.2")
67
    (source (origin
68
              (method hg-fetch)
69
              (uri (hg-reference
70
                     (url "http://hg.kervala.net/luabind")
71
                     (changeset "3333deedec4a")))
72
              ;(uri (git-reference
73
              ;       (url "https://github.com/luabind/luabind")
74
              ;       (commit "cc743c37a7fffc72c809aed39e75385a34502ece")))
75
              ;(method url-fetch)
76
              ;(uri (string-append "https://github.com/luabind/luabind/archive/v"
77
              ;                    version ".tar.gz"))
78
              ;(uri (string-append "mirror://sourceforge/luabind/luabind/"
79
              ;                    version "/luabind-" version ".tar.gz"))
80
              (sha256
81
               (base32
82
                ;"1bma96ba9ahzwax1kis4yx5zfirj9fij4fxcdn7dsy46j425xpl0"))))
83
                ;"0bgz0lpq8ml6gsfck8j6ds40r40g499nzypji2cd4s3nl18asphf"))))
84
                ;"0j6lm48yz2y0hxk3qznilfdv1nqfql7cybhih781kq4d6kvccz5n"))))
85
                "0y6qyb49gsf3dhvyy7sqihcivkhjryyq6cc9q9y3s0flg0gifsw2"))))
86
    ;(build-system gnu-build-system)
87
    (build-system cmake-build-system)
88
    ;(native-inputs
89
    ; `(("boost-build" ,boost-build)))
90
    (inputs
91
     `(("boost" ,boost)
92
       ("lua" ,lua-5.1)))
93
    (native-inputs
94
     `(("ryzom-cmake" ,ryzom-cmake)))
95
    (arguments
96
     `(#:out-of-source? #t
97
       #:tests? #f
98
       #:phases
99
       (modify-phases %standard-phases
100
         (add-before 'configure 'export
101
           (lambda _
102
             (setenv "CMAKE_MODULE_PATH"
103
                     (string-append (assoc-ref %build-inputs "ryzom-cmake")
104
                                    "/share/cmake/modules"))
105
             (format #t (getenv "CMAKE_MODULE_PATH")))))))
106
    ;(arguments
107
    ; `(#:tests? #f
108
    ;   #:phases
109
    ;   (modify-phases %standard-phases
110
    ;     (delete 'configure)
111
    ;     (replace 'build
112
    ;       (lambda* (#:key inputs #:allow-other-keys)
113
    ;         (substitute* "luabind/object.hpp"
114
    ;           (("  LUABIND_OPERATOR_ADL_WKND.*") ""))
115
    ;         (setenv "LUA_PATH" (assoc-ref inputs "lua"))
116
    ;         (zero? (system* "b2"))))
117
    ;     (replace 'install
118
    ;       (lambda* (#:key outputs #:allow-other-keys)
119
    ;         (zero? (system* "b2" "install"
120
    ;                         (string-append "--prefix="
121
    ;                                        (assoc-ref outputs "out")))))))))
122
    (home-page "http://www.rasterbar.com/products/luabind.html")
123
    (synopsis "")
124
    (description "")
125
    (license license:expat)))
126