added missing copyrights from scheme files.

This commit is contained in:
Abdulaziz Ghuloum 2009-01-09 11:40:55 +03:00
parent f6333ff13b
commit 0ec9c9536e
17 changed files with 274 additions and 22 deletions

View File

@ -1,4 +1,19 @@
#!../src/ikarus -b ../scheme/ikarus.boot --r6rs-script #!../src/ikarus -b ../scheme/ikarus.boot --r6rs-script
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2006,2007,2008 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(import (ikarus)) (import (ikarus))
(optimize-level 2) (optimize-level 2)

View File

@ -1,4 +1,19 @@
#!/usr/bin/env ikarus --r6rs-script #!/usr/bin/env ikarus --r6rs-script
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2006,2007,2008 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(import (ikarus)) (import (ikarus))

View File

@ -1,3 +1,18 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2006,2007,2008 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (rnrs-benchmarks) (library (rnrs-benchmarks)
(export run-benchmark fatal-error include-source (export run-benchmark fatal-error include-source

20
configure vendored
View File

@ -1,6 +1,6 @@
#! /bin/sh #! /bin/sh
# Guess values for system-dependent variables and create Makefiles. # Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.63 for ikarus 0.0.3. # Generated by GNU Autoconf 2.63 for ikarus 0.0.4-rc1.
# #
# Report bugs to <aghuloum@cs.indiana.edu>. # Report bugs to <aghuloum@cs.indiana.edu>.
# #
@ -596,8 +596,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package. # Identity of this package.
PACKAGE_NAME='ikarus' PACKAGE_NAME='ikarus'
PACKAGE_TARNAME='ikarus' PACKAGE_TARNAME='ikarus'
PACKAGE_VERSION='0.0.3' PACKAGE_VERSION='0.0.4-rc1'
PACKAGE_STRING='ikarus 0.0.3' PACKAGE_STRING='ikarus 0.0.4-rc1'
PACKAGE_BUGREPORT='aghuloum@cs.indiana.edu' PACKAGE_BUGREPORT='aghuloum@cs.indiana.edu'
ac_unique_file="src/" ac_unique_file="src/"
@ -1306,7 +1306,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing. # Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh. # This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF cat <<_ACEOF
\`configure' configures ikarus 0.0.3 to adapt to many kinds of systems. \`configure' configures ikarus 0.0.4-rc1 to adapt to many kinds of systems.
Usage: $0 [OPTION]... [VAR=VALUE]... Usage: $0 [OPTION]... [VAR=VALUE]...
@ -1377,7 +1377,7 @@ fi
if test -n "$ac_init_help"; then if test -n "$ac_init_help"; then
case $ac_init_help in case $ac_init_help in
short | recursive ) echo "Configuration of ikarus 0.0.3:";; short | recursive ) echo "Configuration of ikarus 0.0.4-rc1:";;
esac esac
cat <<\_ACEOF cat <<\_ACEOF
@ -1468,7 +1468,7 @@ fi
test -n "$ac_init_help" && exit $ac_status test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then if $ac_init_version; then
cat <<\_ACEOF cat <<\_ACEOF
ikarus configure 0.0.3 ikarus configure 0.0.4-rc1
generated by GNU Autoconf 2.63 generated by GNU Autoconf 2.63
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@ -1482,7 +1482,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake. running configure, to aid debugging if configure makes a mistake.
It was created by ikarus $as_me 0.0.3, which was It was created by ikarus $as_me 0.0.4-rc1, which was
generated by GNU Autoconf 2.63. Invocation command line was generated by GNU Autoconf 2.63. Invocation command line was
$ $0 $@ $ $0 $@
@ -2324,7 +2324,7 @@ fi
# Define the identity of the package. # Define the identity of the package.
PACKAGE=ikarus PACKAGE=ikarus
VERSION=0.0.3 VERSION=0.0.4-rc1
cat >>confdefs.h <<_ACEOF cat >>confdefs.h <<_ACEOF
@ -10742,7 +10742,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their # report actual input values of CONFIG_FILES etc. instead of their
# values after options handling. # values after options handling.
ac_log=" ac_log="
This file was extended by ikarus $as_me 0.0.3, which was This file was extended by ikarus $as_me 0.0.4-rc1, which was
generated by GNU Autoconf 2.63. Invocation command line was generated by GNU Autoconf 2.63. Invocation command line was
CONFIG_FILES = $CONFIG_FILES CONFIG_FILES = $CONFIG_FILES
@ -10805,7 +10805,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF _ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_version="\\ ac_cs_version="\\
ikarus config.status 0.0.3 ikarus config.status 0.0.4-rc1
configured by $0, generated by GNU Autoconf 2.63, configured by $0, generated by GNU Autoconf 2.63,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"

View File

@ -2,9 +2,9 @@
# Process this file with autoconf to produce a configure script. # Process this file with autoconf to produce a configure script.
AC_PREREQ(2.59) AC_PREREQ(2.59)
AC_INIT(ikarus, 0.0.3, aghuloum@cs.indiana.edu) AC_INIT(ikarus, 0.0.4-rc1, aghuloum@cs.indiana.edu)
AC_CANONICAL_SYSTEM AC_CANONICAL_SYSTEM
AM_INIT_AUTOMAKE(ikarus, 0.0.3) AM_INIT_AUTOMAKE(ikarus, 0.0.4-rc1)
AC_CONFIG_SRCDIR([src/]) AC_CONFIG_SRCDIR([src/])

63
lab/check-comments.ss Executable file
View File

@ -0,0 +1,63 @@
#!/usr/bin/env ikarus --r6rs-script
(import (ikarus))
(define (suffix? s str)
(let ([n1 (string-length s)] [n2 (string-length str)])
(and (>= n2 n1)
(string=? s (substring str (- n2 n1) n2)))))
(define (prefix? s str)
(let ([n1 (string-length s)] [n2 (string-length str)])
(and (>= n2 n1)
(string=? s (substring str 0 n1)))))
(define (scheme? str)
(ormap (lambda (s) (suffix? s str)) (library-extensions)))
(define (lsr dir)
(define (app x) (string-append dir "/" x))
(let-values ([(dirs others)
(partition file-directory?
(directory-list dir))])
(apply append
(map app (filter scheme? others))
(map lsr
(map app
(filter
(lambda (x)
(and (not (string=? x ".")) (not (string=? x ".."))))
dirs))))))
(define (has-comment? x)
(with-input-from-file x
(lambda ()
(define (S0)
(let ([x (read-line)])
(cond
[(eof-object? x) #f]
[(prefix? "#!" x) (S1)]
[(prefix? ";;; Copyright" x) #t]
[(prefix? ";;;" x) (S1)]
[else #f])))
(define (S1)
(let ([x (read-line)])
(cond
[(eof-object? x) #f]
[(prefix? ";;; Copyright" x) #t]
[(prefix? ";;;" x) (S1)]
[else #f])))
(S0))))
(define (check-comment x)
(unless (has-comment? x)
(printf "no comment in ~s\n" x)))
(for-each check-comment (lsr "."))

View File

@ -1,3 +1,18 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (Cocoa) (library (Cocoa)
(export) ; below (export) ; below

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (objc) (library (objc)
(export (export

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ypsilon-compat) (library (ypsilon-compat)
(export on-windows on-darwin on-linux on-freebsd on-posix (export on-windows on-darwin on-linux on-freebsd on-posix

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ypsilon-compat) (library (ypsilon-compat)
(export on-windows on-darwin on-linux on-freebsd on-posix (export on-windows on-darwin on-linux on-freebsd on-posix

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ikarus.apropos) (library (ikarus.apropos)
(export apropos) (export apropos)

View File

@ -26,17 +26,18 @@
(define (host-info) target) (define (host-info) target)
(define (print-greeting) (define (print-greeting)
(printf "Ikarus Scheme version ~a\n" (printf "Ikarus Scheme version ~a~a~a~a\n"
(if (zero? (string-length ikarus-revision))
ikarus-version ikarus-version
(format "~a+ (revision ~a, build ~a~a)" (if (zero? (string-length ikarus-revision)) "" "+")
ikarus-version
(+ 1 (string->number ikarus-revision))
(let-syntax ([ds (lambda (x) (date-string))])
ds)
(if (= (fixnum-width) 30) (if (= (fixnum-width) 30)
"" ""
", 64-bit")))) ", 64-bit")
(if (zero? (string-length ikarus-revision))
""
(format " (revision ~a, build ~a)"
(+ 1 (string->number ikarus-revision))
(let-syntax ([ds (lambda (x) (date-string))])
ds))))
(display "Copyright (c) 2006-2008 Abdulaziz Ghuloum\n\n")) (display "Copyright (c) 2006-2008 Abdulaziz Ghuloum\n\n"))
(define (init-library-path) (define (init-library-path)

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ikarus not-yet-implemented) (library (ikarus not-yet-implemented)
(export (export

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ikarus.pointers) (library (ikarus.pointers)
(export pointer? integer->pointer pointer->integer (export pointer? integer->pointer pointer->integer

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ikarus.string-to-number) (library (ikarus.string-to-number)
(export string->number define-string->number-parser) (export string->number define-string->number-parser)

View File

@ -1,3 +1,19 @@
;;; Ikarus Scheme -- A compiler for R6RS Scheme.
;;; Copyright (C) 2008,2009 Abdulaziz Ghuloum
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License version 3 as
;;; published by the Free Software Foundation.
;;;
;;; 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 General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(library (ikarus.symbol-table) (library (ikarus.symbol-table)
(export string->symbol initialize-symbol-table! $symbol-table-size) (export string->symbol initialize-symbol-table! $symbol-table-size)

View File

@ -1 +1 @@
1743 1744