Retro68/Rez/Test.r

34 lines
425 B
R
Raw Normal View History

2014-10-05 21:52:34 +00:00
/*#include "Types.r"
*/
2014-10-09 20:15:13 +00:00
#include "/home/wolfgang/Projects/Retro68/CExamples/Sample.r"
2014-10-05 21:52:34 +00:00
type 'TEST' {
2014-10-07 22:41:40 +00:00
integer zero, one, two, answer = 42, missed;
longint;
2014-10-09 20:15:13 +00:00
integer = (after - before) / 8;
2014-10-07 22:41:40 +00:00
integer = $$CountOf(foo);
before:
array foo {
integer = $$ArrayIndex(foo);
integer;
integer;
};
2014-10-09 20:15:13 +00:00
string;
2014-10-07 22:41:40 +00:00
after:
;
2014-10-05 21:52:34 +00:00
};
2014-10-07 22:41:40 +00:00
resource 'TEST' (128) {
answer,
0x1234,
2014-10-09 20:15:13 +00:00
{ 1, 2; 3, 4; },
"Hello, "
"world: "
$"Abcd 1234";
2014-10-07 22:41:40 +00:00
};
2014-10-09 20:15:13 +00:00