doc: Add Roamdmap.
* HACKING: Add roadmap.
This commit is contained in:
parent
d938b38d5e
commit
091c1ccd31
88
HACKING
88
HACKING
|
@ -1,11 +1,61 @@
|
||||||
-*-mode:org-*-
|
-*-mode:org-*-
|
||||||
|
|
||||||
* Fully source-based bootstrapping
|
* ROADMAP
|
||||||
|
** TODO release 0.5
|
||||||
|
1. mes.c: prototype Scheme interpreter in C, mature enough to run
|
||||||
|
2. guile/mescc.scm: C compiler on [Guile] Scheme, that can compile
|
||||||
|
2a. scaffold/hello.c: Simplest C program, compiled with 2.
|
||||||
|
2b. scaffold/micro-mes.c: main of 3. (2nd Scheme interpreter) + mlib.c
|
||||||
|
2c. scaffold/cons-mes.c: run simple hardcoded sexp
|
||||||
|
2d. scaffold/tiny-mes.c: load memory dump, run simple sexp
|
||||||
|
2e. scaffold/t.c: c compiler tests, enough to support compiling
|
||||||
|
3. scaffold/mini-mes.c: 2nd Scheme intepreter in C, without [g]libc, using
|
||||||
|
4. mlib.c: Minimal Mescc C library
|
||||||
|
4a. scaffold/hello.c: Simplest C program, compiled with 5.
|
||||||
|
4b. scaffold/micro-mes.c: main of 3. (2nd Scheme interpreter) + mlib.c
|
||||||
|
4x. *we are here, any more steps to reach 5*
|
||||||
|
rm -f a.out; MES_DEBUG=1 scripts/mescc.mes scaffold/micro-mes.c > a.out
|
||||||
|
4c. scaffold/cons-mes.c: run simple hardcoded sexp
|
||||||
|
4d. scaffold/tiny-mes.c: load memory dump, run simple sexp
|
||||||
|
4e. scaffold/t.c: run c test suite with scripts/mescc.mes
|
||||||
|
5. scripts/mescc.mes: C compiler on mes, that can build mini-mes
|
||||||
|
5a. remove __MESC__/__NYAC__ C workarounds in gc.c
|
||||||
|
5b. module/language/c99/compiler.mes: refactor expr->arg, expr->accu, ast->info
|
||||||
|
5c. merge *.c into scaffold/mini-mes.c
|
||||||
|
5d. merge scaffold/mini-mes.c into mes.c
|
||||||
|
6. scripts/mescc.mes: C compiler on mes, that can build mes
|
||||||
|
7. release self-hosting Mes 0.5
|
||||||
|
7a. discuss full source bootstrap strategy on guile-user with
|
||||||
|
Orians Jeremiah (stage0+) Luca Saiu's (GNU Epsilon).
|
||||||
|
** release 0.x, unsorted
|
||||||
|
- produce intermediate annotated assembly-like mes.S
|
||||||
|
- AND/OR: connect to GNU Epsilon's VM
|
||||||
|
- AND/OR: connect to OriansJ's stage0...LISP bootstrapping tools
|
||||||
|
- real module support, bonus for supporting Guile's define-module/define-public syntax
|
||||||
|
- get full source syntax-case up (Andre van Tonder?) OR drop
|
||||||
|
psyntax/syntax-case and rewrite Nyacc without syntax-case+R7RS Ellipsis
|
||||||
|
- support regexp OR rewrite Nyacc without regexps
|
||||||
|
- split-off Guile C compiler as standalone Guile project, still
|
||||||
|
respecting no-syntax-case bootstrap requirement
|
||||||
|
*** Compile the [[https://en.wikipedia.org/wiki/Tiny_C_Compiler][Tiny C Compiler]]
|
||||||
|
- build tcc (tinycc)
|
||||||
|
** release 1.0
|
||||||
|
- work to replace GuixSD's bootstrap binaries for x86
|
||||||
|
- more architectures?
|
||||||
|
|
||||||
|
** DONE
|
||||||
|
** Support call-with-current-continuation, refactor catch/throw
|
||||||
|
** 0.4: Support Nyacc, Gcc-compiled Mes compiles minimal main.c using nyacc
|
||||||
|
** 0.3: Garbage collector
|
||||||
|
** 0.2: Support psyntax
|
||||||
|
** 0.1: Mes eval/apply feature complete; support syntax-rules, compile main.c using LALR, dump ELF
|
||||||
|
|
||||||
|
* Full source bootstrapping
|
||||||
|
|
||||||
** R6RS-like scheme interpreter
|
** R6RS-like scheme interpreter
|
||||||
This first part is prototyped in C by the mes.c core and Scheme
|
This first part is prototyped in C by the mes.c core and Scheme
|
||||||
bootstrap code in module/. Of course, while mes.c is pretty small it
|
bootstrap code in module/. Of course, while mes.c is pretty small it
|
||||||
cannot serve as a fully source-based solution.
|
cannot serve as a full source solution.
|
||||||
|
|
||||||
The initial idea was to have the minimal core support LISP-1.5 (or
|
The initial idea was to have the minimal core support LISP-1.5 (or
|
||||||
something very close to that as a tribute to John McCarthy) and extend
|
something very close to that as a tribute to John McCarthy) and extend
|
||||||
|
@ -24,7 +74,6 @@ time to start doing something useful.
|
||||||
|
|
||||||
* Bugs
|
* Bugs
|
||||||
** The Scheme reader is very slow.
|
** The Scheme reader is very slow.
|
||||||
** Catch/throw are a syntax only hack for Nyacc.
|
|
||||||
** Fluids are a hack for Nyacc.
|
** Fluids are a hack for Nyacc.
|
||||||
** Prototype mes.c depends on a C compiler.
|
** Prototype mes.c depends on a C compiler.
|
||||||
*** Translate C-prototype mes.c into annotated hex?
|
*** Translate C-prototype mes.c into annotated hex?
|
||||||
|
@ -37,15 +86,6 @@ Another idea (thanks Rutger!) is to rewrite the mes.c core in a s-exp
|
||||||
C/Assembly variant and thave mescc produce the simple, annotated
|
C/Assembly variant and thave mescc produce the simple, annotated
|
||||||
bootstrap binary.
|
bootstrap binary.
|
||||||
|
|
||||||
** Actually do something useful
|
|
||||||
*** Rewrite the mescc compiler to work on the Nyacc AST.
|
|
||||||
The proof-of-concept mescc compiler uses a simple, whoefully
|
|
||||||
incomplete AST produced by a simplistic LALR-based C-parser.
|
|
||||||
*** Implement more bits of the compiler.
|
|
||||||
As Mes now runs Nyacc, and Guile runs the mescc compiler, this
|
|
||||||
compiler can be developed using Guile.
|
|
||||||
*** Compile mes.c using mescc.
|
|
||||||
A first milestone, next up is...
|
|
||||||
*** Compile the [[https://en.wikipedia.org/wiki/Tiny_C_Compiler][Tiny C Compiler]]
|
*** Compile the [[https://en.wikipedia.org/wiki/Tiny_C_Compiler][Tiny C Compiler]]
|
||||||
|
|
||||||
* OLD: Booting from LISP-1.5 into Mes
|
* OLD: Booting from LISP-1.5 into Mes
|
||||||
|
@ -94,15 +134,10 @@ MES_TINY=1 ./mes-32 --dump < module/mes/tiny-0.mes > module/mes/tiny-0-32.mo
|
||||||
|
|
||||||
** C assembler/linker
|
** C assembler/linker
|
||||||
*** [[http://www.tldp.org/HOWTO/Assembly-HOWTO/linux.html][Assembly HOWTO]]
|
*** [[http://www.tldp.org/HOWTO/Assembly-HOWTO/linux.html][Assembly HOWTO]]
|
||||||
*** System call clue bat
|
|
||||||
Basically, you issue an int 0x80, with the __NR_syscallname number
|
|
||||||
(from asm/unistd.h) in eax, and parameters (up to six) in ebx, ecx,
|
|
||||||
edx, esi, edi, ebp respectively.
|
|
||||||
*** ELF
|
*** ELF
|
||||||
7f 45 4c 46
|
7f 45 4c 46
|
||||||
*** [[http://www.muppetlabs.com/~breadbox/software/tiny/][Small ELF programs]]
|
*** [[http://www.muppetlabs.com/~breadbox/software/tiny/][Small ELF programs]]
|
||||||
*** [[http://www.cirosantilli.com/elf-hello-world/][Elf hello world]]
|
*** [[http://www.cirosantilli.com/elf-hello-world/][Elf hello world]]
|
||||||
|
|
||||||
** SC - c as s-expressions
|
** SC - c as s-expressions
|
||||||
sc: http://sph.mn/content/3d3
|
sc: http://sph.mn/content/3d3
|
||||||
** RNRS
|
** RNRS
|
||||||
|
@ -118,3 +153,22 @@ http://armpit.sourceforge.net/
|
||||||
http://common-lisp.net/project/movitz/movitz.html
|
http://common-lisp.net/project/movitz/movitz.html
|
||||||
|
|
||||||
<civodul> janneke: https://github.com/namin/inc looks interesting [15:18]
|
<civodul> janneke: https://github.com/namin/inc looks interesting [15:18]
|
||||||
|
** Orians Jeremiah
|
||||||
|
<OriansJ> janneke: also, if you look at
|
||||||
|
https://github.com/oriansj/stage0/tree/master/stage2/High_level_prototypes
|
||||||
|
[the garbage collected lisp I implemented], if there are any pieces
|
||||||
|
I could add to finish off your mes lisp bootstrap just let me know
|
||||||
|
because I would be more than happy to do that :D
|
||||||
|
<janneke> OriansJ: that's what I'm hoping for, that our efforts can be
|
||||||
|
complementary and we can work together
|
||||||
|
*** lfam (~lfam@2601:47:4180:2ffb:7c05:17de:cf5f:23ef) has quit: Ping timeout:
|
||||||
|
246 seconds [00:22]
|
||||||
|
<janneke> exciting times! [00:23]
|
||||||
|
<janneke> OriansJ: i looked a few times and saw 'LISP empty', so thanks for
|
||||||
|
the pointer! [00:24]
|
||||||
|
<civodul> OriansJ, janneke: from that page, there's also:
|
||||||
|
https://web.archive.org/web/20160604035203fw_/http://homepage.ntlworld.com/edmund.grimley-evans/bcompiler.html
|
||||||
|
|
||||||
|
** C4/C500
|
||||||
|
https://web.archive.org/web/20160604041431/http://homepage.ntlworld.com/edmund.grimley-evans/cc500/cc500.c
|
||||||
|
https://github.com/rswier/c4/blob/master/c4.c
|
||||||
|
|
|
@ -18,21 +18,9 @@
|
||||||
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
* along with Mes. If not, see <http://www.gnu.org/licenses/>.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define GNU 0
|
|
||||||
// #if __GNUC__
|
|
||||||
// #include "mlibc.c"
|
|
||||||
// #endif
|
|
||||||
|
|
||||||
int
|
int
|
||||||
//main ()
|
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
{
|
{
|
||||||
//puts ("Hi Mes!\n");
|
|
||||||
//if (argc > 1 && !strcmp (argv[1], "--help")) return puts ("argc > 1 && --help\n");
|
|
||||||
if (argc > 1) return argc;
|
if (argc > 1) return argc;
|
||||||
return 42;
|
return 42;
|
||||||
}
|
}
|
||||||
|
|
||||||
// #if __GNUC__
|
|
||||||
// #include "mstart.c"
|
|
||||||
// #endif
|
|
||||||
|
|
35
scaffold/hello.c
Normal file
35
scaffold/hello.c
Normal file
|
@ -0,0 +1,35 @@
|
||||||
|
/* -*-comment-start: "//";comment-end:""-*-
|
||||||
|
* Mes --- Maxwell Equations of Software
|
||||||
|
* Copyright © 2016,2017 Jan 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/>.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#if __GNUC__
|
||||||
|
#include "mlibc.c"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char *argv[])
|
||||||
|
{
|
||||||
|
puts ("Hi Mes!\n");
|
||||||
|
if (argc > 1 && !strcmp (argv[1], "--help")) {puts ("argc > 1 && --help\n"); return argc;}
|
||||||
|
return 42;
|
||||||
|
}
|
||||||
|
|
||||||
|
#if __GNUC__
|
||||||
|
#include "mstart.c"
|
||||||
|
#endif
|
|
@ -63,7 +63,8 @@ main (int argc, char *argv[])
|
||||||
//if (getenv ("MES_ARENA")) ARENA_SIZE = atoi (getenv ("MES_ARENA"));
|
//if (getenv ("MES_ARENA")) ARENA_SIZE = atoi (getenv ("MES_ARENA"));
|
||||||
|
|
||||||
if (argc > 1 && !strcmp (argv[1], "--help")) return eputs ("Usage: mes [--dump|--load] < FILE\n");
|
if (argc > 1 && !strcmp (argv[1], "--help")) return eputs ("Usage: mes [--dump|--load] < FILE\n");
|
||||||
if (argc > 1 && !strcmp (argv[1], "--version")) {eputs ("Mes ");eputs (VERSION);return eputs ("\n");};
|
//FIXME: Nyacc on mes barfs: unhandled exception: not-a-pair (("0.4" . car))
|
||||||
|
//if (argc > 1 && !strcmp (argv[1], "--version")) {eputs ("Mes ");eputs (VERSION);return eputs ("\n");};
|
||||||
|
|
||||||
#if __GNUC__
|
#if __GNUC__
|
||||||
g_stdin = STDIN;
|
g_stdin = STDIN;
|
||||||
|
|
Loading…
Reference in a new issue