gnu: Switch several packages to 'guile-build-system'.
* gnu/packages/guile.scm (guile-minikanren)[build-system]: Set to GUILE-BUILD-SYSTEM. [arguments]: Remove. [inputs]: Rename to 'native-inputs'. (guile-miniadapton): Likewise. (guile-colorized): Likewise. (guile-irregex): Likewise, but rewrite 'arguments' field with custom phases. (guile-gdbm-ffi): Likewise, and move patch to the 'origin' form. (guile-simple-zmq): Likewise, and change 'propagated-inputs' to 'inputs'. (jupyter-guile-kernel): Likewise.
This commit is contained in:
Ludovic Courtès
parent
2a3b1b3235
commit
977d866681
|
|
@ -74,6 +74,7 @@ (define-module (gnu packages guile)
|
|||
#:use-module (guix download)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system guile)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (ice-9 match)
|
||||
|
|
@ -965,60 +966,8 @@ (define-public guile-minikanren
|
|||
(sha256
|
||||
(base32
|
||||
"0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
|
||||
(build-system trivial-build-system)
|
||||
(arguments
|
||||
`(#:modules ((guix build utils))
|
||||
#:builder
|
||||
(begin
|
||||
(use-modules (guix build utils)
|
||||
(ice-9 match)
|
||||
(ice-9 popen)
|
||||
(ice-9 rdelim))
|
||||
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(guile (assoc-ref %build-inputs "guile"))
|
||||
(effective (read-line
|
||||
(open-pipe* OPEN_READ
|
||||
(string-append guile "/bin/guile")
|
||||
"-c" "(display (effective-version))")))
|
||||
(module-dir (string-append out "/share/guile/site/"
|
||||
effective))
|
||||
(source (assoc-ref %build-inputs "source"))
|
||||
(doc (string-append out "/share/doc/guile-minikanren"))
|
||||
(scm-files '("minikanren.scm"
|
||||
"minikanren/mkextraforms.scm"
|
||||
"minikanren/mkprelude.scm"
|
||||
"minikanren/mk.scm"))
|
||||
(guild (string-append (assoc-ref %build-inputs "guile")
|
||||
"/bin/guild")))
|
||||
;; Make installation directories.
|
||||
(mkdir-p (string-append module-dir "/minikanren"))
|
||||
(mkdir-p doc)
|
||||
|
||||
;; Compile .scm files and install.
|
||||
(chdir source)
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
(for-each (lambda (file)
|
||||
(let* ((dest-file (string-append module-dir "/"
|
||||
file))
|
||||
(go-file (match (string-split file #\.)
|
||||
((base _)
|
||||
(string-append module-dir "/"
|
||||
base ".go")))))
|
||||
;; Install source module.
|
||||
(copy-file file dest-file)
|
||||
;; Install compiled module.
|
||||
(invoke guild "compile"
|
||||
"-L" source
|
||||
"-o" go-file
|
||||
file)))
|
||||
scm-files)
|
||||
|
||||
;; Also copy over the README.
|
||||
(install-file "README.org" doc)
|
||||
|
||||
#t))))
|
||||
(inputs
|
||||
(build-system guile-build-system)
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(home-page "https://github.com/ijp/minikanren")
|
||||
(synopsis "MiniKanren declarative logic system, packaged for Guile")
|
||||
|
|
@ -1055,46 +1004,8 @@ (define-public guile-miniadapton
|
|||
(sha256
|
||||
(base32
|
||||
"09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:modules ((guix build utils)
|
||||
(ice-9 popen)
|
||||
(ice-9 rdelim)
|
||||
(srfi srfi-1)
|
||||
(guix build gnu-build-system))
|
||||
#:tests? #f ; there is no test target
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(delete 'build)
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((cwd (getcwd))
|
||||
(scm-files (find-files "." "\\.scm$"))
|
||||
(effective (read-line
|
||||
(open-pipe* OPEN_READ
|
||||
"guile" "-c"
|
||||
"(display (effective-version))")))
|
||||
(module-dir (string-append (assoc-ref outputs "out")
|
||||
"/share/guile/site/"
|
||||
effective)))
|
||||
|
||||
;; Make installation directories.
|
||||
(mkdir-p module-dir)
|
||||
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
|
||||
;; Compile .scm files and install.
|
||||
(every (lambda (file)
|
||||
(let ((go-file (string-append module-dir "/"
|
||||
(basename file ".scm") ".go")))
|
||||
;; Install source module.
|
||||
(install-file file module-dir)
|
||||
;; Compile and install module.
|
||||
(zero? (system* "guild" "compile" "-L" cwd
|
||||
"-o" go-file file))))
|
||||
scm-files)))))))
|
||||
(inputs
|
||||
(build-system guile-build-system)
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(home-page "https://github.com/fisherdj/miniAdapton")
|
||||
(synopsis "Minimal implementation of incremental computation in Guile
|
||||
|
|
@ -1120,65 +1031,25 @@ (define-public guile-irregex
|
|||
(sha256
|
||||
(base32
|
||||
"1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq"))))
|
||||
(build-system gnu-build-system)
|
||||
(build-system guile-build-system)
|
||||
(arguments
|
||||
`(#:modules ((guix build utils)
|
||||
(ice-9 match)
|
||||
(ice-9 rdelim)
|
||||
(ice-9 popen)
|
||||
(guix build gnu-build-system))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(delete 'build)
|
||||
(delete 'check)
|
||||
(replace 'install
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(effective (read-line
|
||||
(open-pipe* OPEN_READ
|
||||
"guile" "-c"
|
||||
"(display (effective-version))")))
|
||||
(module-dir (string-append out "/share/guile/site/"
|
||||
effective))
|
||||
(source (assoc-ref inputs "source"))
|
||||
(doc (string-append out "/share/doc/guile-irregex/"))
|
||||
(guild (string-append (assoc-ref %build-inputs "guile")
|
||||
"/bin/guild")))
|
||||
;; Make installation directories.
|
||||
(mkdir-p (string-append module-dir "/rx/source"))
|
||||
(mkdir-p doc)
|
||||
|
||||
;; Compile .scm files and install.
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
|
||||
(for-each (lambda (copy-info)
|
||||
(match copy-info
|
||||
((src-file dest-file-basis)
|
||||
(let* ((dest-file (string-append
|
||||
module-dir dest-file-basis
|
||||
".scm"))
|
||||
(go-file (string-append
|
||||
module-dir dest-file-basis
|
||||
".go")))
|
||||
;; Install source module.
|
||||
(copy-file src-file
|
||||
dest-file)
|
||||
;; Install compiled module.
|
||||
(invoke guild "compile"
|
||||
"-L" (getcwd)
|
||||
"-o" go-file
|
||||
src-file)))))
|
||||
'(("irregex-guile.scm" "/rx/irregex")
|
||||
("irregex.scm" "/rx/source/irregex")
|
||||
;; Not really reachable via guile's packaging system,
|
||||
;; but nice to have around
|
||||
("irregex-utils.scm" "/rx/source/irregex-utils")))
|
||||
|
||||
;; Also copy over the README.
|
||||
(install-file "irregex.html" doc)
|
||||
#t))))))
|
||||
(inputs
|
||||
'(#:phases (modify-phases %standard-phases
|
||||
(add-after 'unpack 'move-files-around
|
||||
(lambda _
|
||||
;; Move the relevant source files to src/ and create the
|
||||
;; rx/ directory to match the expected module hierarchy.
|
||||
(mkdir-p "src/rx/source")
|
||||
(rename-file "irregex-guile.scm"
|
||||
"src/rx/irregex.scm")
|
||||
(rename-file "irregex.scm"
|
||||
"src/rx/source/irregex.scm")
|
||||
;; Not really reachable via guile's packaging system,
|
||||
;; but nice to have around.
|
||||
(rename-file "irregex-utils.scm"
|
||||
"src/rx/source/irregex-utils.scm")
|
||||
#t)))
|
||||
#:source-directory "src"))
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(home-page "http://synthcode.com/scheme/irregex")
|
||||
(synopsis "S-expression based regular expressions")
|
||||
|
|
@ -1207,83 +1078,35 @@ (define-public guile-gdbm-ffi
|
|||
(url "https://github.com/ijp/guile-gdbm.git")
|
||||
(commit "fa1d5b6231d0e4d096687b378c025f2148c5f246")))
|
||||
(file-name (string-append name "-" version "-checkout"))
|
||||
(patches (search-patches
|
||||
"guile-gdbm-ffi-support-gdbm-1.14.patch"))
|
||||
(sha256
|
||||
(base32
|
||||
"1j8wrsw7v9w6qkl47xz0rdikg50v16nn6kbs3lgzcymjzpa7babj"))))
|
||||
(build-system trivial-build-system)
|
||||
(inputs
|
||||
`(("guile" ,guile-2.2)
|
||||
;; patch-and-repack doesn't work for git checkouts,
|
||||
;; so we must apply the patch manually.
|
||||
("patch" ,patch)
|
||||
("patch-file" ,(search-patch
|
||||
"guile-gdbm-ffi-support-gdbm-1.14.patch"))))
|
||||
(propagated-inputs
|
||||
`(("gdbm" ,gdbm)))
|
||||
(build-system guile-build-system)
|
||||
(arguments
|
||||
`(#:modules
|
||||
((guix build utils))
|
||||
#:builder
|
||||
(begin
|
||||
(use-modules (guix build utils)
|
||||
(ice-9 rdelim)
|
||||
(ice-9 popen))
|
||||
|
||||
;; Avoid warnings we can safely ignore
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(effective-version
|
||||
(read-line
|
||||
(open-pipe* OPEN_READ
|
||||
(string-append
|
||||
(assoc-ref %build-inputs "guile")
|
||||
"/bin/guile")
|
||||
"-c" "(display (effective-version))")))
|
||||
(module-dir (string-append out "/share/guile/site/"
|
||||
effective-version))
|
||||
(source (assoc-ref %build-inputs "source"))
|
||||
(doc (string-append out "/share/doc"))
|
||||
(guild (string-append (assoc-ref %build-inputs "guile")
|
||||
"/bin/guild"))
|
||||
(gdbm.scm-dest
|
||||
(string-append module-dir "/gdbm.scm"))
|
||||
(gdbm.go-dest
|
||||
(string-append module-dir "/gdbm.go"))
|
||||
(compile-file
|
||||
(lambda (in-file out-file)
|
||||
(invoke guild "compile" "-o" out-file in-file))))
|
||||
;; Switch directory for compiling and installing
|
||||
(chdir source)
|
||||
|
||||
;; Install the documentation.
|
||||
(install-file "README.md" doc)
|
||||
(copy-recursively "examples" (string-append doc "/examples"))
|
||||
|
||||
;; Make installation directories.
|
||||
(mkdir-p module-dir)
|
||||
|
||||
;; copy the source
|
||||
(copy-file "gdbm.scm" gdbm.scm-dest)
|
||||
|
||||
;; Patch the FFI
|
||||
(substitute* gdbm.scm-dest
|
||||
(("\\(dynamic-link \"libgdbm\"\\)")
|
||||
(format #f "(dynamic-link \"~a/lib/libgdbm.so\")"
|
||||
(assoc-ref %build-inputs "gdbm"))))
|
||||
|
||||
;; Apply the patch to add support for gdbm-1.14.
|
||||
(let ((patch-command (string-append (assoc-ref %build-inputs "patch")
|
||||
"/bin/patch"))
|
||||
(patch-file (assoc-ref %build-inputs "patch-file")))
|
||||
(with-directory-excursion (dirname gdbm.scm-dest)
|
||||
(format #t "applying '~a'...~%" patch-file)
|
||||
(invoke patch-command "--force" "--input" patch-file)))
|
||||
|
||||
;; compile to the destination
|
||||
(compile-file gdbm.scm-dest gdbm.go-dest)
|
||||
|
||||
#t))))
|
||||
'(#:phases (modify-phases %standard-phases
|
||||
(add-after 'unpack 'move-examples
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
;; Move examples where they belong.
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(doc (string-append out "/share/doc/"
|
||||
(strip-store-file-name out)
|
||||
"/examples")))
|
||||
(copy-recursively "examples" doc)
|
||||
(delete-file-recursively "examples")
|
||||
#t)))
|
||||
(add-after 'unpack 'set-libgdbm-file-name
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "gdbm.scm"
|
||||
(("\\(dynamic-link \"libgdbm\"\\)")
|
||||
(format #f "(dynamic-link \"~a/lib/libgdbm.so\")"
|
||||
(assoc-ref inputs "gdbm"))))
|
||||
#t)))))
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(inputs
|
||||
`(("gdbm" ,gdbm)))
|
||||
(home-page "https://github.com/ijp/guile-gdbm")
|
||||
(synopsis "Guile bindings to the GDBM library via Guile's FFI")
|
||||
(description
|
||||
|
|
@ -2142,32 +1965,8 @@ (define-public guile-colorized
|
|||
(sha256
|
||||
(base32
|
||||
"16xhc3an6aglnca8xl3mvgi8hsqzqn68vsl5ga4bz8bvbap5fn4p"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:modules ((system base compile)
|
||||
,@%gnu-build-system-modules)
|
||||
#:tests? #f ;No tests included
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure) ;No configure script
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(module-dir (string-append out "/share/guile/site/2.2"))
|
||||
(language-dir (string-append module-dir "/ice-9"))
|
||||
(guild (string-append (assoc-ref inputs "guile")
|
||||
"/bin/guild")))
|
||||
;; The original 'make install' is too primitive.
|
||||
|
||||
;; copy the source
|
||||
(install-file "ice-9/colorized.scm" language-dir)
|
||||
|
||||
;; compile to the destination
|
||||
(compile-file "ice-9/colorized.scm"
|
||||
#:output-file (string-append
|
||||
language-dir "/colorized.go"))
|
||||
#t))))))
|
||||
(inputs
|
||||
(build-system guile-build-system)
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(home-page "https://github.com/NalaGinrut/guile-colorized")
|
||||
(synopsis "Colorized REPL for Guile")
|
||||
|
|
@ -2191,72 +1990,20 @@ (define-public guile-simple-zmq
|
|||
(base32
|
||||
"0nj2pd5bsmmgd3c54wh4sixfhmsv1arsq7yam2d7487h3n9q57r7"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system trivial-build-system)
|
||||
(build-system guile-build-system)
|
||||
(arguments
|
||||
`(#:modules ((guix build utils))
|
||||
#:builder
|
||||
(begin
|
||||
(use-modules (guix build utils)
|
||||
(srfi srfi-26)
|
||||
(ice-9 match)
|
||||
(ice-9 popen)
|
||||
(ice-9 rdelim))
|
||||
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(guile (assoc-ref %build-inputs "guile"))
|
||||
(effective (read-line
|
||||
(open-pipe* OPEN_READ
|
||||
(string-append guile "/bin/guile")
|
||||
"-c" "(display (effective-version))")))
|
||||
(module-dir (string-append out "/share/guile/site/"
|
||||
effective))
|
||||
(go-dir (string-append out "/lib/guile/"
|
||||
effective "/site-ccache/"))
|
||||
(source (string-append (assoc-ref %build-inputs "source")
|
||||
"/src"))
|
||||
(scm-file "simple-zmq.scm")
|
||||
(guild (string-append (assoc-ref %build-inputs "guile")
|
||||
"/bin/guild"))
|
||||
(zmq (assoc-ref %build-inputs "zeromq"))
|
||||
(deps (list zmq))
|
||||
(path (string-join
|
||||
(map (cut string-append <>
|
||||
"/lib/")
|
||||
deps)
|
||||
":")))
|
||||
;; Make installation directories.
|
||||
(mkdir-p module-dir)
|
||||
(mkdir-p go-dir)
|
||||
|
||||
;; Compile .scm files and install.
|
||||
(chdir source)
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
(for-each (lambda (file)
|
||||
(let* ((dest-file (string-append module-dir "/"
|
||||
file))
|
||||
(go-file (match (string-split file #\.)
|
||||
((base _)
|
||||
(string-append go-dir "/"
|
||||
base ".go")))))
|
||||
;; Install source module.
|
||||
(copy-file file dest-file)
|
||||
(substitute* dest-file
|
||||
(("\\(dynamic-link \"libzmq\"\\)")
|
||||
(format #f "(dynamic-link \"~a/lib/libzmq.so\")"
|
||||
(assoc-ref %build-inputs "zeromq"))))
|
||||
|
||||
;; Install and compile module.
|
||||
(unless (zero? (system* guild "compile"
|
||||
"-L" source
|
||||
"-o" go-file
|
||||
dest-file))
|
||||
(error (format #f "Failed to compile ~s to ~s!"
|
||||
file go-file)))))
|
||||
(list scm-file))
|
||||
#t))))
|
||||
(inputs
|
||||
`(#:source-directory "src"
|
||||
#:phases (modify-phases %standard-phases
|
||||
(add-after 'unpack 'set-libzmq-file-name
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "src/simple-zmq.scm"
|
||||
(("\\(dynamic-link \"libzmq\"\\)")
|
||||
(format #f "(dynamic-link \"~a/lib/libzmq.so\")"
|
||||
(assoc-ref inputs "zeromq"))))
|
||||
#t)))))
|
||||
(native-inputs
|
||||
`(("guile" ,guile-2.2)))
|
||||
(propagated-inputs
|
||||
(inputs
|
||||
`(("zeromq" ,zeromq)))
|
||||
(home-page "https://github.com/jerry40/guile-simple-zmq")
|
||||
(synopsis "Guile wrapper over ZeroMQ library")
|
||||
|
|
@ -2280,106 +2027,46 @@ (define-public jupyter-guile-kernel
|
|||
(sha256
|
||||
(base32
|
||||
"0y5jr0f0dyskvsawqbf6n0bpg8jirw4mhqbarf2a6p9lxhqha9s9"))))
|
||||
(build-system trivial-build-system)
|
||||
(build-system guile-build-system)
|
||||
(arguments
|
||||
`(#:modules ((guix build utils))
|
||||
#:builder
|
||||
(begin
|
||||
(use-modules (guix build utils)
|
||||
(srfi srfi-26)
|
||||
(ice-9 match)
|
||||
(ice-9 popen)
|
||||
(ice-9 rdelim))
|
||||
'(#:phases (modify-phases %standard-phases
|
||||
(add-after 'unpack 'set-openssl-file-name
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
;; Record the absolute file name of the 'openssl'
|
||||
;; command.
|
||||
(substitute* "src/hmac.scm"
|
||||
(("openssl")
|
||||
(string-append (assoc-ref inputs "openssl")
|
||||
"/bin/openssl")))
|
||||
#t))
|
||||
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(guile (assoc-ref %build-inputs "guile"))
|
||||
(effective (read-line
|
||||
(open-pipe* OPEN_READ
|
||||
(string-append guile "/bin/guile")
|
||||
"-c" "(display (effective-version))")))
|
||||
(module-dir (string-append out "/share/guile/site/"
|
||||
effective))
|
||||
(kernel-dir (string-append out "/share/jupyter/kernels/guile"))
|
||||
(go-dir (string-append out "/lib/guile/"
|
||||
effective
|
||||
"/site-ccache"))
|
||||
(source (string-append (assoc-ref %build-inputs "source")
|
||||
"/src"))
|
||||
(scm-files '("hmac.scm"
|
||||
"tools.scm"
|
||||
"guile-jupyter-kernel.scm"))
|
||||
(kernel-file "kernel.json")
|
||||
(guild (string-append (assoc-ref %build-inputs "guile")
|
||||
"/bin/guild"))
|
||||
(g-szmq (assoc-ref %build-inputs "guile-simple-zmq"))
|
||||
(json (assoc-ref %build-inputs "guile-json"))
|
||||
(deps (list g-szmq json))
|
||||
(path (string-join
|
||||
(map (cut string-append <>
|
||||
"/share/guile/site/"
|
||||
effective)
|
||||
deps)
|
||||
":"))
|
||||
(gopath (string-join
|
||||
(map (cut string-append <>
|
||||
"/lib/guile/" effective
|
||||
"/site-ccache/")
|
||||
deps)
|
||||
":")))
|
||||
;; XXX: The code uses 'include' to include its own source
|
||||
;; files, and "-L src" isn't enough in this case.
|
||||
(add-before 'build 'chdir
|
||||
(lambda _ (chdir "src") #t))
|
||||
(add-after 'build 'chdir-back
|
||||
(lambda _ (chdir "..") #t))
|
||||
|
||||
;; Make installation directories.
|
||||
(mkdir-p module-dir)
|
||||
(mkdir-p kernel-dir)
|
||||
(mkdir-p go-dir)
|
||||
(add-after 'install 'install-kernel
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(dir (string-append
|
||||
out "/share/jupyter/kernels/guile")))
|
||||
;; Install kernel.
|
||||
(install-file "src/kernel.json" dir)
|
||||
|
||||
;; Make a writable copy of SOURCE.
|
||||
(copy-recursively source ".")
|
||||
|
||||
;; Record the absolute file name of the 'openssl' command.
|
||||
(substitute* "hmac.scm"
|
||||
(("openssl")
|
||||
(string-append (assoc-ref %build-inputs "openssl")
|
||||
"/bin/openssl")))
|
||||
|
||||
;; Compile .scm files and install.
|
||||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||||
(setenv "GUILE_LOAD_PATH" path)
|
||||
(setenv "GUILE_LOAD_COMPILED_PATH" gopath)
|
||||
|
||||
(for-each (lambda (file)
|
||||
(let* ((dest-file (string-append module-dir "/"
|
||||
file))
|
||||
(go-file (match (string-split file #\.)
|
||||
((base _)
|
||||
(string-append go-dir "/"
|
||||
base ".go")))))
|
||||
;; Install source module.
|
||||
(copy-file file dest-file)
|
||||
|
||||
;; Install compiled module.
|
||||
(unless (zero? (system* guild "compile"
|
||||
"-L" source
|
||||
"-o" go-file
|
||||
file))
|
||||
(error (format #f "Failed to compile ~s to ~s!"
|
||||
file go-file)))))
|
||||
scm-files)
|
||||
|
||||
;; Install kernel
|
||||
(copy-file kernel-file (string-append kernel-dir "/"
|
||||
kernel-file))
|
||||
;; Fix hard-coded file name in the kernel
|
||||
(substitute* (string-append kernel-dir "/"
|
||||
kernel-file)
|
||||
(("/home/jerry/.local/share/jupyter/kernels/guile/guile-jupyter-kernel.scm")
|
||||
(string-append module-dir "/guile-jupyter-kernel.scm"))
|
||||
(("\"guile\"")
|
||||
(string-append "\"" (assoc-ref %build-inputs "guile")
|
||||
"/bin/guile\""))
|
||||
(("-s")
|
||||
(string-append "--no-auto-compile\", \"-s")))
|
||||
|
||||
#t))))
|
||||
;; Fix hard-coded file name in the kernel.
|
||||
(substitute* (string-append dir "/kernel.json")
|
||||
(("/home/.*/guile-jupyter-kernel.scm")
|
||||
(string-append out "/share/guile/site/"
|
||||
(target-guile-effective-version)
|
||||
"/guile-jupyter-kernel.scm"))
|
||||
(("\"guile\"")
|
||||
(string-append "\"" (assoc-ref inputs "guile")
|
||||
"/bin/guile\""))
|
||||
(("-s")
|
||||
(string-append "--no-auto-compile\", \"-s")))
|
||||
#t))))))
|
||||
(inputs
|
||||
`(("openssl" ,openssl)
|
||||
("guile" ,guile-2.2)))
|
||||
|
|
|
|||
Loading…
Reference in a new issue