Add support for PureScript

build.rs

@@ -268,6 +268,11 @@ fn main() {
             src_dir: "vendored_parsers/tree-sitter-php-src",
             extra_files: vec!["scanner.cc"],
         },
+        TreeSitterParser {
+            name: "tree-sitter-purescript",
+            src_dir: "vendored_parsers/tree-sitter-purescript-src",
+            extra_files: vec!["scanner.c"],
+        },
         TreeSitterParser {
             name: "tree-sitter-python",
             src_dir: "vendored_parsers/tree-sitter-python-src",

sample_files/compare.expected

@@ -64,6 +64,9 @@ f80b47646e7dd2bd3a49393d00657465  -
 sample_files/erlang_1.erl sample_files/erlang_2.erl
 dccdb8f65d2f099ab1a8cb66011376a2  -
 
+sample_files/fib_1.purs sample_files/fib_2.purs
+1b9199c5084fe2647ef8cf04024cb2fa  -
+
 sample_files/hack_1.php sample_files/hack_2.php
 c2bb0aa7d7b07d6ced79f6a5363e878b  -
 

sample_files/fib_1.purs

@@ -0,0 +1,17 @@
+module Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Console (log)
+
+
+fib :: Int -> Int
+fib 0 = 1
+fib 1 = 1
+fib n = fib (n - 2) + fib (n - 1)
+
+
+main :: Effect Unit
+main = do
+  log (show (fib 10))

sample_files/fib_2.purs

@@ -0,0 +1,18 @@
+module Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Console (log)
+
+
+fib :: Int -> Int
+fib = go 1 1
+  where
+    go a _ 0 = a
+    go a b n = go b (a + b) (n - 1)
+
+
+main :: Effect Unit
+main = do
+  log (show (fib 10))

src/parse/guess_language.rs

@@ -59,6 +59,7 @@ pub(crate) enum Language {
     Pascal,
     Perl,
     Php,
+    PureScript,
     Python,
     Qml,
     R,
@@ -150,6 +151,7 @@ pub(crate) fn language_name(language: Language) -> &'static str {
         Pascal => "Pascal",
         Perl => "Perl",
         Php => "PHP",
+        PureScript => "PureScript",
         Python => "Python",
         Qml => "QML",
         R => "R",
@@ -333,6 +335,7 @@ pub(crate) fn language_globs(language: Language) -> Vec<glob::Pattern> {
         Php => &[
             "*.php", "*.phtml", "*.php3", "*.php4", "*.php5", "*.php7", "*.phps",
         ],
+        PureScript => &["*.purs"],
         Python => &["*.py", "*.py3", "*.pyi", "*.bzl", "TARGETS", "BUCK", "DEPS"],
         Qml => &["*.qml"],
         R => &["*.R", "*.r", "*.rd", "*.rsx", ".Rprofile", "expr-dist"],

src/parse/tree_sitter_parser.rs

@@ -100,6 +100,7 @@ extern "C" {
     fn tree_sitter_pascal() -> ts::Language;
     fn tree_sitter_php() -> ts::Language;
     fn tree_sitter_perl() -> ts::Language;
+    fn tree_sitter_purescript() -> ts::Language;
     fn tree_sitter_python() -> ts::Language;
     fn tree_sitter_qmljs() -> ts::Language;
     fn tree_sitter_r() -> ts::Language;
@@ -850,6 +851,33 @@ pub(crate) fn from_language(language: guess::Language) -> TreeSitterConfig {
                 sub_languages: vec![],
             }
         }
+        PureScript => {
+            let language = unsafe { tree_sitter_purescript() };
+            TreeSitterConfig {
+                language,
+                // The "qualified_" nodes seem to have the same problem
+                // as e.g. qualified_module in the TreeSitterConfig for
+                // haskell, namely that the periods between the
+                // identifiers do not show up in the AST, so we use the
+                // same workaround here and mark them as atom_nodes.
+                atom_nodes: vec![
+                    "qualified_constructor",
+                    "qualified_module",
+                    "qualified_operator",
+                    "qualified_variable",
+                    "qualified_type",
+                ]
+                .into_iter()
+                .collect(),
+                delimiter_tokens: vec![("(", ")"), ("[", "]"), ("{", "}")],
+                highlight_query: ts::Query::new(
+                    language,
+                    include_str!("../../vendored_parsers/highlights/purescript.scm"),
+                )
+                .unwrap(),
+                sub_languages: vec![],
+            }
+        }
         Python => {
             let language = unsafe { tree_sitter_python() };
             TreeSitterConfig {

vendored_parsers/highlights/purescript.scm

@@ -0,0 +1 @@
+../tree-sitter-purescript/queries/highlights.scm

vendored_parsers/tree-sitter-purescript-src

@@ -0,0 +1 @@
+tree-sitter-purescript/src/

vendored_parsers/tree-sitter-purescript/.editorconfig

@@ -0,0 +1,10 @@
+* text eol=lf
+
+src/*.json linguist-generated
+src/parser.c linguist-generated
+src/tree_sitter/* linguist-generated
+
+bindings/** linguist-generated
+binding.gyp linguist-generated
+setup.py linguist-generated
+Makefile linguist-generated

vendored_parsers/tree-sitter-purescript/.gitattributes

@@ -0,0 +1,11 @@
+* text eol=lf
+
+src/*.json linguist-generated
+src/parser.c linguist-generated
+src/tree_sitter/* linguist-generated
+
+bindings/** linguist-generated
+binding.gyp linguist-generated
+setup.py linguist-generated
+Makefile linguist-generated
+

vendored_parsers/tree-sitter-purescript/.gitignore

@@ -0,0 +1,46 @@
+# Purs
+.psc-ide-port
+
+# direnv
+.direnv
+.envrc
+
+# For small snippets of PS code to parse when debugging
+parse/
+
+# Rust artifacts
+/Cargo.lock
+/target/
+
+# Node artifacts
+/build/
+/node_modules/
+
+# Swift artifacts
+/.build/
+
+# Python artifacts
+/dist/
+*.egg-info
+*.whl
+
+# Zig artifacts
+/zig-cache/
+/zig-out/
+
+# C artifacts
+*.a
+*.so
+*.so.*
+*.dylib
+*.dll
+*.pc
+
+# Example dirs
+/examples/*/
+
+# Grammar volatiles
+dsl.d.ts
+*.wasm
+*.obj
+*.o

vendored_parsers/tree-sitter-purescript/.ignore

@@ -0,0 +1,11 @@
+src/grammar.json
+src/node-types.json
+src/parser.c
+src/tree_sitter/
+src/unicode.h
+
+LICENSE
+
+package.json
+
+binding.gyp

vendored_parsers/tree-sitter-purescript/Cargo.toml

@@ -0,0 +1,26 @@
+[package]
+name = "tree-sitter-purescript"
+description = "PureScript grammar for the tree-sitter parsing library"
+version = "0.1.0"
+keywords = ["incremental", "parsing", "purescript"]
+categories = ["parsing", "text-editors"]
+repository = "https://github.com/postsolar/tree-sitter-purescript"
+edition = "2021"
+license = "MIT"
+
+build = "bindings/rust/build.rs"
+include = [
+  "bindings/rust/*",
+  "grammar.js",
+  "queries/*",
+  "src/*",
+]
+
+[lib]
+path = "bindings/rust/lib.rs"
+
+[dependencies]
+tree-sitter = "~0.20.10"
+
+[build-dependencies]
+cc = "1.0"

vendored_parsers/tree-sitter-purescript/LICENSE

@@ -0,0 +1,22 @@
+The MIT License (MIT)
+
+Copyright (c) 2014 Max Brunsfeld
+Copyright (c) 2023 Maskhjarna, postsolar
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.