1 files changed, 124 insertions, 0 deletions
diff --git a/src/tparse/tree-list.go b/src/tparse/tree-list.go
new file mode 100644
index 0000000..70f5fff
--- /dev/null
+++ b/src/tparse/tree-list.go
@@ -0,0 +1,124 @@
+/*
+   Copyright 2020 Kyle Gunger
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.
+*/
+
+package tparse
+
+// Parse a list of values
+func parseValueList(tokens *[]Token, tok, max int) (Node, int) {
+	out := Node{}
+	out.Data = Token{Type: 10, Data: "list"}
+	var tmp Node
+
+	tok++
+
+	for ; tok < max; tok++ {
+		t := (*tokens)[tok]
+
+		switch t.Data {
+		case ")", "]", "}":
+			return out, tok
+		case ",":
+			tok++
+		default:
+			errOut("Error: unexpected token when parsing a list of values", t)
+		}
+
+		tmp, tok = parseValue(tokens, tok, max)
+		out.Sub = append(out.Sub, tmp)
+	}
+
+	return out, tok
+}
+
+// Parses a list of things
+func parseDefList(tokens *[]Token, tok, max int) (Node, int) {
+	out := Node{}
+	out.Data = Token{Type: 9, Data: "list"}
+
+	currentType := Node{}
+	currentType.Data = Token{Data: "undefined"}
+
+	for ; tok < max; tok++ {
+		t0 := (*tokens)[tok]
+		t1 := (*tokens)[tok+1]
+
+		switch t1.Data {
+		case ")", "]", "}", ",":
+		default:
+			currentType, tok = parseType(tokens, tok, max, true)
+			t0 = (*tokens)[tok]
+			t1 = (*tokens)[tok+1]
+		}
+
+		switch t0.Type {
+
+		case DEFWORD:
+			var tmp Node
+			if currentType.Data.Data == "undefined" {
+				errOut("Error: expected type before first parameter", t0)
+			} else if currentType.Data.Data == "type" {
+				tmp, tok = parseType(tokens, tok, max, true)
+			} else {
+				tmp = Node{Data: t0}
+			}
+
+			typ := currentType
+			makeParent(&typ, tmp)
+			makeParent(&out, typ)
+
+		default:
+			errOut("Error: unexpected token when parsing list, expected user-defined variable or ", t0)
+		}
+
+		switch t1.Data {
+		case ")", "]", "}":
+			return out, tok
+		case ",":
+		default:
+			errOut("Error: unexpected token when parsing list, expected ',' or end of list", t1)
+		}
+
+		tok++
+	}
+
+	return out, tok
+}
+
+func parseTypeList(tokens *[]Token, tok, max int) (Node, int) {
+	out := Node{}
+	out.Data = Token{Type: 9, Data: "list"}
+	var tmp Node
+
+	tok++
+
+	for ; tok < max; tok++ {
+		t := (*tokens)[tok]
+
+		switch t.Data {
+		case ")", "]", "}":
+			return out, tok
+		case ",":
+			tok++
+		default:
+			errOut("Error: unexpected token when parsing a list of types", t)
+		}
+
+		tmp, tok = parseType(tokens, tok, max, true)
+		out.Sub = append(out.Sub, tmp)
+	}
+
+	return out, tok
+}