mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-06 03:17:15 -05:00
2419a16365
gnu/packages/tree-sitter.scm (tree-sitter-delete-generated-files): New variable. (tree-sitter-grammar): Remove source-directory argument, add inputs argument, change package names, remove custom build code, update build system to tree-sitter-build-system. (tree-sitter-grammar-html): Rename to tree-sitter-html.
233 lines
9.2 KiB
Scheme
233 lines
9.2 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
|
;;; Copyright © 2022 Luis Henrique Gomes Higino <luishenriquegh2701@gmail.com>
|
|
;;; Copyright © 2022, 2023 Pierre Langlois <pierre.langlois@gmx.com>
|
|
;;; Copyright © 2022 muradm <mail@muradm.net>
|
|
;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org>
|
|
;;; Copyright © 2023 Andrew Tropin <andrew@trop.in>
|
|
;;;
|
|
;;; 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 <http://www.gnu.org/licenses/>.
|
|
|
|
(define-module (gnu packages tree-sitter)
|
|
#:use-module ((guix licenses) #:prefix license:)
|
|
#:use-module (gnu packages crates-graphics)
|
|
#:use-module (gnu packages crates-io)
|
|
#:use-module (gnu packages graphviz)
|
|
#:use-module (gnu packages icu4c)
|
|
#:use-module (gnu packages node)
|
|
#:use-module (guix build-system cargo)
|
|
#:use-module (guix build-system gnu)
|
|
#:use-module (guix build-system tree-sitter)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix git-download)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix utils))
|
|
|
|
(define-public tree-sitter
|
|
(package
|
|
(name "tree-sitter")
|
|
(version "0.20.7")
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/tree-sitter/tree-sitter")
|
|
(commit (string-append "v" version))))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32
|
|
"1nv2a2hr22w8ix71b6rkkxv9rfvhvwlmyql0g6lva9qzj4vy50p4"))
|
|
(modules '((guix build utils)))
|
|
(snippet #~(begin
|
|
;; Remove bundled ICU parts
|
|
(delete-file-recursively "lib/src/unicode")))))
|
|
(build-system gnu-build-system)
|
|
(inputs (list icu4c))
|
|
(arguments
|
|
(list #:phases
|
|
#~(modify-phases %standard-phases
|
|
(delete 'configure))
|
|
#:tests? #f ; there are no tests for the runtime library
|
|
#:make-flags
|
|
#~(list (string-append "PREFIX=" #$output)
|
|
(string-append "CC=" #$(cc-for-target)))))
|
|
(home-page "https://tree-sitter.github.io/tree-sitter/")
|
|
(synopsis "Incremental parsing system for programming tools")
|
|
(description
|
|
"Tree-sitter is a parser generator tool and an incremental parsing
|
|
library. It can build a concrete syntax tree for a source file and
|
|
efficiently update the syntax tree as the source file is edited.
|
|
|
|
Tree-sitter aims to be:
|
|
|
|
@itemize
|
|
@item General enough to parse any programming language
|
|
@item Fast enough to parse on every keystroke in a text editor
|
|
@item Robust enough to provide useful results even in the presence of syntax errors
|
|
@item Dependency-free so that the runtime library (which is written in pure C)
|
|
can be embedded in any application
|
|
@end itemize
|
|
|
|
This package includes the @code{libtree-sitter} runtime library.")
|
|
(license license:expat)))
|
|
|
|
(define-public tree-sitter-cli
|
|
(package
|
|
(inherit tree-sitter)
|
|
(name "tree-sitter-cli")
|
|
(source (origin
|
|
(inherit (package-source tree-sitter))
|
|
(snippet
|
|
#~(begin
|
|
;; Remove the runtime library code and dynamically link to
|
|
;; it instead.
|
|
(delete-file-recursively "lib/src")
|
|
(delete-file "lib/binding_rust/build.rs")
|
|
(with-output-to-file "lib/binding_rust/build.rs"
|
|
(lambda _
|
|
(format #t "fn main() {~@
|
|
println!(\"cargo:rustc-link-lib=tree-sitter\");~@
|
|
}~%")))))))
|
|
(build-system cargo-build-system)
|
|
(inputs
|
|
(list tree-sitter graphviz node-lts))
|
|
(arguments
|
|
(list
|
|
#:cargo-test-flags
|
|
''("--release" "--"
|
|
;; Skip tests which rely on downloading grammar fixtures. It is
|
|
;; difficult to support such tests given upstream does not encode
|
|
;; which version of the grammars are expected.
|
|
;; Instead, we do run some tests for each grammar in the tree-sitter
|
|
;; build-system, by running `tree-sitter test'. This isn't as
|
|
;; complete as running all tests from tree-sitter-cli, but it's a
|
|
;; good compromise compared to maintaining two different sets of
|
|
;; grammars (Guix packages vs test fixtures).
|
|
"--skip=tests::corpus_test"
|
|
"--skip=tests::highlight_test"
|
|
"--skip=tests::node_test"
|
|
"--skip=tests::parser_test"
|
|
"--skip=tests::pathological_test"
|
|
"--skip=tests::query_test"
|
|
"--skip=tests::tags_test"
|
|
"--skip=tests::test_highlight_test"
|
|
"--skip=tests::test_tags_test"
|
|
"--skip=tests::tree_test")
|
|
;; We're only packaging the CLI program so we do not need to install
|
|
;; sources.
|
|
#:install-source? #f
|
|
#:cargo-inputs
|
|
`(("rust-ansi-term" ,rust-ansi-term-0.12)
|
|
("rust-anyhow" ,rust-anyhow-1)
|
|
("rust-atty" ,rust-atty-0.2)
|
|
("rust-clap" ,rust-clap-2)
|
|
("rust-difference" ,rust-difference-2)
|
|
("rust-dirs" ,rust-dirs-3)
|
|
("rust-html-escape" ,rust-html-escape-0.2)
|
|
("rust-libloading" ,rust-libloading-0.7)
|
|
("rust-rand" ,rust-rand-0.8)
|
|
("rust-rustc-hash" ,rust-rustc-hash-1)
|
|
("rust-semver" ,rust-semver-1)
|
|
("rust-smallbitvec" ,rust-smallbitvec-2)
|
|
("rust-thiserror" ,rust-thiserror-1)
|
|
("rust-tiny-http" ,rust-tiny-http-0.8)
|
|
("rust-toml" ,rust-toml-0.5)
|
|
("rust-walkdir" ,rust-walkdir-2)
|
|
("rust-webbrowser" ,rust-webbrowser-0.5)
|
|
("rust-which" ,rust-which-4))
|
|
#:cargo-development-inputs
|
|
`(("rust-pretty-assertions" ,rust-pretty-assertions-0.7))
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'unpack 'delete-cargo-lock
|
|
(lambda _
|
|
(delete-file "Cargo.lock")))
|
|
(add-after 'unpack 'patch-node
|
|
(lambda _
|
|
(substitute* "cli/src/generate/mod.rs"
|
|
(("Command::new\\(\"node\"\\)")
|
|
(string-append
|
|
"Command::new(\"" #$node-lts "/bin/node\")")))))
|
|
(add-after 'unpack 'patch-dot
|
|
(lambda _
|
|
(substitute* "cli/src/util.rs"
|
|
(("Command::new\\(\"dot\"\\)")
|
|
(string-append
|
|
"Command::new(\"" #$graphviz "/bin/dot\")")))))
|
|
(replace 'install
|
|
(lambda _
|
|
(let ((bin (string-append #$output "/bin")))
|
|
(mkdir-p bin)
|
|
(install-file "target/release/tree-sitter" bin)))))))
|
|
(description "Tree-sitter is a parser generator tool and an incremental
|
|
parsing library. It can build a concrete syntax tree for a source file and
|
|
efficiently update the syntax tree as the source file is edited.
|
|
|
|
Tree-sitter aims to be:
|
|
|
|
@enumerate
|
|
@item General enough to parse any programming language.
|
|
@item Fast enough to parse on every keystroke in a text editor.
|
|
@item Robust enough to provide useful results even in the presence of syntax
|
|
errors.
|
|
@item Dependency-free so that the runtime library (which is written in pure C)
|
|
can be embedded in any application.
|
|
@end enumerate
|
|
|
|
This package includes the @command{tree-sitter} command-line tool.")
|
|
(license license:expat)))
|
|
|
|
(define tree-sitter-delete-generated-files
|
|
#~(begin
|
|
(use-modules (guix build utils))
|
|
(delete-file "binding.gyp")
|
|
(delete-file-recursively "bindings")
|
|
(delete-file "src/grammar.json")
|
|
(delete-file "src/node-types.json")
|
|
(delete-file "src/parser.c")
|
|
(delete-file-recursively "src/tree_sitter")))
|
|
|
|
(define* (tree-sitter-grammar
|
|
language language-for-synopsis version commit hash
|
|
#:key
|
|
(repository-url
|
|
(format #f "https://github.com/tree-sitter/tree-sitter-~a"
|
|
language))
|
|
(inputs '()))
|
|
(let ((synopsis (string-append language-for-synopsis
|
|
" grammar for tree-sitter"))
|
|
(name (string-append "tree-sitter-" language)))
|
|
(package
|
|
(name name)
|
|
(version version)
|
|
(home-page repository-url)
|
|
(source (origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url repository-url)
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(sha256 (base32 hash))
|
|
(snippet tree-sitter-delete-generated-files)))
|
|
(build-system tree-sitter-build-system)
|
|
(inputs inputs)
|
|
(synopsis synopsis)
|
|
(description (string-append synopsis "."))
|
|
(license license:expat))))
|
|
|
|
(define-public tree-sitter-html
|
|
(tree-sitter-grammar
|
|
"html" "HTML"
|
|
"0.19.0" "v0.19.0"
|
|
"1hg7vbcy7bir6b8x11v0a4x0glvqnsqc3i2ixiarbxmycbgl3axy"))
|