prescheme-nim-local/vec.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "prescheme.h"
#include "ps-init.h"

long main(void);
static long *Qvec_a;

long main(void)
{
  long arg0K0;
  long val_2X;
  long i_1X;
  FILE * out_0X;
 {  out_0X = stdout;
  ps_write_string("Print vec-a with vector-for-each:\n", out_0X);
  ps_write_integer(5, out_0X);
  arg0K0 = 0;
  goto L119;}
 L119: {
  i_1X = arg0K0;
  if ((5 == i_1X)) {
    return 0;}
  else {
    val_2X = *(Qvec_a + i_1X);
    ps_write_string(" vec-a[", out_0X);
    ps_write_integer(i_1X, out_0X);
    ps_write_string("] = ", out_0X);
    ps_write_integer(val_2X, out_0X);
    { long ignoreXX;
    PS_WRITE_CHAR(10, out_0X, ignoreXX) }
    arg0K0 = (1 + i_1X);
    goto L119;}}
}void
ps_init(void)
{
Qvec_a = malloc(5 * sizeof(long));
Qvec_a[0] = 0;
Qvec_a[1] = 1;
Qvec_a[2] = 4;
Qvec_a[3] = 9;
Qvec_a[4] = 16;
}