blob: 2b0f0c22f670895d18719e00c3c4ef36e8443859 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
namespace;
include rt, run;
// ct { ... } runs a block while compiling and leaves its result as a constant
immediate fn ct() {
let q, v;
run.next();
q = run.grab();
v = run.eval(q);
rt.free(d*q);
run.lit(v);
return 0;
}
// teach the asm syntax that p means out, like the old repl demo
immediate fn teach() { run.next(); run.mnem[12] = 'p'; return 0; }
teach
fn countdown() {
asm { 5 :top 0 $ '0' + p 1 - 0 $ done z top j :done _ 10 p }
return 0;
}
fn main() {
rt.put_n(ct { let i = 0, s = 0; while (i < 10) { s += i; i++; } return s; }); rt.put_c(10);
countdown();
rt.put_s(lazy()); rt.put_c(10);
return 0;
}
// the analyzer is off from here on
unchecked;
fn lazy() { let p = rt.new(3); p[0] = 'o'; p[1] = 'k'; return p; }
|
