From 453eb3aaf278dfcbaa11cda2e00a6b59da849d73 Mon Sep 17 00:00:00 2001 From: Miroslav Lichvar Date: Oct 22 2007 15:38:31 +0000 Subject: - update to 1.8.3 --- diff --git a/.cvsignore b/.cvsignore index db620f4..f5d8e45 100644 --- a/.cvsignore +++ b/.cvsignore @@ -1 +1 @@ -guile-1.8.2.tar.gz +guile-1.8.3.tar.gz diff --git a/guile-1.8.1-slib.patch b/guile-1.8.1-slib.patch deleted file mode 100644 index e1f550e..0000000 --- a/guile-1.8.1-slib.patch +++ /dev/null @@ -1,404 +0,0 @@ ---- guile-1.8.1/ice-9/slib.scm.slib 2006-02-18 07:08:44.000000000 +0100 -+++ guile-1.8.1/ice-9/slib.scm 2007-01-23 13:09:40.000000000 +0100 -@@ -16,399 +16,5 @@ - ;;;; License along with this library; if not, write to the Free Software - ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - ;;;; --(define-module (ice-9 slib) -- :export (slib:load slib:load-source defmacro:load -- implementation-vicinity library-vicinity home-vicinity -- scheme-implementation-type scheme-implementation-version -- output-port-width output-port-height array-indexes -- make-random-state -- -1+ ? >=? -- require slib:error slib:exit slib:warn slib:eval -- defmacro:eval logical:logand logical:logior logical:logxor -- logical:lognot logical:ash logical:logcount logical:integer-length -- logical:bit-extract logical:integer-expt logical:ipow-by-squaring -- slib:eval-load slib:tab slib:form-feed difftime offset-time -- software-type) -- :replace (delete-file open-file provide provided? system) -- :no-backtrace) -- -- -- --(define (eval-load evl) -- (if (not (file-exists? )) -- (set! (string-append (scheme-file-suffix)))) -- (call-with-input-file -- (lambda (port) -- (let ((old-load-pathname *load-pathname*)) -- (set! *load-pathname* ) -- (do ((o (read port) (read port))) -- ((eof-object? o)) -- (evl o)) -- (set! *load-pathname* old-load-pathname))))) -- -- -- --(define slib:exit quit) --(define slib:error error) --(define slib:warn warn) --(define slib:eval (lambda (x) (eval x slib-module))) --(define defmacro:eval (lambda (x) (eval x (interaction-environment)))) --(define logical:logand logand) --(define logical:logior logior) --(define logical:logxor logxor) --(define logical:lognot lognot) --(define logical:ash ash) --(define logical:logcount logcount) --(define logical:integer-length integer-length) --(define logical:bit-extract bit-extract) --(define logical:integer-expt integer-expt) --(define slib:eval-load eval-load) --(define slib:tab #\tab) --(define slib:form-feed #\page) -- --(define slib-module (current-module)) -- --(define (defined? symbol) -- (module-defined? slib-module symbol)) -- --;;; *FEATURES* should be set to a list of symbols describing features --;;; of this implementation. Suggestions for features are: --(set! *features* -- (append -- '( -- source ;can load scheme source files -- ;(slib:load-source "filename") --; compiled ;can load compiled files -- ;(slib:load-compiled "filename") -- -- ;; Scheme report features -- --; rev5-report ;conforms to -- eval ;R5RS two-argument eval --; values ;R5RS multiple values -- dynamic-wind ;R5RS dynamic-wind --; macro ;R5RS high level macros -- delay ;has DELAY and FORCE -- multiarg-apply ;APPLY can take more than 2 args. --; rationalize -- rev4-optional-procedures ;LIST-TAIL, STRING->LIST, -- ;LIST->STRING, STRING-COPY, -- ;STRING-FILL!, LIST->VECTOR, -- ;VECTOR->LIST, and VECTOR-FILL! -- --; rev4-report ;conforms to -- --; ieee-p1178 ;conforms to -- --; rev3-report ;conforms to -- -- rev2-procedures ;SUBSTRING-MOVE-LEFT!, -- ;SUBSTRING-MOVE-RIGHT!, -- ;SUBSTRING-FILL!, -- ;STRING-NULL?, APPEND!, 1+, -- ;-1+, ?, >=? --; object-hash ;has OBJECT-HASH -- -- multiarg/and- ;/ and - can take more than 2 args. -- with-file ;has WITH-INPUT-FROM-FILE and -- ;WITH-OUTPUT-FROM-FILE --; transcript ;TRANSCRIPT-ON and TRANSCRIPT-OFF --; ieee-floating-point ;conforms to IEEE Standard 754-1985 -- ;IEEE Standard for Binary -- ;Floating-Point Arithmetic. -- full-continuation ;can return multiple times -- -- ;; Other common features -- --; srfi ;srfi-0, COND-EXPAND finds all srfi-* --; sicp ;runs code from Structure and -- ;Interpretation of Computer -- ;Programs by Abelson and Sussman. -- defmacro ;has Common Lisp DEFMACRO --; record ;has user defined data structures -- string-port ;has CALL-WITH-INPUT-STRING and -- ;CALL-WITH-OUTPUT-STRING --; sort --; pretty-print --; object->string --; format ;Common-lisp output formatting --; trace ;has macros: TRACE and UNTRACE --; compiler ;has (COMPILER) --; ed ;(ED) is editor -- -- ;; core definitions compatible, plus `make-random-state' below -- random -- ) -- -- (if (defined? 'getenv) -- '(getenv) -- '()) -- -- (if (defined? 'current-time) -- '(current-time) -- '()) -- -- (if (defined? 'system) -- '(system) -- '()) -- -- (if (defined? 'char-ready?) -- '(char-ready?) -- '()) -- -- *features*)) -- --;; The array module specified by slib 3a1 is not the same as what guile --;; provides, so we must remove `array' from the features list. --;; --;; The main difference is `create-array' which is similar to --;; `make-uniform-array', but the `Ac64' etc prototype procedures incorporate --;; an initial fill element into the prototype. --;; --;; Believe the array-for-each module will need to be taken from slib when --;; the array module is taken from there, since what the array module creates --;; won't be understood by the guile functions. So remove `array-for-each' --;; from the features list too. --;; --;; Also, slib 3a1 array-for-each specifies an `array-map' which is not in --;; guile (but could be implemented quite easily). --;; --;; ENHANCE-ME: It'd be nice to implement what's necessary, since the guile --;; functions should be more efficient than the implementation in slib. --;; --;; FIXME: Since the *features* variable is shared by slib and the guile --;; core, removing these feature symbols has the unhappy effect of making it --;; look like they aren't in the core either. Let's assume that arrays have --;; been present unconditionally long enough that no guile-specific code will --;; bother to test. An alternative would be to make a new separate --;; *features* variable which the slib stuff operated on, leaving the core --;; mechanism alone. That might be a good thing anyway. --;; --(set! *features* (delq 'array *features*)) --(set! *features* (delq 'array-for-each *features*)) -- --;; The random module in slib 3a1 provides a `random:chunk' which is used by --;; the random-inexact module. Guile doesn't provide random:chunk so we must --;; remove 'random from `*features*' to use the slib code. --;; --;; ENHANCE-ME: Maybe Guile could provide a `random:chunk', the rest of the --;; random module is already the same as Guile. --;; --;; FIXME: As per the array bits above, *features* is shared by slib and the --;; guile core, so removing 'random has the unhappy effect of making it look --;; like this isn't in the core. Let's assume random numbers have been --;; present unconditionally long enough that no guile-specific code will --;; bother to test. --;; --(set! *features* (delq 'random *features*)) -- -- --;;; FIXME: Because uers want require to search the path, this uses --;;; load-from-path, which probably isn't a hot idea. slib --;;; doesn't expect this function to search a path, so I expect to get --;;; bug reports at some point complaining that the wrong file gets --;;; loaded when something accidentally appears in the path before --;;; slib, etc. ad nauseum. However, the right fix seems to involve --;;; changing catalog:get in slib/require.scm, and I don't expect --;;; Aubrey will integrate such a change. So I'm just going to punt --;;; for the time being. --(define (slib:load name) -- (save-module-excursion -- (lambda () -- (set-current-module slib-module) -- (let ((errinfo (catch 'system-error -- (lambda () -- (load-from-path name) -- #f) -- (lambda args args)))) -- (if (and errinfo -- (catch 'system-error -- (lambda () -- (load-from-path -- (string-append name ".scm")) -- #f) -- (lambda args args))) -- (apply throw errinfo)))))) -- --(define slib:load-source slib:load) --(define defmacro:load slib:load) -- --(define slib-parent-dir -- (let* ((path (%search-load-path "slib/require.scm"))) -- (if path -- (substring path 0 (- (string-length path) 17)) -- (error "Could not find slib/require.scm in " %load-path)))) -- --(define (implementation-vicinity) -- (string-append slib-parent-dir "/")) --(define (library-vicinity) -- (string-append (implementation-vicinity) "slib/")) --(define home-vicinity -- (let ((home-path (getenv "HOME"))) -- (lambda () home-path))) --(define (scheme-implementation-type) 'guile) --(define scheme-implementation-version version) --;;; (scheme-implementation-home-page) should return a (string) URI --;;; (Uniform Resource Identifier) for this scheme implementation's home --;;; page; or false if there isn't one. --(define (scheme-implementation-home-page) -- "http://www.gnu.org/software/guile/guile.html") -- --;; legacy from r3rs, but slib says all implementations provide these --;; ("Legacy" section of the "Miscellany" node in the manual) --(define-public t #t) --(define-public nil #f) -- --;; ENHANCE-ME: Could call ioctl TIOCGWINSZ to get the size of a tty (see --;; "man 4 tty_ioctl" on a GNU/Linux system), on systems with that. --(define (output-port-width . arg) 80) --(define (output-port-height . arg) 24) -- --;; slib 3a1 and up, straight from Template.scm --(define-public (call-with-open-ports . ports) -- (define proc (car ports)) -- (cond ((procedure? proc) (set! ports (cdr ports))) -- (else (set! ports (reverse ports)) -- (set! proc (car ports)) -- (set! ports (reverse (cdr ports))))) -- (let ((ans (apply proc ports))) -- (for-each close-port ports) -- ans)) -- --;; slib (version 3a1) requires open-file accept a symbol r, rb, w or wb for --;; MODES, so extend the guile core open-file accordingly. --;; --;; slib (version 3a1) also calls open-file with strings "rb" or "wb", not --;; sure if that's intentional, but in any case this extension continues to --;; accept strings to make that work. --;; --(define-public (open-file filename modes) -- (if (symbol? modes) -- (set! modes (symbol->string modes))) -- ((@ (guile) open-file) filename modes)) -- --;; returning #t/#f instead of throwing an error for failure --(define-public (delete-file filename) -- (catch 'system-error -- (lambda () ((@ (guile) delete-file) filename) #t) -- (lambda args #f))) -- --;; Nothing special to do for this, so straight from Template.scm. Maybe --;; "sensible-browser" for a debian system would be worth trying too (and --;; would be good on a tty). --(define-public (browse-url url) -- (define (try cmd end) (zero? (system (string-append cmd url end)))) -- (or (try "netscape-remote -remote 'openURL(" ")'") -- (try "netscape -remote 'openURL(" ")'") -- (try "netscape '" "'&") -- (try "netscape '" "'"))) -- --;;; {array-for-each} --(define (array-indexes ra) -- (let ((ra0 (apply make-array '() (array-shape ra)))) -- (array-index-map! ra0 list) -- ra0)) -- --;;; {Random numbers} --;;; --(define (make-random-state . args) -- (let ((seed (if (null? args) *random-state* (car args)))) -- (cond ((string? seed)) -- ((number? seed) (set! seed (number->string seed))) -- (else (let () -- (require 'object->string) -- (set! seed (object->limited-string seed 50))))) -- (seed->random-state seed))) -- --;;; {rev2-procedures} --;;; -- --(define -1+ 1-) --(define ? >) --(define >=? >=) -- --;;; {system} --;;; --;; If the program run is killed by a signal, the shell normally gives an --;; exit code of 128+signum. If the shell itself is killed by a signal then --;; we do the same 128+signum here. --;; --;; "stop-sig" shouldn't arise here, since system shouldn't be calling --;; waitpid with WUNTRACED, but allow for it anyway, just in case. --;; --(if (memq 'system *features*) -- (define-public system -- (lambda (str) -- (let ((st ((@ (guile) system) str))) -- (or (status:exit-val st) -- (+ 128 (or (status:term-sig st) -- (status:stop-sig st)))))))) -- --;;; {Time} --;;; -- --(define difftime -) --(define offset-time +) -- -- --(define define -- (procedure->memoizing-macro -- (lambda (exp env) -- (if (= (length env) 1) -- `(define-public ,@(cdr exp)) -- `(define-private ,@(cdr exp)))))) -- --;;; Hack to make syncase macros work in the slib module --(if (nested-ref the-root-module '(app modules ice-9 syncase)) -- (set-object-property! (module-local-variable (current-module) 'define) -- '*sc-expander* -- '(define))) -- --(define (software-type) -- "Return a symbol describing the current platform's operating system. --This may be one of AIX, VMS, UNIX, COHERENT, WINDOWS, MS-DOS, OS/2, --THINKC, AMIGA, ATARIST, MACH, or ACORN. -- --Note that most varieties of Unix are considered to be simply \"UNIX\". --That is because when a program depends on features that are not present --on every operating system, it is usually better to test for the presence --or absence of that specific feature. The return value of --@code{software-type} should only be used for this purpose when there is --no other easy or unambiguous way of detecting such features." -- 'UNIX) -- --(slib:load (in-vicinity (library-vicinity) "require.scm")) -- --(define require require:require) -- --;; {Extensions to the require system so that the user can add new --;; require modules easily.} -- --(define *vicinity-table* -- (list -- (cons 'implementation (implementation-vicinity)) -- (cons 'library (library-vicinity)))) -- --(define (install-require-vicinity name vicinity) -- (let ((entry (assq name *vicinity-table*))) -- (if entry -- (set-cdr! entry vicinity) -- (set! *vicinity-table* -- (acons name vicinity *vicinity-table*))))) -- --(define (install-require-module name vicinity-name file-name) -- (if (not *catalog*) ;Fix which loads catalog in slib -- (catalog:get 'random)) ;(doesn't load the feature 'random) -- (let ((entry (assq name *catalog*)) -- (vicinity (cdr (assq vicinity-name *vicinity-table*)))) -- (let ((path-name (in-vicinity vicinity file-name))) -- (if entry -- (set-cdr! entry path-name) -- (set! *catalog* -- (acons name path-name *catalog*)))))) -- --(define (make-exchanger obj) -- (lambda (rep) (let ((old obj)) (set! obj rep) old))) -+(define-module (ice-9 slib)) -+(load-from-path "slib/guile.init") diff --git a/guile-1.8.3-cr.patch b/guile-1.8.3-cr.patch new file mode 100644 index 0000000..8cb33df --- /dev/null +++ b/guile-1.8.3-cr.patch @@ -0,0 +1,17 @@ +Index: guile-core/libguile/read.c +=================================================================== +RCS file: /sources/guile/guile/guile-core/libguile/read.c,v +retrieving revision 1.117.2.7 +retrieving revision 1.117.2.8 +diff -u -r1.117.2.7 -r1.117.2.8 +--- guile-core/libguile/read.c 3 Sep 2007 17:04:49 -0000 1.117.2.7 ++++ guile-core/libguile/read.c 17 Oct 2007 22:16:44 -0000 1.117.2.8 +@@ -152,7 +152,7 @@ + /* `isblank' is only in C99. */ + #define CHAR_IS_BLANK_(_chr) \ + (((_chr) == ' ') || ((_chr) == '\t') || ((_chr) == '\n') \ +- || ((_chr) == '\f')) ++ || ((_chr) == '\f') || ((_chr) == '\r')) + + #ifdef MSDOS + # define CHAR_IS_BLANK(_chr) \ diff --git a/guile.spec b/guile.spec index e04fc5f..153680f 100644 --- a/guile.spec +++ b/guile.spec @@ -1,11 +1,11 @@ Summary: A GNU implementation of Scheme for application extensibility Name: guile -Version: 1.8.2 -Release: 2%{?dist} +Version: 1.8.3 +Release: 1%{?dist} Source: ftp://ftp.gnu.org/pub/gnu/guile/guile-%{version}.tar.gz URL: http://www.gnu.org/software/guile/ Patch1: guile-1.8.0-rpath.patch -Patch2: guile-1.8.1-slib.patch +Patch2: guile-1.8.3-cr.patch Patch4: guile-1.8.1-deplibs.patch Patch5: guile-1.8.0-multilib.patch License: GPLv2+ and LGPLv2+ @@ -43,7 +43,7 @@ install the guile package. %prep %setup -q %patch1 -p1 -b .rpath -%patch2 -p1 -b .slib +%patch2 -p1 -b .cr %patch4 -p1 -b .deplibs %patch5 -p1 -b .multilib @@ -129,6 +129,9 @@ fi %{_includedir}/libguile.h %changelog +* Mon Oct 22 2007 Miroslav Lichvar - 5:1.8.3-1 +- update to 1.8.3 + * Wed Aug 22 2007 Miroslav Lichvar - 5:1.8.2-2 - update license tag - redirect guile output in triggerin script diff --git a/sources b/sources index 901b512..9d05746 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -a4b64a992deae0532f8015bcc6c40784 guile-1.8.2.tar.gz +7fd016924e1bc3e273f4009a080942de guile-1.8.3.tar.gz