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

* scm/slib.scm.in: version information is set a build time. 

* scm/*.scm: don't choke on -lib- variables that aren't needed.


git-svn-id: svn://svn.zoy.org/elk/trunk@47 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-08-25 18:14:21 +00:00
parent 6b55b639db
commit 8377fb1fe1
4 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scm/slib.scm.in
View File

@ -41,13 +41,13 @@
;;; (scheme-implementation-version) should return a string describing ;;; (scheme-implementation-version) should return a string describing
;;; the version the scheme implementation loading this file. ;;; the version the scheme implementation loading this file.
(define (scheme-implementation-version) "3.0") (define (scheme-implementation-version) "@VERSION@")
;;; (implementation-vicinity) should be defined to be the pathname of ;;; (implementation-vicinity) should be defined to be the pathname of
;;; the directory where any auxillary files to your Scheme ;;; the directory where any auxillary files to your Scheme
;;; implementation reside. ;;; implementation reside.
(define (implementation-vicinity) "/usr/share/elk") (define (implementation-vicinity) "@prefix@/share/elk")
;;; (library-vicinity) should be defined to be the pathname of the ;;; (library-vicinity) should be defined to be the pathname of the
;;; directory where files of Scheme library functions reside. ;;; directory where files of Scheme library functions reside.
@ -62,7 +62,7 @@
; ((MS-DOS) "C:\\SLIB\\") ; ((MS-DOS) "C:\\SLIB\\")
; (else ""))))) ; (else "")))))
; (lambda () library-path))) ; (lambda () library-path)))
(define (library-vicinity) "/usr/lib/slib/") (define (library-vicinity) "@prefix@/lib/slib/")
;;; *features* should be set to a list of symbols describing features ;;; *features* should be set to a list of symbols describing features
;;; of this implementation. Suggestions for features are: ;;; of this implementation. Suggestions for features are:

3
scm/xlib.scm
View File

@ -2,6 +2,9 @@
;;; ;;;
;;; The Scheme part of the Xlib extension. ;;; The Scheme part of the Xlib extension.
; kludge
(define site-lib-xlib "")
(fluid-let ((load-libraries (string-append site-lib-xlib " " load-libraries))) (fluid-let ((load-libraries (string-append site-lib-xlib " " load-libraries)))
(require 'xlib.so)) (require 'xlib.so))

3
scm/xt.scm
View File

@ -2,6 +2,9 @@
;;; ;;;
;;; The Scheme part of the Xt extension. ;;; The Scheme part of the Xt extension.
;; kludge
(define site-lib-xt "")
(if (feature? 'motif) (if (feature? 'motif)
(fluid-let ((load-libraries (fluid-let ((load-libraries
(string-append site-force-load-xm " " site-lib-xmotif " " (string-append site-force-load-xm " " site-lib-xmotif " "

6
scm/xwidgets.scm
View File

@ -2,6 +2,9 @@
;;; ;;;
;;; The Scheme part of the X11 widget interface. ;;; The Scheme part of the X11 widget interface.
; kludge
(define site-lib-xaw "")
(require 'xt) (require 'xt)
(define widget-subdirectory 'xaw) (define widget-subdirectory 'xaw)
@ -40,7 +43,8 @@
(if alias (set! file (cdr alias))) (if alias (set! file (cdr alias)))
(if autoload-notify? (if autoload-notify?
(format #t "~a~a" file (if (null? (cdr f)) "" " "))) (format #t "~a~a" file (if (null? (cdr f)) "" " ")))
(set! wl (cons (format #f "~a/~a.so" widget-subdirectory file) ;;(set! wl (cons (format #f "~a/~a.so" widget-subdirectory file)
(set! wl (cons (format #f "~a/~a.so" widget-subdirectory "xaw")
wl)))) wl))))
(if autoload-notify? (format #t "]~%")) (if autoload-notify? (format #t "]~%"))
`(fluid-let ((load-libraries `(fluid-let ((load-libraries