improvements for proper printing, etc.

This commit is contained in:
ProgramSnail 2023-07-31 22:06:30 +03:00
parent b71b732797
commit 8e0cea277e
4 changed files with 231 additions and 119 deletions

View file

@ -62,17 +62,21 @@ test_k 'n 'k : Int Int -> Bool = {
--------------------------------------------------------------------------------
(source_file
(empty_lines)
(import
(simple_name_identifier))
(empty_lines)
(import
(simple_name_identifier)
(simple_type_identifier))
(empty_lines)
(import
(simple_name_identifier))
(empty_lines)
(function_definition
(simple_name_identifier)
(block
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -90,6 +94,7 @@ test_k 'n 'k : Int Int -> Bool = {
(number_literal)))
(simple_name_identifier))
(number_literal))))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -97,6 +102,7 @@ test_k 'n 'k : Int Int -> Bool = {
(name_expression
(simple_name_identifier)
(number_literal))))
(empty_lines)
(match
(operator_expression
(name_definition
@ -113,12 +119,14 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier))
(operator)
(number_literal)))))
(empty_lines)
(operator_expression
(name_expression
(simple_name_identifier))
(operator)
(name_expression
(simple_name_identifier)))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -135,6 +143,7 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier))
(operator)
(number_literal)))))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -149,12 +158,14 @@ test_k 'n 'k : Int Int -> Bool = {
(operator_tail1)
(name_expression
(simple_name_identifier)))))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
(case
(name_expression
(simple_name_identifier))))
(empty_lines)
(loop
(name_definition
(simple_name_identifier))
@ -178,6 +189,7 @@ test_k 'n 'k : Int Int -> Bool = {
(operator)
(number_literal)))
(block
(empty_lines)
(condition
(operator_expression
(operator_expression
@ -237,7 +249,9 @@ test_k 'n 'k : Int Int -> Bool = {
(string_literal))
(operator)
(name_expression
(simple_name_identifier)))))))))
(simple_name_identifier)))))
(empty_lines)))
(empty_lines)))
(empty_lines)
(function_definition
(simple_name_identifier)
@ -252,6 +266,7 @@ test_k 'n 'k : Int Int -> Bool = {
(type
(simple_type_identifier))
(block
(empty_lines)
(condition
(operator_expression
(name_expression
@ -289,6 +304,7 @@ test_k 'n 'k : Int Int -> Bool = {
(argument_name_identifier)))
(operator_tail1)
(number_literal))))
(empty_lines)
(match
(operator_expression
(name_definition
@ -301,6 +317,7 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier)
(argument_name_identifier)
(simple_name_identifier))))
(empty_lines)
(match
(operator_expression
(name_definition
@ -332,7 +349,8 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier))
(operator)
(name_expression
(simple_name_identifier)))))))
(simple_name_identifier)))))
(empty_lines)))
(empty_lines)
(function_definition
(simple_name_identifier)
@ -342,16 +360,19 @@ test_k 'n 'k : Int Int -> Bool = {
(type
(simple_type_identifier))
(block
(empty_lines)
(match
(name_definition
(simple_name_identifier))
(case
(number_literal)))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
(case
(number_literal)))
(empty_lines)
(loop
(name_expression
(simple_name_identifier)
@ -360,17 +381,21 @@ test_k 'n 'k : Int Int -> Bool = {
(argument_name_identifier)
(simple_name_identifier)))
(block
(empty_lines)
(operator_expression
(name_expression
(simple_name_identifier))
(operator)
(name_expression
(simple_name_identifier)))
(empty_lines)
(operator_expression
(name_expression
(simple_name_identifier))
(operator)
(number_literal))))
(number_literal))
(empty_lines)))
(empty_lines)
(loop
(operator_expression
(operator_expression
@ -382,6 +407,7 @@ test_k 'n 'k : Int Int -> Bool = {
(operator_tail1)
(number_literal))
(block
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -395,6 +421,7 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier)))
(operator_tail1)
(number_literal))))
(empty_lines)
(condition
(name_expression
(simple_name_identifier)
@ -411,10 +438,13 @@ test_k 'n 'k : Int Int -> Bool = {
(simple_name_identifier))
(operator)
(name_expression
(simple_name_identifier))))))
(simple_name_identifier))))
(empty_lines)))
(empty_lines)
(return
(name_expression
(simple_name_identifier)))))
(simple_name_identifier)))
(empty_lines)))
(empty_lines)
(function_definition
(simple_name_identifier)
@ -427,6 +457,7 @@ test_k 'n 'k : Int Int -> Bool = {
(type
(simple_type_identifier))
(block
(empty_lines)
(condition
(operator_expression
(name_expression
@ -458,6 +489,7 @@ test_k 'n 'k : Int Int -> Bool = {
(name_expression
(simple_name_identifier)
(simple_name_identifier))))))
(empty_lines)
(match
(name_definition
(simple_name_identifier))
@ -478,4 +510,6 @@ test_k 'n 'k : Int Int -> Bool = {
(name_expression
(simple_name_identifier))
(operator)
(number_literal)))))))
(number_literal))))
(empty_lines)))
(empty_lines))