From 7ebe7cd9c81250918ccbc7a361ec15277e4add3d Mon Sep 17 00:00:00 2001 From: Mike Gerwitz Date: Wed, 12 Sep 2018 21:44:02 -0400 Subject: [PATCH] birth, rebirth: Update header style of Lisp files This is consistent with Guile and can be parsed with `(ice-9 documentation)'. * bootstrap/birth.scm: Update header. * bootstrap/rebirth.scm: Likewise. * bootstrap/rebirth/es.scm: Likewise. * bootstrap/rebirth/macro.scm: Likewise. * bootstrap/rebirth/relibprebirth.scm: Likewise. --- bootstrap/birth.scm | 48 +++++++++++++++----------- bootstrap/rebirth.scm | 52 +++++++++++++++++------------ bootstrap/rebirth/es.scm | 48 +++++++++++++++----------- bootstrap/rebirth/macro.scm | 48 +++++++++++++++----------- bootstrap/rebirth/relibprebirth.scm | 48 +++++++++++++++----------- 5 files changed, 147 insertions(+), 97 deletions(-) diff --git a/bootstrap/birth.scm b/bootstrap/birth.scm index 420a915..33db85e 100644 --- a/bootstrap/birth.scm +++ b/bootstrap/birth.scm @@ -1,22 +1,27 @@ -;;; Prebirth Lisp implemented in Prebirth Lisp (self-hosting) -;;; -;;; Copyright (C) 2017, 2018 Mike Gerwitz -;;; -;;; This file is part of Ulambda Scheme. -;;; -;;; Ulambda Scheme is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program 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 Affero General Public License -;;; along with this program. If not, see . -;;; +;;;; Prebirth Lisp implemented in Prebirth Lisp (self-hosting) +;;;; +;;;; Copyright (C) 2017, 2018 Mike Gerwitz +;;;; +;;;; This file is part of Ulambda Scheme. +;;;; +;;;; Ulambda Scheme is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU Affero General Public License as +;;;; published by the Free Software Foundation, either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 Affero General Public License +;;;; along with this program. If not, see . +;;;; + + + +;;; Commentary: + ;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN REBIRTH LISP ITSELF ;;; after a very basic bootstrap is complete. It is retained as an ;;; important artifact for those who wish to build Ulambda Scheme from @@ -41,6 +46,11 @@ ;;; that completely, which bootstraps the runtime in its entirety. At that ;;; point, all development will be exclusively in Scheme and we can get on ;;; with Ulambda Scheme. +;;; + +;;; Code: + + ;; pair selection (define (cadr xs) diff --git a/bootstrap/rebirth.scm b/bootstrap/rebirth.scm index 2d89866..30fcbdd 100644 --- a/bootstrap/rebirth.scm +++ b/bootstrap/rebirth.scm @@ -1,22 +1,27 @@ -;;; Rebirth Lisp implemented in Birth and Rebirth Lisp (self-hosting) -;;; -;;; Copyright (C) 2017, 2018 Mike Gerwitz -;;; -;;; This file is part of Ulambda Scheme. -;;; -;;; Ulambda Scheme is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program 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 Affero General Public License -;;; along with this program. If not, see . -;;; +;;;; Rebirth Lisp implemented in Birth and Rebirth Lisp (self-hosting) +;;;; +;;;; Copyright (C) 2017, 2018 Mike Gerwitz +;;;; +;;;; This file is part of Ulambda Scheme. +;;;; +;;;; Ulambda Scheme is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU Affero General Public License as +;;;; published by the Free Software Foundation, either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 Affero General Public License +;;;; along with this program. If not, see . +;;;; + + + +;;; Commentary: + ;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN ULAMBDA SCHEME after a ;;; very basic bootstrap is complete. It is retained as an important ;;; artifact for those who wish to build Ulambda Scheme from scratch without @@ -58,8 +63,13 @@ ;;; used, so those appear at the top of this file, despite their definitions ;;; not being supported until future passes. ;;; -;;; So, to begin, goto STEP 0! ----------------, -;;; V + +;;; Code: + + + +;; So, to begin, goto STEP 0! ----------------, +;; V (cond-expand (include (include "rebirth/es.scm") ;; STEP 2 (start at STEP 0) <--, diff --git a/bootstrap/rebirth/es.scm b/bootstrap/rebirth/es.scm index b847d14..1a46c8d 100644 --- a/bootstrap/rebirth/es.scm +++ b/bootstrap/rebirth/es.scm @@ -1,22 +1,27 @@ -;;; ECMAScript Target Compiler Macros for Rebirth Lisp -;;; -;;; Copyright (C) 2017, 2018 Mike Gerwitz -;;; -;;; This file is part of Ulambda Scheme. -;;; -;;; Ulambda Scheme is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program 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 Affero General Public License -;;; along with this program. If not, see . -;;; +;;;; ECMAScript Target Compiler Macros for Rebirth Lisp +;;;; +;;;; Copyright (C) 2017, 2018 Mike Gerwitz +;;;; +;;;; This file is part of Ulambda Scheme. +;;;; +;;;; Ulambda Scheme is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU Affero General Public License as +;;;; published by the Free Software Foundation, either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 Affero General Public License +;;;; along with this program. If not, see . +;;;; + + + +;;; Commentary: + ;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; ;;; @@ -63,6 +68,11 @@ ;;; forms, re-arranged as needed for compilation (see limitations of ;;; `cdfn-macro'), so all changes are clearly visible in the repository ;;; history. +;;; + +;;; Code: + + (cond-expand (cdfn-macro diff --git a/bootstrap/rebirth/macro.scm b/bootstrap/rebirth/macro.scm index 732a144..da5abec 100644 --- a/bootstrap/rebirth/macro.scm +++ b/bootstrap/rebirth/macro.scm @@ -1,22 +1,27 @@ -;;; Macro support for Rebirth Lisp -;;; -;;; Copyright (C) 2017, 2018 Mike Gerwitz -;;; -;;; This file is part of Ulambda Scheme. -;;; -;;; Ulambda Scheme is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program 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 Affero General Public License -;;; along with this program. If not, see . -;;; +;;;; Macro support for Rebirth Lisp +;;;; +;;;; Copyright (C) 2017, 2018 Mike Gerwitz +;;;; +;;;; This file is part of Ulambda Scheme. +;;;; +;;;; Ulambda Scheme is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU Affero General Public License as +;;;; published by the Free Software Foundation, either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 Affero General Public License +;;;; along with this program. If not, see . +;;;; + + + +;;; Commentary: + ;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; ;;; @@ -53,6 +58,11 @@ ;;; This implementation is very simple---there's very little code but a ;;; great deal of comments. They describe important caveats and hopefully ;;; enlighten the curious reader. +;;; + +;;; Code: + + (cond-expand (string->es diff --git a/bootstrap/rebirth/relibprebirth.scm b/bootstrap/rebirth/relibprebirth.scm index 4070455..596f19c 100644 --- a/bootstrap/rebirth/relibprebirth.scm +++ b/bootstrap/rebirth/relibprebirth.scm @@ -1,22 +1,27 @@ -;;; libprebirth Replacement for Rebirth Lisp -;;; -;;; Copyright (C) 2017, 2018 Mike Gerwitz -;;; -;;; This file is part of Ulambda Scheme. -;;; -;;; Ulambda Scheme is free software: you can redistribute it and/or modify -;;; it under the terms of the GNU Affero General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program 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 Affero General Public License -;;; along with this program. If not, see . -;;; +;;;; libprebirth Replacement for Rebirth Lisp +;;;; +;;;; Copyright (C) 2017, 2018 Mike Gerwitz +;;;; +;;;; This file is part of Ulambda Scheme. +;;;; +;;;; Ulambda Scheme is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU Affero General Public License as +;;;; published by the Free Software Foundation, either version 3 of the +;;;; License, or (at your option) any later version. +;;;; +;;;; This program 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 Affero General Public License +;;;; along with this program. If not, see . +;;;; + + + +;;; Commentary: + ;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; ;;; @@ -39,6 +44,11 @@ ;;; Some of these definitions aren't valid: variable arguments, for ;;; example, aren't represented _at all_---the `define' form will be ;;; properly implemented in the future to correct this. +;;; + +;;; Code: + + (cond-expand (string->es