gnu/packages/node.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   3 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org>
   5 ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org>
   7 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   8 ;;; Copyright © 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
   9 ;;; Copyright © 2020 Pierre Langlois <pierre.langlois@gmx.com>
  10 ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
  11 ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
  12 ;;;
  13 ;;; This file is part of GNU Guix.
  14 ;;;
  15 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  16 ;;; under the terms of the GNU General Public License as published by
  17 ;;; the Free Software Foundation; either version 3 of the License, or (at
  18 ;;; your option) any later version.
  19 ;;;
  20 ;;; GNU Guix is distributed in the hope that it will be useful, but
  21 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 ;;; GNU General Public License for more details.
  24 ;;;
  25 ;;; You should have received a copy of the GNU General Public License
  26 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  27
  28 (define-module (gnu packages node)
  29   #:use-module ((guix licenses) #:prefix license:)
  30   #:use-module ((guix build utils) #:select (alist-replace))
  31   #:use-module (guix packages)
  32   #:use-module (guix derivations)
  33   #:use-module (guix download)
  34   #:use-module (guix git-download)
  35   #:use-module (guix utils)
  36   #:use-module (guix build-system gnu)
  37   #:use-module (guix build-system node)
  38   #:use-module (gnu packages)
  39   #:use-module (gnu packages adns)
  40   #:use-module (gnu packages base)
  41   #:use-module (gnu packages compression)
  42   #:use-module (gnu packages gcc)
  43   #:use-module (gnu packages icu4c)
  44   #:use-module (gnu packages libevent)
  45   #:use-module (gnu packages linux)
  46   #:use-module (gnu packages node-xyz)
  47   #:use-module (gnu packages perl)
  48   #:use-module (gnu packages pkg-config)
  49   #:use-module (gnu packages python)
  50   #:use-module (gnu packages tls)
  51   #:use-module (gnu packages web))
  52
  53 (define-public node
  54   (package
  55     (name "node")
  56     (version "10.24.0")
  57     (source (origin
  58               (method url-fetch)
  59               (uri (string-append "https://nodejs.org/dist/v" version
  60                                   "/node-v" version ".tar.xz"))
  61               (sha256
  62                (base32
  63                 "1k1srdis23782hnd1ymgczs78x9gqhv77v0am7yb54gqcspp70hm"))
  64               (modules '((guix build utils)))
  65               (snippet
  66                `(begin
  67                   ;; Remove bundled software.
  68                   (for-each delete-file-recursively
  69                             '("deps/cares"
  70                               "deps/http_parser"
  71                               "deps/icu-small"
  72                               "deps/nghttp2"
  73                               "deps/openssl"
  74                               "deps/uv"
  75                               "deps/zlib"))
  76                   (substitute* "Makefile"
  77                     ;; Remove references to bundled software.
  78                     (("deps/http_parser/http_parser.gyp") "")
  79                     (("deps/uv/include/\\*.h") "")
  80                     (("deps/uv/uv.gyp") "")
  81                     (("deps/zlib/zlib.gyp") ""))
  82                   #t))))
  83     (build-system gnu-build-system)
  84     (arguments
  85      `(#:configure-flags '("--shared-cares"
  86                            "--shared-http-parser"
  87                            "--shared-libuv"
  88                            "--shared-nghttp2"
  89                            "--shared-openssl"
  90                            "--shared-zlib"
  91                            "--without-snapshot"
  92                            "--with-intl=system-icu")
  93        ;; Run only the CI tests.  The default test target requires additional
  94        ;; add-ons from NPM that are not distributed with the source.
  95        #:test-target "test-ci-js"
  96        #:phases
  97        (modify-phases %standard-phases
  98          (add-before 'configure 'patch-files
  99            (lambda* (#:key inputs #:allow-other-keys)
 100              ;; Fix hardcoded /bin/sh references.
 101              (substitute* '("lib/child_process.js"
 102                             "lib/internal/v8_prof_polyfill.js"
 103                             "test/parallel/test-child-process-spawnsync-shell.js"
 104                             "test/parallel/test-stdio-closed.js"
 105                             "test/sequential/test-child-process-emfile.js")
 106                (("'/bin/sh'")
 107                 (string-append "'" (which "sh") "'")))
 108
 109              ;; Fix hardcoded /usr/bin/env references.
 110              (substitute* '("test/parallel/test-child-process-default-options.js"
 111                             "test/parallel/test-child-process-env.js"
 112                             "test/parallel/test-child-process-exec-env.js")
 113                (("'/usr/bin/env'")
 114                 (string-append "'" (which "env") "'")))
 115
 116              ;; FIXME: These tests fail in the build container, but they don't
 117              ;; seem to be indicative of real problems in practice.
 118              (for-each delete-file
 119                        '("test/parallel/test-cluster-master-error.js"
 120                          "test/parallel/test-cluster-master-kill.js"
 121                          ;; See also <https://github.com/nodejs/node/issues/25903>.
 122                          "test/sequential/test-performance.js"))
 123
 124              ;; This requires a DNS resolver.
 125              (delete-file "test/parallel/test-dns.js")
 126
 127              ;; FIXME: This test fails randomly:
 128              ;; https://github.com/nodejs/node/issues/31213
 129              (delete-file "test/parallel/test-net-listen-after-destroying-stdin.js")
 130
 131              ;; FIXME: These tests fail on armhf-linux:
 132              ;; https://github.com/nodejs/node/issues/31970
 133              ,@(if (string-prefix? "arm" (%current-system))
 134                    '((for-each delete-file
 135                                '("test/parallel/test-zlib.js"
 136                                  "test/parallel/test-zlib-brotli.js"
 137                                  "test/parallel/test-zlib-brotli-flush.js"
 138                                  "test/parallel/test-zlib-brotli-from-brotli.js"
 139                                  "test/parallel/test-zlib-brotli-from-string.js"
 140                                  "test/parallel/test-zlib-convenience-methods.js"
 141                                  "test/parallel/test-zlib-random-byte-pipes.js"
 142                                  "test/parallel/test-zlib-write-after-flush.js")))
 143                    '())
 144
 145              ;; These tests have an expiry date: they depend on the validity of
 146              ;; TLS certificates that are bundled with the source.  We want this
 147              ;; package to be reproducible forever, so remove those.
 148              ;; TODO: Regenerate certs instead.
 149              (for-each delete-file
 150                        '("test/parallel/test-tls-passphrase.js"
 151                          "test/parallel/test-tls-server-verify.js"))
 152              #t))
 153          (replace 'configure
 154            ;; Node's configure script is actually a python script, so we can't
 155            ;; run it with bash.
 156            (lambda* (#:key outputs (configure-flags '()) inputs
 157                      #:allow-other-keys)
 158              (let* ((prefix (assoc-ref outputs "out"))
 159                     (flags (cons (string-append "--prefix=" prefix)
 160                                  configure-flags)))
 161                (format #t "build directory: ~s~%" (getcwd))
 162                (format #t "configure flags: ~s~%" flags)
 163                ;; Node's configure script expects the CC environment variable to
 164                ;; be set.
 165                (setenv "CC" (string-append (assoc-ref inputs "gcc") "/bin/gcc"))
 166                (apply invoke
 167                       (string-append (assoc-ref inputs "python")
 168                                      "/bin/python")
 169                       "configure" flags))))
 170          (add-after 'patch-shebangs 'patch-npm-shebang
 171            (lambda* (#:key outputs #:allow-other-keys)
 172              (let* ((bindir (string-append (assoc-ref outputs "out")
 173                                            "/bin"))
 174                     (npm    (string-append bindir "/npm"))
 175                     (target (readlink npm)))
 176                (with-directory-excursion bindir
 177                  (patch-shebang target (list bindir))
 178                  #t))))
 179          (add-after 'install 'patch-node-shebang
 180            (lambda* (#:key outputs #:allow-other-keys)
 181              (let* ((bindir (string-append (assoc-ref outputs "out")
 182                                            "/bin"))
 183                     (npx    (readlink (string-append bindir "/npx"))))
 184                (with-directory-excursion bindir
 185                  (patch-shebang npx (list bindir))
 186                  #t)))))))
 187     (native-inputs
 188      `(("python" ,python-2)
 189        ("perl" ,perl)
 190        ("pkg-config" ,pkg-config)
 191        ("procps" ,procps)
 192        ("util-linux" ,util-linux)
 193        ("which" ,which)))
 194     (native-search-paths
 195      (list (search-path-specification
 196             (variable "NODE_PATH")
 197             (files '("lib/node_modules")))))
 198     (inputs
 199      `(("c-ares" ,c-ares)
 200        ("http-parser" ,http-parser)
 201        ("icu4c" ,icu4c)
 202        ("libuv" ,libuv)
 203        ("nghttp2" ,nghttp2 "lib")
 204        ("openssl" ,openssl)
 205        ("zlib" ,zlib)))
 206     (synopsis "Evented I/O for V8 JavaScript")
 207     (description "Node.js is a platform built on Chrome's JavaScript runtime
 208 for easily building fast, scalable network applications.  Node.js uses an
 209 event-driven, non-blocking I/O model that makes it lightweight and efficient,
 210 perfect for data-intensive real-time applications that run across distributed
 211 devices.")
 212     (home-page "https://nodejs.org/")
 213     (license license:expat)
 214     (properties '((max-silent-time . 7200)     ;2h, needed on ARM
 215                   (timeout . 21600)))))        ;6h
 216
 217 ;; This should be the latest version of node that still builds without
 218 ;; depending on llhttp.
 219 (define-public node-bootstrap
 220   (hidden-package node))
 221
 222 ;; Duplicate of node-semver
 223 (define-public node-semver-bootstrap
 224   (package
 225     (name "node-semver")
 226     (version "7.2.1")
 227     (source (origin
 228               (method git-fetch)
 229               (uri (git-reference
 230                     (url "https://github.com/npm/node-semver")
 231                     (commit (string-append "v" version))))
 232               (file-name (git-file-name name version))
 233               (sha256
 234                (base32
 235                 "06biknqb05r9xsmcflm3ygh50pjvdk84x6r79w43kmck4fn3qn5p"))))
 236     (build-system node-build-system)
 237     (arguments
 238      `(#:node ,node-bootstrap
 239        #:tests? #f
 240        #:phases
 241        (modify-phases %standard-phases
 242          (delete 'configure))))
 243     (home-page "https://github.com/npm/node-semver")
 244     (properties '((hidden? . #t)))
 245     (synopsis "Parses semantic versions strings")
 246     (description
 247      "@code{node-semver} is a JavaScript implementation of the
 248 @uref{https://semver.org/, SemVer.org} specification.")
 249     (license license:isc)))
 250
 251 (define-public node-ms-bootstrap
 252   (package
 253     (name "node-ms")
 254     (version "2.1.2")
 255     (source
 256      (origin
 257        (method git-fetch)
 258        (uri (git-reference
 259              (url "https://github.com/vercel/ms.git")
 260              (commit version)))
 261        (file-name (git-file-name name version))
 262        (sha256
 263         (base32
 264          "1pjxzbi4j8pinlsc7yxvfrh0b47kb2dc4lfc2rjq4wx5bdwl33fj"))))
 265     (build-system node-build-system)
 266     (arguments
 267      `(#:node ,node-bootstrap
 268        #:tests? #f
 269        #:phases
 270        (modify-phases %standard-phases
 271          (delete 'configure))))
 272     (home-page "https://github.com/zeit/ms#readme")
 273     (properties '((hidden? . #t)))
 274     (synopsis "Tiny millisecond conversion utility")
 275     (description "Use this package to easily convert various time
 276 formats to milliseconds.")
 277     (license license:expat)))
 278
 279 (define-public libnode
 280   (package/inherit node
 281     (name "libnode")
 282     (arguments
 283      (substitute-keyword-arguments (package-arguments node)
 284        ((#:configure-flags flags ''())
 285         `(cons* "--shared" "--without-npm" ,flags))
 286        ((#:phases phases '%standard-phases)
 287         `(modify-phases ,phases
 288            (delete 'patch-npm-shebang)
 289            (delete 'patch-node-shebang)))))))