mes: Move base-0.mes int boot-0.scm.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 14 Apr 2018 20:06:28 +0000 (22:06 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 14 Apr 2018 20:06:28 +0000 (22:06 +0200)
* module/mes/boot-02.scm: New file, rename from boot-0.scm.
* module/mes/boot-0.scm: Add base-0.mes.
* module/mes/base-0.mes: Remove.

40 files changed:
guile/mes-0.scm
make.scm
module/mes/base-0.mes [deleted file]
module/mes/boot-0.scm
module/mes/boot-00.scm
module/mes/boot-01.scm
module/mes/boot-02.scm [new file with mode: 0644]
module/mes/posix.mes
module/mes/test.mes
scripts/mescc.mes
scripts/repl.mes
src/mes.c
tests/base.test
tests/boot.test
tests/catch.test
tests/closure.test
tests/cwv.test
tests/display.test
tests/fluids.test
tests/getopt-long.test
tests/guile.test
tests/let-syntax.test
tests/let.test
tests/match.test
tests/math.test
tests/module.test
tests/optargs.test
tests/peg.test
tests/pmatch.test
tests/psyntax.test
tests/quasiquote.test
tests/read.test
tests/record.test
tests/scm.test
tests/srfi-1.test
tests/srfi-13.test
tests/srfi-14.test
tests/srfi-16.test
tests/syntax.test
tests/vector.test

index 5d71ff139bf5f221536196251b4e7cbc8fb6c564..e67145728a72ff505461af59ff4e682f7569e13e 100644 (file)
 
 (define-macro (mes-use-module . rest) #t)
 (define builtin? procedure?) ; not strictly true, but ok for tests/*.test
-(define mes? (pair? (current-module)))
-(define guile? (not (pair? (current-module))))
-(define guile-1.8? (equal? (effective-version) "1.8"))
-(define guile-2? (and (not mes?) (not guile-1.8?)))
-(if guile-1.8? (use-modules (ice-9 syncase)))
+(cond-expand
+ (mes)
+ (guile-2)
+ (guile
+  (use-modules (ice-9 syncase))))
 (define EOF (if #f #f))
 (define append2 append)
index fc51f1f7d820f7580615a1b7c095f5fd5f4fabd9..2c5b7fc844468e8feb1aaa03b81e70712543e18c 100755 (executable)
--- a/make.scm
+++ b/make.scm
@@ -520,7 +520,7 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
 (define* ((install-dir #:key dir) name)
   (add-target (install name  #:dir (string-append dir "/" (dirname name)))))
 
-(add-target (install "module/mes/base-0.mes" #:dir (string-append %moduledir "/mes") #:substitutes #t))
+(add-target (install "module/mes/boot-0.scm" #:dir (string-append %moduledir "/mes") #:substitutes #t))
 (add-target (install "module/language/c99/compiler.mes" #:dir (string-append %moduledir "/language/c99") #:substitutes #t))
 
 (define %module-dir "share/mes")
@@ -538,11 +538,11 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
    "module/mes/as-i386.scm"
    "module/mes/as.mes"
    "module/mes/as.scm"
-   ;;"module/mes/base-0.mes"
    "module/mes/base.mes"
    "module/mes/boot-0.scm"
    "module/mes/boot-00.scm"
    "module/mes/boot-01.scm"
+   "module/mes/boot-02.scm"
    "module/mes/bytevectors.mes"
    "module/mes/bytevectors.scm"
    "module/mes/catch.mes"
diff --git a/module/mes/base-0.mes b/module/mes/base-0.mes
deleted file mode 100644 (file)
index 02e2d52..0000000
+++ /dev/null
@@ -1,142 +0,0 @@
-;;; -*-scheme-*-
-
-;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
-;;;
-;;; This file is part of Mes.
-;;;
-;;; 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.
-;;;
-;;; 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 Mes.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;;; base-0.mes is the first file being loaded from the Mes core.  It
-;;; provides primitives that use Mes internals to create the illusion
-;;; of compatibility with Guile.  It is not safe to be run by Guile.
-
-;;; Code:
-
-(define mes? #t)
-(define guile? #f)
-(define guile-1.8? #f)
-(define guile-2? #f)
-
-(define (primitive-eval e) (core:eval e (current-module)))
-(define eval core:eval)
-
-(define (current-output-port) 1)
-(define (current-error-port) 2)
-(define (port-filename port) "<stdin>")
-(define (port-line port) 0)
-(define (port-column port) 0)
-(define (ftell port) 0)
-(define (false-if-exception x) x)
-
-(define (cons* . rest)
-  (if (null? (cdr rest)) (car rest)
-      (cons (car rest) (core:apply cons* (cdr rest) (current-module)))))
-
-(define (apply f h . t)
-  (if (null? t) (core:apply f h (current-module))
-      (apply f (apply cons* (cons h t)))))
-
-(define-macro (cond . clauses)
-  (list 'if (pair? clauses)
-        (list (cons
-               'lambda
-               (cons
-                '(test)
-                (list (list 'if 'test
-                            (if (pair? (cdr (car clauses)))
-                                (if (eq? (car (cdr (car clauses))) '=>)
-                                    (append2 (cdr (cdr (car clauses))) '(test))
-                                    (list (cons 'lambda (cons '() (cons 'test (cdr (car clauses)))))))
-                                (list (cons 'lambda (cons '() (cons 'test (cdr (car clauses)))))))
-                            (if (pair? (cdr clauses))
-                                (cons 'cond (cdr clauses)))))))
-              (car (car clauses)))))
-
-(define else #t)
-
-(define-macro (load file)
-  (list 'begin
-        (list 'if (list getenv "MES_DEBUG")
-              (list 'begin
-                    (list core:display-error ";;; read ")
-                    (list core:display-error file)
-                    (list core:display-error "\n")))
-     (list 'primitive-load file)))
-
-(define-macro (include file) (list 'load file))
-
-(define (append . rest)
-  (if (null? rest) '()
-      (if (null? (cdr rest)) (car rest)
-          (append2 (car rest) (apply append (cdr rest))))))
-
-(define (string->list s)
-  (core:car s))
-
-(define %prefix (getenv "MES_PREFIX"))
-(define %moduledir
-  (if (not %prefix) "module/"
-      (list->string
-       (append (string->list %prefix)
-               (string->list "/module") ; `module/' gets replaced upon install
-               (string->list "/")))))
-
-;;(primitive-load "module/mes/type-0.mes")
-(include (list->string
-          (append2 (string->list %moduledir) (string->list "/mes/type-0.mes"))))
-
-(define (symbol->string s)
-  (apply string (symbol->list s)))
-
-(define (string-append . rest)
-  (apply string (apply append (map1 string->list rest))))
-
-(define %version (if (eq? (car (string->list "@VERSION@")) #\@) "git"
-                     "@VERSION@"))
-(define (effective-version) %version)
-
-(if (getenv "MES_DEBUG")
-    (begin
-      (core:display-error ";;; %moduledir=")
-      (core:display-error %moduledir)
-      (core:display-error "\n")))
-
-(define-macro (include-from-path file)
-  (list 'load (list string-append %moduledir file)))
-
-(define (string-join lst infix)
-  (if (null? (cdr lst)) (car lst)
-      (string-append (car lst) infix (string-join (cdr lst) infix))))
-
-(include-from-path "mes/module.mes")
-
-(mes-use-module (mes base-0))
-
-(mes-use-module (mes base))
-;; (mes-use-module (srfi srfi-0))
-(mes-use-module (mes quasiquote))
-(mes-use-module (mes let))
-
-(mes-use-module (mes scm))
-
-(mes-use-module (srfi srfi-1)) ;; FIXME: module read order
-(mes-use-module (srfi srfi-13))
-
-(mes-use-module (mes fluids)) ;; FIXME: module read order
-(mes-use-module (mes catch))
-
-(mes-use-module (mes posix))
index 95c1d0f6bb30ab9924244894dc79212fd39d2a7a..9c37976bfb35f83037670fe019845b69bbb9d276 100644 (file)
@@ -93,6 +93,7 @@
           (append2 (car rest) (apply append (cdr rest))))))
 ;; end boot-01.scm
 
+;; boot-02.scm
 (define-macro (and . x)
   (if (null? x) #t
       (if (null? (cdr x)) (car x)
 
 (define-macro (mes-use-module module)
   #t)
+;; end boot-02.scm
 
-;;((lambda (*program*) *program*) (primitive-load 0))
-(primitive-load 0)
+;; boot-0.scm
+(define (primitive-eval e) (core:eval e (current-module)))
+(define eval core:eval)
+
+(define (current-output-port) 1)
+(define (current-error-port) 2)
+(define (port-filename port) "<stdin>")
+(define (port-line port) 0)
+(define (port-column port) 0)
+(define (ftell port) 0)
+(define (false-if-exception x) x)
+
+(define (cons* . rest)
+  (if (null? (cdr rest)) (car rest)
+      (cons (car rest) (core:apply cons* (cdr rest) (current-module)))))
+
+(define (apply f h . t)
+  (if (null? t) (core:apply f h (current-module))
+      (apply f (apply cons* (cons h t)))))
+
+(define-macro (cond . clauses)
+  (list 'if (pair? clauses)
+        (list (cons
+               'lambda
+               (cons
+                '(test)
+                (list (list 'if 'test
+                            (if (pair? (cdr (car clauses)))
+                                (if (eq? (car (cdr (car clauses))) '=>)
+                                    (append2 (cdr (cdr (car clauses))) '(test))
+                                    (list (cons 'lambda (cons '() (cons 'test (cdr (car clauses)))))))
+                                (list (cons 'lambda (cons '() (cons 'test (cdr (car clauses)))))))
+                            (if (pair? (cdr clauses))
+                                (cons 'cond (cdr clauses)))))))
+              (car (car clauses)))))
+
+(define else #t)
+
+(define-macro (load file)
+  (list 'begin
+        (list 'if (list getenv "MES_DEBUG")
+              (list 'begin
+                    (list core:display-error ";;; read ")
+                    (list core:display-error file)
+                    (list core:display-error "\n")))
+     (list 'primitive-load file)))
+
+(define-macro (include file) (list 'load file))
 
+(define (append . rest)
+  (if (null? rest) '()
+      (if (null? (cdr rest)) (car rest)
+          (append2 (car rest) (apply append (cdr rest))))))
+
+(define (string->list s)
+  (core:car s))
+
+(define %prefix (getenv "MES_PREFIX"))
+(define %moduledir
+  (if (not %prefix) "module/"
+      (list->string
+       (append (string->list %prefix)
+               (string->list "/module") ; `module/' gets replaced upon install
+               (string->list "/")))))
+
+(include (list->string
+          (append2 (string->list %moduledir) (string->list "/mes/type-0.mes"))))
+
+(define (symbol->string s)
+  (apply string (symbol->list s)))
+
+(define (string-append . rest)
+  (apply string (apply append (map1 string->list rest))))
+
+(define %version (if (eq? (car (string->list "@VERSION@")) #\@) "git"
+                     "@VERSION@"))
+(define (effective-version) %version)
+
+(if (getenv "MES_DEBUG")
+    (begin
+      (core:display-error ";;; %moduledir=")
+      (core:display-error %moduledir)
+      (core:display-error "\n")))
+
+(define-macro (include-from-path file)
+  (list 'load (list string-append %moduledir file)))
+
+(define (string-join lst infix)
+  (if (null? (cdr lst)) (car lst)
+      (string-append (car lst) infix (string-join (cdr lst) infix))))
+
+(include-from-path "mes/module.mes")
+
+(mes-use-module (mes base))
+;; ;; (mes-use-module (srfi srfi-0))
+(mes-use-module (mes quasiquote))
+(mes-use-module (mes let))
+
+(mes-use-module (mes scm))
+
+(mes-use-module (srfi srfi-1)) ;; FIXME: module read order
+(mes-use-module (srfi srfi-13))
+
+(mes-use-module (mes fluids)) ;; FIXME: module read order
+(mes-use-module (mes catch))
+
+(mes-use-module (mes posix))
+;; ;; end boot-0.scm
+
+(primitive-load 0)
+(primitive-load 0)
index 324852beb98de96f8d7d746a5a86a8675149a7e2..977a9ed7287cd3cc0f2773a39a24c8fefb882031 100644 (file)
@@ -31,5 +31,4 @@
   (cons 'begin (cond-expand-expander clauses)))
 ;; end boot-00.scm
 
-;;((lambda (*program*) *program*) (primitive-load 0))
 (primitive-load 0)
index 33ed4bbe074ed59adab8d2a9d1ecc14da86dcc71..e2cc1c659c909cd9b7174b14d9772c389bd3a71d 100644 (file)
@@ -81,5 +81,4 @@
           (append2 (car rest) (apply append (cdr rest))))))
 ;; end boot-01.scm
 
-;;((lambda (*program*) *program*) (primitive-load 0))
 (primitive-load 0)
diff --git a/module/mes/boot-02.scm b/module/mes/boot-02.scm
new file mode 100644 (file)
index 0000000..b2d0029
--- /dev/null
@@ -0,0 +1,119 @@
+;;; -*-scheme-*-
+
+;;; Mes --- Maxwell Equations of Software
+;;; Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;;
+;;; This file is part of Mes.
+;;;
+;;; 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.
+;;;
+;;; 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 Mes.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; read-0.mes - bootstrap reader.  This file is read by a minimal
+;;; core reader.  It only supports s-exps and line-comments; quotes,
+;;; character literals, string literals cannot be used here.
+
+;;; Code:
+
+;; boot-00.scm
+(define mes %version)
+
+(define (defined? x)
+  (assq x (current-module)))
+
+(define (cond-expand-expander clauses)
+  (if (defined? (car (car clauses)))
+      (cdr (car clauses))
+      (cond-expand-expander (cdr clauses))))
+
+(define-macro (cond-expand . clauses)
+  (cons 'begin (cond-expand-expander clauses)))
+;; end boot-00.scm
+
+;; boot-01.scm
+(define <cell:character> 0)
+(define <cell:pair> 7)
+(define <cell:string> 10)
+
+(define (pair? x) (eq? (core:type x) <cell:pair>))
+(define (not x) (if x #f #t))
+
+(define (display x . rest)
+  (if (null? rest) (core:display x)
+      (core:display-port x (car rest))))
+
+(define (write x . rest)
+  (if (null? rest) (core:write x)
+      (core:write-port x (car rest))))
+
+(define (list->string lst)
+  (core:make-cell <cell:string> lst 0))
+
+(define (integer->char x)
+  (core:make-cell <cell:character> 0 x))
+
+(define (newline . rest)
+  (core:display (list->string (list (integer->char 10)))))
+
+(define (string->list s)
+  (core:car s))
+
+(define (cadr x) (car (cdr x)))
+
+(define (map1 f lst)
+  (if (null? lst) (list)
+      (cons (f (car lst)) (map1 f (cdr lst)))))
+
+(define (map f lst)
+  (if (null? lst) (list)
+      (cons (f (car lst)) (map f (cdr lst)))))
+
+(define (cons* . rest)
+  (if (null? (cdr rest)) (car rest)
+      (cons (car rest) (core:apply cons* (cdr rest) (current-module)))))
+
+(define (apply f h . t)
+  (if (null? t) (core:apply f h (current-module))
+      (apply f (apply cons* (cons h t)))))
+
+(define (append . rest)
+  (if (null? rest) '()
+      (if (null? (cdr rest)) (car rest)
+          (append2 (car rest) (apply append (cdr rest))))))
+;; end boot-01.scm
+
+;; boot-02.scm
+(define-macro (and . x)
+  (if (null? x) #t
+      (if (null? (cdr x)) (car x)
+          (list (quote if) (car x) (cons (quote and) (cdr x))
+                #f))))
+
+(define-macro (or . x)
+  (if (null? x) #f
+      (if (null? (cdr x)) (car x)
+          (list (list (quote lambda) (list (quote r))
+                      (list (quote if) (quote r) (quote r)
+                            (cons (quote or) (cdr x))))
+                (car x)))))
+
+(define-macro (module-define! module name value)
+  ;;(list 'define name value)
+  #t)
+
+(define-macro (mes-use-module module)
+  #t)
+;; end boot-02.scm
+
+(primitive-load 0)
index a8c8a28560a6b3b15fe250e7720384a6f6e8f44d..85a859838d05d89c4e1a09710f2c2009de19ba15 100644 (file)
@@ -24,4 +24,3 @@
 
 (define R_OK 0)
 (define S_IRWXU #o700)
-
index e6eb57d59a8837e15f230372dd48cbb86d6bef7d..97c6e601ed417de84015a51591c133b072138679 100644 (file)
 ;;; Code:
 
 (mes-use-module (mes base))
-(define guile? (not (pair? (current-module))))
+(cond-expand
+ (mes
+  (define mes? #t)
+  (define guile? #f)
+  (define guile-2? #f)
+  (define guile-1.8? #f))
+ (guile-2
+  (define mes? #f)
+  (define guile? #t)
+  (define guile-2? #t)
+  (define guile-1.8? #f))
+ (guile
+  (define mes? #f)
+  (define guile? #f)
+  (define guile-2? #f)
+  (define guile-1.8? #t)))
 
 (define result
   ((lambda (pass fail)
index 2e6639c504089cc0c44db673f08e31d1346fcdc1..993e856546ab6daae4d5008263ab50e0ee16fce4 100755 (executable)
@@ -10,7 +10,7 @@ then
 fi
 MES_MODULEDIR=${MES_MODULEDIR-$MES_PREFIX/"module"}
 export MES_MODULEDIR
-echo '()' | cat $MES_MODULEDIR/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS -- "$@"
+$MES $MES_FLAGS -- "$@" < $0
 #paredit:||
 exit $?
 !#
index 15d6b439b8c3207209153d60dcb8cdb979ced3ff..ed8f256b26336d94324deb537f4958f6fecd4523 100755 (executable)
@@ -1,10 +1,9 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/mes}
-#MES_ARENA=${MES_ARENA-30000000}
-#export MES_ARENA
+export MES_ARENA=${MES_ARENA-40000}
 prefix=module/
-cat $prefix/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS -- "$@"
+cat $0 /dev/stdin | $MES $MES_FLAGS -- "$@"
 #paredit:|
 exit $?
 !#
index 77b7d63d47a60df65d0d3c0274fae6b35bb518e8..893ffb8592a2afe65932a1b79326b70ebcb51615 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
 #include <string.h>
 #include <mlibc.h>
 
-int ARENA_SIZE = 20000000; // 32B: 100 MiB, 64b: 200 MiB
-#if 1 //__MESC__
-int MAX_ARENA_SIZE = 172100000; // 32b: ~ 2GiB
+// minimal for boot-0.scm
+// int ARENA_SIZE = 100000; // 32b: 1MiB, 64b: 2 MiB
+// take a bit more to run all tests
+int ARENA_SIZE = 400000; // 32b: 1MiB, 64b: 2 MiB
+#if !_POSIX_SOURCE
+int MAX_ARENA_SIZE = 166600000; // 32b: ~ 2GiB
 #else
 int MAX_ARENA_SIZE = 200000000; // 32b: 2.3GiB, 64b: 4.6GiB
 #endif
index 4ee116f9b743ffead371629b8b0c9556bfa230ec..dcd5ee8bcd57d3beda94b091f34e4f0580f225ec 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
@@ -33,10 +33,6 @@ exit $?
 
 (pass-if "lambda" (symbol? 'lambda))
 
-(cond-expand
- (guile (define append2 append))
- (mes))
-
 (pass-if-equal "append" '(0 1) (append2 '(0) '(1)))
 (pass-if-equal "append 2" '(0) (append2 '(0) '()))
 (pass-if-equal "append 3" '(0 1 2) (append '(0) '(1) '(2)))
@@ -99,9 +95,9 @@ exit $?
 (pass-if-equal "primitive-load" 42 (primitive-load "tests/data/load.scm") the-answer)
 
 (cond-expand
- (guile)
  (mes
-  (pass-if-equal "include" 42 (include "tests/data/load.scm") the-answer)))
+  (pass-if-equal "include" 42 (include "tests/data/load.scm") the-answer))
+ (else))
 
 (pass-if-eq "call/cc"
     0
@@ -112,9 +108,11 @@ exit $?
                   (cont 2))))
      #f #f))
 
-(if (not guile?)
-    (pass-if-not "#<eof>"
-                 (char? (integer->char -1))))
+(cond-expand
+ (mes
+  (pass-if-not "#<eof>"
+               (char? (integer->char -1))))
+ (else))
 
 (pass-if-equal "setenv, getenv"
     "bar"
index 4b6276387526afcd4d2d0a6d1f76cf843dcab970..455c598fea2dbfb8f9309d6835eb114f84cf0aee 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+export MES_BOOT=boot-02.scm
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index efacab33b37d3659b0018453161838f66662e45e..8b6a258a775c0366c8b943bd48fac34aae964e08 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 3dc56e6de50918b4c0954fdddc399463097bc3ce..dbbea982ccdf4126fc97951c9bf7eaccf4fc9398 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 8a0f606eb506aad0ec589fb33746223200e3a88d..742e7cbdb07cbb60c3887d74c754ca688eec7030 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 4434a0480ae7dda9e397dc2dc7a4197c2b373d48..c645c1fdc43a61f3202ca1396606c87de6225768 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 4aefd81ca8c9c7f790091bfdcc7dd26760c18618..b405d089fd39802f4d1d21335561a9694d3c31db 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index e9b9bb335b45b09d882e628a9adadcecb673146a..ae4ef740c9b63c54ca764e5688e831a7bfef26fb 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 1a1ec6b1a368cf05ddf6301c120cd43ac7bf015d..ff74e0874af3ab2174b082e80aae55055704eda6 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index ddf6f0ae7bb567efb5374a2acfd020f653a8b693..3eaf9d5d3b65e4d09c1ed24275ef2ed2f4769427 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index ce4b845660a5b6860157cfcb9fba9c3ac6aea682..0431e9d4946e747ac95289e0dc26cd7c091a1f99 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index c096c1a3226ad2437bbf049ed1a0cd9a834917ae..76bead2aa9821361a008edeac1e4e32c8c3d884f 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index c01137da93c6f24b6b7d82aac2f47010b017a0b0..7f2af71e42bb98acce99dbb2b587d4b2f539ab9e 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 4bfc5720306d8dbbd810c80e9a05ed83b66e0982..fc88879f441d3c153aa0c4561da40735e7dc9241 100755 (executable)
@@ -1,10 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-#echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES "$@"
-#paredit:||
-cat module/mes/base-0.mes $0 | $MES "$@"
-#paredit:|
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index bd86546b54d852e409e4f6ad146f08062e93284f..5209464038cf06d1f3ac1846c9191b07680ffb15 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index f0728f7f6a0614aefe0fb55ea78bedc3dc4cbb1a..575aeaacb0b77cb3d9b7f060a24a2085e95c663e 100755 (executable)
@@ -1,10 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
-MES_ARENA=${MES_ARENA-10000000}
-export MES_ARENA
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS $MES_FLAGS"$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-166000000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 6989fce41d85f15ac654e7257cbd56d1740e07a2..596b6d9a8ff85067598a632392d7659da935d1a7 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 41221619fa70a59573ef1269b0eb3791a2f64397..d0d3c2fe2d486bac814501823adbe117273c4793 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index c86ac4f0b2f2a6170be5c84757c2d254cfeedfc1..b339fba1900b1d0e4fc9a44f7ff18725332211ff 100755 (executable)
@@ -1,7 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 #paredit:||
 exit $?
 !#
index 29ef19fdb5ccc88b3a71be0d7d2dd4a7fecf23bc..d99568fde2d249e22c3b103e6046c349d487af86 100755 (executable)
@@ -2,8 +2,8 @@
 # -*-scheme-*-
 # ***REMOVE THIS BLOCK COMMENT INITIALLY***
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index deb7e928912df1f251393c4255f0d5b93b6e311a..295b586264419d5a4ca8bd1c67ba916a46b495b6 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 853a45018e2977083fcfdc1743810e6d401f892b..7e86e33f0fb91f5c4ebbb09805ff0740e54ab076 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 8d386c75c55675a859fad9606a3e291fb6d5c369..14eb6e2f6c896c75346a7779f6aa7a2e1dc6c85e 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 1f51fe2eaf412d3c162e7efa2b870911772ecb1d..39e7224ae3ab85991b2db66deb25d9867f995935 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 82941dc7f0d71e60b5e1c119c4fceb26e073f040..195def2a675a09460ae1af4dd5028413c066a2cc 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 061d721cdfbd03ef7e7b17790f1468d8a8ad92aa..a250e8a84650efdeed8e24bca4d5803b47249f19 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 0ebf63058510f2e23eda99d24d3a63a53164da73..96363ea7997df299e76e17158e23a507a7449985 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#
 
index 1e590361fde13425d14338c41136057287df3c00..74290bd426d78018d14035285562390b1d1927b2 100755 (executable)
@@ -1,8 +1,8 @@
 #! /bin/sh
 # -*-scheme-*-
 MES=${MES-$(dirname $0)/../src/mes}
-echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
-#paredit:||
+#export MES_ARENA=${MES_ARENA-40000}
+$MES $MES_FLAGS "$@" < $0
 exit $?
 !#