aboutsummaryrefslogtreecommitdiffstats
path: root/mkimpcat.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mkimpcat.scm')
-rw-r--r--mkimpcat.scm36
1 files changed, 25 insertions, 11 deletions
diff --git a/mkimpcat.scm b/mkimpcat.scm
index c745cfc..02d1323 100644
--- a/mkimpcat.scm
+++ b/mkimpcat.scm
@@ -1,4 +1,4 @@
-;; Copyright (C) 1993, 1994, 1995, 1997, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 1997, 1998, 1999, 2001, 2003, 2004, 2006 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -73,7 +73,13 @@
(display " " op)
(write (cons from to) op)
(newline op))
- (define (add-source feature filename) (add-alias feature filename))
+ (define (add-source feature filename)
+ (cond ((file-exists? filename)
+ (display " " op)
+ (write (list feature 'source filename) op)
+ (newline op)
+ #t)
+ (else #f)))
(define (add-links feature usr:lib x:lib link:able-suffix)
(display* "#+" feature)
(display* "(")
@@ -120,14 +126,7 @@
(in-wb-vicinity "blkio" link:able-suffix)
(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"))
+ ;; wbtab and rwb-isam moved to "Simple associations"
(add-alias 'wb 'db)))
(cond ((add-link 'mysql
(in-implementation-vicinity "database"
@@ -217,12 +216,27 @@
(add-source 'build (in-implementation-vicinity "build"))
(add-source 'compile (in-implementation-vicinity
(string-append "compile" (scheme-file-suffix))))
+ (or
+ (add-source 'wb-table
+ (in-implementation-vicinity
+ (string-append "wbtab" (scheme-file-suffix))))
+ (add-source 'wb-table
+ (in-wb-vicinity
+ (string-append "wbtab" (scheme-file-suffix)))))
+ (or
+ (add-source 'rwb-isam
+ (in-implementation-vicinity
+ (string-append "rwb-isam" (scheme-file-suffix))))
+ (add-source 'rwb-isam
+ (in-wb-vicinity
+ (string-append "rwb-isam" (scheme-file-suffix)))))
(display* ")")
)
(display* "#+" 'primitive-hygiene)
(display* "(")
- (add-source 'macro (in-implementation-vicinity "Macro"))
+ (add-source 'macro (in-implementation-vicinity
+ (string-append "Macro" (scheme-file-suffix))))
(display* ")")
(add-links 'dld