From e6bfaae273afbd43d0756c03c3de1b27904354e8 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sat, 9 Jan 2021 12:30:59 +0100
Subject: [PATCH] scaffold: Add global-array.c.

GCC gives

    12:30:45 janneke@dundal:~/src/mes/wip-m2 [env]
    $ gcc scaffold/global-array.c
    12:31:53 janneke@dundal:~/src/mes/wip-m2 [env]
    $ ./a.out
    hello global
    12:31:54 janneke@dundal:~/src/mes/wip-m2 [env]

M2-Planet gives

    12:31:54 janneke@dundal:~/src/mes/wip-m2 [env]
    $ kaem --verbose --strict --file scaffold/global-array.kaem
     +> M2-Planet --debug --architecture x86 -f lib/mes/globals.c -f lib/linux/x86-mes-m2/mini.c -f lib/mes/mini-write.c -f lib/string/strlen.c -f lib/string/strcpy.c -f lib/mes/eputs.c -f scaffold/global-array.c -o scaffold/global-array.M1
    scaffold/global-array.c:20:Received [ in program
    Subprocess error 256
    ABORTING HARD
    [1]12:32:06 janneke@dundal:~/src/mes/wip-m2 [env]

* scaffold/global-array.c: New file.
* scaffold/global-array.kaem: New file.
---
 scaffold/global-array.c    | 35 ++++++++++++++++++++++
 scaffold/global-array.kaem | 60 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 95 insertions(+)
 create mode 100644 scaffold/global-array.c
 create mode 100644 scaffold/global-array.kaem

diff --git a/scaffold/global-array.c b/scaffold/global-array.c
new file mode 100644
index 00000000..d3ab04e5
--- /dev/null
+++ b/scaffold/global-array.c
@@ -0,0 +1,35 @@
+/*
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ *
+ * This file is part of GNU Mes.
+ *
+ * GNU Mes is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU Mes is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+char global[32];
+
+#include <stdio.h>
+#include <string.h>
+
+/* for GCC --with-system-libc */
+#define eputs(x) fputs (x, stderr)
+
+int
+main ()
+{
+  strcpy (global, "hello global\n");
+  eputs (global);
+  return 0;
+}
diff --git a/scaffold/global-array.kaem b/scaffold/global-array.kaem
new file mode 100644
index 00000000..78f74b2f
--- /dev/null
+++ b/scaffold/global-array.kaem
@@ -0,0 +1,60 @@
+#! /bin/sh
+# Copyright © 2019,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+#
+# This file is part of GNU Mes.
+#
+# GNU Mes is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or (at
+# your option) any later version.
+#
+# GNU Mes is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+# Usage:
+# kaem --verbose --strict --file scaffold/global-array.kaem
+# scaffold/global-array
+
+mes_cpu=${mes_cpu:-x86}
+stage0_cpu=${stage0_cpu:-x86}
+
+M2-Planet                                       \
+    --debug                                     \
+    --architecture ${stage0_cpu}                \
+    -f lib/mes/globals.c                        \
+    -f lib/linux/${mes_cpu}-mes-m2/_exit.c      \
+    -f lib/linux/${mes_cpu}-mes-m2/_write.c     \
+    -f lib/mes/mini-write.c                     \
+    -f lib/string/strlen.c                      \
+    -f lib/string/strcpy.c                      \
+    -f lib/mes/eputs.c                          \
+    -f scaffold/global-array.c                  \
+    -o scaffold/global-array.M1
+
+blood-elf -f scaffold/global-array.M1 -o scaffold/global-array.blood-elf-M1
+
+M1                                              \
+    --architecture ${stage0_cpu}                \
+    --little-endian                             \
+    -f lib/m2/${mes_cpu}/${mes_cpu}_defs.M1     \
+    -f lib/${mes_cpu}-mes/${mes_cpu}.M1         \
+    -f lib/linux/${mes_cpu}-mes-m2/crt1.M1      \
+    -f scaffold/global-array.M1                 \
+    -f scaffold/global-array.blood-elf-M1       \
+    -o scaffold/global-array.hex2
+
+hex2                                            \
+    --architecture ${stage0_cpu}                \
+    --little-endian                             \
+    --base-address 0x1000000                    \
+    -f lib/m2/${mes_cpu}/ELF-${mes_cpu}.hex2    \
+    -f scaffold/global-array.hex2               \
+    -o scaffold/global-array
+
+echo Now run: scaffold/scaffold/global-array
+./scaffold/scaffold/global-array