Overview
Comment: | Fixed some minor issues identified by compiling with master branch of Chicken. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.55 |
Files: | files | file ages | folders |
SHA1: |
abbee5328d17870b257f4e7a43464f4c |
User & Date: | matt on 2014-04-03 21:18:55 |
Other Links: | branch diff | manifest | tags |
Context
2014-04-07
| ||
18:53 | Fixed silly ; bug in env2file and added -server/-var for lookups in configs check-in: 9b39882f86 user: matt tags: v1.55 | |
2014-04-03
| ||
21:18 | Fixed some minor issues identified by compiling with master branch of Chicken. check-in: abbee5328d user: matt tags: v1.55 | |
16:28 | Fixed proxy support and switched to http for git clone check-in: 5f87a58ea0 user: mrwellan tags: v1.55 | |
Changes
Modified configf.scm from [13e344a884] to [3ba2fb3805].
︙ | |||
103 104 105 106 107 108 109 | 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | + - + | (let ((outres (string-intersperse res "\n"))) (debug:print-info 4 "shell result:\n" outres) outres) (begin (with-output-to-port (current-error-port) (lambda () |
︙ | |||
340 341 342 343 344 345 346 | 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 | - + | (let ((inp (open-input-file fname))) (let loop ((inl (read-line inp)) (res '())) (if (eof-object? inl) (begin (close-input-port inp) (reverse res)) |
︙ |
Modified dashboard.scm from [18a5f67c75] to [f5a3b33f3a].
︙ | |||
341 342 343 344 345 346 347 | 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 | + + - + - + + | ;; (define (get-itemized-tests test-dats) (let ((tnames '())) (for-each (lambda (tdat) (let ((tname (vector-ref tdat 0)) ;; (db:test-get-testname tdat)) (ipath (vector-ref tdat 1))) ;; (db:test-get-item-path tdat))) (if (not (equal? ipath "")) (if (and (list? tnames) (string? tname) |
︙ |
Modified db.scm from [174cb68951] to [d5531861e8].
︙ | |||
1206 1207 1208 1209 1210 1211 1212 | 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 | - - - - - - - - - - - - - - - - - - - - - | (if currstate (conc "state='" currstate "' AND ") "") (if currstatus (conc "status='" currstatus "' AND ") "") " run_id=? AND testname=? AND NOT (item_path='' AND testname in (SELECT DISTINCT testname FROM tests WHERE testname=? AND item_path != ''));"))) ;;(debug:print 0 "QRY: " qry) (sqlite3:execute db qry run-id newstate newstatus testname testname))) testnames)) |
︙ |