summaryrefslogtreecommitdiffstats
path: root/mkimpcat.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mkimpcat.scm')
-rw-r--r--mkimpcat.scm37
1 files changed, 28 insertions, 9 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm
index df6c813..c745cfc 100644
--- a/mkimpcat.scm
+++ b/mkimpcat.scm
@@ -44,7 +44,6 @@
(let ((catname "implcat")
(iv (implementation-vicinity)))
(define (in-implementation-vicinity . paths) (apply in-vicinity iv paths))
- (define (in-installation-vicinity . paths) (apply in-vicinity "/usr/lib/scm/" paths))
(call-with-output-file (in-implementation-vicinity catname)
(lambda (op)
(define (display* . args)
@@ -94,6 +93,20 @@
link:able-suffix))))
(cond ((or
(add-link 'db
+ (in-implementation-vicinity "db.so"))
+ (add-link 'db
+ (in-implementation-vicinity "db" link:able-suffix)
+ (in-implementation-vicinity "handle" link:able-suffix)
+ (in-implementation-vicinity "blink" link:able-suffix)
+ (in-implementation-vicinity "prev" link:able-suffix)
+ (in-implementation-vicinity "ent" link:able-suffix)
+ (in-implementation-vicinity "sys" link:able-suffix)
+ (in-implementation-vicinity "del" link:able-suffix)
+ (in-implementation-vicinity "stats" link:able-suffix)
+ (in-implementation-vicinity "blkio" link:able-suffix)
+ (in-implementation-vicinity "scan" link:able-suffix)
+ (usr:lib "c"))
+ (add-link 'db
(in-wb-vicinity "db.so"))
(add-link 'db
(in-wb-vicinity "db" link:able-suffix)
@@ -108,8 +121,12 @@
(in-wb-vicinity "scan" link:able-suffix)
(usr:lib "c")))
(add-source 'wb-table
+ (in-implementation-vicinity "wbtab"))
+ (add-source 'wb-table
(in-wb-vicinity "wbtab"))
(add-source 'rwb-isam
+ (in-implementation-vicinity "rwb-isam"))
+ (add-source 'rwb-isam
(in-wb-vicinity "rwb-isam"))
(add-alias 'wb 'db)))
(cond ((add-link 'mysql
@@ -160,6 +177,8 @@
(add-link 'socket
(in-implementation-vicinity "socket" link:able-suffix)
(usr:lib "c"))
+ (add-link 'diff
+ (in-implementation-vicinity "differ" link:able-suffix))
(add-link 'record
(in-implementation-vicinity "record" link:able-suffix))
(add-link 'generalized-c-arguments
@@ -189,21 +208,21 @@
(add-alias '3rs 'r3rs)
(add-alias '4rs 'r4rs)
(add-alias '5rs 'r5rs)
- (add-alias 'hobbit (in-installation-vicinity "hobbit"))
- (add-alias 'scmhob (in-installation-vicinity "scmhob"))
- (add-alias 'regex-case (in-installation-vicinity "rgxcase"))
- (add-alias 'url-filename (in-installation-vicinity "urlfile"))
- (add-source 'disarm (in-installation-vicinity
+ (add-alias 'hobbit (in-implementation-vicinity "hobbit"))
+ (add-alias 'scmhob (in-implementation-vicinity "scmhob"))
+ (add-alias 'regex-case (in-implementation-vicinity "rgxcase"))
+ (add-alias 'url-filename (in-implementation-vicinity "urlfile"))
+ (add-source 'disarm (in-implementation-vicinity
(string-append "disarm" (scheme-file-suffix))))
- (add-source 'build (in-installation-vicinity "build"))
- (add-source 'compile (in-installation-vicinity
+ (add-source 'build (in-implementation-vicinity "build"))
+ (add-source 'compile (in-implementation-vicinity
(string-append "compile" (scheme-file-suffix))))
(display* ")")
)
(display* "#+" 'primitive-hygiene)
(display* "(")
- (add-source 'macro (in-installation-vicinity "Macro"))
+ (add-source 'macro (in-implementation-vicinity "Macro"))
(display* ")")
(add-links 'dld