aboutsummaryrefslogtreecommitdiffstats
path: root/mkimpcat.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mkimpcat.scm')
-rw-r--r--mkimpcat.scm38
1 files changed, 22 insertions, 16 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm
index f94f949..df6c813 100644
--- a/mkimpcat.scm
+++ b/mkimpcat.scm
@@ -44,6 +44,7 @@
(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)
@@ -82,11 +83,15 @@
(in-implementation-vicinity "ioext" link:able-suffix)
(usr:lib "c"))
(add-alias 'directory-for-each 'i/o-extensions)
+ (add-alias 'directory 'i/o-extensions)
(add-alias 'line-i/o 'i/o-extensions)
(add-alias 'pipe 'i/o-extensions)))
(cond ((add-link 'rev2-procedures
(in-implementation-vicinity "sc2"
link:able-suffix))))
+ (cond ((add-link 'byte
+ (in-implementation-vicinity "byte"
+ link:able-suffix))))
(cond ((or
(add-link 'db
(in-wb-vicinity "db.so"))
@@ -104,6 +109,8 @@
(usr:lib "c")))
(add-source 'wb-table
(in-wb-vicinity "wbtab"))
+ (add-source 'rwb-isam
+ (in-wb-vicinity "rwb-isam"))
(add-alias 'wb 'db)))
(cond ((add-link 'mysql
(in-implementation-vicinity "database"
@@ -182,27 +189,22 @@
(add-alias '3rs 'r3rs)
(add-alias '4rs 'r4rs)
(add-alias '5rs 'r5rs)
- (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
+ (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
(string-append "disarm" (scheme-file-suffix))))
- (add-source 'build (in-implementation-vicinity "build"))
- (add-source 'compile (in-implementation-vicinity
+ (add-source 'build (in-installation-vicinity "build"))
+ (add-source 'compile (in-installation-vicinity
(string-append "compile" (scheme-file-suffix))))
(display* ")")
)
- (begin
- ;; Messy because this trait has no C-installed feature name
- (display* "#.(if (defined? renamed-identifier)")
- (display* " '(")
- (display " " op)
- (add-source 'macro (in-implementation-vicinity "Macro"))
- (display* " )")
- (display* " '())")
- )
+ (display* "#+" 'primitive-hygiene)
+ (display* "(")
+ (add-source 'macro (in-installation-vicinity "Macro"))
+ (display* ")")
(add-links 'dld
(lambda (lib) (string-append "/usr/lib/lib" lib ".a"))
@@ -229,4 +231,8 @@
(lambda (lib) #f)
(lambda (lib) #f)
".so")
+ (add-links 'win32-dl
+ (lambda (lib) #f)
+ (lambda (lib) #f)
+ ".dll")
)))