folkert/tree-sitter-ada
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Inline "statement"

Browse Source
This commit is contained in:
Emmanuel Briot 2022-12-12 11:31:29 +01:00
parent d52ba823fa
commit 4557f68292
15 changed files with 35012 additions and 34008 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
grammar.js
View File

@ -272,7 +272,7 @@ module.exports = grammar({
optional(reservedWord('private')),
$._declarative_item,
),
$.statement,
$._statement,
$.subunit,
$.entry_declaration,
),
@ -1946,7 +1946,7 @@ module.exports = grammar({
),
),
_sequence_of_statements: $ => prec.left(seq(
repeat1($.statement),
repeat1($._statement),
repeat($.label),
)),
_simple_statement: $ => choice(
@ -1962,7 +1962,7 @@ module.exports = grammar({
$.raise_statement,
$.pragma_g,
),
statement: $ => seq(
_statement: $ => seq(
repeat($.label),
choice(
$._simple_statement,

3
queries/highlights.scm
View File

@ -25,6 +25,7 @@
"out"
"pragma"
"renames"
"task"
"terminate"
"when"
] @keyword
@ -50,7 +51,6 @@
"protected"
"record"
"subtype"
"task"
"type"
] @type.definition
[
@ -144,6 +144,7 @@
(signed_integer_type_definition "range" @type.definition)
(index_subtype_definition "range" @type.definition)
(private_type_declaration "is" @type.definition "private" @type.definition)
(task_type_declaration "task" @type.definition "is" @type.definition)
;; Gray the body of expression functions
(expression_function_declaration

6
src/grammar.json
View File

@ -960,7 +960,7 @@
},
{
"type": "SYMBOL",
"name": "statement"
"name": "_statement"
},
{
"type": "SYMBOL",
@ -12078,7 +12078,7 @@
"type": "REPEAT1",
"content": {
"type": "SYMBOL",
"name": "statement"
"name": "_statement"
}
},
{
@ -12140,7 +12140,7 @@
}
]
},
"statement": {
"_statement": {
"type": "SEQ",
"members": [
{

1367
src/node-types.json
View File

File diff suppressed because it is too large Load Diff

66726
src/parser.c
View File

File diff suppressed because it is too large Load Diff

6
test/corpus/access.txt
View File

@ -65,15 +65,13 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
(term
(selected_component
(identifier)
(identifier))))))
(statement
(identifier)))))
(procedure_call_statement
(selected_component
(identifier)
@ -82,4 +80,4 @@ end;
(parameter_association
(expression
(term
(numeric_literal)))))))))))
(numeric_literal))))))))))

3
test/corpus/arrays.txt
View File

@ -224,7 +224,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
@ -247,4 +246,4 @@ end;
(parameter_association
(expression
(term
(identifier)))))))))))))))))))
(identifier))))))))))))))))))

11
test/corpus/attributes.txt
View File

@ -33,7 +33,6 @@ end;
(term
(numeric_literal))))))))
(handled_sequence_of_statements
(statement
(loop_statement
(iteration_scheme
(loop_parameter_specification
@ -42,9 +41,7 @@ end;
(identifier)
(tick)
(range_attribute_designator))))
(statement
(null_statement))))
(statement
(null_statement))
(loop_statement
(iteration_scheme
(loop_parameter_specification
@ -56,8 +53,7 @@ end;
(expression
(term
(numeric_literal)))))))
(statement
(null_statement))))))))
(null_statement))))))
================================================================================
Reduction
@ -114,5 +110,4 @@ end;
(term
(numeric_literal)))))))))
(handled_sequence_of_statements
(statement
(null_statement))))))
(null_statement)))))

6
test/corpus/packages.txt
View File

@ -104,12 +104,10 @@ end Child.P2;
(package_body
(identifier)
(handled_sequence_of_statements
(statement
(null_statement)))
(null_statement))
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement)))
(null_statement))
(selected_component
(identifier)
(identifier)))))

12
test/corpus/protected.txt
View File

@ -65,20 +65,18 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(abort_statement
(identifier)))))
(identifier))))
(subprogram_body
(function_specification
(identifier)
(result_profile
(identifier)))
(handled_sequence_of_statements
(statement
(simple_return_statement
(expression
(term
(identifier)))))))
(identifier))))))
(entry_body
(identifier)
(entry_barrier
@ -89,9 +87,8 @@ end;
(term
(numeric_literal))))
(handled_sequence_of_statements
(statement
(requeue_statement
(identifier))))
(identifier)))
(identifier))
(entry_body
(identifier)
@ -108,7 +105,6 @@ end;
(term
(identifier))))
(handled_sequence_of_statements
(statement
(null_statement)))
(null_statement))
(identifier))
(identifier))))))

9
test/corpus/records.txt
View File

@ -275,7 +275,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
@ -291,7 +290,7 @@ end;
(identifier))
(expression
(term
(numeric_literal)))))))))))))
(numeric_literal))))))))))))
================================================================================
record aggregate extension
@ -310,7 +309,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
@ -324,7 +322,7 @@ end;
(identifier))
(expression
(term
(numeric_literal)))))))))))))
(numeric_literal))))))))))))
================================================================================
record delta aggregate
@ -343,7 +341,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
@ -357,4 +354,4 @@ end;
(identifier))
(expression
(term
(numeric_literal)))))))))))))
(numeric_literal))))))))))))

3
test/corpus/renames.txt
View File

@ -48,6 +48,5 @@ end P;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement)))
(null_statement))
(identifier))))

81
test/corpus/statements.txt
View File

@ -56,22 +56,19 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(loop_statement
(iteration_scheme
(expression
(term
(identifier))))
(statement
(exit_statement))
(statement
(exit_statement)
(exit_statement
(expression
(term
(identifier))
(relational_operator)
(term
(numeric_literal)))))))))))
(numeric_literal)))))))))
================================================================================
For loops
@ -98,7 +95,6 @@ end P;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(loop_statement
(iteration_scheme
(loop_parameter_specification
@ -109,22 +105,19 @@ end P;
(identifier))
(tick)
(range_attribute_designator))))
(statement
(goto_statement
(identifier)))
(identifier))
(label
(identifier))))
(statement
(identifier)))
(loop_statement
(iteration_scheme
(iterator_specification
(identifier)
(identifier)))
(statement
(delay_relative_statement
(expression
(term
(numeric_literal))))))))
(numeric_literal))))))
(identifier))))
================================================================================
@ -147,14 +140,12 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(loop_statement
(loop_label
(identifier))
(statement
(exit_statement
(identifier)))
(identifier)))))))
(identifier))
(identifier))))))
================================================================================
Return
@ -178,12 +169,10 @@ end F;
(result_profile
(identifier)))
(handled_sequence_of_statements
(statement
(simple_return_statement
(expression
(term
(identifier)))))
(statement
(identifier))))
(extended_return_statement
(extended_return_object_declaration
(identifier)
@ -198,8 +187,7 @@ end F;
(term
(numeric_literal))))))))
(handled_sequence_of_statements
(statement
(null_statement))))))
(null_statement))))
(identifier))))
================================================================================
@ -223,7 +211,6 @@ end P;
(identifier)
(identifier))))
(handled_sequence_of_statements
(statement
(procedure_call_statement
(identifier)
(actual_parameter_part
@ -234,7 +221,7 @@ end P;
(parameter_association
(expression
(term
(identifier))))))))
(identifier)))))))
(identifier))))
================================================================================
@ -255,15 +242,13 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(raise_statement
(identifier)))
(statement
(identifier))
(raise_statement
(identifier)
(expression
(term
(string_literal)))))))))
(string_literal))))))))
================================================================================
Function calls
@ -287,7 +272,6 @@ end;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
@ -300,7 +284,7 @@ end;
(identifier))
(expression
(term
(numeric_literal))))))))))))))
(numeric_literal)))))))))))))
================================================================================
if statement
@ -336,7 +320,6 @@ end P;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(if_statement
(expression
(term
@ -349,11 +332,9 @@ end P;
(relational_operator)
(term
(numeric_literal)))
(statement
(block_statement
(handled_sequence_of_statements
(statement
(null_statement)))))
(null_statement)))
(elsif_statement_item
(expression
(term
@ -361,26 +342,21 @@ end P;
(relational_operator)
(term
(numeric_literal)))
(statement
(block_statement
(non_empty_declarative_part
(object_declaration
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement))
(null_statement)
(exception_handler
(exception_choice_list
(exception_choice
(identifier)))
(statement
(null_statement)))))))
(statement
(null_statement)))))
(block_statement
(handled_sequence_of_statements
(statement
(null_statement))))))))
(null_statement)))))
(identifier))))
================================================================================
@ -405,7 +381,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(case_statement
(expression
(term
@ -426,8 +401,7 @@ end;
(character_literal))
(term
(character_literal)))))
(statement
(null_statement)))
(null_statement))
(case_statement_alternative
(discrete_choice_list
(discrete_choice
@ -438,8 +412,7 @@ end;
(expression
(term
(character_literal)))))
(statement
(null_statement)))))))))
(null_statement)))))))
================================================================================
Allocators
@ -459,14 +432,12 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(identifier)
(expression
(term
(allocator
(identifier))))))
(statement
(identifier)))))
(assignment_statement
(identifier)
(expression
@ -487,7 +458,7 @@ end;
(identifier))
(expression
(term
(numeric_literal)))))))))))))))))
(numeric_literal))))))))))))))))
================================================================================
Filtered for loops
@ -508,7 +479,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(loop_statement
(iteration_scheme
(iterator_specification
@ -521,8 +491,7 @@ end;
(relational_operator)
(term
(numeric_literal))))))
(statement
(null_statement))))))))
(null_statement))))))
================================================================================
Assignment target name
@ -542,7 +511,6 @@ end;
(procedure_specification
(identifier))
(handled_sequence_of_statements
(statement
(assignment_statement
(function_call
(selected_component
@ -558,8 +526,7 @@ end;
(target_name))
(binary_adding_operator)
(term
(numeric_literal)))))
(statement
(numeric_literal))))
(assignment_statement
(function_call
(selected_component
@ -578,4 +545,4 @@ end;
(parameter_association
(expression
(term
(target_name))))))))))))))
(target_name)))))))))))))

9
test/corpus/subprograms.txt
View File

@ -155,8 +155,7 @@ end;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement)))
(null_statement))
(identifier))))))
================================================================================
@ -474,11 +473,10 @@ end "<";
(result_profile
(identifier)))
(handled_sequence_of_statements
(statement
(simple_return_statement
(expression
(term
(identifier))))))
(identifier)))))
(string_literal))))
================================================================================
@ -510,7 +508,6 @@ Subprogram and field access
(compilation
(compilation_unit
(statement
(assignment_statement
(identifier)
(expression
@ -523,4 +520,4 @@ Subprogram and field access
(expression
(term
(numeric_literal))))))
(identifier))))))))
(identifier)))))))

40
test/corpus/tasking.txt
View File

@ -57,7 +57,6 @@ end P;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(accept_statement
(identifier)
(formal_part
@ -65,10 +64,8 @@ end P;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement)))
(identifier)))
(statement
(null_statement))
(identifier))
(timed_entry_call
(entry_call_alternative
(procedure_call_statement
@ -82,8 +79,7 @@ end P;
(delay_relative_statement
(expression
(term
(numeric_literal)))))))
(statement
(numeric_literal))))))
(conditional_entry_call
(entry_call_alternative
(procedure_call_statement
@ -93,8 +89,7 @@ end P;
(expression
(term
(numeric_literal)))))))
(statement
(null_statement)))))
(null_statement)))
(identifier)))
(identifier))))
@ -171,7 +166,6 @@ end;
(task_body
(identifier)
(handled_sequence_of_statements
(statement
(asynchronous_select
(triggering_alternative
(procedure_call_statement
@ -182,22 +176,17 @@ end;
(expression
(term
(numeric_literal)))))))
(statement
(null_statement)))
(statement
(null_statement))
(procedure_call_statement
(identifier))))))))))
(identifier))))))))
(compilation_unit
(statement
(null_statement)))
(null_statement))
(compilation_unit
(procedure_call_statement
(identifier)))
(compilation_unit
(statement
(procedure_call_statement
(identifier))))
(compilation_unit
(statement
(procedure_call_statement
(identifier)))))
================================================================================
Accept
@ -211,7 +200,6 @@ end Start;
(compilation
(compilation_unit
(statement
(accept_statement
(identifier)
(formal_part
@ -222,9 +210,8 @@ end Start;
(identifier)
(identifier)))
(handled_sequence_of_statements
(statement
(null_statement)))
(identifier)))))
(null_statement))
(identifier))))
================================================================================
Select terminate
@ -240,11 +227,10 @@ end select;
(compilation
(compilation_unit
(statement
(selective_accept
(select_alternative
(accept_alternative
(accept_statement
(identifier))))
(select_alternative
(terminate_alternative))))))
(terminate_alternative)))))