LXR busybox/testsuite/bc

   1define printarray(a[], len) {
   2
   3        auto i
   4
   5        for (i = 0; i < len; ++i) {
   6                a[i]
   7        }
   8}
   9
  10define a2(a[], len) {
  11
  12        auto i
  13
  14        for (i = 0; i < len; ++i) {
  15                a[i] = a[i] * a[i]
  16        }
  17
  18        printarray(a[], len)
  19}
  20
  21define a4(a__[], len) {
  22
  23        auto i
  24
  25        for (i = 0; i < len; ++i) {
  26                a__[i] = a__[i] * a__[i]
  27        }
  28
  29        printarray(a__[], len)
  30}
  31
  32define a6(*a__[], len) {
  33
  34        auto i
  35
  36        for (i = 0; i < len; ++i) {
  37                a__[i] = a__[i] * a__[i]
  38        }
  39
  40        printarray(a__[], len)
  41}
  42
  43define a1(*a[], len) {
  44
  45        auto i
  46
  47        for (i = 0; i < len; ++i) {
  48                a[i] = i
  49        }
  50
  51        a2(a[], len)
  52
  53        printarray(a[], len)
  54}
  55
  56define a3(*a__[], len) {
  57
  58        auto i
  59
  60        for (i = 0; i < len; ++i) {
  61                a__[i] = i
  62        }
  63
  64        a4(a__[], len)
  65
  66        printarray(a__[], len)
  67}
  68
  69define a5(*a__[], len) {
  70
  71        auto i
  72
  73        for (i = 0; i < len; ++i) {
  74                a__[i] = i
  75        }
  76
  77        a2(a__[], len)
  78
  79        printarray(a__[], len)
  80}
  81
  82define a7(*a__[], len) {
  83
  84        auto i
  85
  86        for (i = 0; i < len; ++i) {
  87                a__[i] = i
  88        }
  89
  90        a6(a__[], len)
  91
  92        printarray(a__[], len)
  93}
  94
  95len = 16
  96
  97a1(a[], len)
  98printarray(a[], len)
  99a3(a[], len)
 100printarray(a[], len)
 101a5(a[], len)
 102printarray(a[], len)
 103a7(a[], len)
 104printarray(a[], len)
 105
 106halt
 107