mikegerwitz
/
ulambda
1
0
Fork 0
Code Releases Activity

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.
master
Mike Gerwitz 2018-09-12 21:44:02 -04:00
parent cf73eb4a31
commit 7ebe7cd9c8
Signed by: mikegerwitz
GPG Key ID: 8C917B7F5DC51BA2
5 changed files with 147 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
bootstrap/birth.scm
View File

@ -1,22 +1,27 @@
;;; Prebirth Lisp implemented in Prebirth Lisp (self-hosting) ;;;; Prebirth Lisp implemented in Prebirth Lisp (self-hosting)
;;; ;;;;
;;; Copyright (C) 2017, 2018 Mike Gerwitz ;;;; Copyright (C) 2017, 2018 Mike Gerwitz
;;; ;;;;
;;; This file is part of Ulambda Scheme. ;;;; This file is part of Ulambda Scheme.
;;; ;;;;
;;; Ulambda Scheme is free software: you can redistribute it and/or modify ;;;; Ulambda Scheme is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Affero General Public License as ;;;; it under the terms of the GNU Affero General Public License as
;;; published by the Free Software Foundation, either version 3 of the ;;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version. ;;;; License, or (at your option) any later version.
;;; ;;;;
;;; This program is distributed in the hope that it will be useful, ;;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details. ;;;; GNU General Public License for more details.
;;; ;;;;
;;; You should have received a copy of the GNU Affero General Public License ;;;; You should have received a copy of the GNU Affero General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; ;;;;
;;; Commentary:
;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN REBIRTH LISP ITSELF ;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN REBIRTH LISP ITSELF
;;; after a very basic bootstrap is complete. It is retained as an ;;; after a very basic bootstrap is complete. It is retained as an
;;; important artifact for those who wish to build Ulambda Scheme from ;;; 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 ;;; that completely, which bootstraps the runtime in its entirety. At that
;;; point, all development will be exclusively in Scheme and we can get on ;;; point, all development will be exclusively in Scheme and we can get on
;;; with Ulambda Scheme. ;;; with Ulambda Scheme.
;;;
;;; Code:
;; pair selection ;; pair selection
(define (cadr xs) (define (cadr xs)

52
bootstrap/rebirth.scm
View File

@ -1,22 +1,27 @@
;;; Rebirth Lisp implemented in Birth and Rebirth Lisp (self-hosting) ;;;; Rebirth Lisp implemented in Birth and Rebirth Lisp (self-hosting)
;;; ;;;;
;;; Copyright (C) 2017, 2018 Mike Gerwitz ;;;; Copyright (C) 2017, 2018 Mike Gerwitz
;;; ;;;;
;;; This file is part of Ulambda Scheme. ;;;; This file is part of Ulambda Scheme.
;;; ;;;;
;;; Ulambda Scheme is free software: you can redistribute it and/or modify ;;;; Ulambda Scheme is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Affero General Public License as ;;;; it under the terms of the GNU Affero General Public License as
;;; published by the Free Software Foundation, either version 3 of the ;;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version. ;;;; License, or (at your option) any later version.
;;; ;;;;
;;; This program is distributed in the hope that it will be useful, ;;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details. ;;;; GNU General Public License for more details.
;;; ;;;;
;;; You should have received a copy of the GNU Affero General Public License ;;;; You should have received a copy of the GNU Affero General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; ;;;;
;;; Commentary:
;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN ULAMBDA SCHEME after a ;;; THIS IS TEMPORARY CODE that will be REWRITTEN IN ULAMBDA SCHEME after a
;;; very basic bootstrap is complete. It is retained as an important ;;; very basic bootstrap is complete. It is retained as an important
;;; artifact for those who wish to build Ulambda Scheme from scratch without ;;; 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 ;;; used, so those appear at the top of this file, despite their definitions
;;; not being supported until future passes. ;;; not being supported until future passes.
;;; ;;;
;;; So, to begin, goto STEP 0! ----------------,
;;; V ;;; Code:
;; So, to begin, goto STEP 0! ----------------,
;; V
(cond-expand (cond-expand
(include (include
(include "rebirth/es.scm") ;; STEP 2 (start at STEP 0) <--, (include "rebirth/es.scm") ;; STEP 2 (start at STEP 0) <--,

48
bootstrap/rebirth/es.scm
View File

@ -1,22 +1,27 @@
;;; ECMAScript Target Compiler Macros for Rebirth Lisp ;;;; ECMAScript Target Compiler Macros for Rebirth Lisp
;;; ;;;;
;;; Copyright (C) 2017, 2018 Mike Gerwitz ;;;; Copyright (C) 2017, 2018 Mike Gerwitz
;;; ;;;;
;;; This file is part of Ulambda Scheme. ;;;; This file is part of Ulambda Scheme.
;;; ;;;;
;;; Ulambda Scheme is free software: you can redistribute it and/or modify ;;;; Ulambda Scheme is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Affero General Public License as ;;;; it under the terms of the GNU Affero General Public License as
;;; published by the Free Software Foundation, either version 3 of the ;;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version. ;;;; License, or (at your option) any later version.
;;; ;;;;
;;; This program is distributed in the hope that it will be useful, ;;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details. ;;;; GNU General Public License for more details.
;;; ;;;;
;;; You should have received a copy of the GNU Affero General Public License ;;;; You should have received a copy of the GNU Affero General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; ;;;;
;;; Commentary:
;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH.
;;; ;;;
;;; ;;;
@ -63,6 +68,11 @@
;;; forms, re-arranged as needed for compilation (see limitations of ;;; forms, re-arranged as needed for compilation (see limitations of
;;; `cdfn-macro'), so all changes are clearly visible in the repository ;;; `cdfn-macro'), so all changes are clearly visible in the repository
;;; history. ;;; history.
;;;
;;; Code:
(cond-expand (cond-expand
(cdfn-macro (cdfn-macro

48
bootstrap/rebirth/macro.scm
View File

@ -1,22 +1,27 @@
;;; Macro support for Rebirth Lisp ;;;; Macro support for Rebirth Lisp
;;; ;;;;
;;; Copyright (C) 2017, 2018 Mike Gerwitz ;;;; Copyright (C) 2017, 2018 Mike Gerwitz
;;; ;;;;
;;; This file is part of Ulambda Scheme. ;;;; This file is part of Ulambda Scheme.
;;; ;;;;
;;; Ulambda Scheme is free software: you can redistribute it and/or modify ;;;; Ulambda Scheme is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Affero General Public License as ;;;; it under the terms of the GNU Affero General Public License as
;;; published by the Free Software Foundation, either version 3 of the ;;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version. ;;;; License, or (at your option) any later version.
;;; ;;;;
;;; This program is distributed in the hope that it will be useful, ;;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details. ;;;; GNU General Public License for more details.
;;; ;;;;
;;; You should have received a copy of the GNU Affero General Public License ;;;; You should have received a copy of the GNU Affero General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; ;;;;
;;; Commentary:
;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; 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 ;;; This implementation is very simple---there's very little code but a
;;; great deal of comments. They describe important caveats and hopefully ;;; great deal of comments. They describe important caveats and hopefully
;;; enlighten the curious reader. ;;; enlighten the curious reader.
;;;
;;; Code:
(cond-expand (cond-expand
(string->es (string->es

48
bootstrap/rebirth/relibprebirth.scm
View File

@ -1,22 +1,27 @@
;;; libprebirth Replacement for Rebirth Lisp ;;;; libprebirth Replacement for Rebirth Lisp
;;; ;;;;
;;; Copyright (C) 2017, 2018 Mike Gerwitz ;;;; Copyright (C) 2017, 2018 Mike Gerwitz
;;; ;;;;
;;; This file is part of Ulambda Scheme. ;;;; This file is part of Ulambda Scheme.
;;; ;;;;
;;; Ulambda Scheme is free software: you can redistribute it and/or modify ;;;; Ulambda Scheme is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU Affero General Public License as ;;;; it under the terms of the GNU Affero General Public License as
;;; published by the Free Software Foundation, either version 3 of the ;;;; published by the Free Software Foundation, either version 3 of the
;;; License, or (at your option) any later version. ;;;; License, or (at your option) any later version.
;;; ;;;;
;;; This program is distributed in the hope that it will be useful, ;;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details. ;;;; GNU General Public License for more details.
;;; ;;;;
;;; You should have received a copy of the GNU Affero General Public License ;;;; You should have received a copy of the GNU Affero General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>. ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; ;;;;
;;; Commentary:
;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH. ;;; THIS IS BOOTSTRAP CODE INTENDED FOR USE ONLY IN REBIRTH.
;;; ;;;
;;; ;;;
@ -39,6 +44,11 @@
;;; Some of these definitions aren't valid: variable arguments, for ;;; Some of these definitions aren't valid: variable arguments, for
;;; example, aren't represented _at all_---the `define' form will be ;;; example, aren't represented _at all_---the `define' form will be
;;; properly implemented in the future to correct this. ;;; properly implemented in the future to correct this.
;;;
;;; Code:
(cond-expand (cond-expand
(string->es (string->es