[jackhill/guix/guix.git] / gnu / packages / opencl.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages opencl)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system cmake)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages gnupg)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages libedit)
  #:use-module (gnu packages llvm)
  #:use-module (gnu packages mpi)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages ruby)
  #:use-module (gnu packages video)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xorg))

;; This file adds OpenCL implementation related packages. Due to the fact that
;; OpenCL devices like GPU are not available during build (store environment),
;; tests that require such devices are all disabled.
;; Check https://lists.gnu.org/archive/html/guix-devel/2018-04/msg00293.html

(define (make-opencl-headers major-version subversion)
  (let ((commit "e986688daf750633898dfd3994e14a9e618f2aa5")
        (revision "0"))
    (package
      (name "opencl-headers")
      (version (git-version
                (string-append major-version "." subversion ".0")
                revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url "https://github.com/KhronosGroup/OpenCL-Headers.git")
                      (commit commit)))
                (file-name (git-file-name name version))
                (sha256
                 (base32
                  "176ydpbyws5nr4av6hf8p41pkhc0rc4m4vrah9w6gp2fw2i32838"))))
      (build-system gnu-build-system)
      (arguments
       `(#:phases
         (modify-phases %standard-phases
           (delete 'configure)
           (delete 'build)
           (delete 'check)
           (replace 'install
             (lambda* (#:key outputs #:allow-other-keys)
               (copy-recursively (string-append "./opencl" (string-append
                                                            ,major-version
                                                            ,subversion) "/CL")
                                 (string-append
                                  (assoc-ref outputs "out")
                                  "/include/CL")))))))
      (synopsis "The Khronos OpenCL headers")
      (description
       "This package provides the C headers by Khronos for OpenCL
programming.")
      (home-page "https://www.khronos.org/registry/OpenCL/")
      (license license:expat))))

(define-public opencl-headers-2.2
  (make-opencl-headers "2" "2"))
(define-public opencl-headers-2.1
  (make-opencl-headers "2" "1"))
(define-public opencl-headers-2.0
  (make-opencl-headers "2" "0"))
(define-public opencl-headers-1.2
  (make-opencl-headers "1" "2"))
(define-public opencl-headers-1.1
  (make-opencl-headers "1" "1"))
(define-public opencl-headers-1.0
  (make-opencl-headers "1" "0"))

(define-public opencl-headers opencl-headers-2.2)

(define-public opencl-clhpp
  (package
    (name "opencl-clhpp")
    (version "2.0.10")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/KhronosGroup/OpenCL-CLHPP.git")
             (commit (string-append "v" version))))
       (sha256
        (base32 "0h5kpg5cl8wzfnqmv6i26aig2apv06ffm9p3rh35938n9r8rladm"))
       (file-name (git-file-name name version))))
    (native-inputs
     `(("python" ,python-wrapper)))
    (propagated-inputs
     `(("opencl-headers" ,opencl-headers)))
    (arguments
     `(#:configure-flags
       (let ((out (assoc-ref %outputs "out")))
         (list
          "-DBUILD_EXAMPLES=OFF"
          "-DBUILD_TESTS=OFF"
          (string-append "-DCMAKE_INSTALL_PREFIX="
                         (assoc-ref %outputs "out")
                         "/include")))
       ;; The regression tests require a lot more dependencies.
       #:tests? #f))
    (build-system cmake-build-system)
    (home-page "http://github.khronos.org/OpenCL-CLHPP/")
    (synopsis "Khronos OpenCL-CLHPP")
    (description
     "This package provides the @dfn{host API} C++ headers for OpenCL.")
    (license license:expat)))

(define-public ocl-icd
  (package
    (name "ocl-icd")
    (version "2.2.12")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://forge.imag.fr/frs/download.php/836/ocl-icd-"
                    version ".tar.gz"))
              (file-name (string-append name "-" version ".tar.gz"))
              (sha256
               (base32
                "1x2dr8p4dkfds56r38av360i3nv1y3326jmshxvjngaf6mlg6rbn"))
              (modules '((guix build utils)))
              (snippet
               '(delete-file-recursively "khronos-headers"))))
    (native-inputs
     `(("opencl-headers" ,opencl-headers)
       ("ruby" ,ruby)))
    (inputs
     `(("libgcrypt" ,libgcrypt)))
    (build-system gnu-build-system)
    (arguments
     '(#:configure-flags '("DEBUG_OCL_ICD=1")))
    (native-search-paths
     (list (search-path-specification
            (variable "OPENCL_VENDOR_PATH")
            (files '("etc/OpenCL/vendors")))))
    (search-paths native-search-paths)
    (home-page "https://forge.imag.fr/projects/ocl-icd/")
    (synopsis "OpenCL loader for Installable Client Drivers (ICDs)")
    (description
     "OpenCL implementations are provided as ICDs (Installable Client
Drivers).  An OpenCL program can use several ICDs thanks to the use of an ICD
Loader as provided by this package.")
    (license license:bsd-2)))

(define-public clinfo
  (package
    (name "clinfo")
    (version "2.2.18.04.06")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/Oblomov/clinfo.git")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0y2q0lz5yzxy970b7w7340vp4fl25vndahsyvvrywcrn51ipgplx"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("opencl-headers" ,opencl-headers)))
    (inputs
     `(("ocl-icd" ,ocl-icd)))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure)
         (replace 'build
           (lambda _
             (let ((cores (number->string (parallel-job-count))))
               (setenv "CC" "gcc")
               (invoke "make" "-j" cores))))
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (invoke "make" "install" (string-append
                                       "PREFIX="
                                       (assoc-ref outputs "out"))))))
       #:tests? #f))
    (home-page "https://github.com/Oblomov/clinfo")
    (synopsis "Print information about OpenCL platforms and devices")
    ;; Only the implementation installed via Guix will be detected.
    (description
     "This package provides the @command{clinfo} command that enumerates all
possible (known) properties of the OpenCL platform and devices available on
the system.")
    (license license:cc0)))

(define-public beignet
  (package
    (name "beignet")
    (version "1.3.2")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/intel/beignet.git")
             (commit (string-append "Release_v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0lpv3lvi2vrmzb8blflrpbd3jgin76zqmz6jcv17vn9mylqdrfnd"))
       (patches (search-patches "beignet-correct-file-names.patch"))
       (modules '((guix build utils)))
       (snippet
        ;; There's a suspicious .isa binary file under kernels/.
        ;; Remove it.
        '(for-each delete-file (find-files "." "\\.isa$")))))
    (native-inputs `(("pkg-config" ,pkg-config)
                     ("python" ,python)))
    (inputs `(("clang@3.7" ,clang-3.7)
              ("clang-runtime@3.7" ,clang-runtime-3.7)
              ("glu" ,glu)
              ("llvm@3.7" ,llvm-3.7)
              ("libdrm" ,libdrm)
              ("libedit" ,libedit)
              ("libpthread-stubs", libpthread-stubs)
              ("libsm" ,libsm)
              ("libva" ,libva)
              ("libxfixes" ,libxfixes)
              ("libxext" ,libxext)
              ("mesa-utils" ,mesa-utils)
              ("ncurses" ,ncurses)
              ("ocl-icd" ,ocl-icd)
              ("opencl-headers" ,opencl-headers)
              ("xextproto" ,xextproto)
              ("zlib" ,zlib)))
    (build-system cmake-build-system)
    (arguments
     `(#:configure-flags
       (list (string-append "-DCLANG_LIBRARY_DIR="
                            (assoc-ref %build-inputs "clang@3.7") "/lib")
             "-DENABLE_GL_SHARING=ON"
             "-DEXPERIMENTAL_DOUBLE=ON")

       #:phases
       (modify-phases %standard-phases
         (add-after 'install 'remove-headers
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (delete-file-recursively
                (string-append out "/include"))
               #t)))
         (add-after 'remove-headers 'install-kernels
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (builddir (getcwd))
                    (source-dir (string-append
                                 builddir
                                 "/../beignet-Release_v1.3.2/kernels")))
               (copy-recursively source-dir
                                 (string-append out "/lib/beignet/kernels"))
               #t))))
       ;; Beignet tries to find GPU when running tests, which is not available
       ;; during build.
       #:tests? #f))
    (home-page "https://wiki.freedesktop.org/www/Software/Beignet/")
    (synopsis "OpenCL framework for Intel GPUs")
    (description
     "Beignet is an implementation of the OpenCL specification.  This code
base contains the code to run OpenCL programs on Intel GPUs---IvyBridge,
Haswell, Skylake, Apollolake, etc.  It defines and implements the OpenCL host
functions required to initialize the device, create the command queues, the
kernels and the programs, and run them on the GPU.  The code also contains a
back-end for the LLVM compiler framework.")
    (license license:lgpl2.1+)))

(define-public pocl
  (package
    (name "pocl")
    (version "1.2")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/pocl/pocl.git")
             (commit (string-append "v" version))))
       (sha256
        (base32 "0fyiwd9nrqhl0jsac0bx17p9acpfzhyxp50mmp28mzn7psb9qidg"))
       (file-name (git-file-name name version))))
    (build-system cmake-build-system)
    (native-inputs
     `(("libltdl" ,libltdl)
       ("pkg-config" ,pkg-config)))
    (inputs
     `(("clang" ,clang)
       ("hwloc" ,hwloc-2.0 "lib")
       ("llvm" ,llvm)
       ("ocl-icd" ,ocl-icd)))
    (arguments
     `(#:configure-flags
       (list "-DENABLE_ICD=ON"
             "-DENABLE_TESTSUITES=ON"
             ;; We are not developers, don't run conformance suite.
             "-DENABLE_CONFORMANCE=OFF"
             (string-append "-DEXTRA_HOST_LD_FLAGS=-L"
                            (assoc-ref %build-inputs "libc") "/lib"))
       #:phases
       (modify-phases %standard-phases
         (add-before 'check 'set-HOME
           (lambda _
             (setenv "HOME" "/tmp")
             #t)))))
    (home-page "http://portablecl.org/")
    (synopsis "Portable Computing Language (pocl), an OpenCL implementation")
    (description
     "Pocl is a portable implementation of the OpenCL standard (1.2 with some
2.0 features supported).  This project seeks to improve performance
portability of OpenCL programs with the kernel compiler and the task run-time,
reducing the need for target-dependent manual optimizations.

pocl uses Clang as an OpenCL C frontend and LLVM for kernel compiler
implementation, and as a portability layer.  Thus, if your desired target has
an LLVM backend, it should be able to get OpenCL support easily by using
pocl.")
    (license license:expat)))
Commit	Line	Data
7f996b4c FT	1	;;; GNU Guix --- Functional package management for GNU
7f996b4c FT	2	;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
d6d9ca10	3	;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
7f996b4c FT	4	;;;
	5	;;; This file is part of GNU Guix.
	6	;;;
	7	;;; GNU Guix is free software; you can redistribute it and/or modify it
	8	;;; under the terms of the GNU General Public License as published by
	9	;;; the Free Software Foundation; either version 3 of the License, or (at
	10	;;; your option) any later version.
	11	;;;
	12	;;; GNU Guix is distributed in the hope that it will be useful, but
	13	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	14	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	;;; GNU General Public License for more details.
	16	;;;
	17	;;; You should have received a copy of the GNU General Public License
	18	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	19
	20	(define-module (gnu packages opencl)
	21	#:use-module (guix build-system gnu)
f69c1a18 FT	22	#:use-module (guix build-system cmake)
f69c1a18 FT	23	#:use-module (guix download)
7f996b4c	24	#:use-module (guix git-download)
f69c1a18	25	#:use-module ((guix licenses) #:prefix license:)
f19b2630 FT	26	#:use-module (guix packages)
f19b2630 FT	27	#:use-module (gnu packages)
53fc7a09	28	#:use-module (gnu packages autotools)
f19b2630	29	#:use-module (gnu packages gl)
2a0539e2	30	#:use-module (gnu packages gnupg)
f19b2630 FT	31	#:use-module (gnu packages compression)
	32	#:use-module (gnu packages libedit)
	33	#:use-module (gnu packages llvm)
53fc7a09	34	#:use-module (gnu packages mpi)
f19b2630 FT	35	#:use-module (gnu packages ncurses)
f19b2630 FT	36	#:use-module (gnu packages pkg-config)
2a0539e2	37	#:use-module (gnu packages python)
f19b2630 FT	38	#:use-module (gnu packages ruby)
	39	#:use-module (gnu packages video)
	40	#:use-module (gnu packages xdisorg)
	41	#:use-module (gnu packages xorg))
7f996b4c FT	42
7f996b4c FT	43	;; This file adds OpenCL implementation related packages. Due to the fact that
53fc7a09 FT	44	;; OpenCL devices like GPU are not available during build (store environment),
53fc7a09 FT	45	;; tests that require such devices are all disabled.
7f996b4c FT	46	;; Check https://lists.gnu.org/archive/html/guix-devel/2018-04/msg00293.html
	47
	48	(define (make-opencl-headers major-version subversion)
	49	(let ((commit "e986688daf750633898dfd3994e14a9e618f2aa5")
	50	(revision "0"))
	51	(package
	52	(name "opencl-headers")
	53	(version (git-version
	54	(string-append major-version "." subversion ".0")
	55	revision commit))
	56	(source (origin
	57	(method git-fetch)
	58	(uri (git-reference
	59	(url "https://github.com/KhronosGroup/OpenCL-Headers.git")
	60	(commit commit)))
d6d9ca10	61	(file-name (git-file-name name version))
7f996b4c FT	62	(sha256
	63	(base32
	64	"176ydpbyws5nr4av6hf8p41pkhc0rc4m4vrah9w6gp2fw2i32838"))))
	65	(build-system gnu-build-system)
	66	(arguments
	67	`(#:phases
	68	(modify-phases %standard-phases
	69	(delete 'configure)
	70	(delete 'build)
	71	(delete 'check)
	72	(replace 'install
	73	(lambda* (#:key outputs #:allow-other-keys)
	74	(copy-recursively (string-append "./opencl" (string-append
	75	,major-version
	76	,subversion) "/CL")
	77	(string-append
	78	(assoc-ref outputs "out")
	79	"/include/CL")))))))
	80	(synopsis "The Khronos OpenCL headers")
	81	(description
	82	"This package provides the C headers by Khronos for OpenCL
	83	programming.")
	84	(home-page "https://www.khronos.org/registry/OpenCL/")
	85	(license license:expat))))
	86
	87	(define-public opencl-headers-2.2
	88	(make-opencl-headers "2" "2"))
	89	(define-public opencl-headers-2.1
	90	(make-opencl-headers "2" "1"))
	91	(define-public opencl-headers-2.0
	92	(make-opencl-headers "2" "0"))
	93	(define-public opencl-headers-1.2
	94	(make-opencl-headers "1" "2"))
	95	(define-public opencl-headers-1.1
	96	(make-opencl-headers "1" "1"))
	97	(define-public opencl-headers-1.0
	98	(make-opencl-headers "1" "0"))
	99
	100	(define-public opencl-headers opencl-headers-2.2)
f69c1a18 FT	101
	102	(define-public opencl-clhpp
	103	(package
	104	(name "opencl-clhpp")
	105	(version "2.0.10")
d6d9ca10 TGR	106	(source
	107	(origin
	108	(method git-fetch)
	109	(uri (git-reference
	110	(url "https://github.com/KhronosGroup/OpenCL-CLHPP.git")
	111	(commit (string-append "v" version))))
	112	(sha256
	113	(base32 "0h5kpg5cl8wzfnqmv6i26aig2apv06ffm9p3rh35938n9r8rladm"))
	114	(file-name (git-file-name name version))))
f69c1a18 FT	115	(native-inputs
	116	`(("python" ,python-wrapper)))
	117	(propagated-inputs
	118	`(("opencl-headers" ,opencl-headers)))
	119	(arguments
	120	`(#:configure-flags
	121	(let ((out (assoc-ref %outputs "out")))
	122	(list
	123	"-DBUILD_EXAMPLES=OFF"
	124	"-DBUILD_TESTS=OFF"
	125	(string-append "-DCMAKE_INSTALL_PREFIX="
	126	(assoc-ref %outputs "out")
	127	"/include")))
d6d9ca10	128	;; The regression tests require a lot more dependencies.
f69c1a18 FT	129	#:tests? #f))
	130	(build-system cmake-build-system)
	131	(home-page "http://github.khronos.org/OpenCL-CLHPP/")
	132	(synopsis "Khronos OpenCL-CLHPP")
	133	(description
	134	"This package provides the @dfn{host API} C++ headers for OpenCL.")
	135	(license license:expat)))
2a0539e2 FT	136
	137	(define-public ocl-icd
	138	(package
	139	(name "ocl-icd")
	140	(version "2.2.12")
	141	(source (origin
	142	(method url-fetch)
	143	(uri (string-append
	144	"https://forge.imag.fr/frs/download.php/836/ocl-icd-"
	145	version ".tar.gz"))
	146	(file-name (string-append name "-" version ".tar.gz"))
	147	(sha256
	148	(base32
	149	"1x2dr8p4dkfds56r38av360i3nv1y3326jmshxvjngaf6mlg6rbn"))
	150	(modules '((guix build utils)))
	151	(snippet
	152	'(delete-file-recursively "khronos-headers"))))
	153	(native-inputs
	154	`(("opencl-headers" ,opencl-headers)
	155	("ruby" ,ruby)))
	156	(inputs
	157	`(("libgcrypt" ,libgcrypt)))
	158	(build-system gnu-build-system)
	159	(arguments
	160	'(#:configure-flags '("DEBUG_OCL_ICD=1")))
	161	(native-search-paths
	162	(list (search-path-specification
	163	(variable "OPENCL_VENDOR_PATH")
	164	(files '("etc/OpenCL/vendors")))))
	165	(search-paths native-search-paths)
	166	(home-page "https://forge.imag.fr/projects/ocl-icd/")
	167	(synopsis "OpenCL loader for Installable Client Drivers (ICDs)")
	168	(description
	169	"OpenCL implementations are provided as ICDs (Installable Client
	170	Drivers). An OpenCL program can use several ICDs thanks to the use of an ICD
	171	Loader as provided by this package.")
	172	(license license:bsd-2)))
184a214b FT	173
	174	(define-public clinfo
	175	(package
	176	(name "clinfo")
	177	(version "2.2.18.04.06")
d6d9ca10 TGR	178	(source
	179	(origin
	180	(method git-fetch)
	181	(uri (git-reference
	182	(url "https://github.com/Oblomov/clinfo.git")
	183	(commit version)))
	184	(file-name (git-file-name name version))
	185	(sha256
	186	(base32 "0y2q0lz5yzxy970b7w7340vp4fl25vndahsyvvrywcrn51ipgplx"))))
184a214b FT	187	(build-system gnu-build-system)
	188	(native-inputs
	189	`(("opencl-headers" ,opencl-headers)))
	190	(inputs
	191	`(("ocl-icd" ,ocl-icd)))
	192	(arguments
	193	`(#:phases
	194	(modify-phases %standard-phases
	195	(delete 'configure)
	196	(replace 'build
	197	(lambda _
	198	(let ((cores (number->string (parallel-job-count))))
	199	(setenv "CC" "gcc")
	200	(invoke "make" "-j" cores))))
	201	(replace 'install
	202	(lambda* (#:key outputs #:allow-other-keys)
	203	(invoke "make" "install" (string-append
	204	"PREFIX="
	205	(assoc-ref outputs "out"))))))
	206	#:tests? #f))
	207	(home-page "https://github.com/Oblomov/clinfo")
	208	(synopsis "Print information about OpenCL platforms and devices")
	209	;; Only the implementation installed via Guix will be detected.
	210	(description
	211	"This package provides the @command{clinfo} command that enumerates all
	212	possible (known) properties of the OpenCL platform and devices available on
	213	the system.")
	214	(license license:cc0)))
f19b2630 FT	215
	216	(define-public beignet
	217	(package
	218	(name "beignet")
	219	(version "1.3.2")
d6d9ca10 TGR	220	(source
	221	(origin
	222	(method git-fetch)
	223	(uri (git-reference
	224	(url "https://github.com/intel/beignet.git")
	225	(commit (string-append "Release_v" version))))
	226	(file-name (git-file-name name version))
	227	(sha256
	228	(base32 "0lpv3lvi2vrmzb8blflrpbd3jgin76zqmz6jcv17vn9mylqdrfnd"))
	229	(patches (search-patches "beignet-correct-file-names.patch"))
	230	(modules '((guix build utils)))
	231	(snippet
	232	;; There's a suspicious .isa binary file under kernels/.
	233	;; Remove it.
	234	'(for-each delete-file (find-files "." "\\.isa$")))))
f19b2630 FT	235	(native-inputs `(("pkg-config" ,pkg-config)
	236	("python" ,python)))
	237	(inputs `(("clang@3.7" ,clang-3.7)
	238	("clang-runtime@3.7" ,clang-runtime-3.7)
	239	("glu" ,glu)
	240	("llvm@3.7" ,llvm-3.7)
	241	("libdrm" ,libdrm)
	242	("libedit" ,libedit)
	243	("libpthread-stubs", libpthread-stubs)
	244	("libsm" ,libsm)
	245	("libva" ,libva)
	246	("libxfixes" ,libxfixes)
	247	("libxext" ,libxext)
	248	("mesa-utils" ,mesa-utils)
	249	("ncurses" ,ncurses)
	250	("ocl-icd" ,ocl-icd)
	251	("opencl-headers" ,opencl-headers)
	252	("xextproto" ,xextproto)
	253	("zlib" ,zlib)))
	254	(build-system cmake-build-system)
	255	(arguments
	256	`(#:configure-flags
	257	(list (string-append "-DCLANG_LIBRARY_DIR="
	258	(assoc-ref %build-inputs "clang@3.7") "/lib")
	259	"-DENABLE_GL_SHARING=ON"
	260	"-DEXPERIMENTAL_DOUBLE=ON")
	261
	262	#:phases
	263	(modify-phases %standard-phases
	264	(add-after 'install 'remove-headers
	265	(lambda* (#:key outputs #:allow-other-keys)
	266	(let ((out (assoc-ref outputs "out")))
	267	(delete-file-recursively
	268	(string-append out "/include"))
	269	#t)))
	270	(add-after 'remove-headers 'install-kernels
	271	(lambda* (#:key outputs #:allow-other-keys)
	272	(let* ((out (assoc-ref outputs "out"))
	273	(builddir (getcwd))
	274	(source-dir (string-append
	275	builddir
	276	"/../beignet-Release_v1.3.2/kernels")))
	277	(copy-recursively source-dir
	278	(string-append out "/lib/beignet/kernels"))
	279	#t))))
	280	;; Beignet tries to find GPU when running tests, which is not available
	281	;; during build.
	282	#:tests? #f))
	283	(home-page "https://wiki.freedesktop.org/www/Software/Beignet/")
	284	(synopsis "OpenCL framework for Intel GPUs")
	285	(description
	286	"Beignet is an implementation of the OpenCL specification. This code
	287	base contains the code to run OpenCL programs on Intel GPUs---IvyBridge,
	288	Haswell, Skylake, Apollolake, etc. It defines and implements the OpenCL host
	289	functions required to initialize the device, create the command queues, the
	290	kernels and the programs, and run them on the GPU. The code also contains a
	291	back-end for the LLVM compiler framework.")
	292	(license license:lgpl2.1+)))
53fc7a09 FT	293
	294	(define-public pocl
	295	(package
	296	(name "pocl")
bfb22078	297	(version "1.2")
d6d9ca10 TGR	298	(source
	299	(origin
	300	(method git-fetch)
	301	(uri (git-reference
	302	(url "https://github.com/pocl/pocl.git")
	303	(commit (string-append "v" version))))
d6d9ca10	304	(sha256
bfb22078	305	(base32 "0fyiwd9nrqhl0jsac0bx17p9acpfzhyxp50mmp28mzn7psb9qidg"))
bfb22078	306	(file-name (git-file-name name version))))
53fc7a09 FT	307	(build-system cmake-build-system)
	308	(native-inputs
	309	`(("libltdl" ,libltdl)
	310	("pkg-config" ,pkg-config)))
	311	(inputs
	312	`(("clang" ,clang)
bfb22078	313	("hwloc" ,hwloc-2.0 "lib")
53fc7a09 FT	314	("llvm" ,llvm)
	315	("ocl-icd" ,ocl-icd)))
	316	(arguments
	317	`(#:configure-flags
	318	(list "-DENABLE_ICD=ON"
	319	"-DENABLE_TESTSUITES=ON"
	320	;; We are not developers, don't run conformance suite.
	321	"-DENABLE_CONFORMANCE=OFF"
	322	(string-append "-DEXTRA_HOST_LD_FLAGS=-L"
	323	(assoc-ref %build-inputs "libc") "/lib"))
	324	#:phases
	325	(modify-phases %standard-phases
53fc7a09 FT	326	(add-before 'check 'set-HOME
	327	(lambda _
	328	(setenv "HOME" "/tmp")
	329	#t)))))
	330	(home-page "http://portablecl.org/")
	331	(synopsis "Portable Computing Language (pocl), an OpenCL implementation")
	332	(description
	333	"Pocl is a portable implementation of the OpenCL standard (1.2 with some
	334	2.0 features supported). This project seeks to improve performance
	335	portability of OpenCL programs with the kernel compiler and the task run-time,
	336	reducing the need for target-dependent manual optimizations.
	337
	338	pocl uses Clang as an OpenCL C frontend and LLVM for kernel compiler
	339	implementation, and as a portability layer. Thus, if your desired target has
	340	an LLVM backend, it should be able to get OpenCL support easily by using
	341	pocl.")
	342	(license license:expat)))