mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-19 03:05:15 +00:00
29 lines
382 B
R
29 lines
382 B
R
/*#include "Types.r"
|
|
|
|
|
|
*/
|
|
|
|
//#include "/home/wolfgang/Projects/Retro68/CExamples/Sample.r"
|
|
|
|
type 'TEST' {
|
|
integer zero, one, two, answer = 42, missed;
|
|
longint;
|
|
//integer = (after - before) / 32;
|
|
integer = $$CountOf(foo);
|
|
before:
|
|
array foo {
|
|
integer = $$ArrayIndex(foo);
|
|
integer;
|
|
integer;
|
|
};
|
|
after:
|
|
;
|
|
};
|
|
|
|
resource 'TEST' (128) {
|
|
answer,
|
|
0x1234,
|
|
{ 1, 2; 3, 4; }
|
|
};
|
|
|