Changeset 8211 in project


Ignore:
Timestamp:
02/06/08 15:29:28 (13 years ago)
Author:
Ivan Raikov
Message:

Updated Debian dependency version information.

Files:
22 edited

Legend:

Unmodified
Added
Removed

  • format-modular/trunk/debian/control

    r8096 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.6), libchicken-dev (>= 2.6)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.6), chicken-syntax-case, chicken-srfi-29 (>= 1.5)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-syntax-case, chicken-srfi-29 (>= 1.5)
    1212Description: A generic implementation of the Common LISP format facility
    1313 An extension for Chicken Scheme that allows the creation of formatter

  • locale/debian/control

    r8203 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5), chicken-miscmacros (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-miscmacros (>= 2.4)
    1212Description: POSIX locale operations in Scheme
    1313 This Chicken Scheme extension is a set of routines to support POSIX

  • lookup-table/trunk/debian/control

    r8207 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5), chicken-miscmacros (>= 2.4), chicken-misc-extn (>= 3.0)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-miscmacros (>= 2.4), chicken-misc-extn (>= 3.0)
    1212Description: Simple lookup table library
    1313 This Chicken Scheme extension purports to be a simple key -> value

  • misc-extn/trunk/debian/control

    r8204 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0)
    1212Description: Useful Scheme extensions and macros
    1313 A Chicken Scheme extension that contains a number of useful routines and macros

  • misc-extn/trunk/debian/copyright

    r6031 r8211  
    1 This package was debianized by Ivan Raikov <iraikov@ece.gatech.edu>.
     1This package was debianized by Ivan Raikov <raikov@oist.jp>.
    22
    33Copyright (c) 2006-2007, Kon Lovett.  All rights reserved.

  • miscmacros/debian/control

    r8206 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0)
    1212Description: Various useful little macros in Scheme.
    1313 A collection of macros for Chicken Scheme, including until, repeat,

  • nordsieck-vector/trunk/nordsieck-vector.scm

    r6853 r8211  
    11;;
    22;;
    3 ;; Nordsieck array implementation.
     3;; Nordsieck vector implementation.
    44;;
    55;;
    … …  
    2222;;
    2323
    24 (require-extension syntax-case)
    2524(require-extension srfi-1)
    2625(require-extension srfi-4)
    … …  
    3130(require-extension srfi-4-utils)
    3231
    33 (define-extension nordsieck)
     32(define-extension nordsieck-vector)
    3433
    3534;;(declare (export nordsieck-form

  • ode/trunk/abm4.scm

    r8047 r8211  
    2121;;
    2222
    23 
    24 (include "box.scm")
    2523(include "stack.scm")
    2624(include "lists.scm")
    … …  
    202200    (eval-derivs!)
    203201
    204     (let ((itstop (fx+ startit history-len)))
     202    (let ((itstop (+ startit history-len)))
    205203      (let loop ((it startit) (t t) (gdval gdval))
    206204
    … …  
    221219                                                           (svec-deriv svec)))))
    222220                           (let ((dep (stack-depth sthist1)))
    223                              (if (fx<= history-len dep) (stack-cut! sthist1 history-len dep)))
     221                             (if (<= history-len dep) (stack-cut! sthist1 history-len dep)))
    224222                           (cdr hstlist))))
    225223                     history)
    … …  
    229227              (printq)))
    230228
    231         (if (and (fx< it itstop) (t<tstop tstep t tstop))
     229        (if (and (< it itstop) (t<tstop tstep t tstop))
    232230
    233231            (begin ;; if not done with startup
    … …  
    256254                             (vector-set! k0vect i k0)
    257255                             (eval-env-set! sym (+ (svec-value svec) (* C20 k0)))))))
    258                    (cons (fx+ 1 i) (cdr hstlist))))
     256                   (cons (+ 1 i) (cdr hstlist))))
    259257               (cons 0 history))
    260258             
    … …  
    272270                         (vector-set! k1vect i k1)
    273271                         (eval-env-set! sym (step-k1 i (car (stack-peek sthist)) k1 k0vect))
    274                          (cons (fx+ 1 i) (cdr hstlist)))))))
     272                         (cons (+ 1 i) (cdr hstlist)))))))
    275273               (cons 0 history))
    276274             
    … …  
    288286                       (vector-set! k2vect i k2)
    289287                       (eval-env-set! sym (step-k2 i (car (stack-peek sthist)) k2 k1vect k0vect))
    290                        (cons (fx+ 1 i) (cdr hstlist))))))
     288                       (cons (+ 1 i) (cdr hstlist))))))
    291289               (cons 0 history))
    292290             
    … …  
    304302                       (vector-set! k3vect i k3)
    305303                       (eval-env-set! sym (step-k3 i (car (stack-peek sthist)) k3 k2vect k1vect k0vect))
    306                        (cons (fx+ 1 i) (cdr hstlist))))))
     304                       (cons (+ 1 i) (cdr hstlist))))))
    307305               (cons 0 history))
    308306             
    … …  
    321319                       (eval-env-set! sym (step-k4 i (car (stack-peek sthist))
    322320                                                   k4 k3vect k2vect k1vect k0vect))
    323                        (cons (fx+ 1 i) (cdr hstlist))))))
     321                       (cons (+ 1 i) (cdr hstlist))))))
    324322               (cons 0 history))
    325323             
    … …  
    344342                           (svec-abserr-set! svec (abs (- val predval)))
    345343                           (eval-env-set! sym val)
    346                            (cons (fx+ 1 i) (cdr hstlist)))))))
     344                           (cons (+ 1 i) (cdr hstlist)))))))
    347345               (cons 0 history))
    348346             
    … …  
    357355                            (eval-env-set! sym (svec-value svec))))
    358356                         (loop it t #f)))
    359                       (else (loop (fx+ 1 it) (+ t tstep) #t))))))
     357                      (else (loop (+ 1 it) (+ t tstep) #t))))))
    360358
    361359            (begin
    … …  
    400398                       (svec-value-set! svec predval)
    401399                       (eval-env-set! sym predval)
    402                        (cons (fx+ 1 i) (cdr hstlist)))))
     400                       (cons (+ 1 i) (cdr hstlist)))))
    403401                 (cons 0 history))
    404402               
    … …  
    424422                           (eval-env-set! sym cval)
    425423                           (svec-value-set! svec cval))
    426                          (cons (fx+ 1 i) (cdr hstlist))))))
     424                         (cons (+ 1 i) (cdr hstlist))))))
    427425                 (cons 0 history))
    428426               
    … …  
    457455                                                                    (svec-deriv svec)))))
    458456                                    (let ((dep (stack-depth sthist1)))
    459                                       (if (fx<= history-len dep) (stack-cut! sthist1 history-len dep)))
     457                                      (if (<= history-len dep) (stack-cut! sthist1 history-len dep)))
    460458                                    (cdr hstlist))))
    461459                              history)
    … …  
    471469                             (eval-derivs!)
    472470                             
    473                              (loop (fx+ 1 it) (+ t tstep) tstep))))))))
     471                             (loop (+ 1 it) (+ t tstep) tstep))))))))
    474472            (list it t tstep (list))))))
    475473 
    476   (if debug (print "abm4: " (ode-runtime 'debug)))   
     474;;  (if debug (print "abm4: " (ode-runtime 'debug)))   
    477475  (abm4 0 0.0 initial-tstep)))

  • ode/trunk/euler.scm

    r8047 r8211  
    3737  (define lowerror?  (ode-runtime 'lowerror?))
    3838
    39   (define printq  (ode-runtime 'print))
    40   (define eval-rhs    (ode-runtime 'eval-rhs))
    41   (define eval-guard  (ode-runtime 'eval-guard))
    42   (define is-state? (ode-runtime 'is-state?))
    43   (define is-asgn?  (ode-runtime 'is-asgn?))
     39  (define printq         (ode-runtime 'print))
     40  (define eval-rhs       (ode-runtime 'eval-rhs))
     41  (define eval-guard     (ode-runtime 'eval-guard))
     42  (define is-state?      (ode-runtime 'is-state?))
     43  (define is-asgn?       (ode-runtime 'is-asgn?))
    4444  (define solve-env-ref  (ode-runtime 'solve-env-ref))
    4545  (define solve-env-set! (ode-runtime 'solve-env-set!))
    46   (define eval-env-ref  (ode-runtime 'eval-env-ref))
    47   (define eval-env-set! (ode-runtime 'eval-env-set!))
     46  (define eval-env-ref   (ode-runtime 'eval-env-ref))
     47  (define eval-env-set!  (ode-runtime 'eval-env-set!))
     48  (define solve-env-state-foreach  (ode-runtime 'solve-env-state-foreach))
    4849
    49   (define svec-deriv-idx  (ode-runtime 'svec-deriv-idx))
    50   (define svec-value-idx  (ode-runtime 'svec-value-idx))
     50  (define svec-deriv-idx   (ode-runtime 'svec-deriv-idx))
     51  (define svec-value-idx   (ode-runtime 'svec-value-idx))
    5152  (define svec-relerr-idx  (ode-runtime 'svec-relerr-idx))
    5253  (define svec-abserr-idx  (ode-runtime 'svec-abserr-idx))
    … …  
    9293                                                 (svec-deriv-set! svec v)
    9394                                                 (vector-set! hy1vect i hy1))))
    94                                         (fx+ 1 i)))
     95                                        (+ 1 i)))
    9596                    ((is-asgn? sym)   (begin
    9697                                        (eval-env-set! sym v)
    … …  
    115116                      (numerror "guard failed: " g))) guards)
    116117
    117       ((ode-runtime 'solve-env-state-foreach)
     118      (solve-env-state-foreach
    118119       (lambda (sym svec)
    119120         (eval-env-set! sym (svec-value svec))))
    … …  
    143144                                     (svec-value-set! svec v)
    144145                                     (vector-set! z i (- hy1 (- v  oldv)))))
    145                                (fx+ 1 i)))
     146                               (+ 1 i)))
    146147                      (else i)))) i lst)) 0)
    147148
    … …  
    150151              (set! tz (- t2 tstep))
    151152              (eval-env-set! indep t1)
    152               (loop (fx+ 1 it) t1)))
     153              (loop (+ 1 it) t1)))
    153154          (begin
    154             (if debug (begin
    155                         (print "euler: ")
    156                         (for-each (lambda (x) (print x)) (ode-runtime 'debug))))
    157155            (list it t tstep (list))))))
    158156
    159   (if debug (begin
    160               (print "euler: ")
    161               (for-each (lambda (x) (print x)) (ode-runtime 'debug))))
    162157  (euler 0 0.0 initial-tstep)))
    163158

  • ode/trunk/extensions/ode-ctranslator.scm

    r7954 r8211  
    135135          (if (not (or (equal? rt 'f64vector) (equal? rt 'f32vector)))
    136136              (let ((cname  (make-cname sym "_cfn"))
    137                     (vars   (map (lambda (x) (gensym "x")) fms)))
     137                    (vars   (lookup-field 'vars lst (map (lambda (x) (gensym "x")) fms))))
    138138                (outf ((define ,sym ,accessor)) ,nl)
    139139                (outf ((define-external (,cname ,@(zip fms vars)) ,rt (,sym ,@vars))) ,nl))))

  • ode/trunk/ode.scm

    r8047 r8211  
    4141                 ode:env-copy ode-intern ode:quantity?
    4242                 make-rhs-procedure rhs-procedure?
     43                 rhs-procedure-vars rhs-procedure-proc
    4344                 eval-ode-system-decls
    4445                 STATE ASGN VASGN CONST PRIM))
    … …  
    178179  (define (add-primitives! env)
    179180    (for-each (lambda (n b fms rt)
    180                 (let ((fb (extend-procedure b `((rt      ,rt)
    181                                                 (formals ,fms)))))
     181                (let ((fb (extend-procedure b `((rt ,rt) (formals ,fms)))))
    182182                  (environment-extend! env n fb)))
    183183              `(+ - * / pow neg
    … …  
    397397                         (rt     (infer ode-env ftenv formals body))
    398398                         (ftypes (filter-map (lambda (x) (and (environment-includes? ftenv x)
    399                                                               (environment-ref ftenv x))) formals))
    400                          (ef     (if rt (extend-procedure f `((rt ,rt) (formals ,ftypes))) f)))
     399                                                              (environment-ref ftenv x)))
     400                                             formals))
     401                         (ef     (extend-procedure f `((rt ,rt) (formals ,ftypes) (vars ,formals)
     402                                                       (body ,body) (consts ,consts)))))
    401403                  (environment-extend! ode-env sym ef))))))))
    402404
    … …  
    568570           (node-ids      (list-tabulate (length node-list) identity))
    569571           (name->id-map  (zip node-list node-ids)))
    570       (match-let (((state-list asgn-list) 
     572      (let-values (((state-list asgn-list) 
    571573                    (partition (lambda (sym) (isstate? (environment-ref ode-env sym)))
    572574                               node-list)))
    … …  
    611613    (define node-info (g 'node-info))
    612614
    613     (match-let (((dists dmax) (graph-bfs-dist g ((g 'roots)))))
     615    (let-values (((dists dmax) (graph-bfs-dist g ((g 'roots)))))
    614616      (let loop ((poset  (make-vector (fx+ 1 dmax) (list)))
    615617                 (i      (fx- (s32vector-length dists) 1)))
    … …  
    951953      ((sysname)           sysname)
    952954      ((fptype)            fptype)
     955      ((relmax)            relmax)
     956      ((relmin)            relmin)
     957      ((absmax)            absmax)
     958      ((absmin)            absmin)
    953959      (else
    954960       (ode:error 'selector ": unknown message " selector " sent to an ode object"))))

  • ode/trunk/ode.setup

    r8006 r8211  
    1010
    1111
    12 (compile -O2 -s -o ,(dynld-name "ode")
     12(compile -d2 -O -s -o ,(dynld-name "ode")
    1313         ,@(if has-exports? '(-check-imports -emit-exports ode.exports) '())
    1414         ode.scm)
    … …  
    2424
    2525  ; Assoc list with properties for your extension:
    26   `((version 3.3)
     26  `((version 4.0)
    2727    (documentation "ode.html")
    2828    ,@(if has-exports? `((exports "ode.exports")) (list)) ))
    2929
    3030
    31 (compile -O2 -s -extension -o ,(dynld-name "ode-euler")
     31(compile -d0 -O2 -s -extension -o ,(dynld-name "ode-euler")
    3232         ,@(if has-exports? '(-check-imports -emit-exports ode-euler.exports) '())
    3333         -prelude "\"(declare (export make-ode:euler))\""
    3434         euler.scm)
    3535
    36 (compile -O2 -s -extension -o ,(dynld-name "ode-rkf45")
     36(compile -d0 -O2 -s -extension -o ,(dynld-name "ode-rkf45")
    3737         ,@(if has-exports? '(-check-imports -emit-exports ode-rkf45.exports) '())
    3838         -prelude "\"(declare (export make-ode:rkf45))\""
     39         -prelude "\"(include \\\"box.scm\\\")\""
    3940         rkf45.scm)
    4041
    41 (compile -O2 -s -extension -o ,(dynld-name "ode-abm4")
     42(compile -d0 -O2 -s -extension -o ,(dynld-name "ode-abm4")
    4243         ,@(if has-exports? '(-check-imports -emit-exports ode-abm4.exports) '())
    4344         -prelude "\"(declare (export make-ode:abm4))\""
     45         -prelude "\"(include \\\"box.scm\\\")\""
    4446         abm4.scm)
    4547
    … …  
    5456
    5557  ; Assoc list with properties for your extension:
    56   `((version 3.3)
     58  `((version 4.0)
    5759    ,@(if has-exports? `((exports "ode-abm4.exports")) (list)) ))
    5860
    … …  
    6870
    6971  ; Assoc list with properties for your extension:
    70   `((version 3.3)
     72  `((version 4.0)
    7173    ,@(if has-exports? `((exports "ode-rkf45.exports")) (list)) ))
    7274
    … …  
    8183    ,@(if has-exports? '("ode-euler.exports") (list)) )
    8284  ; Assoc list with properties for your extension:
    83   `((version 3.3)
     85  `((version 4.0)
    8486    ,@(if has-exports? `((exports "ode-euler.exports")) (list)) ))
    8587
    … …  
    9395         extensions/ode-ctranslator.scm)
    9496
     97(compile -d2 -O -s -o ,(dynld-name "ode-stalin")
     98         ,@(if has-exports? '(-check-imports -emit-exports ode-stalin.exports) '())
     99         extensions/ode-stalin.scm)
     100
    95101(compile -d2 -O -s -o ,(dynld-name "ode-bpr")
    96102         ,@(if has-exports? '(-check-imports -emit-exports ode-bpr.exports) '())
    … …  
    133139
    134140  ; Assoc list with properties for your extension:
    135   `((version 3.3)
     141  `((version 4.0)
    136142    ,@(if has-exports? `((exports "ode-solvers.exports")) (list)) ))
    137143
    … …  
    147153
    148154  ; Assoc list with properties for your extension:
    149   `((version 3.3)
     155  `((version 4.0)
    150156    ,@(if has-exports? `((exports "ode-ctranslator.exports")) (list)) ))
     157
     158
     159(install-extension
     160
     161  ; Name of your extension:
     162  'ode-stalin
     163
     164  ; Files to install for your extension:
     165  `(,(dynld-name "ode-stalin") 
     166    ,@(if has-exports? '("ode-stalin.exports") (list)) )
     167
     168  ; Assoc list with properties for your extension:
     169  `((version 4.0)
     170    ,@(if has-exports? `((exports "ode-stalin.exports")) (list)) ))
    151171
    152172
    … …  
    161181
    162182  ; Assoc list with properties for your extension:
    163   `((version 3.3)
     183  `((version 4.0)
    164184    ,@(if has-exports? `((exports "ode-hhsm.exports")) (list)) ))
    165185
    … …  
    175195
    176196  ; Assoc list with properties for your extension:
    177   `((version 3.3)
     197  `((version 4.0)
    178198    ,@(if has-exports? `((exports "ode-bpr.exports")) (list)) ))
    179199
    … …  
    190210
    191211  ; Assoc list with properties for your extension:
    192   `((version 3.3)
     212  `((version 4.0)
    193213    ,@(if has-exports? `((exports "ode-waveform.exports")) (list)) ))
    194214
    … …  
    204224
    205225  ; Assoc list with properties for your extension:
    206   `((version 3.3)
     226  `((version 4.0)
    207227    ,@(if has-exports? `((exports "ode-hhs.exports")) (list)) ))
    208228
    … …  
    218238
    219239  ; Assoc list with properties for your extension:
    220   `((version 3.3)
     240  `((version 4.0)
    221241    ,@(if has-exports? `((exports "ode-lambda.exports")) (list)) ))
    222242
    … …  
    232252
    233253  ; Assoc list with properties for your extension:
    234   `((version 3.3)
     254  `((version 4.0)
    235255    ,@(if has-exports? `((exports "ode-rate.exports")) (list)) ))
    236256
    … …  
    241261 'ode-macros
    242262 `("ode-macros.scm" )
    243  `((version 3.3)
     263 `((version 4.0)
    244264   (syntax)
    245265   (require-at-runtime ode)))

  • ode/trunk/rkf45.scm

    r8047 r8211  
    6969
    7070
    71 (include "box.scm")
    7271(include "stack.scm")
    7372(include "lists.scm")
    … …  
    224223                                                   (svec-deriv svec)))))
    225224                   (let ((dep (stack-depth sthist1)))
    226                      (if (fx<= history-len dep) (stack-cut! sthist1 history-len dep)))
     225                     (if (<= history-len dep) (stack-cut! sthist1 history-len dep)))
    227226                   (cdr hstlist))))
    228227             history)
    … …  
    258257                           (vector-set! k0vect i k0)
    259258                           (eval-env-set! sym (+ (svec-value svec) (* C20 k0))))))
    260                    (cons (fx+ 1 i) (cdr hstlist)))))
     259                   (cons (+ 1 i) (cdr hstlist)))))
    261260             (cons 0 history))
    262261           
    … …  
    280279                           (eval-env-set! sym (+ (car (stack-peek sthist))
    281280                                                 (* C30 k0) (* C31 k1))))))
    282                    (cons (fx+ 1 i) (cdr hstlist)))))
     281                   (cons (+ 1 i) (cdr hstlist)))))
    283282             (cons 0 history))
    284283           
    … …  
    303302                           (eval-env-set! sym (+ (car (stack-peek sthist))
    304303                                                 (* C40 k0) (* C41 k1) (* C42 k2))))))
    305                    (cons (fx+ 1 i) (cdr hstlist)))))
     304                   (cons (+ 1 i) (cdr hstlist)))))
    306305             (cons 0 history))
    307306           
    … …  
    328327                                                 (* C50 k0) (* C51 k1)
    329328                                                 (* C52 k2) (* C53 k3))))))
    330                    (cons (fx+ 1 i) (cdr hstlist)))))
     329                   (cons (+ 1 i) (cdr hstlist)))))
    331330             (cons 0 history))
    332331           
    … …  
    354353                                                 (* C60 k0) (* C61 k1) (* C62 k2)
    355354                                                 (* C63 k3) (* C64 k4))))))
    356                    (cons (fx+ 1 i) (cdr hstlist)))))
     355                   (cons (+ 1 i) (cdr hstlist)))))
    357356             (cons 0 history))
    358357           
    … …  
    389388                             (svec-abserr-set! svec (abs (- val predval)))
    390389                             (eval-env-set! sym val)))))
    391                    (cons (fx+ 1 i) (cdr hstlist)))))
     390                   (cons (+ 1 i) (cdr hstlist)))))
    392391             (cons 0 history))
    393392           
    … …  
    399398                       (begin
    400399                         (set! tstep (* tstep (max m (sqrt (/ relmax (abs hierr))))))
    401                          (set! prevstep (fx+ it prevstep-history))
    402                          (if (fx< prevstep-history prevstep-history-max)
    403                                   (set! prevstep-history (fx+ 1 prevstep-history)))
     400                         (set! prevstep (+ it prevstep-history))
     401                         (if (< prevstep-history prevstep-history-max)
     402                                  (set! prevstep-history (+ 1 prevstep-history)))
    404403                         ((ode-runtime 'solve-env-state-foreach)
    405404                          (lambda (sym svec)
    … …  
    407406                         (loop it t #f)))
    408407                      ((and loerr (positive? loerr)
    409                             (fx<= prevstep it) (< (+ t tstep) tstop))
     408                            (<= prevstep it) (< (+ t tstep) tstop))
    410409                       (begin
    411410                         (set! tstep (* tstep S (min M (sqrt (/ relmax (abs loerr))))))
    … …  
    416415                      (else
    417416                       (begin
    418                          (if (fx> prevstep-history prevstep-history-min)
    419                              (set! prevstep-history (fx- prevstep-history 1)))
    420                          (loop (fx+ 1 it) (+ t tstep) #t)))))))
     417                         (if (> prevstep-history prevstep-history-min)
     418                             (set! prevstep-history (- prevstep-history 1)))
     419                         (loop (+ 1 it) (+ t tstep) #t)))))))
    421420         
    422421          (begin
    423422            (list it t tstep (list))))))
    424423
    425   (if debug (print "rkf45: " (ode-runtime 'debug)))
     424;;  (if debug (print "rkf45: " (ode-runtime 'debug)))
    426425  (rk5 0 0.0 initial-tstep #t)))

  • release/3/srfi-40/debian/copyright

    r6000 r8211  
    1 This package was debianized by Ivan Raikov <raikov@cc.gatech.edu>.
     1This package was debianized by Ivan Raikov <raikov@oist.jp>.
    22
    33

  • release/3/srfi-40/debian/rules

    r6023 r8211  
    1111endif
    1212
     13
     14EGG_TREE ?= /home/chicken/chicken-eggs
     15
    1316BINARY_VERSION=$(shell basename `chicken-setup -R`)
    14 
     17EGG_TMPDIR=debian/tmp/lib/chicken/$(BINARY_VERSION)
    1518CHICKEN_EGG=srfi-40
    1619
    … …  
    1922        dh_testdir
    2023        mkdir -p $(CURDIR)/debian/tmp
    21         chicken-setup -dont-ask -repository $(CURDIR)/debian/tmp -local $(CURDIR) $(CHICKEN_EGG)
     24        chicken-setup -dont-ask -destdir $(CURDIR)/debian/tmp -local $(EGG_TREE) $(CHICKEN_EGG)
    2225        touch build-stamp
    2326
    … …  
    2730        rm -f build-stamp
    2831        rm -rf debian/tmp
    29         rm -rf *.egg *.egg.dir
     32        rm -rf *.egg *.egg-dir *.exports *.so
    3033        dh_clean
    3134
    … …  
    3841        dh_testdir
    3942        dh_testroot
    40         dh_install debian/tmp/$(CHICKEN_EGG){*.so,*.scm,*.setup-info} var/lib/chicken/$(BINARY_VERSION)
    41         dh_installdocs debian/tmp/{$(CHICKEN_EGG)*.html,index.html}
     43        dh_install $(EGG_TMPDIR)/{*.so,*.scm,*.setup-info,*.exports} var/lib/chicken/$(BINARY_VERSION)
     44        dh_installdocs $(EGG_TMPDIR)/*.html
    4245#       dh_installman
    4346#       dh_installchangelogs ChangeLog

  • sandbox/debian/control

    r8081 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0)
    1212Description: A safe evaluation environment for Scheme expressions
    1313 This Chicken Scheme extension provides a safe evaluation context for

  • sqlite3/trunk/debian/control

    r8176 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4), libsqlite3-dev
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0), libsqlite3-dev
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-tinyclos, chicken-synch, libsqlite3-0
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-tinyclos, chicken-synch, libsqlite3-0
    1212Description: Chicken Scheme bindings to version 3.x of the SQLite API.
    1313 This Chicken Scheme extension contains bindings to the SQLite API,

  • srfi-29/debian/control

    r8098 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-locale (>= 0.3.1), chicken-lookup-table (>= 1.5), chicken-miscmacros (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-locale (>= 0.3.1), chicken-lookup-table (>= 1.5), chicken-miscmacros (>= 2.4)
    1212Description: Localization for Scheme programs
    1313 A Chicken Scheme implementation of SRFI 29, which specifies an

  • srfi-40/debian/control

    r8079 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0)
    1212Description: A library of streams
    1313 A Chicken Scheme implementation of SRFI 40 (A Library of

  • stream-ext/trunk/debian/control

    r8091 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-srfi-40, chicken-format-modular
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-srfi-40, chicken-format-modular
    1212Description: A library of extensions to the SRFI-40 streams.
    1313 This Chicken Scheme extrension provides many convenient procedures to work with SRFI 40 streams.

  • svn-client/trunk/svn-client.scm

    r3518 r8211  
    448448))
    449449
     450(define svn-propset
     451  (foreign-safe-lambda* scheme-object ((c-string propname) (c-string propval) (c-string target) (c-string user) (c-string pass) )
     452#<<EOF
     453  apr_pool_t *pool;
     454  apr_hash_index_t *tmp;
     455  svn_string_t *spropval;
     456  svn_error_t *err;
     457
     458  svnwiki_user = user;
     459  svnwiki_pass = pass;
     460
     461  pool = svn_pool_create(NULL);
     462  spropval = svn_string_create ("", pool);
     463
     464  spropval->data = propval;
     465  spropval->len = strlen (propval);
     466
     467  err = svn_client_propset(propname, spropval, target, FALSE, pool);
     468  if (err)
     469    {
     470      apr_pool_destroy(pool);
     471      svn_handle_error(err, stderr, FALSE);
     472      svn_error_clear(err);
     473      return(C_SCHEME_FALSE);
     474    }
     475
     476  apr_pool_destroy(pool);
     477
     478  return(C_SCHEME_TRUE);
     479EOF
     480))
     481
    450482(define-external (svn_propget_add (c-string key) (c-string value) ((pointer void) result)) scheme-object
    451483  (cons (list key value) (gc-root-ref result)))

  • syntax-case/debian/control

    r8209 r8211  
    33Priority: optional
    44Maintainer: Ivan Raikov <raikov@oist.jp>
    5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)
     5Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0)
    66Standards-Version: 3.6.2
    77
    … …  
    99Section: libs
    1010Architecture: any
    11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)
     11Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0)
    1212Description: Portable syntax-case macro and module system
    1313 This is a port for Chicken Scheme of the ``portable syntax-case''
Note: See TracChangeset for help on using the changeset viewer.