diff options
Diffstat (limited to 'awk')
| -rwxr-xr-x | awk/scheme/scheme/bin/compiler.awk | 5 | ||||
| -rwxr-xr-x | awk/scheme/scheme/bin/vm.awk | 7 |
2 files changed, 4 insertions, 8 deletions
diff --git a/awk/scheme/scheme/bin/compiler.awk b/awk/scheme/scheme/bin/compiler.awk index e7e8081..5371bb2 100755 --- a/awk/scheme/scheme/bin/compiler.awk +++ b/awk/scheme/scheme/bin/compiler.awk @@ -7,7 +7,7 @@ BEGIN { next_label = 0 program = "" - # Debug mode + # Debug mode, 0 off, 1 on DEBUG = 0 } @@ -15,7 +15,7 @@ function debug(msg) { if (DEBUG) printf("[DEBUG] %s\n", msg) > "/dev/stderr" } -# Process input line - just accumulate the raw input +# Process input line - accumulate the raw input { if (program != "") program = program "\n" program = program $0 @@ -29,7 +29,6 @@ END { split_expressions(program) } -# New function to handle multiple expressions function split_expressions(prog, current, paren_count, i, c, expr, cleaned) { current = "" paren_count = 0 diff --git a/awk/scheme/scheme/bin/vm.awk b/awk/scheme/scheme/bin/vm.awk index cb2b992..aa85280 100755 --- a/awk/scheme/scheme/bin/vm.awk +++ b/awk/scheme/scheme/bin/vm.awk @@ -1,6 +1,5 @@ #!/usr/bin/awk -f -# VM State Initialization BEGIN { # Type tags T_NUMBER = "N" @@ -10,24 +9,22 @@ BEGIN { T_FUNCTION = "F" T_NIL = "NIL" - # VM registers + # Registers stack_ptr = 0 # Stack pointer heap_ptr = 0 # Heap pointer pc = 0 # Program counter - # Debug mode + # Debug mode, 0 off, 1 on DEBUG = 0 # Environment for variables env_size = 0 - # Function table (make it persistent) delete func_name delete func_pc delete func_code func_size = 0 - # Call stack call_stack_ptr = 0 # State persistence |