Changeset 8211 in project
- Timestamp:
- 02/06/08 15:29:28 (12 years ago)
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
format-modular/trunk/debian/control
r8096 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.6), libchicken-dev (>= 2.6)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.6), chicken-syntax-case, chicken-srfi-29 (>= 1.5)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-syntax-case, chicken-srfi-29 (>= 1.5) 12 12 Description: A generic implementation of the Common LISP format facility 13 13 An extension for Chicken Scheme that allows the creation of formatter -
locale/debian/control
r8203 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5), chicken-miscmacros (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-miscmacros (>= 2.4) 12 12 Description: POSIX locale operations in Scheme 13 13 This Chicken Scheme extension is a set of routines to support POSIX -
lookup-table/trunk/debian/control
r8207 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5), chicken-miscmacros (>= 2.4), chicken-misc-extn (>= 3.0)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-miscmacros (>= 2.4), chicken-misc-extn (>= 3.0) 12 12 Description: Simple lookup table library 13 13 This Chicken Scheme extension purports to be a simple key -> value -
misc-extn/trunk/debian/control
r8204 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.5)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0) 12 12 Description: Useful Scheme extensions and macros 13 13 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>.1 This package was debianized by Ivan Raikov <raikov@oist.jp>. 2 2 3 3 Copyright (c) 2006-2007, Kon Lovett. All rights reserved. -
miscmacros/debian/control
r8206 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0) 12 12 Description: Various useful little macros in Scheme. 13 13 A collection of macros for Chicken Scheme, including until, repeat, -
nordsieck-vector/trunk/nordsieck-vector.scm
r6853 r8211 1 1 ;; 2 2 ;; 3 ;; Nordsieck arrayimplementation.3 ;; Nordsieck vector implementation. 4 4 ;; 5 5 ;; … … 22 22 ;; 23 23 24 (require-extension syntax-case)25 24 (require-extension srfi-1) 26 25 (require-extension srfi-4) … … 31 30 (require-extension srfi-4-utils) 32 31 33 (define-extension nordsieck )32 (define-extension nordsieck-vector) 34 33 35 34 ;;(declare (export nordsieck-form -
ode/trunk/abm4.scm
r8047 r8211 21 21 ;; 22 22 23 24 (include "box.scm")25 23 (include "stack.scm") 26 24 (include "lists.scm") … … 202 200 (eval-derivs!) 203 201 204 (let ((itstop ( fx+ startit history-len)))202 (let ((itstop (+ startit history-len))) 205 203 (let loop ((it startit) (t t) (gdval gdval)) 206 204 … … 221 219 (svec-deriv svec))))) 222 220 (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))) 224 222 (cdr hstlist)))) 225 223 history) … … 229 227 (printq))) 230 228 231 (if (and ( fx< it itstop) (t<tstop tstep t tstop))229 (if (and (< it itstop) (t<tstop tstep t tstop)) 232 230 233 231 (begin ;; if not done with startup … … 256 254 (vector-set! k0vect i k0) 257 255 (eval-env-set! sym (+ (svec-value svec) (* C20 k0))))))) 258 (cons ( fx+ 1 i) (cdr hstlist))))256 (cons (+ 1 i) (cdr hstlist)))) 259 257 (cons 0 history)) 260 258 … … 272 270 (vector-set! k1vect i k1) 273 271 (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))))))) 275 273 (cons 0 history)) 276 274 … … 288 286 (vector-set! k2vect i k2) 289 287 (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)))))) 291 289 (cons 0 history)) 292 290 … … 304 302 (vector-set! k3vect i k3) 305 303 (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)))))) 307 305 (cons 0 history)) 308 306 … … 321 319 (eval-env-set! sym (step-k4 i (car (stack-peek sthist)) 322 320 k4 k3vect k2vect k1vect k0vect)) 323 (cons ( fx+ 1 i) (cdr hstlist))))))321 (cons (+ 1 i) (cdr hstlist)))))) 324 322 (cons 0 history)) 325 323 … … 344 342 (svec-abserr-set! svec (abs (- val predval))) 345 343 (eval-env-set! sym val) 346 (cons ( fx+ 1 i) (cdr hstlist)))))))344 (cons (+ 1 i) (cdr hstlist))))))) 347 345 (cons 0 history)) 348 346 … … 357 355 (eval-env-set! sym (svec-value svec)))) 358 356 (loop it t #f))) 359 (else (loop ( fx+ 1 it) (+ t tstep) #t))))))357 (else (loop (+ 1 it) (+ t tstep) #t)))))) 360 358 361 359 (begin … … 400 398 (svec-value-set! svec predval) 401 399 (eval-env-set! sym predval) 402 (cons ( fx+ 1 i) (cdr hstlist)))))400 (cons (+ 1 i) (cdr hstlist))))) 403 401 (cons 0 history)) 404 402 … … 424 422 (eval-env-set! sym cval) 425 423 (svec-value-set! svec cval)) 426 (cons ( fx+ 1 i) (cdr hstlist))))))424 (cons (+ 1 i) (cdr hstlist)))))) 427 425 (cons 0 history)) 428 426 … … 457 455 (svec-deriv svec))))) 458 456 (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))) 460 458 (cdr hstlist)))) 461 459 history) … … 471 469 (eval-derivs!) 472 470 473 (loop ( fx+ 1 it) (+ t tstep) tstep))))))))471 (loop (+ 1 it) (+ t tstep) tstep)))))))) 474 472 (list it t tstep (list)))))) 475 473 476 (if debug (print "abm4: " (ode-runtime 'debug)))474 ;; (if debug (print "abm4: " (ode-runtime 'debug))) 477 475 (abm4 0 0.0 initial-tstep))) -
ode/trunk/euler.scm
r8047 r8211 37 37 (define lowerror? (ode-runtime 'lowerror?)) 38 38 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?)) 44 44 (define solve-env-ref (ode-runtime 'solve-env-ref)) 45 45 (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)) 48 49 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)) 51 52 (define svec-relerr-idx (ode-runtime 'svec-relerr-idx)) 52 53 (define svec-abserr-idx (ode-runtime 'svec-abserr-idx)) … … 92 93 (svec-deriv-set! svec v) 93 94 (vector-set! hy1vect i hy1)))) 94 ( fx+ 1 i)))95 (+ 1 i))) 95 96 ((is-asgn? sym) (begin 96 97 (eval-env-set! sym v) … … 115 116 (numerror "guard failed: " g))) guards) 116 117 117 ( (ode-runtime 'solve-env-state-foreach)118 (solve-env-state-foreach 118 119 (lambda (sym svec) 119 120 (eval-env-set! sym (svec-value svec)))) … … 143 144 (svec-value-set! svec v) 144 145 (vector-set! z i (- hy1 (- v oldv))))) 145 ( fx+ 1 i)))146 (+ 1 i))) 146 147 (else i)))) i lst)) 0) 147 148 … … 150 151 (set! tz (- t2 tstep)) 151 152 (eval-env-set! indep t1) 152 (loop ( fx+ 1 it) t1)))153 (loop (+ 1 it) t1))) 153 154 (begin 154 (if debug (begin155 (print "euler: ")156 (for-each (lambda (x) (print x)) (ode-runtime 'debug))))157 155 (list it t tstep (list)))))) 158 156 159 (if debug (begin160 (print "euler: ")161 (for-each (lambda (x) (print x)) (ode-runtime 'debug))))162 157 (euler 0 0.0 initial-tstep))) 163 158 -
ode/trunk/extensions/ode-ctranslator.scm
r7954 r8211 135 135 (if (not (or (equal? rt 'f64vector) (equal? rt 'f32vector))) 136 136 (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)))) 138 138 (outf ((define ,sym ,accessor)) ,nl) 139 139 (outf ((define-external (,cname ,@(zip fms vars)) ,rt (,sym ,@vars))) ,nl)))) -
ode/trunk/ode.scm
r8047 r8211 41 41 ode:env-copy ode-intern ode:quantity? 42 42 make-rhs-procedure rhs-procedure? 43 rhs-procedure-vars rhs-procedure-proc 43 44 eval-ode-system-decls 44 45 STATE ASGN VASGN CONST PRIM)) … … 178 179 (define (add-primitives! env) 179 180 (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))))) 182 182 (environment-extend! env n fb))) 183 183 `(+ - * / pow neg … … 397 397 (rt (infer ode-env ftenv formals body)) 398 398 (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))))) 401 403 (environment-extend! ode-env sym ef)))))))) 402 404 … … 568 570 (node-ids (list-tabulate (length node-list) identity)) 569 571 (name->id-map (zip node-list node-ids))) 570 ( match-let(((state-list asgn-list)572 (let-values (((state-list asgn-list) 571 573 (partition (lambda (sym) (isstate? (environment-ref ode-env sym))) 572 574 node-list))) … … 611 613 (define node-info (g 'node-info)) 612 614 613 ( match-let(((dists dmax) (graph-bfs-dist g ((g 'roots)))))615 (let-values (((dists dmax) (graph-bfs-dist g ((g 'roots))))) 614 616 (let loop ((poset (make-vector (fx+ 1 dmax) (list))) 615 617 (i (fx- (s32vector-length dists) 1))) … … 951 953 ((sysname) sysname) 952 954 ((fptype) fptype) 955 ((relmax) relmax) 956 ((relmin) relmin) 957 ((absmax) absmax) 958 ((absmin) absmin) 953 959 (else 954 960 (ode:error 'selector ": unknown message " selector " sent to an ode object")))) -
ode/trunk/ode.setup
r8006 r8211 10 10 11 11 12 (compile - O2-s -o ,(dynld-name "ode")12 (compile -d2 -O -s -o ,(dynld-name "ode") 13 13 ,@(if has-exports? '(-check-imports -emit-exports ode.exports) '()) 14 14 ode.scm) … … 24 24 25 25 ; Assoc list with properties for your extension: 26 `((version 3.3)26 `((version 4.0) 27 27 (documentation "ode.html") 28 28 ,@(if has-exports? `((exports "ode.exports")) (list)) )) 29 29 30 30 31 (compile - O2 -s -extension -o ,(dynld-name "ode-euler")31 (compile -d0 -O2 -s -extension -o ,(dynld-name "ode-euler") 32 32 ,@(if has-exports? '(-check-imports -emit-exports ode-euler.exports) '()) 33 33 -prelude "\"(declare (export make-ode:euler))\"" 34 34 euler.scm) 35 35 36 (compile - O2 -s -extension -o ,(dynld-name "ode-rkf45")36 (compile -d0 -O2 -s -extension -o ,(dynld-name "ode-rkf45") 37 37 ,@(if has-exports? '(-check-imports -emit-exports ode-rkf45.exports) '()) 38 38 -prelude "\"(declare (export make-ode:rkf45))\"" 39 -prelude "\"(include \\\"box.scm\\\")\"" 39 40 rkf45.scm) 40 41 41 (compile - O2 -s -extension -o ,(dynld-name "ode-abm4")42 (compile -d0 -O2 -s -extension -o ,(dynld-name "ode-abm4") 42 43 ,@(if has-exports? '(-check-imports -emit-exports ode-abm4.exports) '()) 43 44 -prelude "\"(declare (export make-ode:abm4))\"" 45 -prelude "\"(include \\\"box.scm\\\")\"" 44 46 abm4.scm) 45 47 … … 54 56 55 57 ; Assoc list with properties for your extension: 56 `((version 3.3)58 `((version 4.0) 57 59 ,@(if has-exports? `((exports "ode-abm4.exports")) (list)) )) 58 60 … … 68 70 69 71 ; Assoc list with properties for your extension: 70 `((version 3.3)72 `((version 4.0) 71 73 ,@(if has-exports? `((exports "ode-rkf45.exports")) (list)) )) 72 74 … … 81 83 ,@(if has-exports? '("ode-euler.exports") (list)) ) 82 84 ; Assoc list with properties for your extension: 83 `((version 3.3)85 `((version 4.0) 84 86 ,@(if has-exports? `((exports "ode-euler.exports")) (list)) )) 85 87 … … 93 95 extensions/ode-ctranslator.scm) 94 96 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 95 101 (compile -d2 -O -s -o ,(dynld-name "ode-bpr") 96 102 ,@(if has-exports? '(-check-imports -emit-exports ode-bpr.exports) '()) … … 133 139 134 140 ; Assoc list with properties for your extension: 135 `((version 3.3)141 `((version 4.0) 136 142 ,@(if has-exports? `((exports "ode-solvers.exports")) (list)) )) 137 143 … … 147 153 148 154 ; Assoc list with properties for your extension: 149 `((version 3.3)155 `((version 4.0) 150 156 ,@(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)) )) 151 171 152 172 … … 161 181 162 182 ; Assoc list with properties for your extension: 163 `((version 3.3)183 `((version 4.0) 164 184 ,@(if has-exports? `((exports "ode-hhsm.exports")) (list)) )) 165 185 … … 175 195 176 196 ; Assoc list with properties for your extension: 177 `((version 3.3)197 `((version 4.0) 178 198 ,@(if has-exports? `((exports "ode-bpr.exports")) (list)) )) 179 199 … … 190 210 191 211 ; Assoc list with properties for your extension: 192 `((version 3.3)212 `((version 4.0) 193 213 ,@(if has-exports? `((exports "ode-waveform.exports")) (list)) )) 194 214 … … 204 224 205 225 ; Assoc list with properties for your extension: 206 `((version 3.3)226 `((version 4.0) 207 227 ,@(if has-exports? `((exports "ode-hhs.exports")) (list)) )) 208 228 … … 218 238 219 239 ; Assoc list with properties for your extension: 220 `((version 3.3)240 `((version 4.0) 221 241 ,@(if has-exports? `((exports "ode-lambda.exports")) (list)) )) 222 242 … … 232 252 233 253 ; Assoc list with properties for your extension: 234 `((version 3.3)254 `((version 4.0) 235 255 ,@(if has-exports? `((exports "ode-rate.exports")) (list)) )) 236 256 … … 241 261 'ode-macros 242 262 `("ode-macros.scm" ) 243 `((version 3.3)263 `((version 4.0) 244 264 (syntax) 245 265 (require-at-runtime ode))) -
ode/trunk/rkf45.scm
r8047 r8211 69 69 70 70 71 (include "box.scm")72 71 (include "stack.scm") 73 72 (include "lists.scm") … … 224 223 (svec-deriv svec))))) 225 224 (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))) 227 226 (cdr hstlist)))) 228 227 history) … … 258 257 (vector-set! k0vect i k0) 259 258 (eval-env-set! sym (+ (svec-value svec) (* C20 k0)))))) 260 (cons ( fx+ 1 i) (cdr hstlist)))))259 (cons (+ 1 i) (cdr hstlist))))) 261 260 (cons 0 history)) 262 261 … … 280 279 (eval-env-set! sym (+ (car (stack-peek sthist)) 281 280 (* C30 k0) (* C31 k1)))))) 282 (cons ( fx+ 1 i) (cdr hstlist)))))281 (cons (+ 1 i) (cdr hstlist))))) 283 282 (cons 0 history)) 284 283 … … 303 302 (eval-env-set! sym (+ (car (stack-peek sthist)) 304 303 (* C40 k0) (* C41 k1) (* C42 k2)))))) 305 (cons ( fx+ 1 i) (cdr hstlist)))))304 (cons (+ 1 i) (cdr hstlist))))) 306 305 (cons 0 history)) 307 306 … … 328 327 (* C50 k0) (* C51 k1) 329 328 (* C52 k2) (* C53 k3)))))) 330 (cons ( fx+ 1 i) (cdr hstlist)))))329 (cons (+ 1 i) (cdr hstlist))))) 331 330 (cons 0 history)) 332 331 … … 354 353 (* C60 k0) (* C61 k1) (* C62 k2) 355 354 (* C63 k3) (* C64 k4)))))) 356 (cons ( fx+ 1 i) (cdr hstlist)))))355 (cons (+ 1 i) (cdr hstlist))))) 357 356 (cons 0 history)) 358 357 … … 389 388 (svec-abserr-set! svec (abs (- val predval))) 390 389 (eval-env-set! sym val))))) 391 (cons ( fx+ 1 i) (cdr hstlist)))))390 (cons (+ 1 i) (cdr hstlist))))) 392 391 (cons 0 history)) 393 392 … … 399 398 (begin 400 399 (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))) 404 403 ((ode-runtime 'solve-env-state-foreach) 405 404 (lambda (sym svec) … … 407 406 (loop it t #f))) 408 407 ((and loerr (positive? loerr) 409 ( fx<= prevstep it) (< (+ t tstep) tstop))408 (<= prevstep it) (< (+ t tstep) tstop)) 410 409 (begin 411 410 (set! tstep (* tstep S (min M (sqrt (/ relmax (abs loerr)))))) … … 416 415 (else 417 416 (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))))))) 421 420 422 421 (begin 423 422 (list it t tstep (list)))))) 424 423 425 (if debug (print "rkf45: " (ode-runtime 'debug)))424 ;; (if debug (print "rkf45: " (ode-runtime 'debug))) 426 425 (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>.1 This package was debianized by Ivan Raikov <raikov@oist.jp>. 2 2 3 3 -
release/3/srfi-40/debian/rules
r6023 r8211 11 11 endif 12 12 13 14 EGG_TREE ?= /home/chicken/chicken-eggs 15 13 16 BINARY_VERSION=$(shell basename `chicken-setup -R`) 14 17 EGG_TMPDIR=debian/tmp/lib/chicken/$(BINARY_VERSION) 15 18 CHICKEN_EGG=srfi-40 16 19 … … 19 22 dh_testdir 20 23 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) 22 25 touch build-stamp 23 26 … … 27 30 rm -f build-stamp 28 31 rm -rf debian/tmp 29 rm -rf *.egg *.egg .dir32 rm -rf *.egg *.egg-dir *.exports *.so 30 33 dh_clean 31 34 … … 38 41 dh_testdir 39 42 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 42 45 # dh_installman 43 46 # dh_installchangelogs ChangeLog -
sandbox/debian/control
r8081 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0) 12 12 Description: A safe evaluation environment for Scheme expressions 13 13 This Chicken Scheme extension provides a safe evaluation context for -
sqlite3/trunk/debian/control
r8176 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4), libsqlite3-dev5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0), libsqlite3-dev 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-tinyclos, chicken-synch, libsqlite3-011 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-tinyclos, chicken-synch, libsqlite3-0 12 12 Description: Chicken Scheme bindings to version 3.x of the SQLite API. 13 13 This Chicken Scheme extension contains bindings to the SQLite API, -
srfi-29/debian/control
r8098 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-locale (>= 0.3.1), chicken-lookup-table (>= 1.5), chicken-miscmacros (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-locale (>= 0.3.1), chicken-lookup-table (>= 1.5), chicken-miscmacros (>= 2.4) 12 12 Description: Localization for Scheme programs 13 13 A Chicken Scheme implementation of SRFI 29, which specifies an -
srfi-40/debian/control
r8079 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0) 12 12 Description: A library of streams 13 13 A Chicken Scheme implementation of SRFI 40 (A Library of -
stream-ext/trunk/debian/control
r8091 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4), chicken-srfi-40, chicken-format-modular11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0), chicken-srfi-40, chicken-format-modular 12 12 Description: A library of extensions to the SRFI-40 streams. 13 13 This Chicken Scheme extrension provides many convenient procedures to work with SRFI 40 streams. -
svn-client/trunk/svn-client.scm
r3518 r8211 448 448 )) 449 449 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); 479 EOF 480 )) 481 450 482 (define-external (svn_propget_add (c-string key) (c-string value) ((pointer void) result)) scheme-object 451 483 (cons (list key value) (gc-root-ref result))) -
syntax-case/debian/control
r8209 r8211 3 3 Priority: optional 4 4 Maintainer: Ivan Raikov <raikov@oist.jp> 5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 2.4), libchicken-dev (>= 2.4)5 Build-Depends: debhelper (>> 3.0.0), chicken-bin (>= 3.0.0), libchicken-dev (>= 3.0.0) 6 6 Standards-Version: 3.6.2 7 7 … … 9 9 Section: libs 10 10 Architecture: any 11 Depends: ${shlibs:Depends}, chicken-bin (>= 2.4)11 Depends: ${shlibs:Depends}, chicken-bin (>= 3.0.0) 12 12 Description: Portable syntax-case macro and module system 13 13 This is a port for Chicken Scheme of the ``portable syntax-case''
Note: See TracChangeset
for help on using the changeset viewer.