40 lines
693 B
Plaintext
40 lines
693 B
Plaintext
include "std.mcl"
|
|
|
|
// structdef Foo do
|
|
// buz do sizeof(u64) end
|
|
// baz do sizeof(u64) end
|
|
// done
|
|
|
|
// memory s_foo Foo end
|
|
|
|
//? Comments :3
|
|
|
|
// extern fn a with void returns void then done
|
|
// inline fn b with void returns void then done
|
|
// export fn c with void returns void then done
|
|
|
|
// fn putd with int returns void then drop done
|
|
|
|
fn main with int ptr returns int then
|
|
1 2 add
|
|
69 _dbg_print
|
|
"Hewo\n" puts
|
|
|
|
if 3 4 eq do
|
|
"omg what impossible!\n"
|
|
else if 1 1 eq do
|
|
"whaaaaaaaaa\n"
|
|
else
|
|
"finally, some good soup\n"
|
|
done
|
|
puts
|
|
|
|
10
|
|
while dup 0 gt do
|
|
"uwu " puts
|
|
dup _dbg_print
|
|
1 sub
|
|
done
|
|
|
|
done
|