Add mes and mescc-tools-extra

mescc-tools-extra contains two important tools: - cp - chmod mes first builds itself from a mes 0.21 seed as used by guix, and then builds a mes 0.22 and then mes 0.22 using that created mes 0.22. It does /not/ use bootstrap.sh as we don't have a proper shell at this point, it has been manually adapted for kaem.
2026-03-20 10:13:01 +01:00 · 2020-12-25 18:40:14 +11:00 · 2020-12-25 18:40:14 +11:00 · 649d7b68dc
commit 649d7b68dc
parent 2706e07556
1029 changed files with 120985 additions and 18 deletions
--- a/sysa/mes-0.22/lib/tests/scaffold/64-make-cell.c
+++ b/sysa/mes-0.22/lib/tests/scaffold/64-make-cell.c
@ -0,0 +1,162 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2017 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/>.
+ */
+
+#include <mes/lib.h>
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+struct scm
+{
+  int type;
+  int car;
+  int cdr;
+};
+
+int bla = 1234;
+char g_arena[84];
+struct scm *g_cells = (struct scm *) g_arena;
+char *g_chars = g_arena;
+
+int
+foo ()
+{
+  oputs ("t: foo\n");
+  return 0;
+};
+
+int
+bar (int i)
+{
+  oputs ("t: bar\n");
+  return 0;
+};
+
+struct function
+{
+  int (*function) (void);
+  int arity;
+  char *name;
+};
+struct function g_fun = { &exit, 1, "fun" };
+struct function g_foo = { &foo, 0, "foo" };
+struct function g_bar = { &bar, 1, "bar" };
+
+//void *functions[2];
+int functions[2];
+
+struct function g_functions[2];
+int g_function = 0;
+
+enum type_t
+{ TCHAR, TCLOSURE, TCONTINUATION, TFUNCTION, TKEYWORD, TMACRO, TNUMBER, TPAIR, TREF, TSPECIAL, TSTRING,
+    TSYMBOL, TVALUES, TVECTOR, TBROKEN_HEART };
+
+typedef int SCM;
+int g_free = 3;
+SCM tmp;
+SCM tmp_num;
+
+int ARENA_SIZE = 200;
+#define TYPE(x) g_cells[x].type
+#define CAR(x) g_cells[x].car
+#define CDR(x) g_cells[x].cdr
+#define VALUE(x) g_cells[x].cdr
+
+#define CAAR(x) CAR (CAR (x))
+
+struct scm scm_fun = { TFUNCTION, 0, 0 };
+
+SCM cell_fun;
+
+SCM
+alloc (int n)
+{
+  oputs ("040\n");
+  SCM x = g_free;
+  g_free += n;
+  return x;
+}
+
+SCM
+make_cell (SCM type, SCM car, SCM cdr)
+{
+  oputs ("030\n");
+  SCM x = alloc (1);
+  TYPE (x) = VALUE (type);
+  if (VALUE (type) == TCHAR || VALUE (type) == TNUMBER)
+    {
+      if (car)
+        CAR (x) = CAR (car);
+      if (cdr)
+        CDR (x) = CDR (cdr);
+    }
+  else if (VALUE (type) == TFUNCTION)
+    {
+      if (car)
+        CAR (x) = car;
+      if (cdr)
+        CDR (x) = CDR (cdr);
+    }
+  else
+    {
+      CAR (x) = car;
+      CDR (x) = cdr;
+    }
+  return x;
+}
+
+SCM
+make_cell_test ()
+{
+  oputs ("010\n");
+  VALUE (tmp_num) = TPAIR;
+  oputs ("011\n");
+  make_cell (tmp_num, 0, 1);
+  oputs ("012\n");
+  return 0;
+}
+
+SCM
+make_tmps_test (struct scm * cells)
+{
+  oputs ("t: tmp = g_free++\n");
+  tmp = g_free++;
+  oputs ("t: cells[tmp].type = CHAR\n");
+  cells[tmp].type = TCHAR;
+  oputs ("000\n");
+  tmp_num = g_free++;
+  oputs ("001\n");
+  cells[tmp_num].type = TNUMBER;
+  oputs ("002\n");
+
+  return 0;
+}
+
+int
+main ()
+{
+  oputs ("\n");
+  make_tmps_test (g_cells);
+  make_cell_test ();
+  oputs ("020\n");
+  return 0;
+}