diff options
Diffstat (limited to 'examples/bf.zc')
| -rw-r--r-- | examples/bf.zc | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/examples/bf.zc b/examples/bf.zc index 5169b2b..71cf40d 100644 --- a/examples/bf.zc +++ b/examples/bf.zc @@ -1,10 +1,13 @@ +namespace; +include rt, run; + // a brainfuck compiler. it turns a brainfuck program into zc source, hands // that to the compiler that's sitting in memory, and runs the result, which on // arm64 means native code. runs of + - < > fold into one statement each. // give it a program after a backtick, or it runs the hello world below. let out[30000], n, depth; -fn emit(s) { let i = 0; while (s[i]) { out[n] = s[i]; n++; i++; } return 0; } -fn emitn(int v) { if (v >= 10) emitn(v / 10); out[n] = '0' + v % 10; n++; return 0; } +void emit(s) { let i = 0; while (s[i]) { out[n] = s[i]; n++; i++; } return; } +void emitn(int v) { if (v >= 10) emitn(v / 10); out[n] = '0' + v % 10; n++; return; } // how many times does c repeat from s[i] int run(s, int i, int c) { int k = 0; while (s[i + k] == c) k++; return k; } @@ -37,12 +40,12 @@ let hello = "++++++++[>++++[>++>+++>+++>+<<<<-]>+>+>->>+[<]<-]>>.>---.+++++++..+ let prog[20000]; fn main() { let src = hello, k = 0, lines = 0, i = 0; - while (!eof() && k < 19999) { let c = get_c(); if (c != 10) { prog[k] = c; k++; } } + while (!rt.eof() && k < 19999) { let c = rt.get_c(); if (c != 10) { prog[k] = c; k++; } } prog[k] = 0; if (k) src = prog; - if (translate(src)) { put_s("unbalanced brackets\n"); return 1; } + if (translate(src)) { rt.put_s("unbalanced brackets\n"); return 1; } while (out[i]) { if (out[i] == 10) lines++; i++; } - put_s("compiled to "); put_n(lines); put_s(" lines of zc, running it:\n"); - evals(out); + rt.put_s("compiled to "); rt.put_n(lines); rt.put_s(" lines of zc, running it:\n"); + run.evals(out); return 0; } |