You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

212 lines
9.4 KiB

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Cyrill Schenkel <>
;;; Copyright © 2015 Andreas Enge <>
;;; Copyright © 2015, 2016 David Thompson <>
;;; Copyright © 2016 Ludovic Courtès <>
;;; Copyright © 2017 Mike Gerwitz <>
;;; Copyright © 2018 Tobias Geerinckx-Rice <>
;;; Copyright © 2018, 2019, 2020 Marius Bakke <>
;;; 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
;;; 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 node)
#:use-module ((guix licenses) #:select (expat))
#:use-module (guix packages)
#:use-module (guix derivations)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages adns)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages gcc)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages libevent)
#:use-module (gnu packages linux)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages tls)
#:use-module (gnu packages web))
(define-public node
(name "node")
(version "10.19.0")
(source (origin
(method url-fetch)
(uri (string-append "" version
"/node-v" version ".tar.xz"))
(modules '((guix build utils)))
;; Remove bundled software.
(for-each delete-file-recursively
(substitute* "Makefile"
;; Remove references to bundled software.
(("deps/http_parser/http_parser.gyp") "")
(("deps/uv/include/\\*.h") "")
(("deps/uv/uv.gyp") "")
(("deps/zlib/zlib.gyp") ""))
(build-system gnu-build-system)
`(#:configure-flags '("--shared-cares"
;; Run only the CI tests. The default test target requires additional
;; add-ons from NPM that are not distributed with the source.
#:test-target "test-ci-js"
(modify-phases %standard-phases
(add-before 'configure 'patch-files
(lambda* (#:key inputs #:allow-other-keys)
;; Fix hardcoded /bin/sh references.
(substitute* '("lib/child_process.js"
(string-append "'" (which "sh") "'")))
;; Fix hardcoded /usr/bin/env references.
(substitute* '("test/parallel/test-child-process-default-options.js"
(string-append "'" (which "env") "'")))
;; FIXME: These tests fail in the build container, but they don't
;; seem to be indicative of real problems in practice.
(for-each delete-file
;; See also <>.
;; This requires a DNS resolver.
(delete-file "test/parallel/test-dns.js")
;; FIXME: This test fails randomly:
(delete-file "test/parallel/test-net-listen-after-destroying-stdin.js")
;; FIXME: These tests fail on armhf-linux:
,@(if (string-prefix? "arm" (%current-system))
'((for-each delete-file
;; These tests have an expiry date: they depend on the validity of
;; TLS certificates that are bundled with the source. We want this
;; package to be reproducible forever, so remove those.
;; TODO: Regenerate certs instead.
(for-each delete-file
(replace 'configure
;; Node's configure script is actually a python script, so we can't
;; run it with bash.
(lambda* (#:key outputs (configure-flags '()) inputs
(let* ((prefix (assoc-ref outputs "out"))
(flags (cons (string-append "--prefix=" prefix)
(format #t "build directory: ~s~%" (getcwd))
(format #t "configure flags: ~s~%" flags)
;; Node's configure script expects the CC environment variable to
;; be set.
(setenv "CC" (string-append (assoc-ref inputs "gcc") "/bin/gcc"))
(apply invoke
(string-append (assoc-ref inputs "python")
"configure" flags))))
(add-after 'patch-shebangs 'patch-npm-shebang
(lambda* (#:key outputs #:allow-other-keys)
(let* ((bindir (string-append (assoc-ref outputs "out")
(npm (string-append bindir "/npm"))
(target (readlink npm)))
(with-directory-excursion bindir
(patch-shebang target (list bindir))
`(("python" ,python-2)
("perl" ,perl)
("pkg-config" ,pkg-config)
("procps" ,procps)
("util-linux" ,util-linux)
("which" ,which)))
(list (search-path-specification
(variable "NODE_PATH")
(files '("lib/node_modules")))))
`(("c-ares" ,c-ares)
("http-parser" ,http-parser)
("icu4c" ,icu4c)
("libuv" ,libuv)
("nghttp2" ,nghttp2 "lib")
("openssl" ,openssl)
("zlib" ,zlib)))
(synopsis "Evented I/O for V8 JavaScript")
(description "Node.js is a platform built on Chrome's JavaScript runtime
for easily building fast, scalable network applications. Node.js uses an
event-driven, non-blocking I/O model that makes it lightweight and efficient,
perfect for data-intensive real-time applications that run across distributed
(home-page "")
(license expat)
(properties '((max-silent-time . 7200) ;2h, needed on ARM
(timeout . 21600))))) ;6h
(define-public libnode
(inherit node)
(name "libnode")
(substitute-keyword-arguments (package-arguments node)
((#:configure-flags flags ''())
`(cons* "--shared" "--without-npm" ,flags))
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(delete 'patch-npm-shebang)))))))