Changeset 12426 in project


Ignore:
Timestamp:
11/09/08 17:54:18 (11 years ago)
Author:
azul
Message:

Use exports.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/html-stream/trunk/html-stream.setup

    r4022 r12426  
    1 (compile -s -O2 -d1 html-stream-base.scm)
    2 (install-extension
    3   'html-stream
    4   '("html-stream.scm" "html-stream-base.so")
    5   `((syntax)
    6     (require-at-runtime html-stream-base)
    7     (version ,(if (file-exists? "version") (with-input-from-file "version" read) "unknown"))
    8     (documentation "html-stream.html")))
     1;; -*- scheme -*-
     2
     3(define has-exports? (string>=? (chicken-version) "2.310"))
     4
     5(define (dynld-name fn)
     6  (make-pathname #f fn ##sys#load-dynamic-extension))   
     7
     8(compile  -O2 -d0 -s
     9         ,@(if has-exports? '(-check-imports -emit-exports html-stream.exports) '())
     10         html-stream-base.scm)
     11
     12(install-extension 'html-stream
     13                   `(,(dynld-name "html-stream")
     14                     "html-stream-base.so"
     15                     ,@(if has-exports? '("html-stream.exports") (list)))
     16                   `((syntax)
     17                     (require-at-runtime html-stream-base)
     18                     (version ,(if (file-exists? "version") (with-input-from-file "version" read) "unknown"))
     19                     ,@(if has-exports? `((exports "html-stream.exports")) (list))
     20                     (documentation "html-stream.html")))
Note: See TracChangeset for help on using the changeset viewer.