Changeset 13545 in project

Timestamp:

03/07/09 02:14:57 (12 years ago)

Author:

Kon Lovett

Message:

Save.

File:

• release/4/box/trunk/box.setup (modified) (3 diffs)

release/4/box/trunk/box.setup

@@ -1 +1 @@
 ;;;; box.setup
 
-;;;
+;;; Release 4 Only!
 
 (required-chicken-version 4.0)
 
-;;
+;;; Extension Information
+
+(define *extension-name* 'box)
+(define *extension-version* (extension-version "2.0.0"))
+
+(let ([extnam (symbol->string *extension-name*)])
+  (unless (string=? extnam (extension-name))
+    (warning "expecting extension-name - got: " extnam (extension-name)) ) )
+
+;;; Support
+
+;; Filename Support
 
 (define (make-fn bn . en)
@@ -31 +42 @@
   (shared-fn (import-fn bn)) )
 
-;;
+(define (inline-fn bn)
+  (make-fn bn "inline") )
+
+(define (program-fn bn)
+  (make-fn bn (and (eq? 'windows (software-type)) "exe")) )
+
+;; File Support
+
+(define (copy-file-to-directory fn dn)
+  (copy-file fn (make-pathname dn fn)) )
+
+(define (copy-to-repository fn)
+  (copy-file-to-directory fn (repository-path)) )
+
+(define (copy-to-home fn)
+  (copy-file-to-directory fn (chicken-home)) )
+
+;; SRFI-29 Bundle Support
+
+(define *srfi-29-bundles-path* (make-pathname (repository-path) "srfi-29-bundles"))
+
+(define (srfi-29-bundle-directory spec)
+  (let ([dir (append (list *srfi-29-bundles-path*) (take spec (sub1 (length spec))))]
+        [nam (last spec)])
+    (make-pathname dir nam) ) )
+
+(define (install-srfi-29-bundle nam . spec)
+  (unless (directory? *srfi-29-bundles-path*)
+          (error "missing SRFI-29 bundles directory; please install SRFI-29") )
+        (let ([bundle-dir (srfi-29-bundle-directory spec)])
+    (unless (directory? bundle-dir) (create-directory/parents bundle-dir)) )
+        (let* ([namstr (->string nam)]
+               [bundle-src (make-pathname (append '(".") spec) namstr)]
+               [bundle-dst (make-pathname (append (list *srfi-29-bundles-path*) spec) namstr)])
+                (copy-file bundle-src bundle-dst) ) )
+
+;; Compile Support
 
 (define (compile-static-extension nam . args)
@@ -46 +93 @@
     ,@args)
   (compile ,(source-import-fn nam)
-    -optimize-level 2 -debug-level 0
+    -optimize-level 2 #;4 -debug-level 0
     -shared -output-file ,(shared-import-fn nam)) )
 
-;;
+;; Install Support
 
-(define (install-shared-extension nam #!key (compile '()) (install '()))
-  (apply compile-shared-extension nam compile)
+(define (install-shared-extension nam ver . args)
   (install-extension nam
    `(,(shared-fn nam) ,(shared-import-fn nam))
-   `((version ,*version*)
+   `((version ,ver)
      (documentation ,(doc-fn nam))
-     ,@install)) )
+     ,@args)) )
 
-(define (install-shared-static-extension nam  #!key (compile '()) (install '()))
-  (apply compile-shared-extension nam compile)
-  (apply compile-static-extension nam compile)
+(define (install-static-extension nam ver . args)
   (install-extension nam
-   `(,(shared-fn nam) ,(static-fn nam) ,(shared-import-fn nam))
-   `((version ,*version*)
+   `(,(static-fn nam))
+   `((version ,ver)
      (static ,(static-fn nam))
      (documentation ,(doc-fn nam))
-     ,@install)) )
+     ,@args)) )
+
+(define (install-shared+static-extension ver nam . args)
+  (install-extension nam
+   `(,(shared-fn nam) ,(shared-import-fn nam) ,(static-fn nam))
+   `((version ,ver)
+     (static ,(static-fn nam))
+     (documentation ,(doc-fn nam))
+     ,@args)) )
+
+;; Build Support
+
+(define (build-shared-extension nam ver #!key (compile '()) (install '()))
+  (apply compile-shared-extension nam compile)
+  (apply install-shared-extension nam ver install) )
+
+(define (build-static-extension nam ver #!key (compile '()) (install '()))
+  (apply compile-static-extension nam compile)
+  (apply install-static-extension nam ver install) )
+
+(define (build-shared+static-extension nam ver #!key (shared-compile '()) (static-compile '()) (install '()))
+  (apply compile-shared-extension nam shared-compile)
+  (apply compile-static-extension nam static-compile)
+  (apply install-shared+static-extension nam ver install) )
 
 ;;;
 
-(define *version* "2.0.0")
-
-(install-shared-extension 'box)
+(build-shared-extension *extension-name* *extension-version*)