From 2572cd049ee5e1e2685b1abe6bfcfbb8aa988a71 Mon Sep 17 00:00:00 2001 From: Kyle Gunger Date: Thu, 5 May 2022 16:14:01 -0400 Subject: Add methods to crash in a defined way --- tnslc/ast/ast.tnsl | 3 ++- tnslc/ast/list.tnsl | 2 ++ tnslc/ast/statement.tnsl | 49 +++++++++++++++++++++++++++++++++++++++++++++++- tnslc/ast/value.tnsl | 3 +++ tnslc/parse/parse.tnsl | 12 ++++++++++-- tnslc/tnslc.tnsl | 4 +--- 6 files changed, 66 insertions(+), 7 deletions(-) (limited to 'tnslc') diff --git a/tnslc/ast/ast.tnsl b/tnslc/ast/ast.tnsl index bece84e..6e75da6 100644 --- a/tnslc/ast/ast.tnsl +++ b/tnslc/ast/ast.tnsl @@ -44,4 +44,5 @@ #... PREP = 1000 -} \ No newline at end of file +} + diff --git a/tnslc/ast/list.tnsl b/tnslc/ast/list.tnsl index ee5d0cf..a5849a3 100644 --- a/tnslc/ast/list.tnsl +++ b/tnslc/ast/list.tnsl @@ -17,5 +17,7 @@ /; tree_list_value [{}Node] ;{}Node out = {} + + ;return out ;/ diff --git a/tnslc/ast/statement.tnsl b/tnslc/ast/statement.tnsl index d8b4877..6023de2 100644 --- a/tnslc/ast/statement.tnsl +++ b/tnslc/ast/statement.tnsl @@ -21,10 +21,57 @@ string_equate(word, "delete") ;/ -/; is_definition (~{}Token tokens, ~int i) [bool] ;/ +/; is_closing (Token t) [bool] + /; if (t.token_type == TOKEN_TYPE.DELIMIT) + ;return string_equate(t.data`, ")") || string_equate(t.data`, "]") || string_equate(t.data`, "}") + ;/ + ;return false +;/ + +/; get_closing (~{}Token tokens, int i) [int] + ;{}charp end = ")" + /; if (string_equate(tokens`{i}.data`, "[")) + ;end = "]" + ;; else if (string_equate(tokens`{i}.data`, "{")) + ;end = "}" + ;/ + + ;int delims = 0 + + /; loop (i++; i < len tokens`) [i++] + /; if (is_closing(tokens`{i})) + /; if (delims > 0) + ;delims-- + ;; else if (string_equate(end, tokens`{i}.data`)) + ;return i + ;; else + ;return -1 + ;/ + ;; else if (tokens`{i}.token_type == TOKEN_TYPE.DELIMIT) + ;delims++ + ;/ + ;/ + + ;return -1 +;/ + + +/; is_definition (~{}Token tokens, ~int i) [bool] + + /; loop (int j = i`; j < len tokens`) [j++] + /; if (tokens`{j}.token_type == TOKEN_TYPE.KEYTYPE) + + ;; else if () + ;/ + ;/ + ;return false +;/ /; tree_keyword_statement (~{}Token tokens, ~int i) [Node] + ;Token def_tok = {TOKEN_TYPE.KEYWORD, 0, 0, ~CNULL} + ;{}Node def_sub = {} + ;return {def_tok, ~def_sub} ;/ /; tree_statement (~{}Token tokens, ~int i) [Node] diff --git a/tnslc/ast/value.tnsl b/tnslc/ast/value.tnsl index 2cefb62..d90c00a 100644 --- a/tnslc/ast/value.tnsl +++ b/tnslc/ast/value.tnsl @@ -21,7 +21,10 @@ ;/ /; tree_value [Node] + ;Token def_tok = {NODE_TYPE.VALUE, 0, 0, ~CNULL} + ;{}Node def_sub = {} + ;return {def_tok, ~def_sub} ;/ /; tree_definition [Node] diff --git a/tnslc/parse/parse.tnsl b/tnslc/parse/parse.tnsl index 9927d56..dbd9354 100644 --- a/tnslc/parse/parse.tnsl +++ b/tnslc/parse/parse.tnsl @@ -19,6 +19,14 @@ :include "parse/tokenizer.tnsl" ;/ +/; create_panic ({}charp err) + ;tnsl.io.println("ABOUT TO INDUCE PANIC... STAND BY") + ;tnsl.io.print("Error code given: ") + ;tnsl.io.println(err) + ;{}int i = {0} + ;i{2} +;/ + /# The various types of tokens #/ ; enum TOKEN_TYPE [int] { LINESEP = 0, @@ -64,7 +72,7 @@ /; add_char (~{}charp part) # ;uint l = len self.data` # ;realloc self.data, l + len part - /;loop (int i = 0; i < len part`) [i++] + /; loop (int i = 0; i < len part`) [i++] # ;self.data`{l + i} = part{i} ;self.data`.append(part`{i}) ;/ @@ -72,7 +80,7 @@ ;/ /; print_tokens(~{}Token dat) - /;loop (int i = 0; i < len dat`) [i++] + /; loop (int i = 0; i < len dat`) [i++] ;dat`{i}.print() ;/ ;tnsl.io.print("\n") diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl index 194464e..21dbb45 100644 --- a/tnslc/tnslc.tnsl +++ b/tnslc/tnslc.tnsl @@ -28,7 +28,7 @@ /; main ({}{}charp args) [int] /; if (len args < 1) - # ;tnsl.io.println("Usage: tnslc [File to compile] ") + ;tnsl.io.println("Usage: tnslc [File to compile] ") ;return 1 ;/ @@ -42,7 +42,5 @@ ;tnslc.Node tree_node = tnslc.ast.make_tree(psrc, args{0}) - - ;return 0 ;/ -- cgit v1.2.3