Updated syntax.

* Added error check for mixed use of tabs and spaces.
* Supported SimpleTable destructuring for ForEach syntax.

Author: pigpigyyy

spec/inputs/destructure.yue

@@ -278,5 +278,15 @@ do
 do
 	{a, :abc, b, :def, ...sub, d, e} = tb
 
+do
+	for {:a, :b} in *items
+		print a, b
+	
+	for :a, :b in *items
+		print a, b
+	
+	for :body in pairs data
+		print body if body
+
 nil
 

spec/inputs/funcs.yue

@@ -98,7 +98,7 @@ f(
 
 x = (a,
 	b) ->
-	 print "what"
+		print "what"
 
 
 y = (a="hi",
@@ -211,7 +211,7 @@ do
 		print "kv:", k, v
 		print "rest count:", select "#", ...
 	macro gen = (fname) -> |
-	  #{fname} = ({:a, :b = 0}) -> print a, b
+		#{fname} = ({:a, :b = 0}) -> print a, b
 	$gen foo
 	t1 = (:a, x) -> print a, x
 	t2 = (:a) -> print a

spec/inputs/string.yue

@@ -100,8 +100,8 @@ do
 		next: 123   
 	str = |
 		list:
-		  - "one"
-		  - "two"
+			- "one"
+			- "two"
 	str = |
 		-- comment
 		content text

spec/inputs/unicode/funcs.yue

@@ -98,7 +98,7 @@ _无效变量 = -> 真名 if 某物
 
 变量x = (参数a,
 	参数b) ->
-	 打印 "什么"
+		打印 "什么"
 
 
 变量y = (参数a="hi",

spec/inputs/unicode/vararg.yue

@@ -55,12 +55,12 @@
 	_ = ->
 		列表 = {1, 2, 3, 4, 5}
 		函数名 = (确定) ->
-		  确定, table.unpack 列表
+			确定, table.unpack 列表
 		确定, ... = 函数名 true
 		打印 确定, ...
 
 		多参数函数 = ->
-		  10, nil, 20, nil, 30
+			10, nil, 20, nil, 30
 
 		... = 多参数函数!
 		打印 select "#", ...

spec/inputs/vararg.yue

@@ -55,12 +55,12 @@ join = (...) ->
 	_ = ->
 		list = {1, 2, 3, 4, 5}
 		fn = (ok) ->
-		  ok, table.unpack list
+			ok, table.unpack list
 		ok, ... = fn true
 		print ok, ...
 
 		fn_many_args = ->
-		  10, nil, 20, nil, 30
+			10, nil, 20, nil, 30
 
 		... = fn_many_args!
 		print select "#", ...

spec/inputs/with.yue

@@ -167,7 +167,7 @@ do
 
 do
 	a = for i = 1, 100
-	  with? x := tb[i]
-		 break x if .id := 1
+		with? x := tb[i]
+			break x if .id := 1
 
 nil

spec/outputs/destructure.lua

@@ -711,4 +711,24 @@ do
 		return _accum_0
 	end)(), _obj_0[#_obj_0 - 1], _obj_0[#_obj_0]
 end
+do
+	local _list_0 = items
+	for _index_0 = 1, #_list_0 do
+		local _des_0 = _list_0[_index_0]
+		local a, b = _des_0.a, _des_0.b
+		print(a, b)
+	end
+	local _list_1 = items
+	for _index_0 = 1, #_list_1 do
+		local _des_0 = _list_1[_index_0]
+		local a, b = _des_0.a, _des_0.b
+		print(a, b)
+	end
+	for _des_0 in pairs(data) do
+		local body = _des_0.body
+		if body then
+			print(body)
+		end
+	end
+end
 return nil

spec/outputs/string.lua

@@ -52,7 +52,7 @@ do
 	str = "user: " .. tostring(name) .. "\nid: " .. tostring(id)
 	str = "path: \"C:\\\\Program Files\\\\App\"\ndesc: 'single \"quote\" test'"
 	str = "key: value   \nnext: 123   "
-	str = "list:\n  - \"one\"\n  - \"two\""
+	str = "list:\n\t- \"one\"\n\t- \"two\""
 	str = "-- comment\ncontent text\n-- comment"
 	str = tostring(1 + 2) .. '\n' .. tostring(2 + 3) .. '\n' .. tostring("a" .. "b")
 	local obj = {

src/yuescript/yue_ast.h

@@ -848,7 +848,7 @@ AST_NODE(Macro)
 AST_END(Macro)
 
 AST_NODE(NameOrDestructure)
-	ast_sel<true, Variable_t, TableLit_t, Comprehension_t> item;
+	ast_sel<true, Variable_t, SimpleTable_t, TableLit_t, Comprehension_t> item;
 	AST_MEMBER(NameOrDestructure, &item)
 AST_END(NameOrDestructure)