1 files changed, 44 insertions, 0 deletions
diff --git a/prescheme-nim-local/vec.c b/prescheme-nim-local/vec.c
new file mode 100644
index 0000000..b8e369f
--- /dev/null
+++ b/prescheme-nim-local/vec.c
@@ -0,0 +1,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;
+}