;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Arun Isaac ;;; Copyright © 2017, 2019, 2020, 2022 Ricardo Wurmus ;;; Copyright © 2017, 2018, 2020, 2021 Tobias Geerinckx-Rice ;;; Copyright © 2017, 2018, 2019, 2020, 2022 Efraim Flashner ;;; Copyright © 2018 Nicolas Goaziou ;;; Copyright © 2021 Pierre Neidhardt ;;; Copyright © 2021 Maxim Cournoyer ;;; Copyright © 2022 Frank Pursel ;;; ;;; 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 . (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) #:use-module (gnu packages web) #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system ant) #:use-module (guix build-system cmake) #: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 (package (name "cjson") (version "1.7.15") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/DaveGamble/cJSON") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0lmq7sx09rmsirimbyvaaia44i134ppkp10cw1d2rygr76k9qwq2")))) (build-system cmake-build-system) (arguments `(#:configure-flags '("-DENABLE_CJSON_UTILS=On"))) (home-page "https://github.com/DaveGamble/cJSON") (synopsis "JSON parser written in ANSI C") (description "This library provides a portable embeddable JSON parser.") (license license:expat))) (define-public js-context-menu (package (name "js-context-menu") (version "0.6.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/zorkow/context-menu") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1q063l6477z285j6h5wvccp6iswvlp0jmb96sgk32sh0lf7nhknh")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (chdir (assoc-ref %build-inputs "source")) (let ((target (string-append %output "/share/javascript/context-menu"))) (apply invoke (search-input-file %build-inputs "/bin/esbuild") "--bundle" "--tsconfig=tsconfig.json" (string-append "--outdir=" target) (find-files "ts" "\\.ts$")))))) (native-inputs (list esbuild)) (home-page "https://github.com/zorkow/context-menu") (synopsis "Generic context menu") (description "This package provides a reimplementation of the MathJax context menu in TypeScript.") (license license:asl2.0))) (define-public font-mathjax (package (name "font-mathjax") (version "2.7.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mathjax/MathJax") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "127j12g7v2hx6k7r00b8cp49s7nkrwhxy6l8p03pw34xpxbgbimm")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils) (ice-9 match)) (let ((install-directory (string-append %output "/share/fonts/mathjax"))) (mkdir-p install-directory) (copy-recursively (string-append (assoc-ref %build-inputs "source") "/fonts") install-directory))))) (home-page "https://www.mathjax.org/") (synopsis "Fonts for MathJax") (description "This package contains the fonts required for MathJax.") (license license:asl2.0))) (define-public js-mathjax (package (inherit font-mathjax) (name "js-mathjax") (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils) (ice-9 match) (ice-9 popen) (ice-9 regex)) (set-path-environment-variable "PATH" '("bin") (map (match-lambda ((_ . input) input)) %build-inputs)) (set-path-environment-variable "GUIX_LOCPATH" '("lib/locale") (list (assoc-ref %build-inputs "glibc-utf8-locales"))) (setenv "LANG" "en_US.UTF-8") (let ((install-directory (string-append %output "/share/javascript/mathjax"))) (copy-recursively (string-append (assoc-ref %build-inputs "source") "/unpacked") "MathJax-unpacked") (mkdir-p install-directory) (symlink (string-append (assoc-ref %build-inputs "font-mathjax") "/share/fonts/mathjax") (string-append install-directory "/fonts")) (for-each (lambda (file) (let ((installed (string-append install-directory ;; remove prefix "./MathJax-unpacked" (string-drop file 18)))) (format #t "~a -> ~a~%" file installed) (cond ((string-match "\\.js$" file) (mkdir-p (dirname installed)) (let ((minified (open-pipe* OPEN_READ "uglifyjs" file))) (call-with-output-file installed (lambda (port) (dump-port minified port))) (let ((exit (close-pipe minified))) (unless (zero? exit) (error "dear, uglifyjs failed" exit))))) (else (install-file file (dirname installed)))))) (find-files ".")) #t)))) (native-inputs `(("font-mathjax" ,font-mathjax) ("glibc-utf8-locales" ,glibc-utf8-locales) ("uglifyjs" ,node-uglify-js) ,@(package-native-inputs font-mathjax))) (synopsis "JavaScript display engine for LaTeX, MathML, and AsciiMath") (description "MathJax is a JavaScript display engine for LaTeX, MathML, and AsciiMath notation that works in all modern browsers. It requires no plugins or software to be installed on the browser. So the page author can write web documents that include mathematics and be confident that readers will be able to view it naturally and easily."))) (define-public js-mathjax-3 (package (name "js-mathjax") (version "3.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mathjax/MathJax-src") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "05lm6nw7rzpcc5yz7xsjxi4id9369vvnrksx82nglxrqrpws97wx")) (patches (search-patches "mathjax-disable-webpack.patch" "mathjax-no-a11y.patch")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'prepare-sources (lambda* (#:key inputs #:allow-other-keys) ;; All a11y components depend on speech-rule-engine, which cannot be ;; built from source. Since this only affects accessibility, remove them. (delete-file-recursively "ts/a11y") (delete-file-recursively "components/src/a11y") (delete-file-recursively "components/src/sre") (delete-file-recursively "components/src/node-main") ;; Copy sources of dependencies, so we can create symlinks. (mkdir-p "node_modules") (with-directory-excursion "node_modules" (for-each (lambda (p) (copy-recursively (assoc-ref inputs (string-append "node-" p)) p)) '("mj-context-menu" "mhchemparser"))) ;; Make sure esbuild can find imports. This way we don’t have to rewrite files. (symlink "ts" "js") (symlink "ts" "node_modules/mj-context-menu/js"))) (delete 'configure) (replace 'build (lambda* (#:key inputs outputs #:allow-other-keys) (let ((esbuild (string-append (assoc-ref inputs "esbuild") "/bin/esbuild")) (node (string-append (assoc-ref inputs "node") "/bin/node")) (target (string-append (assoc-ref outputs "out") "/share/javascript/mathjax/es5"))) ;; Preprocess files and generate lib/ subdirs. (invoke node "components/bin/makeAll") ;; Build components. (apply invoke esbuild "--bundle" "--minify" ;; esbuild cannot transpile some features to ES5, so use ES6 instead. "--target=es6" (string-append "--outdir=" target) "--sourcemap" "--outbase=components/src" "--define:__dirname=\"/\"" ;; In the browser the global object is window, see ;; https://developer.mozilla.org/en-US/docs/Glossary/Global_object "--define:global=window" ;; Find all component entry points, which have the same name as their ;; parent directory. (filter (lambda (f) (string=? (basename (dirname f)) (string-drop-right (basename f) 3))) (find-files "components/src" "\\.js$"))) ;; Move all .js files into their parent directory, where MathJax ;; expects them. (for-each (lambda (f) (rename-file f (string-append (dirname (dirname f)) "/" (basename f)))) (find-files target "\\.js(\\.map)?$")) ;; Copy font files. (copy-recursively "ts/output/chtml/fonts/tex-woff-v2" (string-append target "/output/chtml/fonts/woff-v2"))))) (delete 'check) (delete 'install)))) (native-inputs `(("esbuild" ,esbuild) ("node" ,node-lts) ("node-mj-context-menu" ,(let ((name "context-menu") (version "0.6.1")) (origin (method git-fetch) (uri (git-reference (url "https://github.com/zorkow/context-menu.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1q063l6477z285j6h5wvccp6iswvlp0jmb96sgk32sh0lf7nhknh"))))) ("node-mhchemparser" ,(let ((name "mhchemparser") ;; Version 4.1.1. There are no tags. (version "b1bd0670df7e9bbd5a724ac642aa2664d6e500b3")) (origin (method git-fetch) (uri (git-reference (url "https://github.com/mhchem/mhchemParser.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1g72kbxzf9f2igidpma3jwk28ln4bp3qhwspmhnm79baf3701dgv"))))))) (home-page "https://www.mathjax.org/") (synopsis (package-synopsis js-mathjax)) (description (package-description js-mathjax)) (license license:asl2.0))) (define-public js-mathjax-for-r-mathjaxr (package (inherit js-mathjax-3) (name "js-mathjax") (version "3.1.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mathjax/MathJax-src") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0kqcb6pl0zfs4hf8zqb4l50kkfq7isv35vpy05m0lg0yr9w0w4ai")) (patches (search-patches "mathjax-disable-webpack.patch" "mathjax-3.1.2-no-a11y.patch")))) (arguments (substitute-keyword-arguments (package-arguments js-mathjax-3) ((#:phases phases '%standard-phases) `(modify-phases ,phases (replace 'prepare-sources (lambda* (#:key inputs #:allow-other-keys) ;; All a11y components depend on speech-rule-engine, which cannot be ;; built from source. Since this only affects accessibility, remove them. (delete-file-recursively "ts/a11y") (delete-file-recursively "components/src/a11y") (delete-file-recursively "components/src/sre") (delete-file-recursively "components/src/node-main") ;; Copy sources of dependencies, so we can create symlinks. (mkdir-p "node_modules") (with-directory-excursion "node_modules" (for-each (lambda (p) (copy-recursively (assoc-ref inputs (string-append "node-" p)) p)) '("mj-context-menu"))) ;; Make sure esbuild can find imports. This way we don’t have to rewrite files. (symlink "ts" "js") (symlink "ts" "node_modules/mj-context-menu/js"))))))) (native-inputs `(("esbuild" ,esbuild) ("node" ,node-lts) ("node-mj-context-menu" ,(let ((name "context-menu") (version "0.6.1")) (origin (method git-fetch) (uri (git-reference (url "https://github.com/zorkow/context-menu.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1q063l6477z285j6h5wvccp6iswvlp0jmb96sgk32sh0lf7nhknh"))))))))) (define-public js-commander (package (name "js-commander") (version "6.2.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/tj/commander.js") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "126m25s6mxpxmdj4aw5awz06b47r8r798lcf1c5bnmmh39cik5i1")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (chdir (assoc-ref %build-inputs "source")) (let ((esbuild (search-input-file %build-inputs "/bin/esbuild")) (target (string-append %output "/share/javascript/commander"))) (invoke esbuild "--bundle" "--minify" "--tsconfig=tsconfig.json" "--platform=node" (string-append "--outfile=" target "/index.min.js") "index.js"))))) (native-inputs (list esbuild)) (home-page "https://github.com/tj/commander.js") (synopsis "Library for node.js command-line interfaces") (description "Commander.js aims to be the complete solution for node.js command-line interfaces.") (license license:expat))) (define-public js-xmldom-sre ;; This commit corresponds to the untagged release 0.1.32 (let ((commit "3c79325bc2c9e5d27e3ba44b680fa8c5dd6a381d") (revision "1")) (package (name "js-xmldom-sre") (version "0.1.32") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/zorkow/xmldom/") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0a88v0id3mjflpvjqhv8a28br0xvaaszxbf7alg6pxfbnkb69yyq")))) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils)) (chdir (assoc-ref %build-inputs "source")) (let ((esbuild (search-input-file %build-inputs "/bin/esbuild")) (target (string-append %output "/share/javascript/xmldom-sre"))) (invoke esbuild "--bundle" "--minify" "--platform=node" (string-append "--outfile=" target "/dom-parser.min.js") "dom-parser.js"))))) (native-inputs (list esbuild)) (home-page "https://github.com/zorkow/xmldom/") (synopsis "DOM parser and XML serializer") (description "This is a fork of the xmldom library. It allows the use of wicked-good-xpath together with xmldom.") ;; One of these licenses may be selected. (license (list license:expat license:lgpl2.0))))) (define-public js-respond (package (name "js-respond") (version "1.4.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/scottjehl/Respond") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "00xid731rirc7sdy1gc8qal3v9g0agr2qx15hm4x97l1lcbylyn2")))) (build-system minify-build-system) (arguments `(#:javascript-files '("src/matchmedia.addListener.js" "src/matchmedia.polyfill.js" "src/respond.js"))) (home-page "https://github.com/scottjehl/Respond") (synopsis "Polyfill for min/max-width CSS3 Media Queries") (description "The goal of this script is to provide a fast and lightweight script to enable responsive web designs in browsers that don't support CSS3 Media Queries.") (license license:expat))) (define-public js-html5shiv (package (name "js-html5shiv") (version "3.7.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/aFarkas/html5shiv") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0y1c5nyq0brl9fjdihhax33vks4s1ij9iv113879sg3zflmgqpd0")))) (build-system minify-build-system) (home-page "https://github.com/aFarkas/html5shiv") (synopsis "Enable HTML5 sectioning elements in legacy browsers") (description "The HTML5 Shiv enables use of HTML5 sectioning elements in legacy Internet Explorer and provides basic HTML5 styling for Internet Explorer 6-9, Safari 4.x (and iPhone 3.x), and Firefox 3.x.") ;; From the file "MIT and GPL2 licenses.md": ;; ;; This software is licensed under a dual license system (MIT or GPL ;; version 2). This means you are free to choose with which of both ;; licenses (MIT or GPL version 2) you want to use this library. (license (list license:expat license:gpl2)))) (define-public js-json2 (let ((commit "031b1d9e6971bd4c433ca85e216cc853f5a867bd") (revision "1")) (package (name "js-json2") (version (string-append "2016-10-28." revision "-" (string-take commit 7))) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/douglascrockford/JSON-js") (commit commit))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "1fvb6b2y5sd3sqdgcj683sdxcbxdii34q0ysc9wg0dq1sy81l11v")))) (build-system minify-build-system) (arguments `(#:javascript-files '("json2.js" "json_parse.js" "json_parse_state.js" "cycle.js"))) (home-page "https://github.com/douglascrockford/JSON-js") (synopsis "JSON encoders and decoders") (description "The files in this collection implement JSON encoders/decoders in JavaScript. @code{json2.js}: This file creates a JSON property in the global object, if there isn't already one, setting its value to an object containing a stringify method and a parse method. The @code{parse} method uses the @code{eval} method to do the parsing, guarding it with several regular expressions to defend against accidental code execution hazards. On current browsers, this file does nothing, preferring the built-in JSON object. @code{json_parse.js}: This file contains an alternative JSON @code{parse} function that uses recursive descent instead of @code{eval}. @code{json_parse_state.js}: This files contains an alternative JSON @code{parse} function that uses a state machine instead of @code{eval}. @code{cycle.js}: This file contains two functions, @code{JSON.decycle} and @code{JSON.retrocycle}, which make it possible to encode cyclical structures and DAGs in JSON, and to then recover them. This is a capability that is not provided by ES5. @code{JSONPath} is used to represent the links.") (license license:public-domain)))) (define-public js-strftime (package (name "js-strftime") (version "0.10.0") (source (origin (method git-fetch) (uri (git-reference (url"https://github.com/samsonjs/strftime") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "131nmlivazwxyba25kh9lda99749fq4xsyin6lzfalaaydviby4p")))) (build-system minify-build-system) (arguments `(#:javascript-files '("strftime.js"))) (home-page "https://github.com/samsonjs/strftime") (synopsis "Implementation of strftime to JavaScript") (description "This is an implementation of the @code{strftime} procedure for JavaScript. It works in (at least) node.js and browsers. It supports localization and timezones. Most standard specifiers from C are supported as well as some other extensions from Ruby.") (license license:expat))) (define-public js-highlight (package (name "js-highlight") (version "9.12.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/isagalaev/highlight.js") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "12qz22qjpd6svj58pwgcwg2x2rzhihfdrxg6lgj39nfpaln6dris")))) (build-system minify-build-system) (arguments `(#:javascript-files '("src/highlight.js"))) (home-page "https://github.com/isagalaev/highlight.js") (synopsis "Syntax highlighting for JavaScript") (description "Highlight.js is a syntax highlighter written in JavaScript. It works in the browser as well as on the server. It works with pretty much any markup, doesn’t depend on any framework and has automatic language detection.") (license license:bsd-3))) (define-public js-datatables (package (name "js-datatables") (version "1.10.19") (source (origin (method url-fetch) (uri (string-append "https://datatables.net/releases/DataTables-" version ".zip")) (sha256 (base32 "0cff8a1g7pjwbjdqq0yzqd963ar7pfi4splmm6rwdzganr77rkhb")))) (build-system minify-build-system) (arguments `(#:javascript-files '("media/js/dataTables.bootstrap.js" "media/js/jquery.dataTables.js"))) (native-inputs (list unzip)) (home-page "https://datatables.net") (synopsis "DataTables plug-in for jQuery") (description "DataTables is a table enhancing plug-in for the jQuery Javascript library, adding sorting, paging and filtering abilities to plain HTML tables with minimal effort.") (license license:expat))) (define-public js-requirejs (package (name "js-requirejs") (version "2.3.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/requirejs/requirejs") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0cvd5y2mb3h6yil3niqn3gjqrzixdsxcz4rvc2f0hg4kzp5y0w86")))) (build-system minify-build-system) (arguments `(#:javascript-files '("require.js"))) (home-page "https://github.com/requirejs/requirejs/") (synopsis "File and module loader for JavaScript") (description "RequireJS loads plain JavaScript files as well as more defined modules. It is optimized for in-browser use, including in a Web Worker, but it can be used in other JavaScript environments.") (license license:expat))) (define-public js-selectize (package (name "js-selectize") (version "0.12.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/selectize/selectize.js") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "15gichl8wi6yxag2ps723nxrgyan15976dzsnvw9h9py8sbyyzjn")))) (build-system minify-build-system) ;; We use the standalone file instead of src/selectize.js because the ;; former includes the source code for MicroEvent and other modules that ;; Selectize refers to. (arguments `(#:javascript-files '("dist/js/standalone/selectize.js"))) (home-page "https://selectize.github.io/selectize.js/") (synopsis "Hybrid widget between a textbox and } box. It's jQuery based and it has autocomplete and native-feeling keyboard navigation; it is useful for tagging, contact lists, etc.") (license license:asl2.0))) (define-public js-es5-shim (package (name "js-es5-shim") (version "4.5.13") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/es-shims/es5-shim") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "142w384fbyllq4yggv173g82lw3wix4jqcg6hkhx1ymq89vvnpmh")))) (build-system minify-build-system) (arguments `(#:javascript-files '("es5-sham.js" "es5-shim.js"))) (home-page "https://github.com/es-shims/es5-shim") (synopsis "ECMAScript 5 compatibility shims for legacy JavaScript engines") (description "@code{es5-shim.js} patches a JavaScript context to contain all ECMAScript 5 methods that can be faithfully emulated with a legacy JavaScript engine. @code{es5-sham.js} patches other ES5 methods as closely as possible. Many of these shams are intended only to allow code to be written to ES5 without causing run-time errors in older engines. In many cases, this means that these shams cause many ES5 methods to silently fail.") (license license:expat))) (define-public js-filesaver (package (name "js-filesaver") (version "1.3.8") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/eligrey/FileSaver.js") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0gvqk0hnr8fig0n4da7vj7q6z31bcyv52916xz3rbmdj3pgpiv1d")))) (build-system minify-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'fix-uglification ;; Remove "export" keyword. That keyword is not present in ;; the minified version of the library some projects are using, ;; e.g., ;; (lambda _ (substitute* "src/FileSaver.js" (("export ") "")) #t)) (add-after 'install 'install-unminified-version (lambda* (#:key outputs #:allow-other-keys) (install-file "src/FileSaver.js" (string-append (assoc-ref outputs "out") "/share/javascript")) #t))))) (home-page "https://eligrey.com/blog/saving-generated-files-on-the-client-side/") (synopsis "HTML5 saveAs() FileSaver implementation") (description "@file{FileSaver.js} implements the @code{saveAs()} FileSaver interface in browsers that do not natively support it. @file{FileSaver.js} is the solution to saving files on the client-side, and is perfect for webapps that need to generate files, or for saving sensitive information that shouldn't be sent to an external server.") (license license:expat))) (define-public mujs (package (name "mujs") (version "1.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ccxvii/mujs") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0kqw3xhjk4l2jar14a1f9b3m0xq0h2g3nc9m6hsdv7kf8jhfm83l")) (snippet #~(begin (use-modules (guix build utils)) (for-each delete-file (list "astnames.h" "opnames.h" "one.c")))))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (delete 'configure) ; no configure script (replace 'install (lambda* (#:key (make-flags '()) #:allow-other-keys) (apply invoke "make" "install-shared" make-flags)))) #:make-flags #~(list (string-append "VERSION=" #$version) (string-append "CC=" #$(cc-for-target)) (string-append "prefix=" #$output)) #:tests? #f)) ; no tests (inputs (list readline)) (home-page "https://mujs.com/") (synopsis "JavaScript interpreter written in C") (description "MuJS is a lightweight Javascript interpreter designed for embedding in other software to extend them with scripting capabilities. MuJS was designed with a focus on small size, correctness, and simplicity. It is written in portable C and implements ECMAScript as specified by ECMA-262. The interface for binding with native code is designed to be as simple as possible to use, and is very similar to Lua. There is no need to interact with byzantine C++ template mechanisms, or worry about marking and unmarking garbage collection roots, or wrestle with obscure build systems.") (license license:isc))) (define-public quickjs (package (name "quickjs") (version "2021-03-27") (source (origin (method url-fetch) (uri (string-append "https://bellard.org/quickjs/quickjs-" version ".tar.xz")) (sha256 (base32 "06pywwpmfwjz225h59wf90q96a2fd66qfcw5xa6m6y9k9k7glnx4")))) (build-system gnu-build-system) (arguments `(#:make-flags (list "prefix=" (string-append "DESTDIR=" %output)) #:phases (modify-phases %standard-phases (delete 'configure) (replace 'check (lambda _ (invoke "make" "microbench")))))) (home-page "https://bellard.org/quickjs/") (synopsis "Small embeddable Javascript engine") (description "QuickJS supports the ES2020 specification including modules, asynchronous generators, proxies, BigInt and BigDecimal. It can compile Javascript sources to executables with no external dependency. It includes a command line interpreter with contextual colorization implemented in Javascript and a small built-in standard library with C library wrappers.") (license license:expat))) (define-public duktape (package (name "duktape") (version "2.6.0") (source (origin (method url-fetch) (uri (string-append "https://duktape.org/duktape-" version ".tar.xz")) (sha256 (base32 "19szwxzvl2g65fw95ggvb8h0ma5bd9vvnnccn59hwnc4dida1x4n")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; No tests. #:make-flags (list "-f" "Makefile.sharedlibrary" (string-append "INSTALL_PREFIX=" %output)) #:phases (modify-phases %standard-phases (delete 'configure) ;; At least another major GNU/Linux distribution carries their own ;; .pc file with this package. (add-after 'install 'install-pkg-config (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (pkg-config-dir (string-append out "/lib/pkgconfig"))) (mkdir-p pkg-config-dir) (with-output-to-file (string-append pkg-config-dir "/duktape.pc") (lambda _ (format #t "prefix=~@*~a~@ libdir=${prefix}/lib~@ includedir=${prefix}/include~@ Name: duktape~@ Description: Embeddable Javascript engine~@ Version: ~a~@ Libs: -L${libdir} -lduktape~@ Cflags: -I${includedir}~%" out ,version))))))))) (home-page "https://duktape.org/") (synopsis "Small embeddable Javascript engine") (description "Duktape is an embeddable Javascript engine, with a focus on portability and compact footprint. Duktape is easy to integrate into a C/C++ project: add @file{duktape.c}, @file{duktape.h}, and @file{duk_config.h} to 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 (add-after 'unpack 'remove-build-dates ;; Avoid embedding build date for reproducible builds (lambda _ (substitute* "build.properties" (("..implementation.date.") "")))) (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" (("" all) (string-append "")) (("" all) (string-append "")) (("" all) (string-append "")) (("" all) (string-append "")) (("") (string-append "")) (("") (string-append "")) (("") (string-append "")) ;; Disabling instrumentation. (("(")))) (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)))