blob: 9c816168d8e9bd995c29133a9bf79ba8645f32f6 (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
fn ipow(a, b) { var r = 1; while (b > 0) { r *= a; b--; } return r; }
// a parse word that adds an operator to the compiler's tables
immediate fn pow_op() { next(); add_binop("**", 11, "ipow c"); return 0; }
pow_op
// unless (cond) stmt: a parse word that emits code itself
immediate fn unless()
{
var a;
next();
expect(intern("(")); rval(); plainuse(expr()); rval(); expect(intern(")"));
emitseq(useq[0], ulen[0]); // not
a = hole(); op(O_JZ); // skip the body when the condition was true
substmt();
setlit(a, here);
return 0;
}
// repeat N { body }: a macro, built from token lists
immediate fn repeat()
{
var n, body, i = 0;
next(); n = tv; next();
body = grab();
while (i < n) { feed(qdup(body)); i++; }
free(body as d);
return 0;
}
fn main()
{
putn(2 ** 10); putc(' '); putn(3 + 2 ** 3 * 2); putc(10);
unless (1 > 2) puts("unless ok\n");
unless (2 > 1) puts("wrong\n");
repeat 3 { putc('r'); }
putc(10);
var q = quote { putn(40 + 2); putc(10); return 7; };
putn(q[0]); putc(' ');
putn(eval(q)); putc(10);
var f = compile(q);
putn(f()); putc(10);
free(q as d);
var d = quote { fn sq(x) { return x * x; } };
load(d);
free(d as d);
putn(evals("return sq(12);")); putc(10);
return 0;
}
|
