Add missing copyright headers and READMEs.
* ChangeLog: Add copyright header. * build-aux/GNUmakefile.in (generate-ChangeLog): Append it as copyright footer. * BOOTSTRAP: Add copyright header. * scaffold/boot/2f-define-second-lambda.scm: Likewise. * scaffold/boot/39-global-define-override.scm: Likewise. * scaffold/boot/3a-global-define-lambda-override.scm: Likewise. * scaffold/boot/4f-string-split.scm: Likewise. * scaffold/boot/numbers.scm: Likewise. * scaffold/gc.scm: Likewise. * scaffold/b-0.mes: Remove. * doc/GNU-EVAL-APPLY: Remove. * doc/announce/README: New file. * doc/announce/ANNOUNCE: Move from doc/ANNOUNCE. * doc/announce/ANNOUNCE-0.10: Likewise. * doc/announce/ANNOUNCE-0.11: Likewise. * doc/announce/ANNOUNCE-0.12: Likewise. * doc/announce/ANNOUNCE-0.13: Likewise. * doc/announce/ANNOUNCE-0.14: Likewise. * doc/announce/ANNOUNCE-0.15: Likewise. * doc/announce/ANNOUNCE-0.16: Likewise. * doc/announce/ANNOUNCE-0.3: Likewise. * doc/announce/ANNOUNCE-0.4: Likewise. * doc/announce/ANNOUNCE-0.5: Likewise. * doc/announce/ANNOUNCE-0.6: Likewise. * doc/announce/ANNOUNCE-0.7: Likewise. * doc/announce/ANNOUNCE-0.8: Likewise. * doc/announce/ANNOUNCE-0.9: Likewise. * doc/announce/ANNOUNCE-2: Likewise. * doc/announce/UPDATE-0.13: Likewise. * doc/fosdem/README: New file. * doc/fosdem/fosdem.org: Add legalese. * doc/fosdem/fosdem.pdf: Regenerate. * doc/images/README: New file. * mes/module/mes/psyntax.pp.header: New file. * mes/module/mes/psyntax.pp: Add it to generated file.
This commit is contained in:
parent
f18e1fea36
commit
f68b169feb
11
BOOTSTRAP
11
BOOTSTRAP
|
@ -1,4 +1,11 @@
|
||||||
bootstrappable.org project -*- org -*-
|
-*- org -*-
|
||||||
|
#+TITLE: bootstrappable.org project
|
||||||
|
|
||||||
|
Copyright © 2016, 2017, 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
Copying and distribution of this file, with or without modification,
|
||||||
|
are permitted in any medium without royalty provided the copyright
|
||||||
|
notice and this notice are preserved.
|
||||||
|
|
||||||
* What?
|
* What?
|
||||||
** Full source bootstrapping for GuixSD
|
** Full source bootstrapping for GuixSD
|
||||||
|
@ -93,7 +100,6 @@ be source.
|
||||||
|
|
||||||
* TODO
|
* TODO
|
||||||
** upstream mes-boot to GuixSD.
|
** upstream mes-boot to GuixSD.
|
||||||
** add full source gcc-4.7 package build.
|
|
||||||
** replace GuixSD bootstrap for x86.
|
** replace GuixSD bootstrap for x86.
|
||||||
** remove or upstream patches from tcc-boot
|
** remove or upstream patches from tcc-boot
|
||||||
** prepare src/mes.c for M2-Planet transpiler.
|
** prepare src/mes.c for M2-Planet transpiler.
|
||||||
|
@ -103,6 +109,7 @@ be source.
|
||||||
** x86_64, arm, the Hurd
|
** x86_64, arm, the Hurd
|
||||||
|
|
||||||
* DONE
|
* DONE
|
||||||
|
** add full source gcc-4.7 package build.
|
||||||
** bootstrap gcc+glibc-built binutils-20.1, gcc-4.1.0.
|
** bootstrap gcc+glibc-built binutils-20.1, gcc-4.1.0.
|
||||||
** have tcc-boot compile gnutools triplet: binutils-2.14, gcc-2.95.3, glibc-2.2.5.
|
** have tcc-boot compile gnutools triplet: binutils-2.14, gcc-2.95.3, glibc-2.2.5.
|
||||||
** have tcc-boot's mes-tcc compile a fully functional tcc
|
** have tcc-boot's mes-tcc compile a fully functional tcc
|
||||||
|
|
12
ChangeLog
12
ChangeLog
|
@ -1,4 +1,12 @@
|
||||||
|
-*- org -*-
|
||||||
|
|
||||||
|
#+TITLE: ChangeLog
|
||||||
|
|
||||||
|
Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
Copying and distribution of this file, with or without modification,
|
||||||
|
are permitted in any medium without royalty provided the copyright
|
||||||
|
notice and this notice are preserved.
|
||||||
|
|
||||||
Normally a ChangeLog is generated at "make dist" time and available in
|
Normally a ChangeLog is generated at "make dist" time and available in
|
||||||
source tarballs.
|
source tarballs.
|
||||||
|
|
||||||
If not, see the Git commit log at <http://git.savannah.gnu.org/cgit/mes.git/>
|
|
||||||
|
|
|
@ -242,7 +242,9 @@ tree-clean-p:
|
||||||
@echo commit:$(COMMIT)
|
@echo commit:$(COMMIT)
|
||||||
|
|
||||||
generate-ChangeLog:
|
generate-ChangeLog:
|
||||||
$(PERL) ${srcdest}build-aux/gitlog-to-changelog --srcdir=${srcdir} > ChangeLog
|
$(PERL) ${srcdest}build-aux/gitlog-to-changelog --srcdir=${srcdir} > $@
|
||||||
|
cat ChangeLog >> generate-ChangeLog
|
||||||
|
mv generate-ChangeLog ChangeLog
|
||||||
|
|
||||||
$(TARBALL): .tarball-version | generate-ChangeLog
|
$(TARBALL): .tarball-version | generate-ChangeLog
|
||||||
($(GIT_LS_FILES)\
|
($(GIT_LS_FILES)\
|
||||||
|
|
|
@ -103,6 +103,7 @@ tests="
|
||||||
4c-quasiquote.scm
|
4c-quasiquote.scm
|
||||||
4d-let-map.scm
|
4d-let-map.scm
|
||||||
4e-let-global.scm
|
4e-let-global.scm
|
||||||
|
4f-string-split.scm
|
||||||
|
|
||||||
50-primitive-load.scm
|
50-primitive-load.scm
|
||||||
51-module.scm
|
51-module.scm
|
||||||
|
|
|
@ -1,135 +0,0 @@
|
||||||
* General Information
|
|
||||||
** Do you agree to follow GNU policies?
|
|
||||||
|
|
||||||
Yes, of course.
|
|
||||||
|
|
||||||
** Package name and version:
|
|
||||||
|
|
||||||
Mes 0.16
|
|
||||||
|
|
||||||
** Author Full Name <Email>:
|
|
||||||
|
|
||||||
Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
|
||||||
|
|
||||||
** URL to package home page (if any): https://gitlab.com/janneke/mes
|
|
||||||
|
|
||||||
I'm happy to move to savannah when Mes becomes a GNU package.
|
|
||||||
|
|
||||||
** URL to source tarball:
|
|
||||||
|
|
||||||
https://gitlab.com/janneke/mes/-/archive/v0.16/mes-0.16.tar.gz
|
|
||||||
|
|
||||||
or: git clone https://gitlab.com/janneke/mes
|
|
||||||
|
|
||||||
** Brief description of the package:
|
|
||||||
|
|
||||||
Mes aims to help create full source bootstrapping for GuixSD as part of
|
|
||||||
the bootstrappable builds effort (See https://bootstrappable.org/).
|
|
||||||
|
|
||||||
It currently consists of a mutual self-hosting Scheme interpreter
|
|
||||||
prototype written in C and a Nyacc-based C compiler written in Scheme.
|
|
||||||
This C prototype is being simplified to be transpiled by M2-Planet.
|
|
||||||
|
|
||||||
Mes+MesCC can compile an only lighty patched TinyCC that is
|
|
||||||
self-hosting. Using this tcc and the Mes C library we now have a
|
|
||||||
reduced-binary-seed bootstrap for the gnutools triplet: glibc-2.2.5,
|
|
||||||
binutils-2.20.1, gcc-4.1.0.
|
|
||||||
|
|
||||||
* Code
|
|
||||||
** Dependencies:
|
|
||||||
|
|
||||||
Mes can be built as a regular package, or as part of the full source
|
|
||||||
(currently: reduced binary seed) bootstrap process.
|
|
||||||
|
|
||||||
*** Regular build
|
|
||||||
|
|
||||||
- https://github.com/mescc-tools, 0.5 is known to work.
|
|
||||||
- https://savannah.gnu.org/projects/nyacc, 0.80.42 is known to work.
|
|
||||||
- GNU Gcc, 4.9.3 is known to work.
|
|
||||||
- GNU Guile, version 2.0.12 or is know to work.
|
|
||||||
- SH, /bin/sh, GNU Bash 4.3 is known to work.
|
|
||||||
- GNU coreutils
|
|
||||||
- sed, GNU sed 4.2 is known to work.
|
|
||||||
- git, 2.10 is known to work.
|
|
||||||
- Perl, 5.22 is known to work.
|
|
||||||
|
|
||||||
*** Bootstrap build
|
|
||||||
|
|
||||||
- https://github.com/oriansj/mescc-tools, 0.5 is known to work.
|
|
||||||
- https://savannah.gnu.org/projects/nyacc, 0.80.42 is known to work.
|
|
||||||
- https://gitlab.com/janneke/mes-seed, 0.16 is known to work.
|
|
||||||
|
|
||||||
** Configuration, building, installation:
|
|
||||||
|
|
||||||
*** Guix build, install
|
|
||||||
|
|
||||||
guix build mes, guix package --install mes
|
|
||||||
|
|
||||||
*** Regular build
|
|
||||||
|
|
||||||
./configure; make; make check; make install
|
|
||||||
|
|
||||||
*** Bootstrap build
|
|
||||||
|
|
||||||
<set env vars>
|
|
||||||
sh build.sh
|
|
||||||
sh check.sh
|
|
||||||
sh install.sh
|
|
||||||
|
|
||||||
** Documentation:
|
|
||||||
|
|
||||||
Mes does not yet have any documentation other than AUTHORS, HACKING,
|
|
||||||
INSTALL, NEWS, README. When it does, it will be in Texinfo: I live in
|
|
||||||
Emacs. I have initiated the GNU LilyPond documentation and website,
|
|
||||||
which are written in texinfo.
|
|
||||||
|
|
||||||
** Internationalization:
|
|
||||||
|
|
||||||
Mes does not have Internationalization. As it's an early bootstrap
|
|
||||||
package, it's unsure if it will ever get that. I do have experience
|
|
||||||
with adding Internationalization to GNU LilyPond.
|
|
||||||
|
|
||||||
** Accessibility:
|
|
||||||
|
|
||||||
None.
|
|
||||||
|
|
||||||
** Security:
|
|
||||||
|
|
||||||
Mes will be used as a critical link in our GNU bootstrapping chain.
|
|
||||||
It is essential for Mes to get a proper review before it is put in
|
|
||||||
place.
|
|
||||||
|
|
||||||
* Licensing:
|
|
||||||
|
|
||||||
GNU GPL 3, or later.
|
|
||||||
|
|
||||||
* Similar free software projects:
|
|
||||||
|
|
||||||
There are similarities with GNU Guile and to a lesser extent also with
|
|
||||||
MIT/GNU Scheme and SCM; in fact Mes' scheme tries to be compatible with
|
|
||||||
Guile Scheme. GNU Guile is about 30x faster than Mes.
|
|
||||||
|
|
||||||
The main difference is that mes.c is ~5,000LOC of very simple C and can
|
|
||||||
can be bootstrapped almost entirely from source, without any binary
|
|
||||||
seed. Currently, it needs a ~1MB ASSCI seed.
|
|
||||||
|
|
||||||
Guile is ~100,000LOC of full-blown C, not counting its dependencies
|
|
||||||
such as libgc.
|
|
||||||
|
|
||||||
Another difference with regular Scheme implementations, is that Mes does
|
|
||||||
not strive for RXRS compliance, instead it strives for minimalism and
|
|
||||||
Guile compatibility.
|
|
||||||
|
|
||||||
If in doubt, please contact the GuixSD or Guile maintainers.
|
|
||||||
|
|
||||||
* Any other information, comments, or questions:
|
|
||||||
|
|
||||||
I am an original author of GNU LilyPond and current GuixSD developer. I
|
|
||||||
have regular discussions about Mes and GuixSD with GuixSD and Guile
|
|
||||||
maintainers.
|
|
||||||
|
|
||||||
Mes currently targets only x86-linux, I would like some help to look at
|
|
||||||
other architectures and esp. at targeting the Hurd.
|
|
||||||
|
|
||||||
Greetings,
|
|
||||||
janneke
|
|
11
doc/announce/README
Normal file
11
doc/announce/README
Normal file
|
@ -0,0 +1,11 @@
|
||||||
|
-*- org -*-
|
||||||
|
#+TITLE: GNU Mes Announcements
|
||||||
|
|
||||||
|
Copyright © 2016, 2017, 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
Copying and distribution of this file, with or without modification,
|
||||||
|
are permitted in any medium without royalty provided the copyright
|
||||||
|
notice and this notice are preserved.
|
||||||
|
|
||||||
|
Files are emails sent to public mailing lists. The notice above
|
||||||
|
applies to these files too.
|
|
@ -1,9 +1,45 @@
|
||||||
All files except the files listed below
|
-*- org -*-
|
||||||
|
#+TITLE: Talk @Fosdem 2017
|
||||||
|
|
||||||
Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
Images imported from GNU Guix
|
Copying and distribution of this file, with or without modification,
|
||||||
|
are permitted in any medium without royalty provided the copyright
|
||||||
|
notice and this notice are preserved.
|
||||||
|
|
||||||
|
This talk is
|
||||||
|
Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
Permission is granted to copy, distribute and/or modify this talk
|
||||||
|
under the terms of the GNU Free Documentation License, Version 1.3 or
|
||||||
|
any later version published by the Free Software Foundation; with no
|
||||||
|
Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A
|
||||||
|
copy of the license is included in doc/fdl-1.3.texi, included in the
|
||||||
|
manual in the section entitled ``GNU Free Documentation License''.
|
||||||
|
|
||||||
|
beamercolorthemeX.sty
|
||||||
|
beamerthemeX.sty
|
||||||
bootstrap-graph.png
|
bootstrap-graph.png
|
||||||
|
egg.jpeg
|
||||||
|
egg.png
|
||||||
|
egg.xcf
|
||||||
|
fosdem.org
|
||||||
|
fosdem.pdf
|
||||||
|
fsb-logo-guile-guix-gnu.png
|
||||||
|
fsb-logo-guile-guix-gnu.xcf
|
||||||
|
fsb-logo-guile-guix-mes.png
|
||||||
|
fsb-logo-guile-guix-mes.xcf
|
||||||
|
fsb-logo.png
|
||||||
|
guix-build-bootstrap-tarballs.log
|
||||||
|
mes.png
|
||||||
|
mes.xcf
|
||||||
|
bootstrap-graph.png
|
||||||
|
|
||||||
GuixSD.png
|
GuixSD.png
|
||||||
|
Copyright © 2015 Luis Felipe López Acevedo
|
||||||
|
Permission is granted to copy, distribute and/or modify
|
||||||
|
this work under the terms of the Creative Commons
|
||||||
|
Attribution-ShareAlike 4.0 International License.
|
||||||
|
|
||||||
One page from
|
One page from
|
||||||
http://www.softwarepreservation.org/projects/LISP/book/LISP%25201.5%2520Programmers%2520Manual.pdf
|
http://www.softwarepreservation.org/projects/LISP/book/LISP%25201.5%2520Programmers%2520Manual.pdf
|
||||||
|
|
|
@ -1,8 +1,10 @@
|
||||||
#+TITLE: Mes
|
#+TITLE: GNU Mes
|
||||||
#+TITLE: \\\smaller[2]{Maxwell Equations of Software}
|
#+TITLE: \\\smaller[2]{Maxwell Equations of Software}
|
||||||
#+DATE:2017-02-05
|
#+DATE:2017-02-05
|
||||||
#+EMAIL: janneke@gnu.org
|
#+EMAIL: janneke@gnu.org
|
||||||
#+AUTHOR: janneke@gnu.org
|
#+AUTHOR: janneke@gnu.org
|
||||||
|
#+COPYRIGHT: Jan (janneke) Nieuwenhuizen <janneke@gn.org>
|
||||||
|
#+LICENSE: GNU Free Documentation License, version 1.3 or later.
|
||||||
#+LATEX_HEADER:\institute{FOSDEM'17}
|
#+LATEX_HEADER:\institute{FOSDEM'17}
|
||||||
#+LATEX_HEADER:\def\ahref#1#2{\htmladdnormallink{#2}{#1}}
|
#+LATEX_HEADER:\def\ahref#1#2{\htmladdnormallink{#2}{#1}}
|
||||||
#+OPTIONS: H:2
|
#+OPTIONS: H:2
|
||||||
|
@ -646,3 +648,18 @@ R5RS to x86 Assembly
|
||||||
|
|
||||||
# C-c C-e l b (org-beamer-export-to-latex)
|
# C-c C-e l b (org-beamer-export-to-latex)
|
||||||
# C-c C-e l P (org-beamer-export-to-pdf)
|
# C-c C-e l P (org-beamer-export-to-pdf)
|
||||||
|
|
||||||
|
* Legalese
|
||||||
|
:PROPERTIES:
|
||||||
|
:COPYING: t
|
||||||
|
:END:
|
||||||
|
|
||||||
|
Copyright \copy 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
#+BEGIN_QUOTE
|
||||||
|
Permission is granted to copy, distribute and/or modify this
|
||||||
|
document under the terms of the GNU Free Documentation License,
|
||||||
|
Version 1.3 or any later version published by the Free Software
|
||||||
|
Foundation; with no Invariant Sections, with no Front-Cover Texts,
|
||||||
|
and with no Back-Cover Texts.
|
||||||
|
#+END_QUOTE
|
||||||
|
|
Binary file not shown.
|
@ -0,0 +1,14 @@
|
||||||
|
-*- org -*-
|
||||||
|
#+TITLE: GNU Mes images
|
||||||
|
|
||||||
|
Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||||
|
|
||||||
|
Copying and distribution of this file, with or without modification,
|
||||||
|
are permitted in any medium without royalty provided the copyright
|
||||||
|
notice and this notice are preserved.
|
||||||
|
|
||||||
|
gcc-mesboot-graph.dot
|
||||||
|
This graph is generated from Guix wip-bootstrap, doing:
|
||||||
|
sed -i s,package-with-bootstrap-guile,identity, gnu/packages/{commencement,mes}.scm
|
||||||
|
~/src/guix-bootstrap/pre-inst-env guix graph gcc-mesboot > doc/images/gcc-mesboot-graph.dot
|
||||||
|
dot -T png doc/images/gcc-mesboot-graph.dot > doc/images/gcc-mesboot-graph.png
|
|
@ -1,3 +1,27 @@
|
||||||
|
;;; -*-scheme-*-
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright (C) 2016, 2017, 2018 Free Software Foundation, Inc.
|
||||||
|
;;;
|
||||||
|
;;; 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:
|
||||||
|
|
||||||
|
;;; This file is generated from psyntax.ss.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
(letrec ((syntmp-lambda-var-list-167
|
(letrec ((syntmp-lambda-var-list-167
|
||||||
(lambda (syntmp-vars-552)
|
(lambda (syntmp-vars-552)
|
||||||
(let syntmp-lvl-553 ((syntmp-vars-554 syntmp-vars-552)
|
(let syntmp-lvl-553 ((syntmp-vars-554 syntmp-vars-552)
|
||||||
|
@ -9626,4 +9650,3 @@
|
||||||
syntmp-tmp-2044
|
syntmp-tmp-2044
|
||||||
'(any any))))
|
'(any any))))
|
||||||
syntmp-x-2043)))
|
syntmp-x-2043)))
|
||||||
|
|
||||||
|
|
24
mes/module/mes/psyntax.pp.header
Normal file
24
mes/module/mes/psyntax.pp.header
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
;;; -*-scheme-*-
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright (C) 2016, 2017, 2018 Free Software Foundation, Inc.
|
||||||
|
;;;
|
||||||
|
;;; 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:
|
||||||
|
|
||||||
|
;;; This file is generated from psyntax.ss.
|
||||||
|
|
||||||
|
;;; Code:
|
|
@ -1,15 +0,0 @@
|
||||||
;;; -*-scheme-*-
|
|
||||||
(define (newline) (core:display "\n"))
|
|
||||||
(core:display "b-00\n")
|
|
||||||
(define save (current-input-port))
|
|
||||||
(core:display "save=")(core:display save)(newline)
|
|
||||||
(core:display "b-0111\n")
|
|
||||||
(set-current-input-port (open-input-file "scaffold/t-0.mes"))
|
|
||||||
;;(set-current-input-port (open-input-file "mes/t-0.mes"))
|
|
||||||
(core:display "ipp=")(core:display (current-input-port))(newline)
|
|
||||||
(core:display "b-02\n")
|
|
||||||
(primitive-load)
|
|
||||||
(core:display "b-03\n")
|
|
||||||
(set-current-input-port save)
|
|
||||||
(core:display "b-04\n")
|
|
||||||
"42\n"
|
|
|
@ -1,3 +1,21 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 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/>.
|
||||||
|
|
||||||
(define display core:display)
|
(define display core:display)
|
||||||
(define write core:write)
|
(define write core:write)
|
||||||
|
|
||||||
|
|
|
@ -1,3 +1,21 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 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/>.
|
||||||
|
|
||||||
(define (read) 1)
|
(define (read) 1)
|
||||||
(define read (lambda () 0))
|
(define read (lambda () 0))
|
||||||
(exit (read))
|
(exit (read))
|
||||||
|
|
|
@ -1,3 +1,21 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 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/>.
|
||||||
|
|
||||||
(define (read) 1)
|
(define (read) 1)
|
||||||
(exit
|
(exit
|
||||||
((lambda ()
|
((lambda ()
|
||||||
|
|
|
@ -1,3 +1,20 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 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/>.
|
||||||
|
|
||||||
(define (cons* . rest)
|
(define (cons* . rest)
|
||||||
(if (null? (cdr rest)) (car rest)
|
(if (null? (cdr rest)) (car rest)
|
|
@ -1 +1,19 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 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/>.
|
||||||
|
|
||||||
(cdr '(0 . 1))
|
(cdr '(0 . 1))
|
||||||
|
|
|
@ -1,3 +1,20 @@
|
||||||
|
;;; GNU Mes --- Maxwell Equations of Software
|
||||||
|
;;; Copyright © 2016,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/>.
|
||||||
|
|
||||||
(define-module (guile gc))
|
(define-module (guile gc))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue