tree-sitter-wasm 1.0.0

package/out/commonlisp/locals.scm

@@ -0,0 +1,109 @@
+(defun_header
+  function_name: (sym_lit) @local.definition.function
+  (#set! definition.function.scope "parent"))
+
+(defun_header
+  lambda_list: (list_lit
+    (sym_lit) @local.definition.parameter))
+
+(defun_header
+  keyword: (defun_keyword
+    "defmethod")
+  lambda_list: (list_lit
+    (list_lit
+      .
+      (sym_lit)
+      .
+      (sym_lit) @local.definition.type)))
+
+(defun_header
+  lambda_list: (list_lit
+    (list_lit
+      .
+      (sym_lit) @local.definition.parameter
+      .
+      (_))))
+
+(sym_lit) @local.reference
+
+(defun) @local.scope
+
+((list_lit
+  .
+  (sym_lit) @_defvar
+  .
+  (sym_lit) @local.definition.var)
+  (#match? @_defvar "^(cl:)?(defvar|defparameter)$"))
+
+(list_lit
+  .
+  (sym_lit) @_deftest
+  .
+  (sym_lit) @local.definition.function
+  (#eq? @_deftest "deftest")) @local.scope
+
+(list_lit
+  .
+  (sym_lit) @_deftest
+  .
+  (sym_lit) @local.definition.function
+  (#eq? @_deftest "deftest")) @local.scope
+
+(for_clause
+  .
+  (sym_lit) @local.definition.var)
+
+(with_clause
+  .
+  (sym_lit) @local.definition.var)
+
+(loop_macro) @local.scope
+
+(list_lit
+  .
+  (sym_lit) @_let
+  (#match? @_let "(cl:|cffi:)?(with-accessors|with-foreign-objects|let[*]?)")
+  .
+  (list_lit
+    (list_lit
+      .
+      (sym_lit) @local.definition.var))) @local.scope
+
+(list_lit
+  .
+  (sym_lit) @_let
+  (#match? @_let "(cl:|alexandria:)?(with-gensyms|dotimes|with-foreign-object)")
+  .
+  (list_lit
+    .
+    (sym_lit) @local.definition.var)) @local.scope
+
+(list_lit
+  .
+  (kwd_lit) @_import_from
+  (#eq? @_import_from ":import-from")
+  .
+  (_)
+  (kwd_lit
+    (kwd_symbol) @local.definition.import))
+
+(list_lit
+  .
+  (kwd_lit) @_import_from
+  (#eq? @_import_from ":import-from")
+  .
+  (_)
+  (sym_lit) @local.definition.import)
+
+(list_lit
+  .
+  (kwd_lit) @_use
+  (#eq? @_use ":use")
+  (kwd_lit
+    (kwd_symbol) @local.definition.import))
+
+(list_lit
+  .
+  (kwd_lit) @_use
+  (#eq? @_use ":use")
+  (sym_lit) @local.definition.import)

package/out/commonlisp/tags.scm

@@ -0,0 +1,122 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Function Definitions ;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun_header
+  function_name: (sym_lit) @name) @definition.function
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Function Calls ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Basically, we consider every list literal with symbol as the
+;;; first element to be a call to a function named by that element.
+;;; But we must exclude some cases. Note, tree-sitter @ignore
+;;; cases only work if they are declared before the cases
+;;; we want to include.
+
+;; Exclude lambda lists for function definitions
+;; For example:
+;;
+;;    (defun my-func (arg1 arg2) ...)
+;;
+;; do not treat (arg1 arg2) as a call of function arg1
+;;
+(defun_header
+  lambda_list: (list_lit . [(sym_lit) (package_lit)] @ignore))
+
+;; Similar to the above, but for
+;;
+;;     (defmethod m ((type1 param1) (type2 param2)) ...)
+;;
+;; where list literals having symbol as their first element
+;; are nested inside the lambda list.
+(defun_header
+  lambda_list: (list_lit (list_lit . [(sym_lit) (package_lit)] @ignore)))
+
+;;
+;;      (let ((var ...) (var2 ...)) ...)
+;;
+;; - exclude var, var2
+;; - the same for let*, flet, labels, macrolet, symbol-macrolet
+(list_lit . [(sym_lit) (package_lit)] @name
+          . (list_lit (list_lit . [(sym_lit) (package_lit)] @ignore))
+          (#match? @name
+                   "(?i)^(cl:)?(let|let\\*|flet|labels|macrolet|symbol-macrolet)$")
+  )
+
+;; TODO:
+;;     - exclude also:
+;;       - (defclass name (parent parent2)
+;;           ((slot1 ...)
+;;            (slot2 ...))
+;;              exclude the parent, slot1, slot2
+;;       - (flet ((func-1 (param1 param2))) ...)
+;;           - we already exclude func-1, but param1 is still recognized
+;;             as a function call - exclude it too
+;;           - the same for labels
+;;           - the same macrolet
+;;       - what else?
+;;         (that's a non-goal to completely support all macros
+;;          and special operators, but every one we support
+;;          makes the solution a little bit better)
+;;     - (flet ((func-1 (param1 param2))) ...)
+;;       - instead of simply excluding it, as we do today,
+;;         tag func-1 as @local.definition.function (I suppose)
+;;       - the same for labels, macrolet
+;;     - @local.scope for let, let*, flet, labels, macrolet
+;;       - I guess the whole span of the scope text,
+;;         till the closing paren, should be tagged as @local.scope;
+;;         Hopefully, combined with @local.definition.function
+;;         withing the scope, the usual  @reference.call within
+;;         that scope will refer to the local definition,
+;;         and there will be no need to use @local.reference.call
+;;         (which is more difficult to implement).
+;;       - When implementing, remeber the scope rules differences
+;;         of let vs let*, flet vs labels.
+
+
+;; Inlclude all other cases - list literal with symbol as the
+;; first element
+(list_lit . [(sym_lit) (package_lit)] @name) @reference.call
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; classes
+
+(list_lit . [(sym_lit) (package_lit)] @ignore
+          . [(sym_lit) (package_lit)] @name
+  (#match? @ignore "(?i)^(cl:)?defclass$")
+          ) @definition.class
+
+(list_lit . [(sym_lit) (package_lit)] @ignore
+          . (quoting_lit [(sym_lit) (package_lit)] @name)
+  (#match? @ignore "(?i)^(cl:)?make-instance$")
+          ) @reference.class
+
+;;; TODO:
+;;  - @reference.class for base classes
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; TODO:
+;; - Symbols referenced in defpackage
+;;
+;;       (defpackage ...
+;;         (:export (symbol-a :symbol-b #:symbol-c "SYMBOL-D")))
+;;
+;;   The goal is to allow quick navigation from the API
+;;   overview in the form of defpackage, to the definition
+;;   where user can read parameters, docstring, ect.
+;;   - The @name must not include the colon, or sharpsign colon, quotes,
+;;     just symbol-a, symbol-b, symbol-c, sybmol-d
+;;   - Downcase the names specified as stirng literals?
+;;     ("SYMBOL-D" -> symbol-d)
+;;   - We don't know if the exported symbol is a function, variable,
+;;     class or something else. The oficial doc
+;;     (https://tree-sitter.github.io/tree-sitter/code-navigation-systems)
+;;     does not even suggest a tag for variable reference.
+;;     (Although in practice, the `tree-sitter tags` command
+;;     allows any @reference.* and @definition.* tags)
+;;     Probably it's better to just use @reference.call for all
+;;     the symbols in the :export clause.
+;;
+;; - The same for the export function call:
+;; 
+;;       (export '(symbol-a :symbol-b #:symbol-c "SYMBOL-D"))

package/out/cpp/folds.scm

@@ -0,0 +1,14 @@
+; inherits: c
+
+[
+  (for_range_loop)
+  (class_specifier)
+  (field_declaration
+    type: (enum_specifier)
+    default_value: (initializer_list))
+  (template_declaration)
+  (namespace_definition)
+  (try_statement)
+  (catch_clause)
+  (lambda_expression)
+] @fold

package/out/cpp/highlights.scm

@@ -0,0 +1,70 @@
+; Functions
+
+(call_expression
+  function: (qualified_identifier
+    name: (identifier) @function))
+
+(template_function
+  name: (identifier) @function)
+
+(template_method
+  name: (field_identifier) @function)
+
+(template_function
+  name: (identifier) @function)
+
+(function_declarator
+  declarator: (qualified_identifier
+    name: (identifier) @function))
+
+(function_declarator
+  declarator: (field_identifier) @function)
+
+; Types
+
+((namespace_identifier) @type
+ (#match? @type "^[A-Z]"))
+
+(auto) @type
+
+; Constants
+
+(this) @variable.builtin
+(null "nullptr" @constant)
+
+; Keywords
+
+[
+ "catch"
+ "class"
+ "co_await"
+ "co_return"
+ "co_yield"
+ "constexpr"
+ "constinit"
+ "consteval"
+ "delete"
+ "explicit"
+ "final"
+ "friend"
+ "mutable"
+ "namespace"
+ "noexcept"
+ "new"
+ "override"
+ "private"
+ "protected"
+ "public"
+ "template"
+ "throw"
+ "try"
+ "typename"
+ "using"
+ "concept"
+ "requires"
+ "virtual"
+] @keyword
+
+; Strings
+
+(raw_string_literal) @string

package/out/cpp/indents.scm

@@ -0,0 +1,8 @@
+; inherits: c
+
+(condition_clause) @indent.begin
+
+((field_initializer_list) @indent.begin
+  (#set! indent.start_at_same_line 1))
+
+(access_specifier) @indent.branch

package/out/cpp/injections.scm

@@ -0,0 +1,3 @@
+(raw_string_literal
+  delimiter: (raw_string_delimiter) @injection.language
+  (raw_string_content) @injection.content)

package/out/cpp/locals.scm

@@ -0,0 +1,78 @@
+; inherits: c
+
+; Parameters
+(variadic_parameter_declaration
+  declarator: (variadic_declarator
+    (identifier) @local.definition.parameter))
+
+(optional_parameter_declaration
+  declarator: (identifier) @local.definition.parameter)
+
+; Class / struct definitions
+(class_specifier) @local.scope
+
+(reference_declarator
+  (identifier) @local.definition.var)
+
+(variadic_declarator
+  (identifier) @local.definition.var)
+
+(struct_specifier
+  name: (qualified_identifier
+    name: (type_identifier) @local.definition.type))
+
+(class_specifier
+  name: (type_identifier) @local.definition.type)
+
+(concept_definition
+  name: (identifier) @local.definition.type)
+
+(class_specifier
+  name: (qualified_identifier
+    name: (type_identifier) @local.definition.type))
+
+(alias_declaration
+  name: (type_identifier) @local.definition.type)
+
+;template <typename T>
+(type_parameter_declaration
+  (type_identifier) @local.definition.type)
+
+(template_declaration) @local.scope
+
+; Namespaces
+(namespace_definition
+  name: (namespace_identifier) @local.definition.namespace
+  body: (_) @local.scope)
+
+(namespace_definition
+  name: (nested_namespace_specifier) @local.definition.namespace
+  body: (_) @local.scope)
+
+((namespace_identifier) @local.reference
+  (#set! reference.kind "namespace"))
+
+; Function definitions
+(template_function
+  name: (identifier) @local.definition.function) @local.scope
+
+(template_method
+  name: (field_identifier) @local.definition.method) @local.scope
+
+(function_declarator
+  declarator: (qualified_identifier
+    name: (identifier) @local.definition.function)) @local.scope
+
+(field_declaration
+  declarator: (function_declarator
+    (field_identifier) @local.definition.method))
+
+(lambda_expression) @local.scope
+
+; Control structures
+(try_statement
+  body: (_) @local.scope)
+
+(catch_clause) @local.scope
+
+(requires_expression) @local.scope

package/out/cpp/tags.scm

@@ -0,0 +1,15 @@
+(struct_specifier name: (type_identifier) @name body:(_)) @definition.class
+
+(declaration type: (union_specifier name: (type_identifier) @name)) @definition.class
+
+(function_declarator declarator: (identifier) @name) @definition.function
+
+(function_declarator declarator: (field_identifier) @name) @definition.function
+
+(function_declarator declarator: (qualified_identifier scope: (namespace_identifier) @local.scope name: (identifier) @name)) @definition.method
+
+(type_definition declarator: (type_identifier) @name) @definition.type
+
+(enum_specifier name: (type_identifier) @name) @definition.type
+
+(class_specifier name: (type_identifier) @name) @definition.class

package/out/css/folds.scm

@@ -0,0 +1,10 @@
+[
+  ; top-level block statements from https://github.com/tree-sitter/tree-sitter-css/blob/master/grammar.js
+  ; note: (block) is not used due to unideal behavior when node before block node spans multiple lines
+  (rule_set)
+  (at_rule)
+  (supports_statement)
+  (media_statement)
+  (keyframe_block)
+  (import_statement)+
+] @fold

package/out/css/highlights.scm

@@ -0,0 +1,76 @@
+(comment) @comment
+
+(tag_name) @tag
+(nesting_selector) @tag
+(universal_selector) @tag
+
+"~" @operator
+">" @operator
+"+" @operator
+"-" @operator
+"*" @operator
+"/" @operator
+"=" @operator
+"^=" @operator
+"|=" @operator
+"~=" @operator
+"$=" @operator
+"*=" @operator
+
+"and" @operator
+"or" @operator
+"not" @operator
+"only" @operator
+
+(attribute_selector (plain_value) @string)
+
+((property_name) @variable
+ (#match? @variable "^--"))
+((plain_value) @variable
+ (#match? @variable "^--"))
+
+(class_name) @property
+(id_name) @property
+(namespace_name) @property
+(property_name) @property
+(feature_name) @property
+
+(pseudo_element_selector (tag_name) @attribute)
+(pseudo_class_selector (class_name) @attribute)
+(attribute_name) @attribute
+
+(function_name) @function
+
+"@media" @keyword
+"@import" @keyword
+"@charset" @keyword
+"@namespace" @keyword
+"@supports" @keyword
+"@keyframes" @keyword
+(at_keyword) @keyword
+(to) @keyword
+(from) @keyword
+(important) @keyword
+
+(string_value) @string
+(color_value) @string.special
+
+(integer_value) @number
+(float_value) @number
+(unit) @type
+
+[
+  "#"
+  ","
+  "."
+  ":"
+  "::"
+  ";"
+] @punctuation.delimiter
+
+[
+  "{"
+  ")"
+  "("
+  "}"
+] @punctuation.bracket

package/out/css/indents.scm

@@ -0,0 +1,11 @@
+[
+  (block)
+  (declaration)
+] @indent.begin
+
+(block
+  "}" @indent.branch)
+
+"}" @indent.dedent
+
+(comment) @indent.ignore

package/out/css/injections.scm

@@ -0,0 +1,2 @@
+((comment) @injection.content
+  (#set! injection.language "comment"))

package/out/csv/highlights.scm

@@ -0,0 +1,5 @@
+(text) @string
+(number) @number
+(float) @float
+(boolean) @boolean
+"," @punctuation.delimiter

package/out/cuda/folds.scm

@@ -0,0 +1 @@
+; inherits: cpp

package/out/cuda/highlights.scm

@@ -0,0 +1,17 @@
+; inherits: cpp
+
+[
+  "<<<"
+  ">>>"
+] @punctuation.bracket
+
+[
+  "__host__"
+  "__device__"
+  "__global__"
+  "__managed__"
+  "__forceinline__"
+  "__noinline__"
+] @keyword.modifier
+
+"__launch_bounds__" @keyword.modifier

package/out/cuda/indents.scm

@@ -0,0 +1 @@
+; inherits: cpp

package/out/cuda/injections.scm

@@ -0,0 +1 @@
+; inherits: cpp

package/out/cuda/locals.scm

@@ -0,0 +1 @@
+; inherits: cpp

package/out/d/folds.scm

@@ -0,0 +1,4 @@
+[
+  (block_statement)
+  (aggregate_body)
+] @fold