;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Cyrill Schenkel ;;; Copyright © 2015 Andreas Enge ;;; Copyright © 2015, 2016 David Thompson ;;; Copyright © 2016, 2021 Ludovic Courtès ;;; Copyright © 2017 Mike Gerwitz ;;; Copyright © 2018 Tobias Geerinckx-Rice ;;; Copyright © 2018-2022 Marius Bakke ;;; Copyright © 2020, 2021 Pierre Langlois ;;; Copyright © 2020, 2023 Ricardo Wurmus ;;; Copyright © 2021 Simon Tournier ;;; Copyright © 2021 Guillaume Le Vaillant ;;; Copyright © 2021, 2022 Philip McGrath ;;; Copyright © 2022 Hilton Chain ;;; Copyright © 2024 Efraim Flashner ;;; Copyright © 2024, 2025 Daniel Khodabakhsh ;;; ;;; 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 node) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages compression) #:use-module (gnu packages dns) #:use-module (gnu packages gcc) #:use-module (gnu packages icu4c) #:use-module (gnu packages libevent) #:use-module (gnu packages linux) #:use-module (gnu packages networking) #: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) #:use-module (gnu packages) #:use-module ((guix build utils) #:select (alist-replace)) #:use-module (guix build-system gnu) #:use-module (guix build-system node) #:use-module (guix derivations) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix gexp) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix utils) #:use-module (ice-9 match) #:use-module (srfi srfi-1) #:use-module (srfi srfi-26)) ;; This should be the latest version of node that still builds without ;; depending on llhttp. (define-public node-bootstrap (package (name "node") (version "10.24.1") (source (origin (method url-fetch) (uri (string-append "https://nodejs.org/dist/v" version "/node-v" version ".tar.xz")) (sha256 (base32 "032801kg24j04xmf09m0vxzlcz86sv21s24lv9l4cfv08k1c4byp")) (modules '((guix build utils))) (snippet '(begin ;; Fix process.versions.XXXX assumption of always having ;; a version string of major.minor.patch and not major.minor. (substitute* "test/parallel/test-process-versions.js" (("\\\\d\\+\\\\.\\\\d\\+\\\\.") "(\\d+\\.)+")) ;; Remove bundled software. (for-each delete-file-recursively '("deps/cares" "deps/http_parser" "deps/icu-small" "deps/nghttp2" "deps/openssl" "deps/uv" "deps/zlib")) (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) (arguments `(#:configure-flags '("--shared-cares" "--shared-http-parser" "--shared-libuv" "--shared-nghttp2" "--shared-openssl" "--shared-zlib" "--without-snapshot" "--without-intl") ;; 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" #:modules ((guix build gnu-build-system) (guix build utils) (srfi srfi-1) (ice-9 match)) #:phases (modify-phases %standard-phases (add-before 'configure 'patch-hardcoded-program-references (lambda* (#:key inputs #:allow-other-keys) ;; Fix hardcoded /bin/sh references. (substitute* (let ((common '("lib/child_process.js" "lib/internal/v8_prof_polyfill.js" "test/parallel/test-child-process-spawnsync-shell.js" "test/parallel/test-stdio-closed.js" "test/sequential/test-child-process-emfile.js")) ;; not in bootstap node: (sigxfsz "test/parallel/test-fs-write-sigxfsz.js")) (if (file-exists? sigxfsz) (cons sigxfsz common) common)) (("'/bin/sh'") (string-append "'" (search-input-file inputs "/bin/sh") "'"))) ;; Fix hardcoded /usr/bin/env references. (substitute* '("test/parallel/test-child-process-default-options.js" "test/parallel/test-child-process-env.js" "test/parallel/test-child-process-exec-env.js") (("'/usr/bin/env'") (string-append "'" (assoc-ref inputs "coreutils") "/bin/env'"))))) (add-after 'patch-hardcoded-program-references 'delete-problematic-tests (lambda* (#:key inputs #:allow-other-keys) ;; 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 '("test/parallel/test-cluster-master-error.js" "test/parallel/test-cluster-master-kill.js" ;; See also . "test/sequential/test-performance.js")) ;; These tests fail on recent versions of nghttp2 (for-each delete-file '("test/parallel/test-http2-methods.js" "test/parallel/test-http2-multiplex.js")) ;; This requires a DNS resolver. (delete-file "test/parallel/test-dns.js") ;; This test is timing-sensitive, and fails sporadically on ;; slow, busy, or even very fast machines. (delete-file "test/parallel/test-fs-utimes.js") ;; FIXME: This test fails randomly: ;; https://github.com/nodejs/node/issues/31213 (delete-file "test/parallel/test-net-listen-after-destroying-stdin.js") ;; FIXME: These tests fail on armhf-linux: ;; https://github.com/nodejs/node/issues/31970 ,@(if (string-prefix? "arm" (%current-system)) '((for-each delete-file '("test/parallel/test-zlib.js" "test/parallel/test-zlib-brotli.js" "test/parallel/test-zlib-brotli-flush.js" "test/parallel/test-zlib-brotli-from-brotli.js" "test/parallel/test-zlib-brotli-from-string.js" "test/parallel/test-zlib-convenience-methods.js" "test/parallel/test-zlib-random-byte-pipes.js" "test/parallel/test-zlib-write-after-flush.js"))) '()) ;; 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 '("test/parallel/test-tls-passphrase.js" "test/parallel/test-tls-server-verify.js")))) (add-before 'configure 'set-bootstrap-host-rpath (lambda* (#:key native-inputs inputs #:allow-other-keys) (let* ((inputs (or native-inputs inputs)) (c-ares (assoc-ref inputs "c-ares")) (http-parser (assoc-ref inputs "http-parser")) (nghttp2 (assoc-ref inputs "nghttp2")) (openssl (assoc-ref inputs "openssl")) (libuv (assoc-ref inputs "libuv")) (zlib (assoc-ref inputs "zlib"))) (substitute* "deps/v8/gypfiles/v8.gyp" (("'target_name': 'torque'," target) (string-append target "'ldflags': ['-Wl,-rpath=" c-ares "/lib:" http-parser "/lib:" nghttp2 "/lib:" openssl "/lib:" libuv "/lib:" zlib "/lib" "'],")))))) (replace 'configure ;; Node's configure script is actually a python script, so we can't ;; run it with bash. (lambda* (#:key outputs (configure-flags '()) native-inputs inputs #:allow-other-keys) (let* ((prefix (assoc-ref outputs "out")) (xflags ,(if (%current-target-system) `'("--cross-compiling" ,(string-append "--dest-cpu=" (match (%current-target-system) ((? (cut string-prefix? "arm" <>)) "arm") ((? (cut string-prefix? "aarch64" <>)) "arm64") ((? (cut string-prefix? "i686" <>)) "ia32") ((? (cut string-prefix? "x86_64" <>)) "x64") ((? (cut string-prefix? "powerpc64" <>)) "ppc64") ((? (cut string-prefix? "riscv64" <>)) "riscv64") (_ "unsupported")))) ''())) (flags (cons (string-append "--prefix=" prefix) (append xflags configure-flags)))) (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_host" "gcc") (setenv "CXX_host" "g++") (setenv "CC" ,(cc-for-target)) (setenv "CXX" ,(cxx-for-target)) (setenv "PKG_CONFIG" ,(pkg-config-for-target)) (apply invoke (let ((inpts (or native-inputs inputs))) (with-exception-handler (lambda (e) (if (search-error? e) (search-input-file inpts "/bin/python3") (raise-exception e))) (lambda () (search-input-file inpts "/bin/python")) #:unwind? #t)) "configure" flags)))) (add-after 'patch-shebangs 'patch-nested-shebangs (lambda* (#:key inputs outputs #:allow-other-keys) ;; Based on the implementation of patch-shebangs ;; from (guix build gnu-build-system). (let ((path (append-map (match-lambda ((_ . dir) (list (string-append dir "/bin") (string-append dir "/sbin") (string-append dir "/libexec")))) (append outputs inputs)))) (for-each (lambda (file) (patch-shebang file path)) (find-files (search-input-directory outputs "lib/node_modules") (lambda (file stat) (executable-file? file)) #:stat lstat))))) (add-after 'install 'fix-node-gyp-reference ;; Note: programs like node-gyp only receive these values if ;; they are started via `npm` or `npx`. ;; See: https://github.com/nodejs/node-gyp#npm-configuration (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out"))) (with-output-to-file ;; Use the config file "primarily for distribution ;; maintainers" rather than "{prefix}/etc/npmrc", ;; especially because node-build-system uses --prefix ;; to install things to their store paths: (string-append out "/lib/node_modules/npm/npmrc") (lambda () ;; Tell npm (mostly node-gyp) where to find our ;; installed headers so it doesn't try to ;; download them from the internet: (format #t "nodedir=~a\n" out))))))))) (native-inputs ;; Runtime dependencies for binaries used as a bootstrap. (list c-ares-for-node-bootstrap http-parser libuv-for-node `(,nghttp2-for-node-bootstrap "lib") openssl-1.1 zlib ;; Regular build-time dependencies. gcc-11 ; GCC > 11 produces a broken binary perl pkg-config procps python-2 util-linux)) (native-search-paths (list (search-path-specification (variable "NODE_PATH") (files '("lib/node_modules"))))) (inputs (list bash-minimal coreutils c-ares-for-node-bootstrap http-parser libuv-for-node `(,nghttp2-for-node-bootstrap "lib") openssl 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 devices.") (supported-systems (fold delete %supported-systems '("powerpc-linux" "riscv64-linux"))) (home-page "https://nodejs.org/") (license license:expat) (properties '((max-silent-time . 7200) ;2h, needed on ARM (timeout . 21600) ;6h (cpe-name . "node.js") (hidden? . #t))))) ;; Stripped down version of the node-build-system, avoids (json) and some ;; niceties, resulting in a simpler but brittle phases. This allows us to work ;; on node-build-system without recompiling node-lts for each edit. (define bootstrap-node-phases #~(modify-phases %standard-phases (add-after 'unpack 'set-home (lambda _ (with-directory-excursion ".." (let loop ((i 0)) (let ((dir (string-append "npm-home-" (number->string i)))) (if (directory-exists? dir) (loop (1+ i)) (begin (mkdir dir) (setenv "HOME" (string-append (getcwd) "/" dir)) (format #t "set HOME to ~s~%" (getenv "HOME"))))))))) (add-before 'configure 'delete-lockfiles (lambda _ (let ((lock "package-lock.json")) (when (file-exists? lock) (delete-file lock))))) (replace 'configure (lambda* (#:key inputs #:allow-other-keys) (let ((npm (string-append (assoc-ref inputs "node") "/bin/npm"))) (invoke npm "--offline" "--ignore-scripts" "--install-links" "--no-audit" "install")))) (add-before 'install 'repack (lambda _ (invoke "tar" ;; Add options suggested by https://reproducible-builds.org/docs/archives/ "--sort=name" (string-append "--mtime=@" (getenv "SOURCE_DATE_EPOCH")) "--owner=0" "--group=0" "--numeric-owner" "-czf" "../package.tgz" "."))) (delete 'build) (replace 'install (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (npm (string-append (assoc-ref inputs "node") "/bin/npm"))) (invoke npm "--prefix" #$output "--global" "--offline" "--loglevel" "info" "--production" "--install-links" "install" "../package.tgz")))))) (define (delete-dependencies* dependencies) #~(substitute* "package.json" (((string-append " *\"(" (string-join (list #$@dependencies) "|") ")\": \".*")) ""))) (define-public node-semver-bootstrap (package (name "node-semver-bootstrap") (version "7.2.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/npm/node-semver") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "06biknqb05r9xsmcflm3ygh50pjvdk84x6r79w43kmck4fn3qn5p")))) (build-system gnu-build-system) (arguments (list #:tests? #f #:phases #~(modify-phases #$bootstrap-node-phases (add-before 'configure 'patch-dependencies (lambda _ #$(delete-dependencies* (list "tap"))))))) (native-inputs (list node-bootstrap)) (home-page "https://github.com/npm/node-semver") (properties '((hidden? . #t))) (synopsis "Parses semantic versions strings") (description "@code{node-semver} is a JavaScript implementation of the @uref{https://semver.org/, SemVer.org} specification.") (license license:isc))) (define-public node-llparse-builder-bootstrap ;; The binary-search package is vendored in 1351b75. It's not unvendored ;; here because it's small, and as a bootstrap package doesn't bring ;; deduplication to a profile. (let ((commit "b04a70c8a3344adcfb8f5132528f7ae9852af79b") (revision "1")) (package (name "node-llparse-builder-bootstrap") (version (git-version "1.5.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nodejs/llparse-builder.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "08wsxyz7hhaf1n3jgvlnhhaaafq576wmpf4k4whihz012i4sxncg")))) (build-system gnu-build-system) (arguments (list #:tests? #f #:phases #~(modify-phases #$bootstrap-node-phases (add-after 'unpack 'fix-imports-for-esbuild ;; https://github.com/evanw/esbuild/issues/477 (lambda _ (substitute* '("src/node/invoke.ts" "src/node/base.ts" "src/node/consume.ts" "src/node/match.ts" "src/node/error.ts" "src/node/pause.ts" "src/edge.ts" "src/utils.ts" "src/loop-checker/index.ts" "src/loop-checker/lattice.ts" "src/code/field.ts" "src/span-allocator.ts") (("\\* as assert") "assert")))) (add-before 'configure 'patch-dependencies (lambda* (#:key inputs #:allow-other-keys) #$(delete-dependencies* (list "@eslint/js" "@stylistic/eslint-plugin" "@types/eslint__js" "@types/node" "@typescript-eslint/eslint-plugin" "@typescript-eslint/parser" "borp" "eslint" "typescript-eslint" "typescript")))) (add-before 'repack 'build (lambda* (#:key inputs #:allow-other-keys) (let ((esbuild (search-input-file inputs "/bin/esbuild"))) (invoke esbuild "--platform=node" "--outfile=lib/builder.js" "--bundle" "src/builder.ts"))))))) (native-inputs (list esbuild node-bootstrap)) (home-page "https://github.com/nodejs/llparse-builder#readme") (properties '((hidden? . #t))) (synopsis "Graph builder for consumption by llparse") (description "This package builds graphs for consumption by llparse.") (license license:expat)))) (define-public node-llparse-frontend-bootstrap (package (name "node-llparse-frontend-bootstrap") (version "3.0.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nodejs/llparse-frontend.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1rm9g4ifyip30svm5cgnf0gx7d45jgh4mpf2hkd092xhngmfvicc")))) (build-system gnu-build-system) (arguments (list #:tests? #f #:phases #~(modify-phases #$bootstrap-node-phases (add-after 'unpack 'fix-imports-for-esbuild ;; https://github.com/evanw/esbuild/issues/477 (lambda _ (substitute* '("src/frontend.ts" "src/code/field-value.ts" "src/container/index.ts" "src/container/wrap.ts" "src/node/sequence.ts" "src/node/single.ts" "src/node/table-lookup.ts" "src/trie/index.ts") (("\\* as assert") "assert")))) (add-before 'configure 'patch-dependencies (lambda* (#:key inputs #:allow-other-keys) ;; Drop debug dependency, see ;; https://github.com/nodejs/llparse-frontend/pull/8 (substitute* "src/frontend.ts" (("import \\* as debugAPI from 'debug';") "import { debuglog } from 'node:util';") (("debugAPI") "debuglog")) #$(delete-dependencies* (list "@types/debug" "@types/mocha" "@types/node" "debug" "mocha" "ts-node" "tslint" "typescript")) ;; Resolve dependencies manually. (let* ((builder-path "lib/node_modules/llparse-builder") (builder (search-input-directory inputs builder-path))) (substitute* "package.json" (("\"llparse-builder\": \".*") (format #f "\"llparse-builder\": \"file://~a\"" builder)))))) (add-before 'repack 'build (lambda* (#:key inputs #:allow-other-keys) (let ((esbuild (search-input-file inputs "/bin/esbuild"))) (invoke esbuild "--platform=node" "--outfile=lib/frontend.js" "--bundle" "src/frontend.ts"))))))) (inputs (list node-llparse-builder-bootstrap)) (native-inputs (list esbuild node-bootstrap)) (home-page "https://github.com/nodejs/llparse-frontend#readme") (properties '((hidden? . #t))) (synopsis "Frontend for the llparse compiler") (description "This package is a frontend for the llparse compiler.") (license license:expat))) (define-public node-llparse-bootstrap (package (name "node-llparse-bootstrap") (version "7.3.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nodejs/llparse.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0srahcyqgnx2f2w0hwsayx7ihvqgll6a6bcwrsiyvccis4hccww2")))) (build-system gnu-build-system) (arguments (list #:tests? #f #:phases #~(modify-phases #$bootstrap-node-phases (add-after 'unpack 'fix-imports-for-esbuild ;; https://github.com/evanw/esbuild/issues/477 (lambda _ (substitute* '("src/compiler/index.ts" "src/implementation/c/node/base.ts" "src/implementation/c/node/table-lookup.ts" "src/implementation/c/compilation.ts" "src/implementation/c/helpers/match-sequence.ts" "src/implementation/c/code/mul-add.ts") (("\\* as assert") "assert")))) (add-before 'configure 'patch-dependencies (lambda* (#:key inputs #:allow-other-keys) ;; Drop debug dependency, see ;; https://github.com/nodejs/llparse/pull/87 (substitute* "src/compiler/index.ts" (("import \\* as debugAPI from 'debug';") "import { debuglog } from 'node:util';") (("debugAPI") "debuglog")) #$(delete-dependencies* (list "@stylistic/eslint-plugin" "@typescript-eslint/eslint-plugin" "@typescript-eslint/parser" "@types/debug" "@types/mocha" "@types/node" "debug" "esm" "eslint" "llparse-test-fixture" "mocha" "ts-node" "tslint" "typescript")) ;; Resolve dependencies manually. (let* ((frontend-path "lib/node_modules/llparse-frontend") (frontend (search-input-directory inputs frontend-path))) (substitute* "package.json" (("\"llparse-frontend\": \".*") (format #f "\"llparse-frontend\": \"file://~a\"" frontend)))))) (add-before 'repack 'build (lambda* (#:key inputs #:allow-other-keys) (let ((esbuild (search-input-file inputs "/bin/esbuild"))) (invoke esbuild "--platform=node" "--outfile=lib/api.js" "--bundle" "src/api.ts"))))))) (inputs (list node-llparse-frontend-bootstrap)) (native-inputs (list esbuild node-bootstrap)) (home-page "https://github.com/nodejs/llparse#readme") (properties '((hidden? . #t))) (synopsis "Compile incremental parsers to C code") (description "This package offers an API for compiling an incremental parser definition into a C output.") (license license:expat))) (define-public llhttp-bootstrap (package (name "llhttp-bootstrap") (version "9.4.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/nodejs/llhttp.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0yb46qksyw0h14r1qp84xkk8zijfi661991288isivba61hijp2z")) (modules '((guix build utils))) (snippet '(begin ;; Fix imports for esbuild. ;; https://github.com/evanw/esbuild/issues/477 (substitute* "src/llhttp/http.ts" (("\\* as assert") "assert")) (substitute* "Makefile" (("node --import tsx bin/generate.ts") "node bin/generate.js")) #t)))) (build-system gnu-build-system) (arguments (list #:tests? #f ; no tests #:make-flags #~(list (string-append "CLANG=" #$(cc-for-target)) (string-append "DESTDIR=" #$output) "PREFIX=") #:phases #~(modify-phases %standard-phases (replace 'configure (lambda* (#:key inputs native-inputs #:allow-other-keys) (let ((esbuild (search-input-file (or native-inputs inputs) "/bin/esbuild"))) (invoke esbuild "--platform=node" "--target=node10" "--outfile=bin/generate.js" "--bundle" "bin/generate.ts")))) (add-before 'install 'create-install-directories (lambda _ (mkdir #$output) (with-directory-excursion #$output (for-each mkdir (list "lib" "include" "src"))))) (add-after 'install 'install-src (lambda _ (let ((src-dir (string-append #$output "/src"))) (install-file "build/c/llhttp.c" src-dir) (install-file "src/native/api.c" src-dir) (install-file "src/native/http.c" src-dir))))))) (native-inputs (list esbuild node-bootstrap node-llparse-bootstrap node-semver-bootstrap)) (home-page "https://github.com/nodejs/llhttp") (properties '((hidden? . #t))) (synopsis "Parser for HTTP messages") (description "This is a rewrite of @url{https://github.com/nodejs/http-parser, http-parser} using @url{https://github.com/nodejs/llparse, llparse} to generate the C source files.") (license license:expat))) (define-public node-lts (package (inherit node-bootstrap) (version "24.19.0") (source (origin (method url-fetch) (uri (string-append "https://nodejs.org/dist/v" version "/node-v" version ".tar.gz")) (sha256 (base32 "00avy95j70wyipck4km57n6wl8sn3rg3nnz0zd26is560s02bzhn")) (modules '((guix build utils))) (snippet '(begin ;; openssl.cnf is required for build. (for-each delete-file-recursively (find-files "deps/openssl" (lambda (file stat) (not (string-contains file "nodejs-openssl.cnf"))))) ;; [temp.names] requires a 'template' when calling a template ;; member via a dependent expression. This header is compiled ;; for 32-bit targets (V8_TARGET_ARCH_32_BIT), so ;; non-conformance goes unnoticed elsewhere. Coincidentally ;; fixed in upstream v8 at: ;; https://chromium-review.googlesource.com/c/v8/v8/+/6830052 (substitute* "deps/v8/src/compiler/turboshaft/int64-lowering-reducer.h" (("__ Tuple") "__ template Tuple")) ;; Remove bundled software, where possible (for-each delete-file-recursively '("deps/brotli" "deps/cares" "deps/icu-small" "deps/nghttp2" "deps/ngtcp2" "deps/llhttp" "deps/uv" "deps/zlib" "deps/zstd")))))) (arguments (substitute-keyword-arguments arguments ((#:configure-flags configure-flags) ''("--shared-cares" "--shared-libuv" "--shared-http-parser" "--shared-http-parser-libname=llhttp" "--shared-nghttp2" "--shared-openssl" "--shared-zlib" "--shared-brotli" "--with-intl=system-icu" "--shared-ngtcp2" "--shared-nghttp3" "--shared-zstd" "--shared" ;;Needed for correct snapshot checksums "--v8-enable-snapshot-compression")) ((#:phases phases) `(modify-phases ,phases (replace 'set-bootstrap-host-rpath (lambda* (#:key native-inputs inputs #:allow-other-keys) (let* ((inputs (or native-inputs inputs)) (c-ares (assoc-ref inputs "c-ares")) (brotli (assoc-ref inputs "brotli")) (icu4c (assoc-ref inputs "icu4c")) (nghttp2 (assoc-ref inputs "nghttp2")) (openssl (assoc-ref inputs "openssl")) (libuv (assoc-ref inputs "libuv")) (zlib (assoc-ref inputs "zlib")) (host-binaries '("torque" "bytecode_builtins_list_generator" "gen-regexp-special-case" "node_mksnapshot" "mksnapshot"))) (substitute* '("node.gyp" "tools/v8_gypfiles/v8.gyp") (((string-append "'target_name': '(" (string-join host-binaries "|") ")',") target) (string-append target "'ldflags': ['-Wl,-rpath=" c-ares "/lib:" brotli "/lib:" icu4c "/lib:" nghttp2 "/lib:" openssl "/lib:" libuv "/lib:" zlib "/lib" "'],")))))) (add-after 'patch-hardcoded-program-references 'patch-additional-hardcoded-program-references (lambda* (#:key inputs #:allow-other-keys) (substitute* "test/parallel/test-stdin-from-file-spawn.js" (("'/bin/sh'") (string-append "'" (search-input-file inputs "/bin/sh") "'"))))) (replace 'delete-problematic-tests (lambda* (#:key inputs #:allow-other-keys) ;; 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 '("test/parallel/test-cluster-primary-error.js" "test/parallel/test-cluster-primary-kill.js" "test/parallel/test-node-run.js")) ;; These require a DNS resolver. (for-each delete-file '("test/parallel/test-dns.js" "test/parallel/test-dns-lookupService-promises.js" "test/parallel/test-net-socket-connect-without-cb.js" "test/parallel/test-tcp-wrap-listen.js" "test/report/test-report-exclude-network.js")) ;; These tests require networking. (for-each delete-file '("test/parallel/test-https-agent-unref-socket.js")) ;; These tests are timing-sensitive, and fail sporadically on ;; slow, busy, or even very fast machines. (for-each delete-file '("test/parallel/test-fs-utimes.js")) ;; FIXME: This test fails randomly: ;; https://github.com/nodejs/node/issues/31213 (delete-file "test/parallel/test-net-listen-after-destroying-stdin.js") ;; FIXME: These tests fail on armhf-linux: ;; https://github.com/nodejs/node/issues/31970 ,@(if (target-arm32?) '((for-each delete-file '("test/parallel/test-zlib.js" "test/parallel/test-zlib-brotli.js" "test/parallel/test-zlib-brotli-flush.js" "test/parallel/test-zlib-brotli-from-brotli.js" "test/parallel/test-zlib-brotli-from-string.js" "test/parallel/test-zlib-convenience-methods.js" "test/parallel/test-zlib-random-byte-pipes.js" "test/parallel/test-zlib-write-after-flush.js"))) '()) ;; https://github.com/nodejs/node/issues/45906 ;; This test depends on 64-bit time_t so skipping on 32-bit systems. ,@(if (target-32bit?) '((delete-file "test/parallel/test-fs-utimes-y2K38.js") (delete-file "test/parallel/test-debugger-heap-profiler.js")) '()) ;; 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 '("test/parallel/test-tls-passphrase.js" "test/parallel/test-tls-server-verify.js")) ;; These tests fail when linking to upstream libuv. ;; https://github.com/nodejs/node/commit/3f6addd590 (for-each delete-file '("test/parallel/test-process-euid-egid.js" "test/parallel/test-process-initgroups.js" "test/parallel/test-process-setgroups.js" "test/parallel/test-process-uid-gid.js")))) (add-after 'delete-problematic-tests 'patch-problematic-tests (lambda _ ;; XXX: These tests seem to not work by default (substitute* '("test/parallel/test-http2-premature-close.js" "test/parallel/test-http2-invalid-last-stream-id.js") (("client\\.connect\\(address\\)") "client.connect(address.port)")))) ;; npm installs dependencies by copying their files over a tar ;; stream. A file with more than one hardlink is marked as a ;; "Link". pacote/lib/fetcher.js calls node-tar's extractor with a ;; filter that ignores any "Link" entries. This means that ;; dependending on the number of hardlinks on files in a node-* ;; package *some* of its files may not be installed when generating ;; another package's "node_modules" directory. The build output ;; would differ depending on irrelevant file system state. ;; ;; To avoid this, we patch node-tar to treat files with hardlinks ;; the same as any other file, so that node-tar has no choice but ;; to extract all of them --- independent of pacote's filter. ;; ;; Why not patch pacote's filter instead? This has led to subtle ;; differences in where the files are installed, so it's easier to ;; just ensure that files with hardlinks are always treated as ;; regular files. ;; ;; Discussion: ;; https://lists.gnu.org/archive/html/guix-devel/2023-07/msg00040.html ;; Upstream bug report: ;; https://github.com/npm/pacote/issues/285 (add-after 'install 'ignore-number-of-hardlinks (lambda* (#:key outputs #:allow-other-keys) (let ((dir (string-append (assoc-ref outputs "out") "/lib/node_modules/npm/node_modules" "/tar/dist"))) (substitute* (list (string-append dir "/esm/write-entry.js") (string-append dir "/commonjs/write-entry.js")) (("this.stat.nlink > 1") "false"))))) (replace 'fix-node-gyp-reference (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (for-each (lambda (spec) (wrap-program (string-append out spec) `("npm_package_config_node_gyp_nodedir" = (,out)))) '("/bin/npm" "/bin/npx"))))) (add-after 'patch-nested-shebangs 'do-not-capture-python (lambda* (#:key outputs #:allow-other-keys) ;; patch-shebangs embeds the Python store path into node-gyp's ;; Python scripts, pulling Python into node's closure. Revert ;; to /usr/bin/env python3 so downstream gyp builds supply ;; their own Python. (let ((node-gyp (string-append (assoc-ref outputs "out") "/lib/node_modules/npm" "/node_modules/node-gyp"))) (for-each (lambda (f) (substitute* f (("^#!.*/bin/python3") "#!/usr/bin/env python3"))) (find-files node-gyp "\\.py$"))))))))) (native-inputs (list ;; Runtime dependencies for binaries used as a bootstrap. c-ares-for-node-lts brotli icu4c-76 libuv-for-node-lts `(,nghttp2-for-node-lts "lib") openssl zlib ; ngtcp2? nghttp3? ;; Regular build-time dependencies. perl pkg-config procps python util-linux)) (inputs (list bash-minimal coreutils c-ares-for-node-lts icu4c-76 libuv-for-node-lts llhttp-bootstrap brotli ngtcp2 nghttp3 `(,nghttp2-for-node-lts "lib") openssl zlib `(,zstd "lib"))) (supported-systems (cons "riscv64-linux" (package-supported-systems node-bootstrap))) (properties (alist-delete 'hidden? (package-properties node-bootstrap))))) (define-public node node-lts) (define-deprecated-package libnode node-lts)