1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
Description: Upstream changes before switch to "3.0 (quilt)" source format in version 3b1-3.1
Author: Jari Aalto <jari.aalto@cante.net>
--- a/slib.1
+++ b/slib.1
@@ -1,5 +1,5 @@
.\" dummy line
-.TH SLIB "Dec 20 2007"
+.TH SLIB 1 "Dec 20 2007"
.UC 4
.SH NAME
SLIB \- Scheme Library
--- a/slib.sh
+++ b/slib.sh
@@ -1,4 +1,4 @@
-
+#!/bin/bash
##"slib" script; Find a Scheme implementation and initialize SLIB in it.
#Copyright (C) 2003, 2004 Aubrey Jaffer
#
--- a/slib.texi
+++ b/slib.texi
@@ -335,6 +335,12 @@
@code{macro:load}s the Scheme source file @i{<path>}.
@end table
+@c the following paragraph added by tb (Thomas Bushnell, BSG)
+@noindent
+Note that file names indicated as @i{<path>} may have ``.scm'' or
+another suffix appended to them, depending on the specific Scheme
+system you are using.
+
@node Catalog Creation, Catalog Vicinities, Library Catalogs, The Library System
@section Catalog Creation
--- a/Makefile
+++ b/Makefile
@@ -239,14 +239,14 @@
xpdf $(htmldir)slib.pdf
TEXI2HTML = /usr/local/bin/texi2html -split -verbose
-slib_toc.html: version.txi slib.texi $(txifiles) $(texifiles)
+$(htmldir)slib_toc.html: version.txi slib.texi $(txifiles) $(texifiles)
${TEXI2HTML} slib.texi
html: $(htmldir)slib_toc.html
-$(htmldir)slib_toc.html: slib_toc.html Makefile
- -rm -f slib_stoc.html
- if [ -f $(PREVDOCS)slib_toc.html ]; \
- then hitch $(PREVDOCS)slib_\*.html slib_\*.html $(htmldir); \
- else cp slib_*.html $(htmldir);fi
+#$(htmldir)slib_toc.html: slib_toc.html Makefile
+# -rm -f slib_stoc.html
+# if [ -f $(PREVDOCS)slib_toc.html ]; \
+# then hitch $(PREVDOCS)slib_\*.html slib_\*.html $(htmldir); \
+#p else cp slib_*.html $(htmldir);fi
slib-$(VERSION).info: version.txi slib.texi $(txifiles) $(texifiles)
makeinfo slib.texi --no-warn --no-split -o slib.info
--- a/guile.init
+++ b/guile.init
@@ -43,17 +43,17 @@
;;; (implementation-vicinity) should be defined to be the pathname of
;;; the directory where any auxillary files to your Scheme
;;; implementation reside.
-;; (define implementation-vicinity
-;; (let* ((path (or (%search-load-path "ice-9/q.scm")
-;; (error "Could not find ice-9/q.scm in " %load-path)))
-;; (vic (substring path 0 (- (string-length path) 11))))
-;; (lambda () vic)))
+(define implementation-vicinity
+ (let* ((path (or (%search-load-path "ice-9/q.scm")
+ (error "Could not find ice-9/q.scm in " %load-path)))
+ (vic (substring path 0 (- (string-length path) 11))))
+ (lambda () vic)))
;;
;;; Rob Browning says %site-dir exists since Guile-1.6
-(define implementation-vicinity
- (cond ((and (defined? 'getenv) (getenv "GUILE_IMPLEMENTATION_PATH"))
- => (lambda (path) (lambda () path)))
- (else %site-dir)))
+;;(define implementation-vicinity
+;; (cond ((and (defined? 'getenv) (getenv "GUILE_IMPLEMENTATION_PATH"))
+;; => (lambda (path) (lambda () path)))
+;; (else %site-dir)))
;;; (library-vicinity) should be defined to be the pathname of the
;;; directory where files of Scheme library functions reside.
@@ -68,7 +68,10 @@
(and path (substring path 0 (- (string-length path) 10))))
;; Use this path if your scheme does not support GETENV
;; or if SCHEME_LIBRARY_PATH is not set.
- "/usr/lib/slib/"
+;; Changed from /usr/lib/slib to /usr/share/slib by tb@debian.org for
+;; Debian packaging.
+;; "/usr/lib/slib/"
+ "/usr/share/slib/"
(in-vicinity (implementation-vicinity) "slib/"))))
(lambda () library-path)))
|