diff options
Diffstat (limited to 'awk/forth/f.awk')
| -rwxr-xr-x | awk/forth/f.awk | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/awk/forth/f.awk b/awk/forth/f.awk index 73fea1e..4894b34 100755 --- a/awk/forth/f.awk +++ b/awk/forth/f.awk @@ -67,6 +67,8 @@ function interpret(line) { word = words[i] if (word == "") continue + # print "Processing word: " word # Debugging output (commented out) + if (word == ":") { compiling = 1 i++ @@ -86,6 +88,12 @@ function interpret(line) { continue } + # Execute the word and skip further processing if it's .s + if (word == ".s") { + execute_word(word) + break # Exit the loop after executing .s + } + execute_word(word) } } @@ -110,7 +118,10 @@ function execute_word(word) { else if (word == "*") math_mul() else if (word == "/") math_div() else if (word == ".") stack_print() - else if (word == ".s") stack_show() + else if (word == ".s") { + # print "Executing .s command" # Debugging output + stack_show() + } else if (word == "dup") stack_dup() else if (word == "drop") stack_drop() else if (word == "swap") stack_swap() @@ -121,6 +132,28 @@ function execute_word(word) { else if (word == ">") compare_gt() else if (word == "bye") exit_program() else if (word == "words") list_words() + else if (word == "if") { + # Handle the if statement + if_condition = pop() + if (if_condition == 0) { + # Skip to the next part until we find 'then' or 'else' + skip_if = 1 + } + } + else if (word == "else") { + # Handle the else statement + if (skip_if) { + skip_if = 0 # Reset the skip flag + } else { + # Skip to the next part until we find 'then' + skip_else = 1 + } + } + else if (word == "then") { + # End of the conditional + skip_if = 0 + skip_else = 0 + } } } else { print "Error: Unknown word '" word "'" @@ -197,6 +230,11 @@ function stack_show() { printf "%s ", stack[i] } print "" + # print "Stack state after .s: " # Debugging output + # for (i = 0; i < stack_ptr; i++) { + # print stack[i] + # } + # print "" # Add a newline for better readability } function stack_dup() { |