Changeset 2815 in project


Ignore:
Timestamp:
01/10/07 12:32:40 (14 years ago)
Author:
felix winkelmann
Message:

rgraph fix by mario

Files:
4 edited

Legend:

Unmodified
Added
Removed
  • build/build.scm

    r2488 r2815  
    341341     (map (match-lambda
    342342            ((target . deps)
    343              (list target deps
    344                    (eval
    345                     `(lambda ()
    346                        (build:clean-on-error
    347                         ',target
    348                         (lambda ()
    349                           (fluid-let ,(hash-table-ref/default *variables* target '())
    350                             (apply
    351                              (hash-table-ref/default
    352                               build:*actions* ',target
    353                               (lambda (t . _) (if ,*VERBOSE* (message "nothing to do for ~a" t))))
    354                              ',target ',deps) ) ) ) ) ) ) ) )
     343             (let ((vars (hash-table-ref/default *variables* target '())))
     344               (list target deps
     345                     (eval
     346                      `(lambda ()
     347                         (build:clean-on-error
     348                          ',target
     349                          (lambda ()
     350                            ,@(map (lambda (va)
     351                                     `(if (not (##sys#symbol-has-toplevel-binding? ',(car va)))
     352                                          (set! ,(car va) "") ) )
     353                                   vars)
     354                            (fluid-let ,vars
     355                              (apply
     356                               (hash-table-ref/default
     357                                build:*actions* ',target
     358                                (lambda (t . _) (if ,*VERBOSE* (message "nothing to do for ~a" t))))
     359                               ',target ',deps) ) ) ) ) ) ) ) ) )
    355360          (hash-table->alist *dependencies*) )
    356361     (list->vector (normalize targets)) ) ) )
  • build/main.scm

    r2493 r2815  
    77(declare (uses scan))
    88
    9 (define-constant +version+ "0.4 - (c)2006 Felix L. Winkelmann")
     9(define-constant +version+ "0.5 - (c)2006 Felix L. Winkelmann")
    1010(define-constant +buildfile+ "Buildfile")
    1111(define-constant +initfile+ ".build")
  • rgraph/rgraph.html

    r1 r2815  
    1818<h3>Version:</h3>
    1919<ul>
     20<li>0.3.3
     21removed interactive test for srfi-40 from .setup script [thanks to Mario
     22Goulart]
    2023<li>0.3.2
    2124Adapted to SRFI-69 compatible hash-tables
  • rgraph/rgraph.setup

    r1 r2815  
    11;;;; rgraph.setup -*- Hen -*-
    22
    3 ; copied from chicken-setup.scm
    4 (define (yes-or-no? str . default)
    5   (let ([def (:optional default #f)])
    6     (let loop ()
    7       (printf "~A (yes/no) " str)
    8       (when def (printf "[~A] " def))
    9       (flush-output)
    10       (let ([ln (read-line)])
    11         (when (and def (string=? "" ln))
    12           (set! ln def) )
    13         (cond [(string=? "yes" ln) #t]
    14               [(string=? "no" ln) #f]
    15               [else
    16                (printf "~%Please enter \"yes\" or \"no\".~%")
    17                (loop) ] ) ) ) ) )
    18 
    19 (print "Installing Rooster Graph (rgraph-0.3.0) ...")
    20 
    21 (cond
    22   [(extension-info 'srfi-40)
    23    (run (csc -R srfi-40 -s -O2 -d0 rgraph-base.scm))]
    24   (else
    25     (print "WARNING: The CHICKEN egg 'srfi-40 has not been installed.")
    26     (print "         You will not be able to use the stream methods of")
    27     (print "              rgraph if you install right now.")
    28     (print "         We suggest that you run \"chicken-setup srfi-40\"")
    29     (print "              first and then re-install rgraph.")
    30     (unless (yes-or-no? "Do you want to install Rooster Graph now?" "no")
    31       (exit))
    32     (run (csc -s -O2 -d0 rgraph-base.scm))))
     3(run (csc -s -O2 -d0 rgraph-base.scm))
    334
    345(install-extension
     
    4112    "rgraph-base.so")
    4213  '((syntax)
    43     (version "0.3.0")
     14    (version "0.3.3")
    4415    (require-at-runtime rgraph-base extras)))
    45 (print "Installation successful.")
Note: See TracChangeset for help on using the changeset viewer.