0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2025-02-27 14:10:58 +00:00
quakeforge/tools/qwaq/main.qc
Bill Currie a35c049744 main.c:
give instruction address in opcode dump
main.qc:
	more test code
2001-06-27 05:46:53 +00:00

42 lines
592 B
C++

float foo = 1;
float bar = 1;
float snafu = 2;
float () main =
{
local float handle;
local string buffer;
handle = open ("main.qc", 0);
if (handle == -1) {
print (strerror (errno ()) + "\n");
return 1;
}
do {
buffer = read (handle, 1024);
if (read_result == -1) {
print (strerror (errno ()) + "\n");
return 1;
}
print (buffer);
} while (read_result == 1024);
close (handle);
return 0;
};
float () baz =
{
return foo + bar;
};
void (float x) test =
{
local string str;
local float urk = 0;
if (urk) {
urk = foo || snafu;
} else {
print ("owie");
}
};