test/Test.c

   1 /* voc 2.1.0 [2017/07/17] for gcc LP64 on arch xtpam */
   2
   3 #define SHORTINT INT8
   4 #define INTEGER  INT16
   5 #define LONGINT  INT32
   6 #define SET      UINT32
   7
   8 #include "SYSTEM.h"
   9 #include "Out.h"
  10
  11 typedef
  12         INT16 (*Test_MyArr[3])[6];
  13
  14
  15 static Test_MyArr Test_a;
  16
  17
  18
  19
  20 static void EnumPtrs(void (*P)(void*))
  21 {
  22         __ENUMP(Test_a, 3, P);
  23 }
  24
  25
  26 export int main(int argc, char **argv)
  27 {
  28         __INIT(argc, argv);
  29         __MODULE_IMPORT(Out);
  30         __REGMAIN("Test", EnumPtrs);
  31 /* BEGIN */
  32         Out_Open();
  33         Test_a[0] = __NEWARR(NIL, 2, 2, 1, 0, ((INT64)(6)));
  34         (*Test_a[0])[0] = 1;
  35         Out_Int((*Test_a[0])[0], 0);
  36         Out_Ln();
  37         Out_Flush();
  38         __FINI;
  39 }