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

Fixes bug 163690: ikarus should display version number instead of 

build date in the banner.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-18 20:22:11 -05:00
parent 7282bd1c48
commit 1bd2935e2b
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/Makefile.am
View File

@ -4,9 +4,12 @@ EXTRA_DIST=ikarus.boot.orig ikarus.enumerations.ss ikarus.exceptions.ss ikarus.a
all: $(nodist_pkglib_DATA) all: $(nodist_pkglib_DATA)
CLEANFILES=$(nodist_pkglib_DATA) ikarus.version.ss: Makefile
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
ikarus.boot: $(EXTRA_DIST) CLEANFILES=$(nodist_pkglib_DATA) ikarus.version.ss
ikarus.boot: $(EXTRA_DIST) ikarus.version.ss
../src/ikarus -b ./ikarus.boot.orig --r6rs-script makefile.ss ../src/ikarus -b ./ikarus.boot.orig --r6rs-script makefile.ss
# pkglibdir # pkglibdir

7
scheme/Makefile.in
View File

@ -183,7 +183,7 @@ EXTRA_DIST = ikarus.boot.orig ikarus.enumerations.ss \
ikarus/code-objects.ss ikarus/compiler.ss \ ikarus/code-objects.ss ikarus/compiler.ss \
ikarus/intel-assembler.ss ikarus/fasl/write.ss \ ikarus/intel-assembler.ss ikarus/fasl/write.ss \
unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss
CLEANFILES = $(nodist_pkglib_DATA) CLEANFILES = $(nodist_pkglib_DATA) ikarus.version.ss
all: all-am all: all-am
.SUFFIXES: .SUFFIXES:
@ -369,7 +369,10 @@ uninstall-am: uninstall-nodist_pkglibDATA
all: $(nodist_pkglib_DATA) all: $(nodist_pkglib_DATA)
ikarus.boot: $(EXTRA_DIST) ikarus.version.ss: Makefile
echo '(define ikarus-version "$(PACKAGE_VERSION)")' >$@
ikarus.boot: $(EXTRA_DIST) ikarus.version.ss
../src/ikarus -b ./ikarus.boot.orig --r6rs-script makefile.ss ../src/ikarus -b ./ikarus.boot.orig --r6rs-script makefile.ss
# pkglibdir # pkglibdir

7
scheme/ikarus.main.ss
View File

@ -21,9 +21,12 @@
(library (ikarus greeting) (library (ikarus greeting)
(export print-greeting) (export print-greeting)
(import (ikarus)) (import (ikarus))
(letrec-syntax ([compile-time-string (lambda (x) (date-string))]) (letrec-syntax ([compile-time-string
(lambda (x)
(include "ikarus.version.ss")
ikarus-version)])
(define (print-greeting) (define (print-greeting)
(printf "Ikarus Scheme (Build ~a)\n" (compile-time-string)) (printf "Ikarus Scheme version ~a\n" (compile-time-string))
(display "Copyright (c) 2006-2007 Abdulaziz Ghuloum\n\n")))) (display "Copyright (c) 2006-2007 Abdulaziz Ghuloum\n\n"))))