st/tree-sitter-lang
1
0
Fork 0
mirror of https://codeberg.org/ProgramSnail/tree-sitter-lang.git synced 2025-12-08 07:38:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

example fixes

Browse source
This commit is contained in:
ProgramSnail 2023-07-29 14:49:02 +03:00
parent 24015fd8df
commit 4159d81c4b
1 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

15
corpus/test.langexp
View file

@ -224,7 +224,7 @@ parse_number : Unit! = {
: function, that return result ('!' not used on calls) : function, that return result ('!' not used on calls)
: useful when tuples returned : useful when tuples returned
result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a, 'd := 'b, () result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> ('c := 'a, 'd := 'b, ());
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
@ -1211,7 +1211,7 @@ result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a,
(name_expression (name_expression
(argument_name_identifier)))))) (argument_name_identifier))))))
(empty_lines) (empty_lines)
(ERROR (function_definition
(definition_info (definition_info
(info) (info)
(info)) (info))
@ -1220,7 +1220,6 @@ result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a,
(argument_name_identifier) (argument_name_identifier)
(argument_name_identifier) (argument_name_identifier)
(argument_name_identifier) (argument_name_identifier)
(comma_expression
(condition (condition
(operator_expression (operator_expression
(name_expression (name_expression
@ -1230,14 +1229,18 @@ result_func! 'a 'b -> 'c -> 'd = ?? 'a == 0 => error "some error" !!=> 'c := 'a,
(name_expression (name_expression
(simple_name_identifier) (simple_name_identifier)
(string_literal)) (string_literal))
(comma_expression
(comma_expression
(match
(name_expression (name_expression
(argument_name_identifier)))
(ERROR
(argument_name_identifier)) (argument_name_identifier))
(case
(name_expression
(argument_name_identifier))))
(match (match
(name_expression (name_expression
(argument_name_identifier)) (argument_name_identifier))
(case (case
(name_expression (name_expression
(argument_name_identifier))))) (argument_name_identifier)))))
(unit_literal))) (unit_literal)))))