Remove fosdem talk.
* doc/fosdem/GuixSD.png: Remove. * doc/fosdem/LISP-1-5-page-13-bottom.png: Remove. * doc/fosdem/LISP-1.5-page-13-bottom.png: Remove. * doc/fosdem/LISP-1.5-page-13.pdf: Remove. * doc/fosdem/LISP-1.5-page-13.png: Remove. * doc/fosdem/README: Remove. * doc/fosdem/beamercolorthemeX.sty: Remove. * doc/fosdem/beamerthemeX.sty: Remove. * doc/fosdem/bootstrap-graph.png: Remove. * doc/fosdem/egg.jpeg: Remove. * doc/fosdem/egg.png: Remove. * doc/fosdem/egg.xcf: Remove. * doc/fosdem/fosdem.org: Remove. * doc/fosdem/fosdem.pdf: Remove. * doc/fosdem/fsb-logo-guile-guix-gnu.png: Remove. * doc/fosdem/fsb-logo-guile-guix-gnu.xcf: Remove. * doc/fosdem/fsb-logo-guile-guix-mes.png: Remove. * doc/fosdem/fsb-logo-guile-guix-mes.xcf: Remove. * doc/fosdem/fsb-logo.png: Remove. * doc/fosdem/guix-build-bootstrap-tarballs.log: Remove. * doc/fosdem/mes.png: Remove. * doc/fosdem/mes.xcf: Remove.
This commit is contained in:
Jan Nieuwenhuizen
parent
4db4cb9090
commit
7bec5520ec
Binary file not shown.
|
Before Width: | Height: | Size: 8.5 KiB |
|
|
@ -1 +0,0 @@
|
|||
LISP-1.5-page-13-bottom.png
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 16 KiB |
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 17 KiB |
|
|
@ -1,52 +0,0 @@
|
|||
-*- org -*-
|
||||
#+TITLE: Talk @Fosdem 2017
|
||||
|
||||
Copyright © 2017 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.
|
||||
|
||||
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
|
||||
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
|
||||
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
|
||||
http://www.softwarepreservation.org/projects/LISP/book/LISP%25201.5%2520Programmers%2520Manual.pdf
|
||||
|
||||
MIT Press: Reproduction in whole or in part is permitted for any
|
||||
purpose of the of the United States Government.
|
||||
|
||||
LISP-1.5-page-13.png
|
||||
LISP-1.5-page-13-bottom.png
|
||||
LISP-1.5-page-13.pdf
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
% GNU Mes --- Maxwell Equations of Software
|
||||
% Copyright © 2017 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/>.
|
||||
|
||||
\mode<presentation>
|
||||
|
||||
\usecolortheme{spruce}
|
||||
\setbeamercolor*{structure}{fg=blue!25!white}
|
||||
\setbeamercolor*{structure}{fg=MSUgreen!80!white}
|
||||
\setbeamercolor{block title}{use=structure,fg=white,bg=structure.fg!75!black}
|
||||
|
||||
\mode
|
||||
<all>
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
% GNU Mes --- Maxwell Equations of Software
|
||||
% Copyright © 2017 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/>.
|
||||
|
||||
\mode<presentation>
|
||||
|
||||
\setbeamertemplate{navigation symbols}{}
|
||||
|
||||
\newif\ifbeamer@secheader
|
||||
\beamer@secheaderfalse
|
||||
|
||||
\DeclareOptionBeamer{secheader}{\beamer@secheadertrue}
|
||||
\ProcessOptionsBeamer
|
||||
|
||||
\usecolortheme{X}
|
||||
\useinnertheme[shadow]{rounded}
|
||||
\useoutertheme{infolines}
|
||||
|
||||
\ifbeamer@secheader\else\setbeamertemplate{headline}[default]\fi
|
||||
|
||||
\mode
|
||||
<all>
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 156 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 15 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 69 KiB |
Binary file not shown.
|
|
@ -1,665 +0,0 @@
|
|||
#+TITLE: GNU Mes
|
||||
#+TITLE: \\\smaller[2]{Maxwell Equations of Software}
|
||||
#+DATE:2017-02-05
|
||||
#+EMAIL: 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:\def\ahref#1#2{\htmladdnormallink{#2}{#1}}
|
||||
#+OPTIONS: H:2
|
||||
#+LATEX_CLASS: beamer
|
||||
#+LATEX_CLASS_OPTIONS: [presentation]
|
||||
#+LATEX_HEADER: \usepackage{relsize}
|
||||
#+LATEX_HEADER: \usepackage{hyperref}
|
||||
#+LATEX_HEADER: \usepackage{html}
|
||||
#+latex_header: \mode<beamer>{\usetheme{X}}
|
||||
#+BEAMER_THEME: X
|
||||
#+BEAMER_FRAME_LEVEL: 2
|
||||
#+COLUMNS: %45ITEM %10BEAMER_ENV(Env) %10BEAMER_ACT(Act) %4BEAMER_COL(Col) %8BEAMER_OPT(Opt)
|
||||
|
||||
* Mes, WHAT?
|
||||
|
||||
# ** TEST
|
||||
# - @@beamer:<1->@@ Item 1
|
||||
# - @@beamer:<2->@@ Item 2
|
||||
|
||||
# GNU LilyPond, Verum
|
||||
# Depression: France, Netherlands, US: about 20%; 10x more than 50 years ago
|
||||
|
||||
** Mes: Full Source Bootstrapping
|
||||
|
||||
*** Bootstrapping :B_block:BMCOL:
|
||||
:PROPERTIES:
|
||||
:BEAMER_COL: 0.6
|
||||
:BEAMER_ENV: block
|
||||
:END:
|
||||
* Where do compilers come from?
|
||||
* Who compiled the compiler?
|
||||
* Chicken and Egg
|
||||
*** . :B_block:BMCOL:
|
||||
#+LATEX:\includegraphics[width=0.4\textwidth]{mes.png}
|
||||
:PROPERTIES:
|
||||
:BEAMER_COL: 0.3
|
||||
:xBEAMER_ACT: <2->
|
||||
:xBEAMER_ENV: block
|
||||
:END:
|
||||
|
||||
|
||||
*** mes: A tiny Scheme interpreter in Hex [or simple C?]
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <2->
|
||||
:END:
|
||||
|
||||
*** mescc: A C compiler in Scheme, executed by Mes
|
||||
* Mes + CC =
|
||||
#+xATTR_LATEX: :=\linewidth
|
||||
#+xLATEX:\includegraphics[width=0.25\textwidth]{fsb-logo.png}
|
||||
#+LATEX:\rightskip=-3cm\includegraphics[width=0.2\textwidth]{fsb-logo-guile-guix-mes.png}
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <3->
|
||||
:END:
|
||||
|
||||
* Mes, what NOT?
|
||||
:PROPERTIES:
|
||||
:xBEAMER_ENV: note
|
||||
:END:
|
||||
|
||||
** Mes is a strategy
|
||||
* NOT a goal in itself -- only a means or proof of concept
|
||||
* NOT a general purpose Scheme -- close to R6RS
|
||||
* NOT an alternative for Guile -- reuse Guile modules
|
||||
|
||||
* Mes, WHY?
|
||||
|
||||
** Inspiration: what do you want?
|
||||
|
||||
*** Meaning, Autonomy, Co-Creation, Self-Realization
|
||||
* Discovering, Hacking, Motivating, Playing
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <2->
|
||||
:END:
|
||||
|
||||
*** A planet of enlightened beings
|
||||
# * Awakening of consciousness
|
||||
* Look inward
|
||||
* Be happy
|
||||
* Be helpful
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <3->
|
||||
:END:
|
||||
*** A world where all software is free
|
||||
* Support \ahref{https://gnu.org}{GNU}
|
||||
* Create free software
|
||||
# * Be patient, be wise
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <4->
|
||||
:END:
|
||||
|
||||
** Inspiration: when do you want it?
|
||||
|
||||
*** NOW!!!
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <2->
|
||||
:END:
|
||||
|
||||
** Inspiration
|
||||
|
||||
*** To finally run GNU
|
||||
* GuixSD: GNU in the flesh
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
|
||||
# * Michael Nielsen: \ahref{http://www.michaelnielsen.org/ddi/lisp-as-the-maxwells-equations-of-software}{Lisp as the Maxwell's Equations of Software}
|
||||
|
||||
# *** recap the 4 freedoms
|
||||
# :PROPERTIES:
|
||||
# :BEAMER_ACT: <3->
|
||||
# :END:
|
||||
|
||||
** 1941: The \ahref{https://en.wikipedia.org/wiki/Four_Freedoms}{Four Freedoms}
|
||||
:PROPERTIES:
|
||||
:BEAMER_ENV: note
|
||||
:END:
|
||||
*** for all people on our planet
|
||||
|
||||
* Freedom of speech
|
||||
* Freedom of worship
|
||||
* Freedom from want
|
||||
* Freedom from fear
|
||||
|
||||
-- Franklin D. Roosevelt
|
||||
|
||||
** 1984 Four Software Freedoms: GNU GPL
|
||||
:PROPERTIES:
|
||||
:xBEAMER_ENV: note
|
||||
:END:
|
||||
*** The freedom to
|
||||
|
||||
* 0 run the program as you wish, for any purpose
|
||||
* 1 study how the program works, and change it if you wish
|
||||
* 2 redistribute copies so you can help your neighbor
|
||||
* 3 share copies of your modified versions with others
|
||||
|
||||
-- Richard M. Stallman
|
||||
|
||||
# 1: Access to the source code is a precondition for this.
|
||||
|
||||
# 3: By doing this you can give the whole community a chance to benefit
|
||||
# from your changes. Access to the source code is a precondition for
|
||||
# this.
|
||||
|
||||
** 2013 Debian's \ahref{https://reproducible-builds.org}{reproducible-builds.org}
|
||||
|
||||
*** Verifiable path: source -> binary
|
||||
Reproducible builds are a set of software development practices that
|
||||
create a verifiable path from human readable source code to the binary
|
||||
code used by computers.
|
||||
|
||||
*** Does this binary come from the given source?
|
||||
* Always different binary...dunno?
|
||||
* Same binary
|
||||
* Always good, always bad?
|
||||
|
||||
** 2015 GuixSD \ahref{https://www.gnu.org/software/guix/news/reproducible-builds-a-means-to-an-end.html}{Reproducible builds: a means to an end}
|
||||
|
||||
# GNU Guix is committed to improving the freedom and autonomy of
|
||||
# computer users. This obviously manifests in the fact that GuixSD is a
|
||||
# fully free distro, and this is what GNU stands for. All the packages
|
||||
# in Guix are built from source, including things like firmware where
|
||||
# there is an unfortunate tendency to use pre-built binaries; that way,
|
||||
# users can know what software they run. On the technical side, Guix
|
||||
# also tries hard to empower users by making the whole system as
|
||||
# hackable as possible, in a uniform way—making Freedom #1 practical, à
|
||||
# la Emacs.
|
||||
|
||||
*** A technical means to an end
|
||||
* guarantee user autonomy and safety
|
||||
* GNU+GuixSD: fully free distro
|
||||
* NixOS: fully isolated build environment
|
||||
* NixOS: full list of dependencies
|
||||
* reproducible builds: bit-for-bit identical binaries
|
||||
|
||||
-- Ludovic Courtès
|
||||
|
||||
** 2016 From GuixSD to Mes: The bootstrap binaries
|
||||
|
||||
*** GuixSD ... source
|
||||
* source/binary transparency
|
||||
* all is built from source
|
||||
* *EVERYTHING*
|
||||
* starting from the ... *bootstrap binaries*
|
||||
|
||||
|
||||
The distribution is fully “bootstrapped” and “self-contained”: each
|
||||
package is built based solely on other packages in the distribution.
|
||||
|
||||
The root of this dependency graph is a small set of “bootstrap
|
||||
binaries”, provided by the ‘(gnu packages bootstrap)’ module. For more
|
||||
information on bootstrapping, *note Bootstrapping::.
|
||||
|
||||
|
||||
[2010]: Eelco Dolstra, Andres Löh, and Nicolas Pierron described
|
||||
sources of non-determinism in their 2010 JFP paper about NixOS
|
||||
|
||||
|
||||
** GuixSD bootstrap graph
|
||||
|
||||
#+LATEX:\includegraphics[width=0.8\textwidth]{bootstrap-graph.png}
|
||||
|
||||
|
||||
** GuixSD bootstrap tarballs
|
||||
#+BEGIN_SRC bash
|
||||
$ du -schx $(readlink $(guix build bootstrap-tarballs)/*)
|
||||
2.1M /gnu/store/mzk1bc3pfrrf4qnfs3zkj5ch83srnvpx-binutils-static-stripped-tarball-2.27/binutils-static-stripped-2.27-x86_64-linux.tar.xz
|
||||
16M /gnu/store/jddviycivycfhaqahqff6n18y9w46gpz-gcc-stripped-tarball-4.9.4/gcc-stripped-4.9.4-x86_64-linux.tar.xz
|
||||
1.7M /gnu/store/x5zrmh820yc054w00cy00iixwghmly2y-glibc-stripped-tarball-2.24/glibc-stripped-2.24-x86_64-linux.tar.xz
|
||||
3.1M /gnu/store/znsf5d7xbqkp4rrjgzsklmwmms8m5i3m-guile-static-stripped-tarball-2.0.12/guile-static-stripped-2.0.12-x86_64-linux.tar.xz
|
||||
5.7M /gnu/store/myfikfgx74dzlm3lc217kchxnckri5qq-static-binaries-tarball-0/static-binaries-0-x86_64-linux.tar.xz
|
||||
28M total
|
||||
$ for i in $(readlink $(guix build bootstrap-tarballs)/*);\
|
||||
do sudo tar xf $i; done
|
||||
$ du -schx *
|
||||
125M bin
|
||||
13M include
|
||||
18M lib
|
||||
43M libexec
|
||||
4.3M share
|
||||
202M total
|
||||
#+END_SRC
|
||||
|
||||
|
||||
** Inspiration
|
||||
|
||||
*** To finally run GNU
|
||||
* GuixSD: GNU in the flesh
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
*** Bootstrap binaries: source all the way down?
|
||||
* OriansJ: \ahref{https://github.com/oriansj/stage0}{self-hosting hex assembler}
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
*** The computer revolution hasn't happened yet
|
||||
* Alan Kay
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <2->
|
||||
:END:
|
||||
The computer revolution is very new, and all of the good ideas have
|
||||
not been universally implemented
|
||||
|
||||
** Bootstrapping: Chicken and Egg
|
||||
|
||||
#+LATEX:\includegraphics[width=0.3\textwidth]{egg.png}
|
||||
|
||||
** Inspiration
|
||||
|
||||
*** To finally run GNU
|
||||
* GuixSD: GNU in the flesh
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
*** Bootstrap binaries: source all the way down?
|
||||
* OriansJ: \ahref{https://github.com/oriansj/stage0}{self-hosting hex assembler}
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
*** The computer revolution hasn't happened yet
|
||||
* Alan Kay
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
The computer revolution is very new, and all of the good ideas have
|
||||
not been universally implemented
|
||||
*** \ahref{http://queue.acm.org/detail.cfm?id=1039523}{LISP as the Maxwell's Equations of Software}
|
||||
:PROPERTIES:
|
||||
:BEAMER_ACT: <1->
|
||||
:END:
|
||||
That was the big revelation to me when I [..] finally understood that
|
||||
the half page of code on the bottom of page 13 of the Lisp 1.5 manual
|
||||
was Lisp in itself. These were “Maxwell’s Equations of Software!”
|
||||
|
||||
* \ahref{http://www.softwarepreservation.org/projects/LISP/book/LISP\%25201.5\%2520Programmers\%2520Manual.pdf}{LISP-1.5}: page 13
|
||||
|
||||
|
||||
** Chicken and Egg
|
||||
|
||||
* the shortest path from hex to gcc
|
||||
* using Maxwell's Equations of Software
|
||||
|
||||
** Bootstrapping: Chicken and Egg
|
||||
|
||||
#+LATEX:\includegraphics[width=0.3\textwidth]{mes.png}
|
||||
|
||||
|
||||
* Mes: HOW?
|
||||
|
||||
** LISP-1.5 John McCarthy: page 13
|
||||
|
||||
# convert -density 150 -quality 100 -flatten -sharpen 0x1.0 LISP-1.5-page-13.pdf LISP-1.5-page-13.png
|
||||
#+BEGIN_COMMENT
|
||||
[[file:LISP-1-5-page-13-bottom.png][LISP-1.5 page 13 bottom]]
|
||||
#+END_COMMENT
|
||||
|
||||
#+ATTR_LATEX: :width=\linewidth
|
||||
#+LATEX:\includegraphics[width=\textwidth]{LISP-1-5-page-13-bottom.png}
|
||||
|
||||
** Eval/Apply
|
||||
* core
|
||||
* apply
|
||||
* eval
|
||||
* helpers
|
||||
* assoc
|
||||
* pairlis
|
||||
* evcon
|
||||
* evlis
|
||||
* primitives
|
||||
* atom
|
||||
* car
|
||||
* cdr
|
||||
* cons
|
||||
* eq
|
||||
|
||||
** LISP-1.5 in Guile Scheme: APPLY
|
||||
|
||||
#+BEGIN_SRC scheme
|
||||
(define (apply fn x a)
|
||||
(cond
|
||||
((atom fn)
|
||||
(cond
|
||||
((eq fn CAR) (caar x))
|
||||
((eq fn CDR) (cdar x))
|
||||
((eq fn CONS) (cons (car x) (cadr x)))
|
||||
((eq fn ATOM) (atom (car x)))
|
||||
((eq fn EQ) (eq (car x) (cadr x)))
|
||||
(#t (apply (eval fn a) x a))))
|
||||
((eq (car fn) LAMBDA)
|
||||
(eval (caddr fn) (pairlis (cadr fn) x a)))
|
||||
((eq (car fn) LABEL)
|
||||
(apply (caddr fn) x (cons (cons (cadr fn)
|
||||
(caddr fn))
|
||||
a)))))
|
||||
#+END_SRC
|
||||
|
||||
** LISP-1.5 in Guile Scheme: EVAL
|
||||
|
||||
#+BEGIN_SRC scheme
|
||||
(define (eval e a)
|
||||
(cond
|
||||
((atom e) (cdr (assoc e a)))
|
||||
((atom (car e))
|
||||
(cond ((eq (car e) QUOTE) (cadr e))
|
||||
((eq (car e) COND) (evcon (cdr e) a))
|
||||
(#t (apply (car e)
|
||||
(evlis (cdr e) a) a))))
|
||||
(#t (apply (car e) (evlis (cdr e) a) a))))
|
||||
#+END_SRC
|
||||
|
||||
** LISP-1.5 in Scheme: ASSOC, PAIRLIS, EVCON, EVLIS
|
||||
|
||||
#+BEGIN_SRC scheme
|
||||
(define (assoc x a)
|
||||
(cond ((eq (caar a) x) (car a))
|
||||
(#t (assoc x (cdr a)))))
|
||||
|
||||
(define (pairlis x y a)
|
||||
(cond ((null x) a)
|
||||
(#t (cons (cons (car x) (car y))
|
||||
(pairlis (cdr x) (cdr y) a)))))
|
||||
|
||||
(define (evcon c a)
|
||||
(cond ((eval (caar c) a) (eval (cadar c) a))
|
||||
(#t (evcon (cdr c) a))))
|
||||
|
||||
(define (evlis m a)
|
||||
(cond ((null m) NIL)
|
||||
(#t (cons (eval (car m) a) (evlis (cdr m) a)))))
|
||||
#+END_SRC
|
||||
|
||||
|
||||
** LISP-1.5 in C
|
||||
|
||||
* closures
|
||||
* symbols
|
||||
* specials? =()= =#t= =#f= =*unspecified*= =*undefined*=
|
||||
* macros
|
||||
* syntax-rules
|
||||
* records
|
||||
* modules/importing
|
||||
|
||||
** Garbage/Jam Collector
|
||||
|
||||
*** Abelson & Sussman
|
||||
With a real computer we will eventually run out of free
|
||||
space in which to construct new pairs.(1)
|
||||
|
||||
*** footnote(1)
|
||||
|
||||
This may not be true eventually, because memories may get large
|
||||
enough so that it would be impossible to run out of free memory in the
|
||||
lifetime of the computer. For example, there are about {3\cdot10^{13}}
|
||||
microseconds in a year, so if we were to ‘cons’ once per microsecond we
|
||||
would need about 10^{15} cells of memory to build a machine that could
|
||||
operate for 30 years without running out of memory.
|
||||
|
||||
|
||||
** C parser: roll your own LALR
|
||||
|
||||
*** Lalr
|
||||
* minimal ANSI-C parser
|
||||
|
||||
=int main (){puts ("Hello, world!");return 0;}=
|
||||
|
||||
** C parser: Nyacc
|
||||
*** Pros
|
||||
* full C99 parser
|
||||
* ...including C pre-processor
|
||||
* perspective of building complete C compiler in Guile
|
||||
* tsunami of enthusiasm and contributors!
|
||||
|
||||
** C parser: Nyacc
|
||||
|
||||
*** Cons: more TODO for Mes
|
||||
* keywords
|
||||
* =define*=, =lambda*=
|
||||
* optargs
|
||||
* exeptions, =catch=, =throw=
|
||||
* =call/cc=
|
||||
* fluids, =with-fluid=
|
||||
* =syntax-case=
|
||||
* André van Tonder's 2006-2007 streak in 14 "commits"
|
||||
* psyntax: another bootstrap loop?!
|
||||
* R7RS's Ellipsis
|
||||
* Guile-1.8
|
||||
* =#;=-comments
|
||||
* =#||#=-comments
|
||||
|
||||
** C parser: Nyacc
|
||||
|
||||
*** Cons: more TODO for Mes
|
||||
|
||||
* Cond supports ==>=
|
||||
* Bugfixes
|
||||
* Cond now evaluates its test clauses only once
|
||||
* Append can also handle one argument
|
||||
* For-each now supports 2 list arguments
|
||||
* Map now supports 3 list arguments
|
||||
* Backslash in string is supported
|
||||
* Closure is not a pair
|
||||
* All standard characters are supported
|
||||
|
||||
* 36 new functions
|
||||
#+BEGIN_SRC scheme
|
||||
1+, 1-, abs, and=>, append-reverse, ash, char<\=?, char<?,
|
||||
char>=?, char>?, even?, filter, delete, delq, vector-copy,
|
||||
fold, fold-right, getenv, iota, keyword->symbol list-head,
|
||||
list-tail, negative?, odd?, positive?, remove!, remove,
|
||||
string->number, string-copy, string-prefix?, string=,
|
||||
string=?, symbol->keyword symbol-append, symbol-prefix?,
|
||||
unless, write, zero?
|
||||
#+END_SRC
|
||||
|
||||
* Mes: WHERE?
|
||||
|
||||
|
||||
** Timeline
|
||||
|
||||
*** June 19: \ahref{https://lists.gnu.org/archive/html/guile-user/2016-06/msg00061.html}{on bootstrapping: introducing Mes}
|
||||
# https://gnunet.org/bot/log/guile/2016-05-19
|
||||
* LISP-1.5 in Scheme and in C
|
||||
*** September 25: \ahref{https://lists.gnu.org/archive/html/guile-user/2016-09/msg00061.html}{on bootstrapping: 2nd status report on Mes}
|
||||
# https://gnunet.org/bot/log/guile/2016-09-25
|
||||
* Scheme primitives in C, closures, macros, 97 tests, LALR
|
||||
* Produce ELF binary from
|
||||
#+BEGIN_SRC C
|
||||
int main ()
|
||||
{
|
||||
int i;
|
||||
puts ("Hi Mes!\n");
|
||||
for (i = 0; i < 4; ++i)
|
||||
puts (" Hello, world!\n");
|
||||
return 1;
|
||||
}
|
||||
#+END_SRC
|
||||
* in 1'20"
|
||||
|
||||
** Timeline
|
||||
|
||||
*** October 23: 0.1 [not announced]
|
||||
* =let-syntax=, =match=
|
||||
* compile main.c in 2s (was 1'20")
|
||||
* add REPL
|
||||
|
||||
*** November 21: 0.2 [not announced]
|
||||
* psyntax integration, =syntax-case=, =load=
|
||||
|
||||
*** December 12: \ahref{https://lists.gnu.org/archive/html/guile-user/2016-12/msg00008.html}{on bootstrapping: first Mes 0.3 released}
|
||||
# https://gnunet.org/bot/log/guile/2016-12-12
|
||||
* Garbage Collector/Jam Scraper
|
||||
|
||||
*** December 25: \ahref{https://lists.gnu.org/archive/html/guile-user/2016-12/msg00041.html}{Mes 0.4 released}
|
||||
# https://gnunet.org/bot/log/guile/2016-12-25
|
||||
* run Nyacc, PEG, reduced core
|
||||
|
||||
** Status
|
||||
|
||||
*** core C prototype: 1150 lines
|
||||
*** non-essential C sources:
|
||||
#+BEGIN_SRC bash
|
||||
210 lib.c
|
||||
157 math.c
|
||||
126 posix.c
|
||||
134 reader.c
|
||||
627 total
|
||||
#+END_SRC
|
||||
|
||||
** Status
|
||||
*** tiny-mes.c: 270 lines
|
||||
* compiles with mescc
|
||||
* i386-lib: =i386:exit=, =i3886:open=, =i386:read=, =i386:write=
|
||||
* tiny-libc: =getchar=, =putchar=, =puts=, =strcmp=, =strlen=
|
||||
* runs
|
||||
#+BEGIN_SRC bash
|
||||
Hello tiny-mes!
|
||||
reading: module/mes/hack-32.mo
|
||||
MES *GOT MES*
|
||||
(#\A(#\B))
|
||||
#+END_SRC
|
||||
|
||||
** Status
|
||||
|
||||
*** mini-mes.c: 800 lines
|
||||
* 12kB binary
|
||||
* 2500 lines assembly
|
||||
* runs with gcc
|
||||
#+BEGIN_SRC bash
|
||||
Hello mini-mes!
|
||||
reading: module/mes/hack-32.mo
|
||||
MES *GOT MES*
|
||||
cells read: 19
|
||||
symbols: 1
|
||||
program[10]: (cons(0(1)))
|
||||
(0 . 1)
|
||||
#+END_SRC
|
||||
* compiles with mescc
|
||||
* 83 statements skipped
|
||||
|
||||
** Status
|
||||
|
||||
***
|
||||
|
||||
#+BEGIN_SRC bash
|
||||
01:16:51 janneke@dundal:~/src/mes
|
||||
$ guix package -f guix.scm
|
||||
The following package will be upgraded:
|
||||
mes 0.4.f84e97fc -> 0.4.f84e97fc /gnu/store/2fsy1cd24pnwkv7a1zd0anzk3zz8ysdn-mes-0.4.f84e97fc
|
||||
|
||||
#+END_SRC
|
||||
|
||||
|
||||
|
||||
** Misc
|
||||
:PROPERTIES:
|
||||
:BEAMER_ENV: note
|
||||
:END:
|
||||
|
||||
civodul
|
||||
|
||||
Impressive!
|
||||
|
||||
Is it a goal to try interpret a language as close as possible to that of
|
||||
Guile, and have the same libraries? I guess that could help in the
|
||||
future: we could use (system base lalr), nyacc, etc.
|
||||
|
||||
Also, currently there’s approximately 2K lines of C. How do you plan to
|
||||
make sure that it doesn’t grow over time, or even that it shrinks? :-)
|
||||
|
||||
This all sounds very promising, thanks a lot!
|
||||
|
||||
arnebab
|
||||
|
||||
This is really cool! Thank you for your work!
|
||||
|
||||
> How do you compile the interpreter?
|
||||
|
||||
paroneayea/cwebber
|
||||
First, I'm really excited you're making progress on Mes!
|
||||
|
||||
> Second, Scheme48 did something similar to this, called "Pre-Scheme",
|
||||
which is how they bootstrapped Scheme48 iirc. Have you heard of it or
|
||||
looked at it?
|
||||
|
||||
https://en.wikipedia.org/wiki/PreScheme
|
||||
|
||||
* PreScheme in Scheme48
|
||||
* \ahref{http://canonical.org/~kragen/sw/urscheme/}{Ur-Scheme}
|
||||
R5RS to x86 Assembly
|
||||
|
||||
** What's next?
|
||||
|
||||
* psyntax
|
||||
* source or binary?
|
||||
* alternative syntax-case?
|
||||
* rewrite Nyacc without syntax-case, R7RS-ellipsis?
|
||||
* call/cc vs eval/apply/evlis?
|
||||
* merge with Guile?
|
||||
* compile Guile or compile Gcc?
|
||||
* prototype? in C
|
||||
* move from C to Hex?
|
||||
* move from C to [Pre]Scheme
|
||||
|
||||
** Thanks
|
||||
*** Thanks :B_block:BMCOL:
|
||||
:PROPERTIES:
|
||||
:BEAMER_COL: 0.48
|
||||
:BEAMER_ENV: block
|
||||
:END:
|
||||
* John McCarthy
|
||||
* Richard Stallman
|
||||
* Eelco Dolstra
|
||||
* Ludovic Courtès
|
||||
* Rutger van Beusekom
|
||||
* Christopher A. Webber
|
||||
*** Thanks everyone else :B_block:BMCOL:
|
||||
:PROPERTIES:
|
||||
:BEAMER_COL: 0.48
|
||||
:xBEAMER_ACT: <2->
|
||||
:BEAMER_ENV: block
|
||||
:END:
|
||||
* LISP-1.5
|
||||
* GNU
|
||||
* NixOS
|
||||
* Debian reproducible builds
|
||||
* GuixSD
|
||||
* FOSDEM
|
||||
*** Connect
|
||||
* irc freenode.net [[irc://guix@freenode.net][#guix]] [[irc://guile@freenode.net][#guile]]
|
||||
* mail [[mailto://guile-user@gnu.org][guile-user@gnu.org]]
|
||||
* git [[https://gitlab.com/janneke/mes][git@gitlab.com:janneke/mes.git]]
|
||||
|
||||
# * Copying
|
||||
# :PROPERTIES:
|
||||
# :COPYING: t
|
||||
# :END:
|
||||
|
||||
# Copyright \copy 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||||
|
||||
# C-c C-e l b (org-beamer-export-to-latex)
|
||||
# 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.
Binary file not shown.
|
Before Width: | Height: | Size: 300 KiB |
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 222 KiB |
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 222 KiB |
|
|
@ -1,44 +0,0 @@
|
|||
11:12:26 janneke@dundal:~/src/mes/doc
|
||||
$ guix build bootstrap-tarballs
|
||||
substitute: updating list of substitutes from 'http://mirror.hydra.gnu.org'... 100.0%
|
||||
The following files will be downloaded:
|
||||
/gnu/store/6bym1yf3x500dhzc3z8lqk0frnd5qcka-bootstrap-tarballs-0
|
||||
/gnu/store/jddviycivycfhaqahqff6n18y9w46gpz-gcc-stripped-tarball-4.9.4
|
||||
/gnu/store/myfikfgx74dzlm3lc217kchxnckri5qq-static-binaries-tarball-0
|
||||
/gnu/store/mzk1bc3pfrrf4qnfs3zkj5ch83srnvpx-binutils-static-stripped-tarball-2.27
|
||||
/gnu/store/x5zrmh820yc054w00cy00iixwghmly2y-glibc-stripped-tarball-2.24
|
||||
/gnu/store/znsf5d7xbqkp4rrjgzsklmwmms8m5i3m-guile-static-stripped-tarball-2.0.12
|
||||
@ substituter-started /gnu/store/mzk1bc3pfrrf4qnfs3zkj5ch83srnvpx-binutils-static-stripped-tarball-2.27 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/mzk1bc3pfrrf4qnfs3zkj5ch83srnvpx-binutils-static-stripped-tarball-2.27 (2.0MiB installed)...
|
||||
binutils-static-stripped-tarball-2.27 3.5MiB/s 00:01 | 2.0MiB transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/mzk1bc3pfrrf4qnfs3zkj5ch83srnvpx-binutils-static-stripped-tarball-2.27
|
||||
@ substituter-started /gnu/store/jddviycivycfhaqahqff6n18y9w46gpz-gcc-stripped-tarball-4.9.4 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/jddviycivycfhaqahqff6n18y9w46gpz-gcc-stripped-tarball-4.9.4 (15.5MiB installed)...
|
||||
gcc-stripped-tarball-4.9.4 4.0MiB/s 00:04 | 15.5MiB transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/jddviycivycfhaqahqff6n18y9w46gpz-gcc-stripped-tarball-4.9.4
|
||||
@ substituter-started /gnu/store/x5zrmh820yc054w00cy00iixwghmly2y-glibc-stripped-tarball-2.24 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/x5zrmh820yc054w00cy00iixwghmly2y-glibc-stripped-tarball-2.24 (1.6MiB installed)...
|
||||
glibc-stripped-tarball-2.24 697KiB/s 00:02 | 1.6MiB transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/x5zrmh820yc054w00cy00iixwghmly2y-glibc-stripped-tarball-2.24
|
||||
@ substituter-started /gnu/store/znsf5d7xbqkp4rrjgzsklmwmms8m5i3m-guile-static-stripped-tarball-2.0.12 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/znsf5d7xbqkp4rrjgzsklmwmms8m5i3m-guile-static-stripped-tarball-2.0.12 (3.1MiB installed)...
|
||||
guile-static-stripped-tarball-2.0.12 3.2MiB/s 00:01 | 3.1MiB transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/znsf5d7xbqkp4rrjgzsklmwmms8m5i3m-guile-static-stripped-tarball-2.0.12
|
||||
@ substituter-started /gnu/store/myfikfgx74dzlm3lc217kchxnckri5qq-static-binaries-tarball-0 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/myfikfgx74dzlm3lc217kchxnckri5qq-static-binaries-tarball-0 (5.7MiB installed)...
|
||||
static-binaries-tarball-0 4.1MiB/s 00:01 | 5.7MiB transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/myfikfgx74dzlm3lc217kchxnckri5qq-static-binaries-tarball-0
|
||||
@ substituter-started /gnu/store/6bym1yf3x500dhzc3z8lqk0frnd5qcka-bootstrap-tarballs-0 /gnu/store/9hhljacc22jppmjx57xc7c46by10y8gh-guix-0.12.0-4.d9da/libexec/guix/substitute
|
||||
Downloading http://mirror.hydra.gnu.org/nar/6bym1yf3x500dhzc3z8lqk0frnd5qcka-bootstrap-tarballs-0 (2KiB installed)...
|
||||
bootstrap-tarballs-0 385KiB/s 00:00 | 520B transferred
|
||||
|
||||
@ substituter-succeeded /gnu/store/6bym1yf3x500dhzc3z8lqk0frnd5qcka-bootstrap-tarballs-0
|
||||
/gnu/store/6bym1yf3x500dhzc3z8lqk0frnd5qcka-bootstrap-tarballs-0
|
||||
12:05:09 janneke@dundal:~/src/mes/doc
|
||||
$ 12:05:09 janneke@dundal:~/src/mes/doc
|
||||
$
|
||||
Binary file not shown.
|
Before Width: | Height: | Size: 96 KiB |
Binary file not shown.
Loading…
Reference in New Issue