luau-syntax 0.732.0

Luau lexer, parser, AST, CST, and source utilities
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

use super::*;

// Parser.test.cpp: parse_nesting_based_end_detection
#[test]
fn parse_nesting_based_end_detection() {
    parse_errors(r#"-- i am line 1
function BottomUpTree(item, depth)
  if depth > 0 then
    local i = item + item
    depth = depth - 1
    local left, right = BottomUpTree(i-1, depth), BottomUpTree(i, depth)
    return { item, left, right }
  else
    return { item }
end

function ItemCheck(tree)
  if tree[2] then
    return tree[1] + ItemCheck(tree[2]) - ItemCheck(tree[3])
  else
    return tree[1]
  end
end
"#).assert_first_message("Expected 'end' (to close 'function' at line 2), got <eof>; did you forget to close 'else' at line 8?");
}

// Parser.test.cpp: parse_nesting_based_end_detection_single_line
#[test]
fn parse_nesting_based_end_detection_single_line() {
    parse_errors(r#"-- i am line 1
function ItemCheck(tree)
  if tree[2] then return tree[1] + ItemCheck(tree[2]) - ItemCheck(tree[3]) else return tree[1]
end

function BottomUpTree(item, depth)
  if depth > 0 then
    local i = item + item
    depth = depth - 1
    local left, right = BottomUpTree(i-1, depth), BottomUpTree(i, depth)
    return { item, left, right }
  else
    return { item }
  end
end
"#).assert_first_message("Expected 'end' (to close 'function' at line 2), got <eof>; did you forget to close 'else' at line 3?");
}

// Parser.test.cpp: parse_nesting_based_end_detection_local_repeat
#[test]
fn parse_nesting_based_end_detection_local_repeat() {
    parse_errors(r#"-- i am line 1
repeat
  print(1)
  repeat
    print(2)
  print(3)
until false
"#).assert_first_message("Expected 'until' (to close 'repeat' at line 2), got <eof>; did you forget to close 'repeat' at line 4?");
}

// Parser.test.cpp: parse_nesting_based_end_detection_local_function
#[test]
fn parse_nesting_based_end_detection_local_function() {
    parse_errors(r#"-- i am line 1
local function BottomUpTree(item, depth)
  if depth > 0 then
    local i = item + item
    depth = depth - 1
    local left, right = BottomUpTree(i-1, depth), BottomUpTree(i, depth)
    return { item, left, right }
  else
    return { item }
end

local function ItemCheck(tree)
  if tree[2] then
    return tree[1] + ItemCheck(tree[2]) - ItemCheck(tree[3])
  else
    return tree[1]
  end
end
"#).assert_first_message("Expected 'end' (to close 'function' at line 2), got <eof>; did you forget to close 'else' at line 8?");
}

// Parser.test.cpp: parse_nesting_based_end_detection_failsafe_earlier
#[test]
fn parse_nesting_based_end_detection_failsafe_earlier() {
    parse_errors(
        r#"-- i am line 1
local function ItemCheck(tree)
  if tree[2] then
    return tree[1] + ItemCheck(tree[2]) - ItemCheck(tree[3])
  else
    return tree[1]
      end
end

local function BottomUpTree(item, depth)
  if depth > 0 then
    local i = item + item
    depth = depth - 1
    local left, right = BottomUpTree(i-1, depth), BottomUpTree(i, depth)
    return { item, left, right }
  else
    return { item }
  end
"#,
    )
    .assert_first_message("Expected 'end' (to close 'function' at line 10), got <eof>");
}

// Parser.test.cpp: parse_nesting_based_end_detection_nested
#[test]
fn parse_nesting_based_end_detection_nested() {
    parse_errors(r#"-- i am line 1
function stringifyTable(t)
    local entries = {}
    for k, v in pairs(t) do
        -- if we find a nested table, convert that recursively
        if type(v) == "table" then
            v = stringifyTable(v)
        else
            v = tostring(v)
        k = tostring(k)

        -- add another entry to our stringified table
        entries[#entries + 1] = ("s = s"):format(k, v)
    end

    -- the memory location of the table
    local id = tostring(t):sub(8)

    return ("{s}@s"):format(table.concat(entries, ", "), id)
end
"#).assert_first_message("Expected 'end' (to close 'function' at line 2), got <eof>; did you forget to close 'else' at line 8?");
}