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.

sysa/mes-0.22/lib/libtcc1.c

@@ -0,0 +1,214 @@
+/* -*-comment-start: "//";comment-end:""-*-
+ * GNU Mes --- Maxwell Equations of Software
+ * Copyright © 2017,2018 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>
+
+double
+__divdi3 (double a, double b)
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__divdi3 stub\n");
+  stub = 1;
+  return ((long) a / (long) b);
+}
+
+double
+__moddi3 (double a, double b)
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__moddi3 stub\n");
+  stub = 1;
+  return ((long) a % (long) b);
+}
+
+#if HAVE_LONG_LONG
+unsigned long long
+__udivdi3 (unsigned long long a, unsigned long long b)
+#else
+unsigned long
+__udivdi3 (unsigned long a, long ah, unsigned long b)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__udivdi3 stub\n");
+  stub = 1;
+  if (!b)
+    return 0;
+  unsigned long ai = a;
+  unsigned long bi = b;
+  return ai / bi;
+}
+
+#if HAVE_LONG_LONG
+unsigned long long
+__umoddi3 (unsigned long long a, unsigned long long b)
+#else
+unsigned long
+__umoddi3 (unsigned long a, long ah, unsigned long b)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__umoddi3 stub\n");
+  stub = 1;
+  unsigned long ai = a;
+  unsigned long bi = b;
+  return ai % bi;
+}
+
+#if HAVE_LONG_LONG
+unsigned long long
+__lshrdi3 (unsigned long long a, long b)
+#else
+unsigned long
+__lshrdi3 (unsigned long a, long ah, long b)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__lshrdi3 stub\n");
+  stub = 1;
+#if 0 // In some instances, this recurses
+  return a >> b;
+#else
+  for (int i = 0; i < b; i++)
+    a /= 2;
+  return a;
+#endif
+}
+
+#if HAVE_LONG_LONG
+long long
+__ashldi3 (long long a, long b)
+#else
+long
+__ashldi3 (long a, long ah, long b)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__ashldi3 stub\n");
+  stub = 1;
+#if 0 // In some instances, this recurses
+  return a << b;
+#else
+  for (int i = 0; i < b; i++)
+    a += a;
+  return a;
+#endif
+}
+
+#if HAVE_LONG_LONG
+long long
+__ashrdi3 (long long a, long b)
+#else
+long
+__ashrdi3 (long a, long ah, long b)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__ashrdi3 stub\n");
+  stub = 1;
+#if 0 // In some instances, this recurses
+  return a >> b;
+#else
+  for (int i = 0; i < b; i++)
+    a /= 2;
+  return a;
+#endif
+}
+
+#if HAVE_LONG_LONG && HAVE_FLOAT
+long double
+__floatundixf (unsigned long long a)
+#else
+double
+__floatundixf (unsigned long a)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__floatundixf stub\n");
+  stub = 1;
+  return 0;
+}
+
+#if HAVE_LONG_LONG
+unsigned long long
+#else
+unsigned long
+#endif
+__fixunsxfdi (double a1)
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__fixunsxfdi stub\n");
+  stub = 1;
+  return 0;
+}
+
+#if __TINYC__ == 9226
+long
+#elif __TINYC__
+int
+#else // !__TINYCC__
+long long
+#endif // !__TINYCC__
+__fixdfdi (double a1)
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__fixdfdi stub\n");
+  stub = 1;
+  return 0;
+}
+
+#if HAVE_LONG_LONG
+unsigned long long
+__fixxfdi (double a1)
+#else
+unsigned long
+__fixxfdi (double a1)
+#endif
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__fixxfdi stub\n");
+  stub = 1;
+  return 0;
+}
+
+#if HAVE_LONG_LONG
+long long
+#else
+long
+#endif
+__fixsfdi (double a1)
+{
+  static int stub = 0;
+  if (__mes_debug () && !stub)
+    eputs ("__fixsfdi stub\n");
+  stub = 1;
+  return 0;
+}