mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
gnu: Add rhino.
* gnu/package/javascript.scm (rhino): New variable. Signed-off-by: Julien Lepiller <julien@lepiller.eu>
This commit is contained in:
Frank Pursel
Julien Lepiller
parent
8c92d85e06
commit
22525731fd
1 changed files with 101 additions and 2 deletions
|
|
@ -6,6 +6,7 @@
|
|||
;;; Copyright © 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
|
||||
;;; Copyright © 2021 Pierre Neidhardt <mail@ambrevar.xyz>
|
||||
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||||
;;; Copyright © 2022 Frank Pursel <frank.pursel@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
|
@ -26,7 +27,9 @@ (define-module (gnu packages javascript)
|
|||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages base)
|
||||
#:use-module (gnu packages bash)
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages java)
|
||||
#:use-module (gnu packages node)
|
||||
#:use-module (gnu packages readline)
|
||||
#:use-module (gnu packages uglifyjs)
|
||||
|
|
@ -34,10 +37,11 @@ (define-module (gnu packages javascript)
|
|||
#:use-module (guix packages)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system ant)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system minify)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix utils))
|
||||
|
||||
(define-public cjson
|
||||
|
|
@ -791,3 +795,98 @@ (define-public duktape
|
|||
your build, and use the Duktape API to call ECMAScript functions from C code
|
||||
and vice versa.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public rhino
|
||||
(package
|
||||
(name "rhino")
|
||||
(version "1.7.7.2")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/mozilla/rhino.git")
|
||||
(commit "935942527ff434b205e797df4185518e5369466e")))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"09i4yr98hs6855fs7fhgmrpiwpr90lhxdv2bvfj97nn4rv1d7wl8"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet '(begin
|
||||
;; Remove benchmark testing
|
||||
(delete-file-recursively "testsrc/benchmarks")
|
||||
(delete-file-recursively
|
||||
"testsrc/org/mozilla/javascript/benchmarks")
|
||||
;; Identify bundled jars
|
||||
(format #t "~%~a~%" "Sourced jars")
|
||||
(for-each (lambda (f)
|
||||
(format #t "~/Deleting: ~a~%" f)
|
||||
(delete-file f))
|
||||
(find-files "." "\\.jar$"))))))
|
||||
(build-system ant-build-system)
|
||||
(inputs (list bash-minimal))
|
||||
(native-inputs (list java-junit java-hamcrest-core java-snakeyaml))
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases
|
||||
%standard-phases
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? inputs native-inputs
|
||||
#:allow-other-keys)
|
||||
(when tests?
|
||||
(setenv "ANT_OPTS" "-Doffline=true")
|
||||
(let ((junit-lib
|
||||
(assoc-ref inputs "java-junit"))
|
||||
(hamcrest-lib
|
||||
(assoc-ref inputs "java-hamcrest-core"))
|
||||
(snakeyaml-lib
|
||||
(assoc-ref inputs "java-snakeyaml")))
|
||||
(with-directory-excursion "testsrc"
|
||||
(substitute* "build.xml"
|
||||
(("<pathelement location=\"\\$\\{xbean.jar\\}\" */>" all)
|
||||
(string-append "<!-- " all " -->"))
|
||||
(("<pathelement location=\"\\$\\{jsr173.jar\\}\" */>" all)
|
||||
(string-append "<!-- " all " -->"))
|
||||
(("<pathelement path=\"\\$\\{coverage.classes.dir\\}\" */>"
|
||||
all)
|
||||
(string-append "<!-- " all " -->"))
|
||||
(("<pathelement path=\"lib/emma.jar\"/>" all)
|
||||
(string-append "<!-- " all " -->"))
|
||||
(("<pathelement path=\"lib/junit.jar\" ?/>")
|
||||
(string-append
|
||||
"<fileset dir=\"" junit-lib "\" includes=\"**/*.jar\"/>"))
|
||||
(("<pathelement path=\"lib/hamcrest.jar\" ?/>")
|
||||
(string-append "<fileset dir=\"" hamcrest-lib
|
||||
"\" includes=\"**/*.jar\"/>"))
|
||||
(("<pathelement path=\"lib/snakeyaml.jar\" ?/>")
|
||||
(string-append "<fileset dir=\"" snakeyaml-lib
|
||||
"\" includes=\"**/*.jar\"/>"))
|
||||
;; Disabling instrumentation.
|
||||
(("(<target name=\"junit\" depends=\"junit-compile),.*"
|
||||
all pre)
|
||||
(string-append pre "\">"))))
|
||||
(invoke "ant" "junit")))))
|
||||
(replace 'install
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(pkg+ver (string-append ,name ,version))
|
||||
(bin (string-append out "/bin"))
|
||||
(rhino (string-append bin "/rhino"))
|
||||
(man (string-append out "/share/man/man1")))
|
||||
(mkdir-p bin)
|
||||
(install-file "man/rhino.1" man)
|
||||
(install-file (string-append "build/" pkg+ver
|
||||
"/js.jar")
|
||||
(string-append out "/share/java"))
|
||||
(with-output-to-file rhino
|
||||
(lambda _
|
||||
(format #t "#!~a~%~a -jar ~a $@~%"
|
||||
(search-input-file inputs "/bin/bash")
|
||||
(search-input-file inputs "/bin/java")
|
||||
(string-append out "/share/java/js.jar"))))
|
||||
(chmod rhino #o755)))))))
|
||||
(home-page "https://mozilla.github.io/rhino")
|
||||
(synopsis "Javascript implemented in Java")
|
||||
(description
|
||||
"Rhino implements ECMAScript, also known as JavaScript, in Java as
|
||||
specified in the fifth edition of ECMA-262.")
|
||||
(license license:mpl2.0)))
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue