blob: a4b7bff5ea9821a99f5f6f43043eb7318c958aac (
plain)
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
|
#include "std/io.toc";
#include "std/mem.toc";
main ::= fn() {
p := #builtin("platform");
P ::= #builtin("platform");
puti(p);
puti(P);
s := news(char, 12);
for c, i := "hello, world" {
s[i] = c;
}
puts(s);
}
main();
/*
stdc ::= "msvcrt.dll";
printf ::= #foreign("printf",stdc) fn (#C &"char const", #C ..) #C int;
puti ::= fn(i: u64) i32 {
fmt := "number: %llx\n\0";
printf(&fmt[0], i) as i32
}
// BUG: puti(puti(x))
sqrt ::= #foreign("sqrt",stdc) fn(f64) f64;
putf ::= fn(f: f64) i32 {
fmt := "number: %f\n\0";
printf(&fmt[0], f) as i32
}
foo ::= #foreign("foo", "test.dll") fn(#C unsigned_long_long, #C unsigned_long_long) #C unsigned_long_long;
main ::= fn() {
puti(foo(0x12345678cafebabe as u64, 0x76543210deadbeef as u64));
}
main();
*/
|
