conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
benchmarks/bench.ss
View File

@ -1,4 +1,19 @@
#!../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))
(optimize-level 2)

15
benchmarks/benchall.ss
View File

@ -1,4 +1,19 @@
#!/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))

15
benchmarks/rnrs-benchmarks.ss
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)
(export run-benchmark fatal-error include-source

20
configure vendored
View File

@ -1,6 +1,6 @@
#! /bin/sh
# 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>.
#
@ -596,8 +596,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package.
PACKAGE_NAME='ikarus'
PACKAGE_TARNAME='ikarus'
PACKAGE_VERSION='0.0.3'
PACKAGE_STRING='ikarus 0.0.3'
PACKAGE_VERSION='0.0.4-rc1'
PACKAGE_STRING='ikarus 0.0.4-rc1'
PACKAGE_BUGREPORT='aghuloum@cs.indiana.edu'
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.
# This message is too long to be a string in the A/UX 3.1 sh.
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]...
@ -1377,7 +1377,7 @@ fi
if test -n "$ac_init_help"; then
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
cat <<\_ACEOF
@ -1468,7 +1468,7 @@ fi
test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then
cat <<\_ACEOF
ikarus configure 0.0.3
ikarus configure 0.0.4-rc1
generated by GNU Autoconf 2.63
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
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
$ $0 $@
@ -2324,7 +2324,7 @@ fi
# Define the identity of the package.
PACKAGE=ikarus
VERSION=0.0.3
VERSION=0.0.4-rc1
cat >>confdefs.h <<_ACEOF
@ -10742,7 +10742,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their
# values after options handling.
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
CONFIG_FILES = $CONFIG_FILES
@ -10805,7 +10805,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
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,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"

4
configure.ac
View File

@ -2,9 +2,9 @@
# Process this file with autoconf to produce a configure script.
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
AM_INIT_AUTOMAKE(ikarus, 0.0.3)
AM_INIT_AUTOMAKE(ikarus, 0.0.4-rc1)
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 "."))

15
lib/Cocoa.ss
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)
(export) ; below

16
lib/objc.ss
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)
(export

16
lib/ypsilon-compat.ikarus.ss
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)
(export on-windows on-darwin on-linux on-freebsd on-posix

16
lib/ypsilon-compat.ypsilon.ss
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)
(export on-windows on-darwin on-linux on-freebsd on-posix

16
scheme/ikarus.apropos.ss
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)
(export apropos)

19
scheme/ikarus.main.ss
View File

@ -26,17 +26,18 @@
(define (host-info) target)
(define (print-greeting)
(printf "Ikarus Scheme version ~a\n"
(if (zero? (string-length ikarus-revision))
ikarus-version
(format "~a+ (revision ~a, build ~a~a)"
ikarus-version
(printf "Ikarus Scheme version ~a~a~a~a\n"
ikarus-version
(if (zero? (string-length ikarus-revision)) "" "+")
(if (= (fixnum-width) 30)
""
", 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)
(if (= (fixnum-width) 30)
""
", 64-bit"))))
ds))))
(display "Copyright (c) 2006-2008 Abdulaziz Ghuloum\n\n"))
(define (init-library-path)

16
scheme/ikarus.not-yet-implemented.ss
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)
(export

16
scheme/ikarus.pointers.ss
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)
(export pointer? integer->pointer pointer->integer

16
scheme/ikarus.string-to-number.ss
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)
(export string->number define-string->number-parser)

16
scheme/ikarus.symbol-table.ss
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)
(export string->symbol initialize-symbol-table! $symbol-table-size)

2
scheme/last-revision
View File

@ -1 +1 @@
1743
1744