mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 22:08:16 -05:00
gnu: artanis: Update to 0.4.1.
* gnu/packages/guile-xyz.scm (artanis): Update to 0.4.1. [inputs]: Add nss; move guile-json-1 and guile-redis from here... [propagated-inputs]: ...to here; add guile-readline. [arguments]: Add phase "patch-references-to-libnss".
This commit is contained in:
Ricardo Wurmus
parent
fe338d7f00
commit
1a37fd1e72
1 changed files with 109 additions and 100 deletions
|
|
@ -73,6 +73,7 @@ (define-module (gnu packages guile-xyz)
|
|||
#:use-module (gnu packages ncurses)
|
||||
#:use-module (gnu packages networking)
|
||||
#:use-module (gnu packages noweb)
|
||||
#:use-module (gnu packages nss)
|
||||
#:use-module (gnu packages password-utils)
|
||||
#:use-module (gnu packages perl)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
|
|
@ -99,104 +100,112 @@ (define-module (gnu packages guile-xyz)
|
|||
#:use-module ((srfi srfi-1) #:select (alist-delete)))
|
||||
|
||||
(define-public artanis
|
||||
(let ((release "0.3.1")
|
||||
(revision 0))
|
||||
(package
|
||||
(name "artanis")
|
||||
(version (if (zero? revision)
|
||||
release
|
||||
(string-append release "-"
|
||||
(number->string revision))))
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnu/artanis/artanis-"
|
||||
release ".tar.gz"))
|
||||
(file-name (string-append name "-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0hqr5m3mb558bdhkc2sadmd9cbrhp3y525wx7cwirgy6i0zmay68"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
;; Unbundle guile-redis and guile-json
|
||||
(delete-file-recursively "artanis/third-party/json.scm")
|
||||
(delete-file-recursively "artanis/third-party/json")
|
||||
(delete-file-recursively "artanis/third-party/redis.scm")
|
||||
(delete-file-recursively "artanis/third-party/redis")
|
||||
(substitute* '("artanis/artanis.scm"
|
||||
"artanis/lpc.scm"
|
||||
"artanis/oht.scm")
|
||||
(("(#:use-module \\()artanis third-party (json\\))" _
|
||||
use-module json)
|
||||
(string-append use-module json)))
|
||||
(substitute* '("artanis/lpc.scm"
|
||||
"artanis/session.scm")
|
||||
(("(#:use-module \\()artanis third-party (redis\\))" _
|
||||
use-module redis)
|
||||
(string-append use-module redis)))
|
||||
(substitute* "artanis/oht.scm"
|
||||
(("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)"
|
||||
_ pre json-string post)
|
||||
(string-append pre
|
||||
"scm" json-string
|
||||
post)))
|
||||
(substitute* "artanis/artanis.scm"
|
||||
(("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
|
||||
""))
|
||||
#t))))
|
||||
(build-system gnu-build-system)
|
||||
;; FIXME the bundled csv contains one more exported procedure
|
||||
;; (sxml->csv-string) than guile-csv. The author is maintainer of both
|
||||
;; projects.
|
||||
;; TODO: Add guile-dbi and guile-dbd optional dependencies.
|
||||
(inputs `(("guile" ,guile-2.2)
|
||||
("guile-json" ,guile-json-1)
|
||||
("guile-redis" ,guile-redis)))
|
||||
(native-inputs `(("bash" ,bash) ;for the `source' builtin
|
||||
("pkgconfig" ,pkg-config)
|
||||
("util-linux" ,util-linux))) ;for the `script' command
|
||||
(arguments
|
||||
'(#:make-flags
|
||||
;; TODO: The documentation must be built with the `docs' target.
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(scm (string-append out "/share/guile/site/2.2"))
|
||||
(go (string-append out "/lib/guile/2.2/site-ccache")))
|
||||
;; Don't use (%site-dir) for site paths.
|
||||
(list (string-append "MOD_PATH=" scm)
|
||||
(string-append "MOD_COMPILED_PATH=" go)))
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-site-dir
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(substitute* "artanis/commands/help.scm"
|
||||
(("\\(%site-dir\\)")
|
||||
(string-append "\""
|
||||
(assoc-ref outputs "out")
|
||||
"/share/guile/site/2.2\"")))))
|
||||
(add-before 'install 'substitute-root-dir
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(substitute* "Makefile" ;ignore the execution of bash.bashrc
|
||||
((" /etc/bash.bashrc") " /dev/null"))
|
||||
(substitute* "Makefile" ;set the root of config files to OUT
|
||||
((" /etc") (string-append " " out "/etc")))
|
||||
(mkdir-p (string-append out "/bin")) ;for the `art' executable
|
||||
#t)))
|
||||
(add-after 'install 'wrap-art
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(bin (string-append out "/bin"))
|
||||
(scm (string-append out "/share/guile/site/2.2"))
|
||||
(go (string-append out "/lib/guile/2.2/site-ccache")))
|
||||
(wrap-program (string-append bin "/art")
|
||||
`("GUILE_LOAD_PATH" ":" prefix
|
||||
(,scm ,(getenv "GUILE_LOAD_PATH")))
|
||||
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
|
||||
(,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
|
||||
#t))))))
|
||||
(synopsis "Web application framework written in Guile")
|
||||
(description "GNU Artanis is a web application framework written in Guile
|
||||
(package
|
||||
(name "artanis")
|
||||
(version "0.4.1")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnu/artanis/artanis-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0nnmdfx5xwcc3kck64var7msz7g3qk817d7bv9l159nkmic0v9w4"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
;; Unbundle guile-redis and guile-json
|
||||
(delete-file-recursively "artanis/third-party/json.scm")
|
||||
(delete-file-recursively "artanis/third-party/json")
|
||||
(delete-file-recursively "artanis/third-party/redis.scm")
|
||||
(delete-file-recursively "artanis/third-party/redis")
|
||||
(substitute* '("artanis/artanis.scm"
|
||||
"artanis/lpc.scm"
|
||||
"artanis/oht.scm")
|
||||
(("(#:use-module \\()artanis third-party (json\\))" _
|
||||
use-module json)
|
||||
(string-append use-module json)))
|
||||
(substitute* '("artanis/lpc.scm"
|
||||
"artanis/session.scm")
|
||||
(("(#:use-module \\()artanis third-party (redis\\))" _
|
||||
use-module redis)
|
||||
(string-append use-module redis)))
|
||||
(substitute* "artanis/oht.scm"
|
||||
(("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)"
|
||||
_ pre json-string post)
|
||||
(string-append pre
|
||||
"scm" json-string
|
||||
post)))
|
||||
(substitute* "artanis/artanis.scm"
|
||||
(("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
|
||||
""))
|
||||
#t))))
|
||||
(build-system gnu-build-system)
|
||||
(inputs
|
||||
`(("guile" ,guile-2.2)
|
||||
("nss" ,nss)))
|
||||
;; FIXME the bundled csv contains one more exported procedure
|
||||
;; (sxml->csv-string) than guile-csv. The author is maintainer of both
|
||||
;; projects.
|
||||
;; TODO: Add guile-dbi and guile-dbd optional dependencies.
|
||||
(propagated-inputs
|
||||
`(("guile-json" ,guile-json-1)
|
||||
("guile-readline" ,guile-readline)
|
||||
("guile-redis" ,guile-redis)))
|
||||
(native-inputs
|
||||
`(("bash" ,bash) ;for the `source' builtin
|
||||
("pkgconfig" ,pkg-config)
|
||||
("util-linux" ,util-linux))) ;for the `script' command
|
||||
(arguments
|
||||
'(#:make-flags
|
||||
;; TODO: The documentation must be built with the `docs' target.
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(scm (string-append out "/share/guile/site/2.2"))
|
||||
(go (string-append out "/lib/guile/2.2/site-ccache")))
|
||||
;; Don't use (%site-dir) for site paths.
|
||||
(list (string-append "MOD_PATH=" scm)
|
||||
(string-append "MOD_COMPILED_PATH=" go)))
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-site-dir
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(substitute* "artanis/commands/help.scm"
|
||||
(("\\(%site-dir\\)")
|
||||
(string-append "\""
|
||||
(assoc-ref outputs "out")
|
||||
"/share/guile/site/2.2\"")))))
|
||||
(add-after 'unpack 'patch-reference-to-libnss
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "artanis/security/nss.scm"
|
||||
(("ffi-binding \"libnss3\"")
|
||||
(string-append
|
||||
"ffi-binding \""
|
||||
(assoc-ref inputs "nss") "/lib/nss/libnss3.so"
|
||||
"\"")))
|
||||
#t))
|
||||
(add-before 'install 'substitute-root-dir
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(substitute* "Makefile" ;ignore the execution of bash.bashrc
|
||||
((" /etc/bash.bashrc") " /dev/null"))
|
||||
(substitute* "Makefile" ;set the root of config files to OUT
|
||||
((" /etc") (string-append " " out "/etc")))
|
||||
(mkdir-p (string-append out "/bin")) ;for the `art' executable
|
||||
#t)))
|
||||
(add-after 'install 'wrap-art
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(bin (string-append out "/bin"))
|
||||
(scm (string-append out "/share/guile/site/2.2"))
|
||||
(go (string-append out "/lib/guile/2.2/site-ccache")))
|
||||
(wrap-program (string-append bin "/art")
|
||||
`("GUILE_LOAD_PATH" ":" prefix
|
||||
(,scm ,(getenv "GUILE_LOAD_PATH")))
|
||||
`("GUILE_LOAD_COMPILED_PATH" ":" prefix
|
||||
(,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
|
||||
#t))))))
|
||||
(synopsis "Web application framework written in Guile")
|
||||
(description "GNU Artanis is a web application framework written in Guile
|
||||
Scheme. A web application framework (WAF) is a software framework that is
|
||||
designed to support the development of dynamic websites, web applications, web
|
||||
services and web resources. The framework aims to alleviate the overhead
|
||||
|
|
@ -204,8 +213,8 @@ (define-public artanis
|
|||
provides several tools for web development: database access, templating
|
||||
frameworks, session management, URL-remapping for RESTful, page caching, and
|
||||
more.")
|
||||
(home-page "https://www.gnu.org/software/artanis/")
|
||||
(license (list license:gpl3+ license:lgpl3+))))) ;dual license
|
||||
(home-page "https://www.gnu.org/software/artanis/")
|
||||
(license (list license:gpl3+ license:lgpl3+)))) ;dual license
|
||||
|
||||
;; There has not been any release yet.
|
||||
(define-public guildhall
|
||||
|
|
|
|||
Loading…
Reference in a new issue