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/module/mes/guile.scm

@@ -0,0 +1,123 @@
+;;; -*-scheme-*-
+
+;;; 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/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(define-module (mes guile)
+  #:export (
+            <cell:char>
+            <cell:keyword>
+            <cell:number>
+            <cell:pair>
+            <cell:string>
+            <cell:symbol>
+            <cell:vector>
+
+            %arch
+            %compiler
+            append2
+            core:apply
+            core:car
+            core:display
+            core:display-error
+            core:display-port
+            core:exit
+            core:macro-expand
+            core:make-cell
+            core:write
+            core:write-error
+            core:write-port
+            core:type
+            %compiler
+            equal2?
+            keyword->string
+            pmatch-car
+            pmatch-cdr
+            )
+  ;;#:re-export (open-input-file open-input-string with-input-from-string)
+  )
+
+(cond-expand
+ (guile-2)
+ (guile
+  (define %host-type (string-append (utsname:machine (uname)) "linux-gnu")))
+ (else))
+
+(cond-expand
+ (guile
+  (define pmatch-car car)
+  (define pmatch-cdr cdr)
+  (define core:exit exit)
+  (define core:display display)
+  (define core:display-port display)
+  (define (core:display-error o) (display o (current-error-port)))
+  (define core:write write)
+  (define (core:write-error o) (write o (current-error-port)))
+  (define core:write-port write)
+  (define core:macro-expand identity)
+  (define (core:apply f a . m) (apply f a))
+  (define (core:car f a . m) (apply f a))
+  (define append2 append)
+  (define equal2? equal?)
+
+  (define guile:keyword? keyword?)
+  (define guile:number? number?)
+  (define guile:pair? pair?)
+  (define guile:string? string?)
+  (define guile:symbol? symbol?)
+
+  (define <cell:char> 0)
+  (define <cell:keyword> 4)
+  (define <cell:number> 6)
+  (define <cell:pair> 7)
+  (define <cell:string> 10)
+  (define <cell:symbol> 11)
+  (define <cell:vector> 15)
+  (define %arch (car (string-split %host-type #\-)))
+  (define %compiler "gnuc")
+
+  (define %compiler "gnuc")
+  (define keyword->string (compose symbol->string keyword->symbol))
+
+  (define (core:type x)
+    (cond ((guile:keyword? x) <cell:keyword>)
+          ((guile:number? x) <cell:number>)
+          ((guile:pair? x) <cell:pair>)
+          ((guile:string? x) <cell:string>)
+          ((guile:symbol? x) <cell:symbol>)))
+  (define (core:car x)
+    (cond ((guile:string? x) (string->list x))))
+  (define (core:make-cell type car cdr)
+    (cond ((eq? type <cell:string>) (list->string car)))))
+ (mes))
+
+(cond-expand
+ (guile-2.2)
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))
+  (define (compose proc . rest)
+  (if (null? rest) proc
+      (lambda args
+        (proc (apply (apply compose rest) args)))))
+  (export compose))
+ (mes))