96 lines
1.7 KiB
Text
96 lines
1.7 KiB
Text
|
// types: char, uchar, short, ushort, int, uint, long, ulong, *type
|
||
|
|
// declaration:
|
||
|
|
// static <type> <name>;
|
||
|
|
// local <type> <name>;
|
||
|
|
// :<label>
|
||
|
|
// statement:
|
||
|
|
// <declaration>
|
||
|
|
// if <term> <==/</>/>=/<=/!=> <term> goto <label>
|
||
|
|
// goto <label>
|
||
|
|
// <lvalue> = <rvalue>
|
||
|
|
// <lvalue> += <rvalue>
|
||
|
|
// <lvalue> -= <rvalue>
|
||
|
|
// <function>(<term>, <term>, ...)
|
||
|
|
// syscall(<term>, <term>, ...)
|
||
|
|
// return <rvalue>;
|
||
|
|
// term:
|
||
|
|
// <var>
|
||
|
|
// <number>
|
||
|
|
// number:
|
||
|
|
// 'c
|
||
|
|
// 12345
|
||
|
|
// 0xabc
|
||
|
|
// lvalue:
|
||
|
|
// <var>
|
||
|
|
// *<var>
|
||
|
|
// <var>[<term>]
|
||
|
|
// rvalue:
|
||
|
|
// `<string>`
|
||
|
|
// <var>
|
||
|
|
// &<var>
|
||
|
|
// *<var>
|
||
|
|
// <var>[<term>]
|
||
|
|
// ~<var>
|
||
|
|
// <function>(<term>, <term>, ...)
|
||
|
|
// syscall(<term>, <term>, ...)
|
||
|
|
// <term> + <term>
|
||
|
|
// <term> - <term>
|
||
|
|
// <term> * <term>
|
||
|
|
// <term> / <term>
|
||
|
|
// <term> % <term>
|
||
|
|
// <term> & <term>
|
||
|
|
// <term> | <term>
|
||
|
|
// <term> ^ <term>
|
||
|
|
// <term> < <term> (left shift)
|
||
|
|
// <term> > <term> (right shift)
|
||
|
|
// (<term> ] <term>)
|
||
|
|
|
||
|
|
main();
|
||
|
|
|
||
|
|
static char x;
|
||
|
|
static uchar y;
|
||
|
|
static long z;
|
||
|
|
|
||
|
|
function strlen(*char s)
|
||
|
|
local ulong len;
|
||
|
|
local char c;
|
||
|
|
len = 0;
|
||
|
|
:strlen.loop
|
||
|
|
c = s[len];
|
||
|
|
if c == 0 goto strlen.loop_end;
|
||
|
|
len += 1;
|
||
|
|
goto strlen.loop
|
||
|
|
:strlen.loop_end
|
||
|
|
return len;
|
||
|
|
|
||
|
|
function putc(char c)
|
||
|
|
local char *p;
|
||
|
|
p = &c;
|
||
|
|
syscall(1, 1, p, 1, 0, 0, 0, 0);
|
||
|
|
return;
|
||
|
|
|
||
|
|
function puts(*char s)
|
||
|
|
local ulong len;
|
||
|
|
len = strlen(s);
|
||
|
|
syscall(1, 1, s, len, 0, 0, 0, 0);
|
||
|
|
return;
|
||
|
|
|
||
|
|
function main()
|
||
|
|
local *char hello;
|
||
|
|
hello = `Hello, world!
|
||
|
|
`;
|
||
|
|
puts(hello);
|
||
|
|
syscall(0x3c, 0, 0, 0, 0, 0, 0, 0);
|
||
|
|
|
||
|
|
function f(*long x, **long y)
|
||
|
|
local long v;
|
||
|
|
local *long p;
|
||
|
|
v = *x;
|
||
|
|
p = *y;
|
||
|
|
*p = v;
|
||
|
|
if v == 0 goto something;
|
||
|
|
p[1] = v + 1;
|
||
|
|
return p[2];
|
||
|
|
:something
|
||
|
|
return p[1];
|