diff options
Diffstat (limited to 'mkimpcat.scm')
| -rw-r--r-- | mkimpcat.scm | 46 |
1 files changed, 24 insertions, 22 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm index 57c29b0..2f6c13a 100644 --- a/mkimpcat.scm +++ b/mkimpcat.scm @@ -41,15 +41,17 @@ ;;;; "mkimpcat.scm" Build SCM-specific catalog for SLIB. ;;; Author: Aubrey Jaffer. +(define (installation-vicinity) "/usr/lib/scm/") + (let ((catname "implcat")) (call-with-output-file (in-vicinity (implementation-vicinity) catname) (lambda (op) (define (display* . args) (for-each (lambda (arg) (display arg op)) args) (newline op)) - (define wb:vicinity (string-append (implementation-vicinity) "../wb/")) + (define wb:vicinity (string-append (installation-vicinity) "../wb/")) (define x-scm:vicinity - (string-append (implementation-vicinity) "../xscm-2.01/")) + (string-append (installation-vicinity) "../xscm-2.01/")) (define (add-link feature ofile . libs) (cond ((file-exists? ofile) ;; remove #f from libs list @@ -72,14 +74,14 @@ (display* "(") (begin (cond ((add-link 'i/o-extensions - (in-vicinity (implementation-vicinity) "ioext" + (in-vicinity (installation-vicinity) "ioext" link:able-suffix) (usr:lib "c")) (add-alias 'directory-for-each 'i/o-extensions) (add-alias 'line-i/o 'i/o-extensions) (add-alias 'pipe 'i/o-extensions))) (cond ((add-link 'rev2-procedures - (in-vicinity (implementation-vicinity) "sc2" + (in-vicinity (installation-vicinity) "sc2" link:able-suffix)) (add-alias 'rev3-procedures 'rev2-procedures))) (cond ((or @@ -111,55 +113,55 @@ (add-source 'xpm (in-vicinity x-scm:vicinity "xpm")))) (add-link 'turtle-graphics - (in-vicinity (implementation-vicinity) "turtlegr" + (in-vicinity (installation-vicinity) "turtlegr" link:able-suffix) (x:lib "X11") (usr:lib "m") (usr:lib "c")) (add-link 'Xlib - (in-vicinity (implementation-vicinity) "x" + (in-vicinity (installation-vicinity) "x" link:able-suffix) (x:lib "X11") (usr:lib "c")) (add-link 'curses - (in-vicinity (implementation-vicinity) "crs" + (in-vicinity (installation-vicinity) "crs" link:able-suffix) (usr:lib "ncurses") ;;(usr:lib "curses") ;;(usr:lib "termcap") (usr:lib "c")) (add-link 'edit-line - (in-vicinity (implementation-vicinity) "edline" + (in-vicinity (installation-vicinity) "edline" link:able-suffix) (usr:lib "readline") (usr:lib "termcap") (usr:lib "c")) (add-link 'regex - (in-vicinity (implementation-vicinity) "rgx" + (in-vicinity (installation-vicinity) "rgx" link:able-suffix) (usr:lib "c")) (add-link 'unix - (in-vicinity (implementation-vicinity) "unix" + (in-vicinity (installation-vicinity) "unix" link:able-suffix) - (in-vicinity (implementation-vicinity) "ioext" + (in-vicinity (installation-vicinity) "ioext" link:able-suffix) (usr:lib "c")) (add-link 'posix - (in-vicinity (implementation-vicinity) "posix" + (in-vicinity (installation-vicinity) "posix" link:able-suffix) (usr:lib "c")) (add-link 'socket - (in-vicinity (implementation-vicinity) "socket" + (in-vicinity (installation-vicinity) "socket" link:able-suffix) (usr:lib "c")) (add-link 'record - (in-vicinity (implementation-vicinity) "record" + (in-vicinity (installation-vicinity) "record" link:able-suffix)) (add-link 'generalized-c-arguments - (in-vicinity (implementation-vicinity) "gsubr" + (in-vicinity (installation-vicinity) "gsubr" link:able-suffix)) (add-link 'array-for-each - (in-vicinity (implementation-vicinity) "ramap" + (in-vicinity (installation-vicinity) "ramap" link:able-suffix)) ) (display* ")") @@ -180,14 +182,14 @@ (begin ;; Simple associations -- OK for all modes of dynamic-linking (display* "(") - (add-alias 'hobbit (in-vicinity (implementation-vicinity) "hobbit")) - (add-alias 'scmhob (in-vicinity (implementation-vicinity) "scmhob")) + (add-alias 'hobbit (in-vicinity (installation-vicinity) "hobbit")) + (add-alias 'scmhob (in-vicinity (installation-vicinity) "scmhob")) (add-alias 'regex-case - (in-vicinity (implementation-vicinity) "rgxcase")) + (in-vicinity (installation-vicinity) "rgxcase")) (add-alias 'url-filename - (in-vicinity (implementation-vicinity) "urlfile")) + (in-vicinity (installation-vicinity) "urlfile")) (add-source 'disarm (in-vicinity - (implementation-vicinity) + (installation-vicinity) (string-append "disarm" (scheme-file-suffix)))) (add-source 'build (in-vicinity (implementation-vicinity) @@ -203,7 +205,7 @@ (display* "#.(if (defined? renamed-identifier)") (display* " '(") (display " " op) - (add-source 'macro (in-vicinity (implementation-vicinity) "Macro")) + (add-source 'macro (in-vicinity (installation-vicinity) "Macro")) (display* " )") (display* " '())") ) |