Changes In Branch v1.55 Through [9417d2df60] Excluding Merge-Ins
This is equivalent to a diff from 1a7d256c0c to 9417d2df60
|
2014-04-21
| ||
| 01:30 | Incremental improvement with itemwait and run queue logic. check-in: 65e8ba3d33 user: matt tags: v1.55 | |
|
2014-04-15
| ||
| 12:25 | Added perl, python and ruby for dump check-in: 9417d2df60 user: mrwellan tags: v1.55 | |
|
2014-04-10
| ||
| 16:27 | Added control over logfile for nbfake, improved bigrun2/3 tests, added itemmap parameter in requirements for mapping items for item wait. bumped version check-in: 8c12404219 user: mrwellan tags: v1.55 | |
|
2013-06-07
| ||
| 22:07 | Merged development into v1.5501 as it diverges more than a patch release should diverge. check-in: fd2b134daa user: mrwellan tags: v1.55 | |
|
2013-06-04
| ||
| 18:08 | Merged v1.54 branch back into development check-in: 0121a1b669 user: mrwellan tags: dev | |
|
2013-05-16
| ||
| 01:31 | Added missing clearing of cache when remove based on STATE/STATUS Leaf check-in: 1a7d256c0c user: matt tags: v1.54, v1.5429 | |
|
2013-05-10
| ||
| 12:00 | Added very basic informative page to server check-in: aab3b2a0d7 user: mrwellan tags: v1.54, v1.5428 | |
Modified .fossil-settings/ignore-glob from [92ee512e61] to [32534fbc23].
1 2 3 4 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | utils/build/* *~ *.o bin/* |
Modified Makefile from [baab060c84] to [0989ef3f6a].
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 | - + - + + + + + + + + + + + + + - + + + + - - - + + + - - - - - - + - - - - - + - - - - - + - + - - + + - - - - + + + + - + - + + + + + + + + + - + - - + - + - - - - - + - - - + - + - - - - - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
|
Modified NOTES from [9253fc77da] to [f5959ca38f].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | + + + + + + + + + + + + + + + + + + + + + + + + + | [87cbe68f31] [be405e8e2e] # FROM andyjpg on #chicken (let ((original-exit (exit-handler))) (exit-handler (lambda (#!optional (exit-code 0)) (printf "Preparing to exit...\n" exit-code) (for-each (lambda (pid) (printf "Sending signal/term to ~A\n" pid) (process-signal pid signal/term)) (children)) (original-exit exit-code)))) 1. All run control access to db is direct. 2. All test machines must have megatest available 3. Tests may or may not have file system access to the originating run area. rsync is used to pull the test area to the home host if and only if the originating area can not be seen via file system. NO LONGER TRUE. Rsync is used but file system must be visible. 4. All db access is done via the home host. NOT IMPLEMENTED YET. REMOTE ACCESS DB LOADS INFO: (0) Max cached queries was 10 INFO: (0) Number of cached writes 27043 INFO: (0) Average cached write time 15.0634544983915 ms INFO: (0) Number non-cached queries 71928 INFO: (0) Average non-cached time 5.15547491936381 ms INFO: (0) Server shutdown complete. Exiting fdktestqa on Apr 29, 2013: 1812 tests INFO: (0) Max cached queries was 10 INFO: (0) Number of cached writes 41335 INFO: (0) Average cached write time 206.081553163179 ms INFO: (0) Number non-cached queries 74289 |
Modified TODO from [fdd124b7a6] to [61ddd55e7d].
| 1 2 3 4 | - - - + + + - - - - - - - - - - - + - |
|
Modified client.scm from [a87cd08699] to [e09e6cd211].
15 16 17 18 19 20 21 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | - + | (require-extension (srfi 18) extras tcp s11n) (use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest) ;; (use zmq) (import (prefix sqlite3 sqlite3:)) |
48 49 50 51 52 53 54 | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | - + - + + - - + - - - - - - - + - - - - - - - - - - + + | ok)) ;; Do all the connection work, look up the transport type and set up the ;; connection if required. ;; ;; There are two scenarios. ;; 1. We are a test manager and we received *transport-type* and *runremote* via cmdline |
Modified common.scm from [f3bd33eed5] to [5bf9168feb].
38 39 40 41 42 43 44 | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 | - + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (define *waiting-queue* (make-hash-table)) (define *test-meta-updated* (make-hash-table)) (define *globalexitstatus* 0) ;; attempt to work around possible thread issues (define *passnum* 0) ;; when running track calls to run-tests or similar ;; SERVER (define *my-client-signature* #f) |
138 139 140 141 142 143 144 145 146 147 148 149 150 151 | 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #f #t))) string<?))
;; '(print (string-intersperse (map cadr (hash-table-ref/default (read-config "megatest.config" \#f \#t) "disks" '"'"'("none" ""))) "\n"))'
(define (common:get-disks)
(hash-table-ref/default
(read-config "megatest.config" #f #t)
"disks" '("none" "")))
;;======================================================================
;; T A R G E T S
;;======================================================================
(define (common:args-get-target #!key (split #f))
(let* ((target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
#f)))
(tlist (if target (string-split target "/" #t) '()))
(valid (if target
(and (not (null? tlist))
(null? (filter string-null? tlist)))
#f)))
(if valid
(if split
tlist
target)
(if target
(begin
(debug:print 0 "ERROR: Invalid target, spaces or blanks not allowed \"" target "\"")
#f)
#f))))
;;======================================================================
;; M I S C L I S T S
;;======================================================================
;; items in lista are matched value and position in listb
;; return the remaining items in listb or #f
;;
(define (common:list-is-sublist lista listb)
(if (null? lista)
listb ;; all items in listb are "remaining"
(if (> (length lista)(length listb))
#f
(let loop ((heda (car lista))
(tala (cdr lista))
(hedb (car listb))
(talb (cdr listb)))
(if (equal? heda hedb)
(if (null? tala) ;; we are done
talb
(loop (car tala)
(cdr tala)
(car talb)
(cdr talb)))
#f)))))
;; Needed for long lists to be sorted where (apply max ... ) dies
;;
(define (common:max inlst)
(let loop ((max-val (car inlst))
(hed (car inlst))
(tal (cdr inlst)))
(if (not (null? tal))
(loop (max hed max-val)
(car tal)
(cdr tal))
(max hed max-val))))
;;======================================================================
;; Munge data into nice forms
;;======================================================================
;; Generate an index for a sparse list of key values
;; ( (rowname1 colname1 val1)(rowname2 colname2 val2) )
;;
;; =>
;;
;; ( (rowname1 0)(rowname2 1)) ;; rownames -> num
;; (colname1 0)(colname2 1)) ) ;; colnames -> num
;;
;; optional apply proc to rownum colnum value
(define (common:sparse-list-generate-index data #!key (proc #f))
(if (null? data)
(list '() '())
(let loop ((hed (car data))
(tal (cdr data))
(rownames '())
(colnames '())
(rownum 0)
(colnum 0))
(let* ((rowkey (car hed))
(colkey (cadr hed))
(value (caddr hed))
(existing-rowdat (assoc rowkey rownames))
(existing-coldat (assoc colkey colnames))
(curr-rownum (if existing-rowdat rownum (+ rownum 1)))
(curr-colnum (if existing-coldat colnum (+ colnum 1)))
(new-rownames (if existing-rowdat rownames (cons (list rowkey curr-rownum) rownames)))
(new-colnames (if existing-coldat colnames (cons (list colkey curr-colnum) colnames))))
;; (debug:print-info 0 "Processing record: " hed )
(if proc (proc curr-rownum curr-colnum rowkey colkey value))
(if (null? tal)
(list new-rownames new-colnames)
(loop (car tal)
(cdr tal)
new-rownames
new-colnames
(if (> curr-rownum rownum) curr-rownum rownum)
(if (> curr-colnum colnum) curr-colnum colnum)
))))))
;;======================================================================
;; System stuff
;;======================================================================
;; return a nice clean pathname made absolute
(define (nice-path dir)
|
183 184 185 186 187 188 189 | 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 | - + - + - - - - - + + + + + + + + + + + - - - - + + + + + + + + + + | (define (get-uname . params)
(let* ((uname-res (cmd-run->list (conc "uname " (if (null? params) "-a" (car params)))))
(uname #f))
(if (null? (car uname-res))
"unknown"
(caar uname-res))))
|
234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 | 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 | + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + | (if (> min 0)(conc min "m ") "")
sec "s")))
(define (seconds->time-string sec)
(time->string
(seconds->local-time sec) "%H:%M:%S"))
(define (seconds->work-week/day-time sec)
(time->string
(seconds->local-time sec) "ww%V.%u %H:%M"))
(define (seconds->work-week/day sec)
(time->string
(seconds->local-time sec) "ww%V.%u"))
(define (seconds->year-work-week/day sec)
(time->string
(seconds->local-time sec) "%yww%V.%w"))
(define (seconds->year-work-week/day-time sec)
(time->string
(seconds->local-time sec) "%yww%V.%w %H:%M"))
;;======================================================================
;; Colors
;;======================================================================
(define (common:name->iup-color name)
(case (string->symbol (string-downcase name))
((red) "223 33 49")
((grey) "192 192 192")
((orange) "255 172 13")
((purple) "This is unfinished ...")))
|
Modified common_records.scm from [9ac4a598ab] to [61ac915575].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | + + - - - - - - + + + + + + + + + - + + + + + - - + + - - - + + + + + | ;;====================================================================== ;; Copyright 2006-2012, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== ;; (use trace) (define (debug:calc-verbosity vstr) (cond |
Modified configf.scm from [327eab1f14] to [6203b73da1].
52 53 54 55 56 57 58 59 60 61 62 63 64 65 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | + | ;;======================================================================
(define configf:include-rx (regexp "^\\[include\\s+(.*)\\]\\s*$"))
(define configf:section-rx (regexp "^\\[(.*)\\]\\s*$"))
(define configf:blank-l-rx (regexp "^\\s*$"))
(define configf:key-sys-pr (regexp "^(\\S+)\\s+\\[system\\s+(\\S+.*)\\]\\s*$"))
(define configf:key-val-pr (regexp "^(\\S+)(\\s+(.*)|())$"))
(define configf:key-no-val (regexp "^(\\S+)(\\s*)$"))
(define configf:comment-rx (regexp "^\\s*#.*"))
(define configf:cont-ln-rx (regexp "^(\\s+)(\\S+.*)$"))
;; read a line and process any #{ ... } constructs
(define configf:var-expand-regex (regexp "^(.*)#\\{(scheme|system|shell|getenv|get|runconfigs-get|rget)\\s+([^\\}\\{]*)\\}(.*)"))
(define (configf:process-line l ht)
|
102 103 104 105 106 107 108 | 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | + - + - - - - - - - - - - + + + + + + + + + + + + + + + - + | (let ((outres (string-intersperse res "\n"))) (debug:print-info 4 "shell result:\n" outres) outres) (begin (with-output-to-port (current-error-port) (lambda () |
204 205 206 207 208 209 210 | 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 | - - - - - - - - - - - - + + + + + + + + + + + + + + + + | (case allow-system ((return-procs) val-proc) ((return-string) cmd) (else (val-proc))))) (loop (configf:read-line inp res allow-system) curr-section-name #f #f)) (loop (configf:read-line inp res allow-system) curr-section-name #f #f))) (configf:key-val-pr ( x key unk1 val unk2 ) (let* ((alist (hash-table-ref/default res curr-section-name '())) |
260 261 262 263 264 265 266 267 268 269 270 271 272 273 | 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 | + - + | (if match ;; (and match (list? match)(> (length match) 1))
(cadr match)
#f))
))
#f))
(define configf:lookup config-lookup)
(define configf:read-file read-config)
(define (configf:section-vars cfgdat section)
(let ((sectdat (hash-table-ref/default cfgdat section '())))
(if (null? sectdat)
'()
(map car sectdat))))
|
330 331 332 333 334 335 336 | 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 | - + | (let ((inp (open-input-file fname))) (let loop ((inl (read-line inp)) (res '())) (if (eof-object? inl) (begin (close-input-port inp) (reverse res)) |
418 419 420 421 422 423 424 | 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (with-output-to-file fname
(lambda ()
(for-each
(lambda (line)
(print line))
(configf:expand-multi-lines fdat))))))
;;======================================================================
;; refdb
;;======================================================================
;; reads a refdb into an assoc array of assoc arrays
;; returns (list dat msg)
(define (configf:read-refdb refdb-path)
(let ((sheets-file (conc refdb-path "/sheet-names.cfg")))
(if (not (file-exists? sheets-file))
(list #f (conc "ERROR: no refdb found at " refdb-path))
(if (not (file-read-access? sheets-file))
(list #f (conc "ERROR: refdb file not readable at " refdb-path))
(let* ((sheets (with-input-from-file sheets-file
(lambda ()
(let loop ((inl (read-line))
(res '()))
(if (eof-object? inl)
(reverse res)
(loop (read-line)(cons inl res)))))))
(data '()))
(for-each
(lambda (sheet-name)
(let* ((dat-path (conc refdb-path "/" sheet-name ".dat"))
(ref-dat (configf:read-file dat-path #f #t))
(ref-assoc (map (lambda (key)
(list key (hash-table-ref ref-dat key)))
(hash-table-keys ref-dat))))
;; (hash-table->alist ref-dat)))
(set! data (append data (list (list sheet-name ref-assoc))))))
sheets)
(list data "NO ERRORS"))))))
;; map over all pairs in a three level hierarchial alist and apply a function to the keys/val
;;
(define (configf:map-all-hier-alist data proc #!key (initproc1 #f)(initproc2 #f)(initproc3 #f))
(for-each
(lambda (sheetname)
(let* ((sheettmp (assoc sheetname data))
(sheetdat (if sheettmp (cadr sheettmp) '())))
(if initproc1 (initproc1 sheetname))
(for-each
(lambda (sectionname)
(let* ((sectiontmp (assoc sectionname sheetdat))
(sectiondat (if sectiontmp (cadr sectiontmp) '())))
(if initproc2 (initproc2 sheetname sectionname))
(for-each
(lambda (varname)
(let* ((valtmp (assoc varname sectiondat))
(val (if valtmp (cadr valtmp) "")))
(proc sheetname sectionname varname val)))
(map car sectiondat))))
(map car sheetdat))))
(map car data)))
|
Modified dashboard-tests.scm from [4e56d94d77] to [2a48985660].
21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | + + - + + - - + + - + + + + + + + + + + + + + |
(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))
(declare (unit dashboard-tests))
(declare (uses common))
(declare (uses db))
(declare (uses gutils))
(declare (uses ezsteps))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(define (test-info-panel testdat store-label widgets)
(iup:frame
#:title "Test Info" ; #:expand "YES"
(iup:hbox ; #:expand "YES"
(apply iup:vbox ; #:expand "YES"
(append (map (lambda (val)
(iup:label val ; #:expand "HORIZONTAL"
))
(list "Testname: "
"Item path: "
"Current state: "
"Current status: "
"Test comment: "
|
123 124 125 126 127 128 129 | 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | + + + + + + - - - - - - + + + + + + - - - - - - - - - - + + + + + + + + + + + + | ))))) ;;====================================================================== ;; Run info panel ;;====================================================================== (define (run-info-panel keydat testdat runname) (let* ((run-id (db:test-get-run_id testdat)) (rundat (cdb:remote-run db:get-run-info #f run-id)) (header (db:get-header rundat)) (event_time (db:get-value-by-header (db:get-row rundat) (db:get-header rundat) "event_time"))) |
186 187 188 189 190 191 192 | 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 | - + + + + - + - + + - - - - - + + + + + + + + + - + - + + + + + + + + + + + + + + - - + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + + + - + - - + - - + + + + + - + - + + + + + + + + - + + - + + + + + + - + + + - - + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + - - + + + + + + + + + + + + | ;; use a global for setting the buttons colors ;; state status teststeps (define *state-status* (vector #f #f #f)) (define (update-state-status-buttons testdat) (let* ((state (db:test-get-state testdat)) (status (db:test-get-status testdat)) |
354 355 356 357 358 359 360 | 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 | - + - + - + - + - + + + + + + + + + + + + + + + + + + + + + + | (command-text-box (iup:textbox #:expand "HORIZONTAL" #:font "Courier New, -10")) (command-launch-button (iup:button "Execute!" #:action (lambda (x) (let ((cmd (iup:attribute command-text-box "VALUE"))) (system (conc cmd " &")))))) (kill-jobs (lambda (x) (iup:attribute-set! command-text-box "VALUE" |
397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 | 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 | + - - - - - + + + + + + + + + + + + - - + + + - - + + + + + + + + + + + + + + + + + + + + + + | (iup:frame #:title "Actions" (iup:vbox (iup:hbox (iup:button "View Log" #:action viewlog #:size "80x") (iup:button "Start Xterm" #:action xterm #:size "80x") (iup:button "Run Test" #:action run-test #:size "80x") (iup:button "Clean Test" #:action remove-test #:size "80x") (iup:button "CleanRunExecute!" #:action clean-run-execute #:size "80x") (iup:button "Kill All Jobs" #:action kill-jobs #:size "80x") (iup:button "Close" #:action (lambda (x)(exit)) #:size "80x")) (apply iup:hbox (list command-text-box command-launch-button)))) (set-fields-panel test-id testdat) (let ((tabs (iup:tabs ;; Replace here with matrix (let ((steps-matrix (iup:matrix #:font "Courier New, -8" #:expand "YES" #:scrollbar "YES" #:numcol 6 #:numlin 30 #:numcol-visible 6 #:numlin-visible 5 #:click-cb (lambda (obj lin col status) |
482 483 484 485 486 487 488 | 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 | - + - + + + - - - - - - - - | (db:test-data-get-value x) (db:test-data-get-expected x) (db:test-data-get-tol x) (db:test-data-get-status x) (db:test-data-get-units x) (db:test-data-get-type x) (db:test-data-get-comment x))) |
Modified dashboard.scm from [f8c5b58774] to [03eaa1fefb].
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | + + + + + + - + | ;;====================================================================== (use format) (require-library iup) (import (prefix iup iup:)) (use canvas-draw) (import canvas-draw-iup) (use sqlite3 srfi-1 posix regex regex-case srfi-69) (import (prefix sqlite3 sqlite3:)) (use trace) (declare (uses common)) (declare (uses margs)) (declare (uses keys)) (declare (uses items)) (declare (uses db)) (declare (uses configf)) (declare (uses process)) (declare (uses launch)) (declare (uses runs)) (declare (uses dashboard-tests)) (declare (uses dashboard-guimonitor)) (declare (uses tree)) (declare (uses dcommon)) ;; (declare (uses dashboard-main)) (declare (uses megatest-version)) (declare (uses mt)) (include "common_records.scm") (include "db_records.scm") (include "run_records.scm") (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " |
96 97 98 99 100 101 102 | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 | - - + + + + + + + + + + + + + + - - - + + + + + + + + + + + + + + - + + - + + + + + + + + - - + + - - - + + - - + + - - + - - - - - - - - - - - - - - - - - - - + + + + + + + + - - - - + + + + + - - - - + + + - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - + + + - - + - - - - - - | (define toplevel #f) (define dlg #f) (define max-test-num 0) ;; (define *keys* (open-run-close db:get-keys #f)) (define *keys* (cdb:remote-run db:get-keys #f)) ;; (define *keys* (db:get-keys *db*)) |
263 264 265 266 267 268 269 | 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 | + + + + + + - - - + + + - - - - + + + + - - - - + + + + - - + - - - - - - - + | (vector-set! res 0 (car splst))
(if (> (length splst) 1)
(vector-set! res 1 (car (string-split (cadr splst) ")"))))
res))
lst))
(define (collapse-rows inlst)
(let* ((sort-info (get-curr-sort))
(sort-by (vector-ref sort-info 1))
(sort-order (vector-ref sort-info 2))
(bubble-type (if (member sort-order '(testname))
'testname
'itempath))
|
316 317 318 319 320 321 322 323 | 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - + + + + + + + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (if (> (length parts) 1)(conc " " (car (string-split (cadr parts) ")"))) newval))))
(vector-set! keycol i newval)
(iup:attribute-set! lbl "TITLE" munged-val)))
(iup:attribute-set! lbl "FGCOLOR" (if (hash-table-ref/default *collapsed* newval #f) "0 112 112" "0 0 0"))
(if (< i maxn)
(loop (+ i 1)))))))
;;
(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)
(not (member tname tnames)))
(set! tnames (append tnames (list tname)))))))
test-dats)
tnames))
;; Bubble up the top tests to above the items, collect the items underneath
;; all while preserving the sort order from the SQL query as best as possible.
;;
(define (bubble-up test-dats #!key (priority 'itempath))
(if (null? test-dats)
test-dats
(begin
(let* ((tnames '()) ;; list of names used to reserve order
(tests (make-hash-table)) ;; hash of lists, used to build as we go
(itemized (get-itemized-tests test-dats)))
(for-each
(lambda (testdat)
(let* ((tname (vector-ref testdat 0)) ;; db:test-get-testname testdat))
(ipath (vector-ref testdat 1))) ;; db:test-get-item-path testdat)))
;; (seen (hash-table-ref/default tests tname #f)))
(if (not (member tname tnames))
(if (or (and (eq? priority 'itempath)
(not (equal? ipath "")))
(and (eq? priority 'testname)
(equal? ipath ""))
(not (member tname itemized)))
(set! tnames (append tnames (list tname)))))
(if (equal? ipath "")
;; This a top level, prepend it
(hash-table-set! tests tname (cons testdat (hash-table-ref/default tests tname '())))
;; This is item, append it
(hash-table-set! tests tname (append (hash-table-ref/default tests tname '())(list testdat))))))
test-dats)
;; Set all tests with items
(set! *all-item-test-names* (append (if (null? tnames)
'()
(filter (lambda (tname)
(let ((tlst (hash-table-ref tests tname)))
(and (list tlst)
(> (length tlst) 1))))
tnames))
*all-item-test-names*))
(let loop ((hed (car tnames))
(tal (cdr tnames))
(res '()))
(let ((newres (append res (hash-table-ref tests hed))))
(if (null? tal)
newres
(loop (car tal)(cdr tal) newres))))))))
(define (update-buttons uidat numruns numtests)
|
453 454 455 456 457 458 459 | 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 | - - - - + + + + - + - - + + + + + + - - - - - + + + + + + + + - - + + + + + + + + + - + - - + + + - - + + + - - - - + + + + + + - - - - - + + + + + - - - - - - - - - - - - - + + + + + + + + + + + + + + + - - + + | ;;(iup:textbox #:size "60x15" #:fontsize "10" #:value "%" ;; #:action (lambda (obj unk val) ;; (mark-for-update) ;; (update-search "item-name" val)) )) (iup:vbox (iup:hbox |
591 592 593 594 595 596 597 | 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 | - + - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + + - + + + - + + - + + + + + + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + + + - + + + + + + + + + - - + + + + + | #:expand "HORIZONTAL" #:fontsize "10" #:action (lambda (x) (let* ((toolpath (car (argv))) (buttndat (hash-table-ref *buttondat* button-key)) (test-id (db:test-get-id (vector-ref buttndat 3))) (cmd (conc toolpath " -test " test-id "&"))) |
Modified db.scm from [a7b64dbecf] to [ab6ebaa799].
1 | 1 2 3 4 5 6 7 8 9 | - + | ;;====================================================================== |
25 26 27 28 29 30 31 32 33 34 35 36 37 38 | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | + | (declare (unit db)) (declare (uses common)) (declare (uses keys)) (declare (uses ods)) (declare (uses fs-transport)) (declare (uses client)) (declare (uses mt)) (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") (include "run_records.scm") ;; timestamp type (val1 val2 ...) |
70 71 72 73 74 75 76 | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | - + - + + - + + + - - - - - - - - - - + + + + + + + + + + + + + + - - - - - - - + + + + + + + + + + + - + | (exit)))) (let* ((dbpath (conc *toppath* "/megatest.db")) ;; fname) (dbexists (file-exists? dbpath)) (write-access (file-write-access? dbpath)) (db (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath)) (handler (make-busy-timeout (if (args:get-arg "-override-timeout") (string->number (args:get-arg "-override-timeout")) |
135 136 137 138 139 140 141 | 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | - + - + - + | (set! *last-global-delta-printed* *global-delta*)))
(debug:print-info 11 "open-run-close-measure END" )
res))
(define (db:initialize db)
(debug:print-info 11 "db:initialize START")
(let* ((configdat (car *configinfo*)) ;; tut tut, global warning...
|
249 250 251 252 253 254 255 256 257 258 259 260 261 262 | 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 | + - + - + - + + - + | ;; Create the sqlite db for the individual test(s)
(define (open-test-db work-area)
(debug:print-info 11 "open-test-db " work-area)
(if (and work-area
(directory? work-area)
(file-read-access? work-area))
(let* ((dbpath (conc work-area "/testdat.db"))
(tdb-writeable (file-write-access? dbpath))
(dbexists (file-exists? dbpath))
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
136000))))
(handle-exceptions
exn
(begin
|
356 357 358 359 360 361 362 | 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 | - - - - - + + + + + - + - + + + + + | (if (not dbexists)
(begin
(sqlite3:execute db "CREATE TABLE IF NOT EXISTS log (id INTEGER PRIMARY KEY,event_time TIMESTAMP DEFAULT (strftime('%s','now')),logline TEXT,pwd TEXT,cmdline TEXT,pid INTEGER);")
(sqlite3:execute db (conc "PRAGMA synchronous = 0;"))))
db))
(define (db:log-local-event . loglst)
|
452 453 454 455 456 457 458 459 460 461 462 463 464 465 | 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (db:set-var db "MEGATEST_VERSION" 1.36)
(sqlite3:execute db "ALTER TABLE test_meta ADD COLUMN jobgroup TEXT DEFAULT 'default';"))
((< mver 1.37)
(db:set-var db "MEGATEST_VERSION" 1.37)
(sqlite3:execute db "ALTER TABLE tests ADD COLUMN archived INTEGER DEFAULT 0;"))
((< mver megatest-version)
(db:set-var db "MEGATEST_VERSION" megatest-version))))))
;;======================================================================
;; M A I N T E N A N C E
;;======================================================================
;; select end_time-now from
;; (select testname,item_path,event_time+run_duration as
;; end_time,strftime('%s','now') as now from tests where state in
;; ('RUNNING','REMOTEHOSTSTART','LAUNCED'));
(define (db:find-and-mark-incomplete db #!key (ovr-deadtime #f))
(let* ((incompleted '())
(deadtime-str (configf:lookup *configdat* "setup" "deadtime"))
(deadtime (if (and deadtime-str
(string->number deadtime-str))
(string->number deadtime-str)
7200)) ;; two hours
(run-ids (db:get-run-ids db))) ;; iterate over runs to divy up the calls
(if (number? ovr-deadtime)(set! deadtime ovr-deadtime))
(for-each
(lambda (run-id)
;; in RUNNING or REMOTEHOSTSTART for more than 10 minutes
;;
;; THIS CANNOT WORK. The run_duration is not updated in the central db due to performance concerns.
;; The testdat.db file must be consulted.
;;
;; HOWEVER: this code in run:test seems to work fine
;; (> (- (current-seconds)(+ (db:test-get-event_time testdat)
;; (db:test-get-run_duration testdat)))
;; 600)
(sqlite3:for-each-row
(lambda (test-id)
(set! incompleted (cons test-id incompleted)))
db
"SELECT id FROM tests WHERE run_id=? AND (strftime('%s','now') - event_time - run_duration) > ? AND state IN ('RUNNING','REMOTEHOSTSTART');"
run-id deadtime)
;; in LAUNCHED for more than one day. Could be long due to job queues TODO/BUG: Need override for this in config
;;
(sqlite3:for-each-row
(lambda (test-id)
(set! incompleted (cons test-id incompleted)))
db
"SELECT id FROM tests WHERE run_id=? AND (strftime('%s','now') - event_time - run_duration) > ? AND state IN ('LAUNCHED');"
run-id (* 60 60 24)))
run-ids)
;; These are defunct tests, do not do all the overhead of set-state-status. Force them to INCOMPLETE.
;;
(if (> (length incompleted) 0)
(begin
(debug:print 0 "WARNING: Marking test(s); " (string-intersperse (map conc incompleted) ", ") " as INCOMPLETE")
(sqlite3:execute
db
(conc "UPDATE tests SET state='INCOMPLETE' WHERE id IN ("
(string-intersperse (map conc incompleted) ",")
");"))))))
;; Clean out old junk and vacuum the database
;;
;; Ultimately do something like this:
;;
;; 1. Look at test records either deleted or part of deleted run:
;; a. If test dir exists, set the the test to state='UNKNOWN', Set the run to 'unknown'
;; b. If test dir gone, delete the test record
;; 2. Look at run records
;; a. If have tests that are not deleted, set state='unknown'
;; b. ....
;;
(define (db:clean-up db)
(let ((count-stmt (sqlite3:prepare db "SELECT (SELECT count(id) FROM tests)+(SELECT count(id) FROM runs);"))
(statements
(map (lambda (stmt)
(sqlite3:prepare db stmt))
(list
;; delete all tests that belong to runs that are 'deleted'
"DELETE FROM tests WHERE run_id in (SELECT id FROM runs WHERE state='deleted');"
;; delete all tests that are 'DELETED'
"DELETE FROM tests WHERE state='DELETED';"
;; delete all tests that have no run
"DELETE FROM tests WHERE run_id NOT IN (SELECT DISTINCT id FROM runs);"
;; delete all runs that are state='deleted'
"DELETE FROM runs WHERE state='deleted';"
;; delete empty runs
"DELETE FROM runs WHERE id NOT IN (SELECT DISTINCT r.id FROM runs AS r INNER JOIN tests AS t ON t.run_id=r.id);"
))))
(sqlite3:with-transaction
db
(lambda ()
(sqlite3:for-each-row (lambda (tot)
(debug:print-info 0 "Records count before clean: " tot))
count-stmt)
(map sqlite3:execute statements)
(sqlite3:for-each-row (lambda (tot)
(debug:print-info 0 "Records count after clean: " tot))
count-stmt)))
(map sqlite3:finalize! statements)
(sqlite3:finalize! count-stmt)
(db:find-and-mark-incomplete db)
(sqlite3:execute db "VACUUM;")))
;;======================================================================
;; meta get and set vars
;;======================================================================
;; returns number if string->number is successful, string otherwise
;; also updates *global-delta*
|
494 495 496 497 498 499 500 | 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 | - - + + + + + + - - - + + - + - + | (debug:print-info 11 "db:set-var END " var " " val)) (define (db:del-var db var) (debug:print-info 11 "db:del-var START " var) (sqlite3:execute db "DELETE FROM metadat WHERE var=?;" var) (debug:print-info 11 "db:del-var END " var)) |
540 541 542 543 544 545 546 | 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 | - + - + - - - - + + + + - - - - - - + + + + + - - - - - - - - + + + + + + + + - + - - + + + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + - + - + - + - + - + |
(define (db:get-run-key-val db run-id key)
(let ((res #f))
(sqlite3:for-each-row
(lambda (val)
(set! res val))
db
|
759 760 761 762 763 764 765 | 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 | - - - - + + + + + + - - - + + - - + + + - - + + + + + + + + + + + + - - + + - - + - - - - + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + + + - + - - - + + + - - + - - + + - - + + - - + - + | ;; T E S T S
;;======================================================================
;; states and statuses are lists, turn them into ("PASS","FAIL"...) and use NOT IN
;; i.e. these lists define what to NOT show.
;; states and statuses are required to be lists, empty is ok
;; not-in #t = above behaviour, #f = must match
|
912 913 914 915 916 917 918 | 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 | - - - - - - - - - - - - - - - - - - - - - - + + + - + - + + + - + - + + + + + + + + + + - - + + | (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)) |
1118 1119 1120 1121 1122 1123 1124 | 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 | - + | res))) (define (db:get-test-info db run-id testname item-path) (db:get-test-info-by-id db (db:get-test-id db run-id testname item-path))) (define (db:test-set-comment db test-id comment) (sqlite3:execute |
1153 1154 1155 1156 1157 1158 1159 | 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 | - - - - + + + + | ;; Misc. test related queries ;;====================================================================== ;; MUST BE CALLED local! (define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '())) ;; BUG: Move the values derived from args to parameters and push to megatest.scm (let* ((testpatt (if (args:get-arg "-testpatt")(args:get-arg "-testpatt") "%")) |
1187 1188 1189 1190 1191 1192 1193 | 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 | - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (string-split target "/")) " AND ")) (testqry (tests:match->sqlqry testpatt)) (qrystr (conc "SELECT t.rundir FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id WHERE " keystr " AND r.runname LIKE '" runname "' AND " testqry " AND t.state LIKE '" statepatt "' AND t.status LIKE '" statuspatt "' ORDER BY t.event_time ASC;"))) |
1233 1234 1235 1236 1237 1238 1239 | 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 | - - - - - - - - - + + + + + + + + + + + - + | (base64:base64-encode (with-output-to-string (lambda ()(serialize obj))))
#t))
((zmq)(with-output-to-string (lambda ()(serialize obj))))
(else obj)))
(define (db:string->obj msg)
(case *transport-type*
|
1308 1309 1310 1311 1312 1313 1314 | 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 | - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + - - + + - + + + + + + + + + + + + + + + - + + + + | ;; we will need to process "all" messages here some day (receive-message* sub-socket) ;; now get the actual message (let ((myres (db:string->obj (receive-message* sub-socket)))) (if (equal? query-sig (vector-ref myres 1)) (set! res (vector-ref myres 2)) (loop))))))) |
1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 | 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - - + + + |
;;======================================================================
;; A G R E G A T E D T R A N S A C T I O N D B W R I T E S
;;======================================================================
(define db:queries
(list '(register-test "INSERT OR IGNORE INTO tests (run_id,testname,event_time,item_path,state,status) VALUES (?,?,strftime('%s','now'),?,'NOT_STARTED','n/a');")
;; Test state and status
'(set-test-state "UPDATE tests SET state=? WHERE id=?;")
'(set-test-status "UPDATE tests SET state=? WHERE id=?;")
'(state-status "UPDATE tests SET state=?,status=? WHERE id=?;")
'(state-status-msg "UPDATE tests SET state=?,status=?,comment=? WHERE id=?;")
;; Test comment
'(set-test-comment "UPDATE tests SET comment=? WHERE id=?;")
'(set-test-start-time "UPDATE tests SET event_time=strftime('%s','now') WHERE id=?;")
'(pass-fail-counts "UPDATE tests SET fail_count=?,pass_count=? WHERE id=?;")
;; test_data-pf-rollup is used to set a tests PASS/FAIL based on the pass/fail info from the steps
'(test_data-pf-rollup "UPDATE tests
SET status=CASE WHEN (SELECT fail_count FROM tests WHERE id=?) > 0
THEN 'FAIL'
WHEN (SELECT pass_count FROM tests WHERE id=?) > 0 AND
(SELECT status FROM tests WHERE id=?) NOT IN ('WARN','FAIL')
THEN 'PASS'
ELSE status
END WHERE id=?;")
'(test-set-log "UPDATE tests SET final_logf=? WHERE id=?;")
'(test-set-rundir-by-test-id "UPDATE tests SET rundir=? WHERE id=?")
'(test-set-rundir "UPDATE tests SET rundir=? WHERE run_id=? AND testname=? AND item_path=?;")
'(delete-tests-in-state "DELETE FROM tests WHERE state=? AND run_id=?;")
'(tests:test-set-toplog "UPDATE tests SET final_logf=? WHERE run_id=? AND testname=? AND item_path='';")
'(update-cpuload-diskfree "UPDATE tests SET cpuload=?,diskfree=? WHERE id=?;")
'(update-run-duration "UPDATE tests SET run_duration=? WHERE id=?;")
'(update-uname-host "UPDATE tests SET uname=?,host=? WHERE id=?;")
'(update-test-state "UPDATE tests SET state=? WHERE state=? AND run_id=? AND testname=? AND NOT (item_path='' AND testname IN (SELECT DISTINCT testname FROM tests WHERE testname=? AND item_path != ''));")
'(update-test-status "UPDATE tests SET status=? WHERE status like ? AND run_id=? AND testname=? AND NOT (item_path='' AND testname IN (SELECT DISTINCT testname FROM tests WHERE testname=? AND item_path != ''));")
;; stuff for roll-up-pass-fail-counts
'(update-fail-pass-counts "UPDATE tests
SET fail_count=(SELECT count(id) FROM tests WHERE run_id=? AND testname=? AND item_path != '' AND status IN ('FAIL','CHECK')),
pass_count=(SELECT count(id) FROM tests WHERE run_id=? AND testname=? AND item_path != '' AND status IN ('PASS','WARN','WAIVED'))
WHERE run_id=? AND testname=? AND item_path='';")
'(top-test-set-running "UPDATE tests SET state='RUNNING' WHERE run_id=? AND testname=? AND item_path='';")
'(top-test-set-per-pf-counts "UPDATE tests
SET state=CASE
WHEN (SELECT count(id) FROM tests
WHERE run_id=? AND testname=?
AND item_path != ''
AND state in ('RUNNING','NOT_STARTED','LAUNCHED','REMOTEHOSTSTART')) > 0 THEN 'RUNNING'
ELSE 'COMPLETED' END,
status=CASE
WHEN fail_count > 0 THEN 'FAIL'
WHEN pass_count > 0 AND fail_count=0 THEN 'PASS'
WHEN (SELECT count(id) FROM tests
WHERE run_id=? AND testname=?
AND item_path != ''
AND status = 'SKIP') > 0 THEN 'SKIP'
ELSE 'UNKNOWN' END
WHERE run_id=? AND testname=? AND item_path='';")
|
1449 1450 1451 1452 1453 1454 1455 | 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 | - + | (set! *server:last-write-flush* (current-milliseconds))
(set! *incoming-writes* '())
(mutex-unlock! *incoming-mutex*)
(if (> (length data) 0)
;; Process if we have data
(begin
(debug:print-info 7 "Writing cached data " data)
|
1541 1542 1543 1544 1545 1546 1547 | 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 | - + - - + + + + + + + + + + + + + + + + + + + + + + + + + + | (< (current-seconds) timeout))
(begin
(thread-sleep! 0.01)
(loop))))
(set! *number-of-writes* (+ *number-of-writes* 1))
(set! *writes-total-delay* (+ *writes-total-delay* (- (current-milliseconds) start-time)))
got-it))
|
1599 1600 1601 1602 1603 1604 1605 | 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 | - + + + + - - + + + - - - - + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + - + | (hash-table-set! *logged-in-clients* client-key (current-seconds)) (server:reply return-address qry-sig #t '(#t "successful login"))) ;; path matches - pass! Should vet the caller at this time ... (server:reply return-address qry-sig #f (list #f (conc "Login failed due to mismatch paths: " calling-path ", " *toppath*))))))) ((flush sync) (server:reply return-address qry-sig #t 1)) ;; (length data))) ((set-verbosity) (set! *verbosity* (car params)) |
1753 1754 1755 1756 1757 1758 1759 | 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 | - + | test-id category variable value expected tol units (if comment comment "") status type))) csvlist) (sqlite3:finalize! tdb))))) ;; get a list of test_data records matching categorypatt (define (db:read-test-data db test-id categorypatt #!key (work-area #f)) (let ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area))) |
1785 1786 1787 1788 1789 1790 1791 | 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 | - + | ;; look at the test_data status field, ;; if all are pass (any case) and the test status is PASS or NULL or '' then set test status to PASS. ;; if one or more are fail (any case) then set test status to PASS, non "pass" or "fail" are ignored (define (db:test-data-rollup db test-id status #!key (work-area #f)) (let ((tdb (db:open-test-db-by-test-id db test-id work-area: work-area)) (fail-count 0) (pass-count 0)) |
1813 1814 1815 1816 1817 1818 1819 | 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 | - - - - - - - + + + + + + + - - - - - - - - - - + + + + + + + + + + + + + + + | ;; (thread-sleep! 1) ;; play nice with the queue by ensuring the rollup is at least 10ms later than the set ;; if the test is not FAIL then set status based on the fail and pass counts. (cdb:test-rollup-test_data-pass-fail *runremote* test-id) ;; (sqlite3:execute ;; db ;;; NOTE: Should this be WARN,FAIL? A WARN is not a FAIL????? BUG FIXME ;; "UPDATE tests |
1970 1971 1972 1973 1974 1975 1976 | 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 | - + - + | (cond
((< (db:step-get-event_time a)(db:step-get-event_time b)) #t)
((eq? (db:step-get-event_time a)(db:step-get-event_time b))
(< (db:step-get-id a) (db:step-get-id b)))
(else #f)))))
res)))
|
2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 | 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 | + + + + + + + + + + + + + + - + - + - + + + - + - + + + + + + - + + + + - - - + + + + + + + + + + + - + + + - - + | #f))
(string<? (conc time-a)(conc time-b))))))))
'()))
;;======================================================================
;; M I S C M A N A G E M E N T I T E M S
;;======================================================================
;; A routine to map itempaths using a itemmap
(define (db:compare-itempaths patha pathb itemmap)
(debug:print-info 3 "ITEMMAP is " itemmap)
(if itemmap
(let* ((mapparts (string-split itemmap))
(pattern (car mapparts))
(replacement (if (> (length mapparts) 1) (cadr mapparts) "")))
(if replacement
(equal? (string-substitute pattern replacement patha)
(string-substitute pattern replacement pathb))
(equal? (string-substitute pattern "" patha)
(string-substitute pattern "" pathb))))
(equal? patha pathb)))
;; the new prereqs calculation, looks also at itempath if specified
;; all prereqs must be met:
;; if prereq test with itempath='' is COMPLETED and PASS, WARN, CHECK, or WAIVED then prereq is met
;; if prereq test with itempath=ref-item-path and COMPLETED with PASS, WARN, CHECK, or WAIVED then prereq is met
;;
;; Note: mode 'normal means that tests must be COMPLETED and ok (i.e. PASS, WARN, CHECK, SKIP or WAIVED)
;; mode 'toplevel means that tests must be COMPLETED only
|
2199 2200 2201 2202 2203 2204 2205 | 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 | + + + + + + + + + + + + + + + + + + + + + + + + + | (debug:print 0 "WARNING: path given, " outputfile " is relative, prefixing with current directory")
(conc (current-directory) "/" outputfile)))
results)
;; brutal clean up
(system "rm -rf tempdir")))
;; (db:extract-ods-file db "outputfile.ods" '(("sysname" "%")("fsname" "%")("datapath" "%")) "%")
;; This is a list of all procs that write to the db
;;
(define *db:all-write-procs*
(list
db:set-var
db:del-var
db:register-run
db:set-comment-for-run
db:delete-run
db:update-run-event_time
db:lock/unlock-run
db:delete-test-step-records
db:delete-test-records
db:delete-tests-for-run
db:delete-old-deleted-test-records
db:set-tests-state-status
db:test-set-state-status-by-id
db:test-set-state-status-by-run-id-testname
db:test-set-comment
db:testmeta-add-record
db:csv->test-data
db:test-data-rollup
db:teststep-set-status! ))
|
Modified db_records.scm from [e634aaf404] to [a8b0eafe9a].
| 1 2 3 4 5 6 7 8 | - + |
|
Added dcommon.scm version [26f749e48f].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;;======================================================================
;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
(use format)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use regex)
(declare (unit dcommon))
(declare (uses megatest-version))
(declare (uses gutils))
(declare (uses db))
(declare (uses synchash))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
;; yes, this is non-ideal
(define dashboard:update-summary-tab #f)
(define dashboard:update-servers-table #f)
;;======================================================================
;; C O M M O N D A T A S T R U C T U R E
;;======================================================================
;;
;; A single data structure for all the data used in a dashboard.
;; Share this structure between newdashboard and dashboard with the
;; intent of converging on a single app.
;;
(define *data* (make-vector 25 #f))
(define (dboard:data-get-runs vec) (vector-ref vec 0))
(define (dboard:data-get-tests vec) (vector-ref vec 1))
(define (dboard:data-get-runs-matrix vec) (vector-ref vec 2))
(define (dboard:data-get-tests-tree vec) (vector-ref vec 3))
(define (dboard:data-get-run-keys vec) (vector-ref vec 4))
(define (dboard:data-get-curr-test-ids vec) (vector-ref vec 5))
;; (define (dboard:data-get-test-details vec) (vector-ref vec 6))
(define (dboard:data-get-path-test-ids vec) (vector-ref vec 7))
(define (dboard:data-get-updaters vec) (vector-ref vec 8))
(define (dboard:data-get-path-run-ids vec) (vector-ref vec 9))
(define (dboard:data-get-curr-run-id vec) (vector-ref vec 10))
(define (dboard:data-get-runs-tree vec) (vector-ref vec 11))
;; For test-patts convert #f to ""
(define (dboard:data-get-test-patts vec)
(let ((val (vector-ref vec 12)))(if val val "")))
(define (dboard:data-get-states vec) (vector-ref vec 13))
(define (dboard:data-get-statuses vec) (vector-ref vec 14))
(define (dboard:data-get-logs-textbox vec val)(vector-ref vec 15))
(define (dboard:data-get-command vec) (vector-ref vec 16))
(define (dboard:data-get-command-tb vec) (vector-ref vec 17))
(define (dboard:data-get-target vec) (vector-ref vec 18))
(define (dboard:data-get-target-string vec)
(let ((targ (dboard:data-get-target vec)))
(if (list? targ)(string-intersperse targ "/") "no-target-specified")))
(define (dboard:data-get-run-name vec) (vector-ref vec 19))
(define (dboard:data-get-runs-listbox vec) (vector-ref vec 20))
(define (dboard:data-set-runs! vec val)(vector-set! vec 0 val))
(define (dboard:data-set-tests! vec val)(vector-set! vec 1 val))
(define (dboard:data-set-runs-matrix! vec val)(vector-set! vec 2 val))
(define (dboard:data-set-tests-tree! vec val)(vector-set! vec 3 val))
(define (dboard:data-set-run-keys! vec val)(vector-set! vec 4 val))
(define (dboard:data-set-curr-test-ids! vec val)(vector-set! vec 5 val))
;; (define (dboard:data-set-test-details! vec val)(vector-set! vec 6 val))
(define (dboard:data-set-path-test-ids! vec val)(vector-set! vec 7 val))
(define (dboard:data-set-updaters! vec val)(vector-set! vec 8 val))
(define (dboard:data-set-path-run-ids! vec val)(vector-set! vec 9 val))
(define (dboard:data-set-curr-run-id! vec val)(vector-set! vec 10 val))
(define (dboard:data-set-runs-tree! vec val)(vector-set! vec 11 val))
;; For test-patts convert "" to #f
(define (dboard:data-set-test-patts! vec val)
(vector-set! vec 12 (if (equal? val "") #f val)))
(define (dboard:data-set-states! vec val)(vector-set! vec 13 val))
(define (dboard:data-set-statuses! vec val)(vector-set! vec 14 val))
(define (dboard:data-set-logs-textbox! vec val)(vector-set! vec 15 val))
(define (dboard:data-set-command! vec val)(vector-set! vec 16 val))
(define (dboard:data-set-command-tb! vec val)(vector-set! vec 17 val))
(define (dboard:data-set-target! vec val)(vector-set! vec 18 val))
(define (dboard:data-set-run-name! vec val)(vector-set! vec 19 val))
(define (dboard:data-set-runs-listbox! vec val)(vector-set! vec 20 val))
(dboard:data-set-run-keys! *data* (make-hash-table))
;; List of test ids being viewed in various panels
(dboard:data-set-curr-test-ids! *data* (make-hash-table))
;; Look up test-ids by (key1 key2 ... testname [itempath])
(dboard:data-set-path-test-ids! *data* (make-hash-table))
;; Look up run-ids by ??
(dboard:data-set-path-run-ids! *data* (make-hash-table))
;;======================================================================
;; TARGET AND PATTERN MANIPULATIONS
;;======================================================================
;; Convert to and from list of lines (for a text box)
;; "," => "\n"
(define (dboard:test-patt->lines test-patt)
(string-substitute (regexp ",") "\n" test-patt))
(define (dboard:lines->test-patt lines)
(string-substitute (regexp "\n") "," lines #t))
;;======================================================================
;; P R O C E S S R U N S
;;======================================================================
;; MOVE THIS INTO *data*
(define *cachedata* (make-hash-table))
(hash-table-set! *cachedata* "runid-to-col" (make-hash-table))
(hash-table-set! *cachedata* "testname-to-row" (make-hash-table))
;; TO-DO
;; 1. Make "data" hash-table hierarchial store of all displayed data
;; 2. Update synchash to understand "get-runs", "get-tests" etc.
;; 3. Add extraction of filters to synchash calls
;;
;; Mode is 'full or 'incremental for full refresh or incremental refresh
(define (run-update keys data runname keypatts testpatt states statuses mode window-id)
(let* (;; count and offset => #f so not used
;; the synchash calls modify the "data" hash
(get-runs-sig (conc (client:get-signature) " get-runs"))
(get-tests-sig (conc (client:get-signature) " get-tests"))
(get-details-sig (conc (client:get-signature) " get-test-details"))
;; test-ids to get and display are indexed on window-id in curr-test-ids hash
(test-ids (hash-table-values (dboard:data-get-curr-test-ids *data*)))
(run-changes (synchash:client-get 'db:get-runs get-runs-sig (length keypatts) data runname #f #f keypatts))
(tests-detail-changes (if (not (null? test-ids))
(synchash:client-get 'db:get-test-info-by-ids get-details-sig 0 data test-ids)
'()))
;; Now can calculate the run-ids
(run-hash (hash-table-ref/default data get-runs-sig #f))
(run-ids (if run-hash (filter number? (hash-table-keys run-hash)) '()))
(test-changes (synchash:client-get 'db:get-tests-for-runs-mindata get-tests-sig 0 data run-ids testpatt states statuses #f))
(runs-hash (hash-table-ref/default data get-runs-sig #f))
(header (hash-table-ref/default runs-hash "header" #f))
(run-ids (sort (filter number? (hash-table-keys runs-hash))
(lambda (a b)
(let* ((record-a (hash-table-ref runs-hash a))
(record-b (hash-table-ref runs-hash b))
(time-a (db:get-value-by-header record-a header "event_time"))
(time-b (db:get-value-by-header record-b header "event_time")))
(> time-a time-b)))
))
(runid-to-col (hash-table-ref *cachedata* "runid-to-col"))
(testname-to-row (hash-table-ref *cachedata* "testname-to-row"))
(colnum 1)
(rownum 0)) ;; rownum = 0 is the header
;; (debug:print 0 "test-ids " test-ids ", tests-detail-changes " tests-detail-changes)
;; tests related stuff
;; (all-testnames (delete-duplicates (map db:test-get-testname test-changes))))
;; Given a run-id and testname/item_path calculate a cell R:C
;; NOTE: Also build the test tree browser and look up table
;;
;; Each run is unique on its keys and runname or run-id, store in hash on colnum
(for-each (lambda (run-id)
(let* ((run-record (hash-table-ref/default runs-hash run-id #f))
(key-vals (map (lambda (key)(db:get-value-by-header run-record header key))
keys))
(run-name (db:get-value-by-header run-record header "runname"))
(col-name (conc (string-intersperse key-vals "\n") "\n" run-name))
(run-path (append key-vals (list run-name))))
(hash-table-set! (dboard:data-get-run-keys *data*) run-id run-path)
(iup:attribute-set! (dboard:data-get-runs-matrix *data*)
(conc rownum ":" colnum) col-name)
(hash-table-set! runid-to-col run-id (list colnum run-record))
;; Here we update the tests treebox and tree keys
(tree:add-node (dboard:data-get-tests-tree *data*) "Runs" (append key-vals (list run-name))
userdata: (conc "run-id: " run-id))
(set! colnum (+ colnum 1))))
run-ids)
;; Scan all tests to be displayed and organise all the test names, respecting what is in the hash table
;; Do this analysis in the order of the run-ids, the most recent run wins
(for-each (lambda (run-id)
(let* ((run-path (hash-table-ref (dboard:data-get-run-keys *data*) run-id))
(new-test-dat (car test-changes))
(removed-tests (cadr test-changes))
(tests (sort (map cadr (filter (lambda (testrec)
(eq? run-id (db:mintest-get-run_id (cadr testrec))))
new-test-dat))
(lambda (a b)
(let ((time-a (db:mintest-get-event_time a))
(time-b (db:mintest-get-event_time b)))
(> time-a time-b)))))
;; test-changes is a list of (( id record ) ... )
;; Get list of test names sorted by time, remove tests
(test-names (delete-duplicates (map (lambda (t)
(let ((i (db:mintest-get-item_path t))
(n (db:mintest-get-testname t)))
(if (string=? i "")
(conc " " i)
n)))
tests)))
(colnum (car (hash-table-ref runid-to-col run-id))))
;; for each test name get the slot if it exists and fill in the cell
;; or take the next slot and fill in the cell, deal with items in the
;; run view panel? The run view panel can have a tree selector for
;; browsing the tests/items
;; SWITCH THIS TO USING CHANGED TESTS ONLY
(for-each (lambda (test)
(let* ((test-id (db:mintest-get-id test))
(state (db:mintest-get-state test))
(status (db:mintest-get-status test))
(testname (db:mintest-get-testname test))
(itempath (db:mintest-get-item_path test))
(fullname (conc testname "/" itempath))
(dispname (if (string=? itempath "") testname (conc " " itempath)))
(rownum (hash-table-ref/default testname-to-row fullname #f))
(test-path (append run-path (if (equal? itempath "")
(list testname)
(list testname itempath)))))
(tree:add-node (dboard:data-get-tests-tree *data*) "Runs"
test-path
userdata: (conc "test-id: " test-id))
(hash-table-set! (dboard:data-get-path-test-ids *data*) test-path test-id)
(if (not rownum)
(let ((rownums (hash-table-values testname-to-row)))
(set! rownum (if (null? rownums)
1
(+ 1 (apply max rownums))))
(hash-table-set! testname-to-row fullname rownum)
;; create the label
(iup:attribute-set! (dboard:data-get-runs-matrix *data*)
(conc rownum ":" 0) dispname)
))
;; set the cell text and color
;; (debug:print 2 "rownum:colnum=" rownum ":" colnum ", state=" status)
(iup:attribute-set! (dboard:data-get-runs-matrix *data*)
(conc rownum ":" colnum)
(if (string=? state "COMPLETED")
status
state))
(iup:attribute-set! (dboard:data-get-runs-matrix *data*)
(conc "BGCOLOR" rownum ":" colnum)
(car (gutils:get-color-for-state-status state status)))
))
tests)))
run-ids)
(let ((updater (hash-table-ref/default (dboard:data-get-updaters *data*) window-id #f)))
(if updater (updater (hash-table-ref/default data get-details-sig #f))))
(iup:attribute-set! (dboard:data-get-runs-matrix *data*) "REDRAW" "ALL")
;; (debug:print 2 "run-changes: " run-changes)
;; (debug:print 2 "test-changes: " test-changes)
(list run-changes test-changes)))
;;======================================================================
;; TESTS DATA
;;======================================================================
;; Produce a list of lists ready for common:sparse-list-generate-index
;;
(define (dcommon:minimize-test-data tests-dat)
(if (null? tests-dat)
'()
(let loop ((hed (car tests-dat))
(tal (cdr tests-dat))
(res '()))
(let* ((test-id (vector-ref hed 0)) ;; look at the tests-dat spec for locations
(test-name (vector-ref hed 1))
(item-path (vector-ref hed 2))
(state (vector-ref hed 3))
(status (vector-ref hed 4))
(newitem (list test-name item-path (list test-id state status))))
(if (null? tal)
(reverse (cons newitem res))
(loop (car tal)(cdr tal)(cons newitem res)))))))
;;======================================================================
;; D A T A T A B L E S
;;======================================================================
;; Table of keys
(define (dcommon:keys-matrix rawconfig)
(let* ((curr-row-num 1)
(key-vals (configf:section-vars rawconfig "fields"))
(keys-matrix (iup:matrix
#:alignment1 "ALEFT"
#:expand "YES" ;; "HORIZONTAL" ;; "VERTICAL"
;; #:scrollbar "YES"
#:numcol 1
#:numlin (length key-vals)
#:numcol-visible 1
#:numlin-visible (length key-vals)
#:click-cb (lambda (obj lin col status)
(print "obj: " obj " lin: " lin " col: " col " status: " status)))))
;; (iup:attribute-set! keys-matrix "0:0" "Run Keys")
(iup:attribute-set! keys-matrix "WIDTH0" 0)
(iup:attribute-set! keys-matrix "0:1" "Key Name")
;; (iup:attribute-set! keys-matrix "WIDTH1" "100")
;; fill in keys
(for-each
(lambda (var)
;; (iup:attribute-set! keys-matrix "ADDLIN" (conc curr-row-num))
(iup:attribute-set! keys-matrix (conc curr-row-num ":0") curr-row-num)
(iup:attribute-set! keys-matrix (conc curr-row-num ":1") var)
(set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
key-vals)
(iup:attribute-set! keys-matrix "WIDTHDEF" "40")
keys-matrix))
;; Section to table
(define (dcommon:section-matrix rawconfig sectionname varcolname valcolname #!key (title #f))
(let* ((curr-row-num 1)
(key-vals (configf:section-vars rawconfig sectionname))
(section-matrix (iup:matrix
#:alignment1 "ALEFT"
#:expand "YES" ;; "HORIZONTAL"
#:numcol 1
#:numlin (length key-vals)
#:numcol-visible 1
#:numlin-visible (length key-vals)
#:scrollbar "YES")))
(iup:attribute-set! section-matrix "0:0" varcolname)
(iup:attribute-set! section-matrix "0:1" valcolname)
(iup:attribute-set! section-matrix "WIDTH1" "200")
;; fill in keys
(for-each
(lambda (var)
;; (iup:attribute-set! keys-matrix "ADDLIN" (conc curr-row-num))
(iup:attribute-set! section-matrix (conc curr-row-num ":0") var)
(iup:attribute-set! section-matrix (conc curr-row-num ":1") (configf:lookup rawconfig sectionname var))
(set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
key-vals)
(iup:vbox
(iup:label (if title title (conc "Settings from [" sectionname "]"))
;; #:size "5x"
#:expand "HORIZONTAL"
)
section-matrix)))
;; General data
;;
(define (dcommon:general-info)
(let ((general-matrix (iup:matrix
#:alignment1 "ALEFT"
#:expand "YES" ;; "HORIZONTAL"
#:numcol 1
#:numlin 3
#:numcol-visible 1
#:numlin-visible 3)))
(iup:attribute-set! general-matrix "WIDTH1" "200")
(iup:attribute-set! general-matrix "0:1" "About this Megatest area")
;; User (this is not always obvious - it is common to run as a different user
(iup:attribute-set! general-matrix "1:0" "User")
(iup:attribute-set! general-matrix "1:1" (current-user-name))
;; Megatest area
(iup:attribute-set! general-matrix "2:0" "Area")
(iup:attribute-set! general-matrix "2:1" *toppath*)
;; Megatest version
(iup:attribute-set! general-matrix "3:0" "Version")
(iup:attribute-set! general-matrix "3:1" megatest-version)
general-matrix))
(define (dcommon:run-stats)
(let* ((stats-matrix (iup:matrix expand: "YES"))
(changed #f)
(updater (lambda ()
(let* ((run-stats (mt:get-run-stats))
(indices (common:sparse-list-generate-index run-stats)) ;; proc: set-cell))
(row-indices (car indices))
(col-indices (cadr indices))
(max-row (if (null? row-indices) 1 (apply max (map cadr row-indices))))
(max-col (if (null? col-indices) 1
(apply max (map cadr col-indices))))
(max-visible (max (- *num-tests* 15) 3))
(max-col-vis (if (> max-col 10) 10 max-col))
(numrows 1)
(numcols 1))
(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
(iup:attribute-set! stats-matrix "NUMCOL" max-col )
(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
;; Row labels
(for-each (lambda (ind)
(let* ((name (car ind))
(num (cadr ind))
(key (conc num ":0")))
(if (not (equal? (iup:attribute stats-matrix key) name))
(begin
(set! changed #t)
(iup:attribute-set! stats-matrix key name)))))
row-indices)
;; Col labels
(for-each (lambda (ind)
(let* ((name (car ind))
(num (cadr ind))
(key (conc "0:" num)))
(if (not (equal? (iup:attribute stats-matrix key) name))
(begin
(set! changed #t)
(iup:attribute-set! stats-matrix key name)))))
col-indices)
;; Cell contents
(for-each (lambda (entry)
(let* ((row-name (car entry))
(col-name (cadr entry))
(value (caddr entry))
(row-num (cadr (assoc row-name row-indices)))
(col-num (cadr (assoc col-name col-indices)))
(key (conc row-num ":" col-num)))
(if (not (equal? (iup:attribute stats-matrix key) value))
(begin
(set! changed #t)
(iup:attribute-set! stats-matrix key value)))))
run-stats)
(if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL"))))))
(updater)
(set! dashboard:update-summary-tab updater)
(iup:attribute-set! stats-matrix "WIDTHDEF" "40")
(iup:vbox
;; (iup:label "Run statistics" #:expand "HORIZONTAL")
stats-matrix)))
(define (dcommon:servers-table)
(let* ((colnum 0)
(rownum 0)
(servers-matrix (iup:matrix #:expand "YES"
#:numcol 7
#:numcol-visible 7
#:numlin-visible 3
))
(colnames (list "Id" "MTver" "Pid" "Host" "Interface:OutPort" "InPort" "State" "Transport"))
(updater (lambda ()
(let ((servers (open-run-close tasks:get-all-servers tasks:open-db)))
(iup:attribute-set! servers-matrix "NUMLIN" (length servers))
;; (set! colnum 0)
;; (for-each (lambda (colname)
;; ;; (print "colnum: " colnum " colname: " colname)
;; (iup:attribute-set! servers-matrix (conc "0:" colnum) colname)
;; (set! colnum (+ 1 colnum)))
;; colnames)
(set! rownum 1)
(for-each
(lambda (server)
(set! colnum 0)
(let* ((vals (list (vector-ref server 0) ;; Id
(vector-ref server 9) ;; MT-Ver
(vector-ref server 1) ;; Pid
(vector-ref server 2) ;; Hostname
(conc (vector-ref server 3) ":" (vector-ref server 4)) ;; IP:Port
(vector-ref server 5) ;; Pubport
;; (vector-ref server 10) ;; Last beat
;; (vector-ref server 6) ;; Start time
;; (vector-ref server 7) ;; Priority
;; (vector-ref server 8) ;; State
(if (< (vector-ref server 10) 20) ;; Status (Please redo this properly!)
"alive"
"dead")
(vector-ref server 11) ;; Transport
)))
(for-each (lambda (val)
;; (print "rownum: " rownum " colnum: " colnum " val: " val)
(iup:attribute-set! servers-matrix (conc rownum ":" colnum) val)
(iup:attribute-set! servers-matrix "FITTOTEXT" (conc "C" colnum))
(set! colnum (+ 1 colnum)))
vals)
(set! rownum (+ rownum 1)))
(iup:attribute-set! servers-matrix "REDRAW" "ALL"))
servers)))))
(set! colnum 0)
(for-each (lambda (colname)
(iup:attribute-set! servers-matrix (conc "0:" colnum) colname)
(iup:attribute-set! servers-matrix "FITTOTEXT" (conc "C" colnum))
(set! colnum (+ colnum 1)))
colnames)
(set! dashboard:update-servers-table updater)
;; (iup:attribute-set! servers-matrix "WIDTHDEF" "40")
(iup:hbox
(iup:vbox
(iup:button "Start"
;; #:size "50x"
#:expand "YES"
#:action (lambda (obj)
(let ((cmd (conc ;; "xterm -geometry 180x20 -e \""
"megatest -server - &")))
;; ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
(system cmd))))
(iup:button "Stop"
#:expand "YES"
;; #:size "50x"
#:action (lambda (obj)
(let ((cmd (conc ;; "xterm -geometry 180x20 -e \""
"megatest -stop-server 0 &")))
;; ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
(system cmd))))
(iup:button "Restart"
#:expand "YES"
;; #:size "50x"
#:action (lambda (obj)
(let ((cmd (conc ;; "xterm -geometry 180x20 -e \""
"megatest -stop-server 0;megatest -server - &")))
;; ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
(system cmd)))))
servers-matrix
)))
;; The main menu
(define (dcommon:main-menu)
(iup:menu ;; a menu is a special attribute to a dialog (think Gnome putting the menu at screen top)
(iup:menu-item "Files" (iup:menu ;; Note that you can use either #:action or action: for options
(iup:menu-item "Open" action: (lambda (obj)
(iup:show (iup:file-dialog))
(print "File->open " obj)))
(iup:menu-item "Save" #:action (lambda (obj)(print "File->save " obj)))
(iup:menu-item "Exit" #:action (lambda (obj)(exit)))))
(iup:menu-item "Tools" (iup:menu
(iup:menu-item "Create new blah" #:action (lambda (obj)(print "Tools->new blah")))
;; (iup:menu-item "Show dialog" #:action (lambda (obj)
;; (show message-window
;; #:modal? #t
;; ;; set positon using coordinates or center, start, top, left, end, bottom, right, parent-center, current
;; ;; #:x 'mouse
;; ;; #:y 'mouse
;; )
))))
|
Added docs/dashboard-summary-tab.png version [f52b6628fb].
cannot compute difference between binary files
Modified docs/manual/Makefile from [22123d0475] to [c10ea440f6].
1 | 1 2 3 4 5 6 7 | - + + + |
|
Added docs/manual/howto.txt version [ad8e0484e1].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
How To Do Things
================
Tricks
------
This section is a compendium of a various useful tricks for debugging,
configuring and generally getting the most out of Megatest.
Debugging Tricks
----------------
Examining The Environment
~~~~~~~~~~~~~~~~~~~~~~~~~
During Config File Processing
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Organising Your Tests and Tasks
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
/nfs/ch/disks/ch_unienv_disk005/qa_mrwellan/interim/src/megatest/tests/fdktestqa/testqa
----------------------------
[tests-paths]
1 #{get misc parent}/simplerun/tests
----------------------------
-------------------
[setup]
-------------------
The runscript method is a brute force way to run scripts where the
user is responsible for setting STATE and STATUS
-------------------
runscript main.csh
-------------------
ww30.2
cellname/LVS/cellname.LAYOUT_ERRORS
Error: text open
ww31.3
cellname/LVS/cellname.LAYOUT_ERRORS
Error: text open
|
Modified docs/manual/megatest_manual.html from [2055d691a1] to [25f641c57e].
740 741 742 743 744 745 746 | 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 | - - - - - - - - - - - - - - - - - - - - - - + + + + + + - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | <h1>The Megatest Users Manual</h1> <span id="author">Matt Welland</span><br /> <span id="email"><tt><<a href="mailto:matt@kiatoa.com">matt@kiatoa.com</a>></tt></span><br /> <span id="revnumber">version 1.0,</span> <span id="revdate">April 2012</span> </div> <div id="content"> |
884 885 886 887 888 889 890 | 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 | - + + - + + + + + + + + + + + + + + + + - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - + + + + + + + + + + + + + + + + - - - - + + + + + + + + + + - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - + - - - - + | <div class="sect1"> <h2 id="_the_second_chapter">The Second Chapter</h2> <div class="sectionbody"> <div class="paragraph"><p>An example link to anchor at start of the <a href="#X1">first sub-section</a>.</p></div> <div class="paragraph"><p>An example link to a bibliography entry <a href="#taoup">[taoup]</a>.</p></div> </div> </div> |
Modified docs/manual/megatest_manual.txt from [db93d807cc] to [20ce759875].
1 2 3 4 5 6 7 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | - - - - - - - - - - - - - - - - - - - - - - + + + + + + - - + + + - + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - | The Megatest Users Manual ========================= Matt Welland <matt@kiatoa.com> v1.0, April 2012 :doctype: book |
Modified docs/manual/reference.txt from [1a25745098] to [6d8b51499a].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | Reference ========= The First Chapter of the Second Part ------------------------------------ Chapters grouped into book parts are at level 1 and can contain sub-sections. The testconfig File ------------------- Setup section ~~~~~~~~~~~~~ Header ^^^^^^ ------------------- [setup] ------------------- |
Added docs/manual_running_of_tests.png version [3681883a22].
cannot compute difference between binary files
Added docs/megatest-about.svg version [5cfe75c45c].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!-- Created with Inkscape (http://www.inkscape.org/) -->
<svg
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:cc="http://creativecommons.org/ns#"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:svg="http://www.w3.org/2000/svg"
xmlns="http://www.w3.org/2000/svg"
xmlns:xlink="http://www.w3.org/1999/xlink"
xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
width="744.09448819"
height="1052.3622047"
id="svg2"
version="1.1"
inkscape:version="0.48.3.1 r9886"
sodipodi:docname="megatest-about.svg">
<defs
id="defs4">
<linearGradient
inkscape:collect="always"
id="linearGradient4210">
<stop
style="stop-color:#000000;stop-opacity:1;"
offset="0"
id="stop4212" />
<stop
style="stop-color:#000000;stop-opacity:0;"
offset="1"
id="stop4214" />
</linearGradient>
<linearGradient
inkscape:collect="always"
xlink:href="#linearGradient4210"
id="linearGradient4216"
x1="32.261719"
y1="719.68437"
x2="599.57812"
y2="719.68437"
gradientUnits="userSpaceOnUse" />
</defs>
<sodipodi:namedview
id="base"
pagecolor="#ffffff"
bordercolor="#666666"
borderopacity="1.0"
inkscape:pageopacity="0.0"
inkscape:pageshadow="2"
inkscape:zoom="0.7"
inkscape:cx="263.11623"
inkscape:cy="534.40312"
inkscape:document-units="px"
inkscape:current-layer="layer1"
showgrid="false"
inkscape:window-width="1527"
inkscape:window-height="1016"
inkscape:window-x="215"
inkscape:window-y="35"
inkscape:window-maximized="0" />
<metadata
id="metadata7">
<rdf:RDF>
<cc:Work
rdf:about="">
<dc:format>image/svg+xml</dc:format>
<dc:type
rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
<dc:title></dc:title>
</cc:Work>
</rdf:RDF>
</metadata>
<g
inkscape:label="Layer 1"
inkscape:groupmode="layer"
id="layer1">
<rect
style="opacity:0.78378378000000004;fill:#d6d6d6;fill-opacity:1;stroke:#000000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect4442"
width="651.42859"
height="675.71442"
x="32.857143"
y="330.93362" />
<flowRoot
xml:space="preserve"
id="flowRoot2985"
style="fill:black;stroke:none;stroke-opacity:1;stroke-width:1px;stroke-linejoin:miter;stroke-linecap:butt;fill-opacity:1;font-family:Sans;font-style:normal;font-weight:normal;font-size:72px;line-height:125%;letter-spacing:0px;word-spacing:0px"><flowRegion
id="flowRegion2987"><rect
id="rect2989"
width="628.57141"
height="104.28571"
x="55.714287"
y="40.933609"
style="font-size:72px" /></flowRegion><flowPara
id="flowPara2991"></flowPara></flowRoot> <text
xml:space="preserve"
style="font-size:22px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="187.14285"
y="58.076473"
id="text2993"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan2995"
x="187.14285"
y="58.076473"
style="font-size:64px;font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;font-family:Sans;-inkscape-font-specification:Sans Bold">Megatest</tspan></text>
<text
xml:space="preserve"
style="font-size:22px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="195.71429"
y="100.93362"
id="text2997"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan2999"
x="195.71429"
y="100.93362">Simple - but not TOO simple!</tspan></text>
<image
y="7.3621907"
x="4.3571429"
id="image3139"
xlink:href="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAIkAAABGCAYAAAD4mreoAAAABHNCSVQICAgIfAhkiAAAIABJREFU
eJzlnXlcVNX7x98zwwwwgGyCiiuuWaYlaiq5b6m5p6aJ+S1NzbVyV9zKLbdEzQy3rIxMcV/ScM3S
cKtMUElFEVBW2QYYmPv7484dL+MMDAou/T6v133NPfes997PnPOc53nOuQpBEPhPQ4ECUAMa42Fv
DCvNDpXxF8Bg4cg3HjnGIxfIReA//gBB8Z8iiUgILeAEOPKAEIpSqlEA9IikyQYygSwEDKVU31PB
800SBUoekEJrPEqLELZCAHRABg9I8xw/5OeRJGJv4QK4Gn+VhWd46hAQyZICpD2PhHk+SCISwwmR
GGUQ5YcSwUhGtj7L2dFS2BffbVvZGlJS5ZshH7gPpCKQVUp1lDiebZIosAM8jIddaVTRnOZfp5Pe
TAqrUcec4UwXNepCH8z/+F/nCCL6VaTi0S50OfI+78cUs+ocIBWRMPpHaPoTw7NJEgX2gCfgjhUZ
Q4dO6YjjYwmIm9jks5SlB83raE/7YctZfrqwvC1osTSV1I5S2B77KG+8jzShybHpTL9UFMnMkAEk
IJBZrBt4Qni2SKLACSiLKGs8hLWsrbKXvZ0TSWySSWYDQLDDLtkb70NjGLOxK12Ti1NdV7qOvsWt
4ebX3XE/dIITn1jLp0evaEazXTnk+FqKt8MuwQOPY3Wpe2QSk/6oQpVcG5uUAdxFQGdj+ieCZ4Mk
Ys9RAXC2FB1KqFcQQR8nkdQFK4KqEmVGb3oPm8WsS7ZUmUaashWtDueR5w3ghtvhVFI7iM1R5C1g
QbuiSPcpn754mtNt73K3XQ45Na20K6sMZU754nt0DGOONqZxhg3Nuw/cQyDHlnspbTzdmYECFQoq
ADWxQpD5zK/7KZ+GJJH0JoW014DBeSc7V53ilMVeyBxTmNJCIogSZcZCFs5SoUoDEBDs1rGuR1Fl
BBJ4eR/7Vp3lbK9qVFttpV3aVFI7XODC/AMcqFpUmcM079VHFNBroqAiCtS23E9p4umQRIECBZ5A
bUTZw6LcEU648za2BUkvEzB44bXtLd4aEExws570fMce+ygALdqLAxk4zB//dFua8Bd/9ZHOPfE8
5I9/uieeB6Vrt7jVR4/eZp1LIomNpHMt2gt++E12x/2gEmUGgB1296Yy9XJhZXSt2qHjqTK/tzQG
FYgyWW0UlDfqhJ4KSmXGUCgUOAKVELWhhWIKUz7Woy8vZlPkdKPb0HnMuyjFN6XpX8MY1n8hC5ut
YMUJW4XFUEK90kiTXgaNabwboDnNd+1kZz+AXHKrTmVq4yUs+aOo8k5wokwmmSaSVKLS4U1s2g/s
v8c9uwUsaHSf+26W2hdOuHM00dobTlGaE1mnxl9I/KunWRIFopxWBgW3n4a88uRkEvE/6QV4Y4NW
9Ba3NN3o9qsBgyNAbWov3s72zUXlCyXU6zjHa61gxW/W0vSgx9DrXB8HoEZ95wxnOksv0A+/vbnk
VgXwwOPAcY5PKqrOd3m363nOL5TC4xnf2dYpcUc6To4nvvfNitfyG9s1WRQWfXxXIckFIAFxJvTE
hMkn04WJ46ovUA4b1ebLWOYnEQRgOMP3WEubTLJqOMPbvs7rK2cz+/Axji25wQ2LPZUevSKGmN5S
uAIV9sr/4RWpaHpJKaS0CyPMrai23uBGW+ncHvsoWwmymMW14okfkFA7VmvvonFJjc4YOo5xzQvJ
okD8k/miQGNLHSWB0h9uFLgCPhRTS5pEkiSHoEJ1vyMdU8zTrGBF9QMc6BVPfPd88j2k6wKCy1zm
tt3IxgPmeaYwpUkuuZWlcBxxXZvQpCXiv9RgwKCVlaNZzeru7WhntQe7xS3Nfe77S2FvvI/aeo/b
2T79fvlklaF6Dh6Hfcglt9oRjqxtQYuw93n/8yEMibWSVYso2MYh8NBzKWmUXk8iCqcVgcqYEWQ+
8+vakD1fOjdgcL7EJUd5fCSRDhvYEHKHO0PkBJFwhSvmYzsAZznbRx7Wo6+kQ1dXh+5FHbp6OeRU
l8ff4tZbhbVzMYubGDA4SeEmNLGJJEMY0iXJIdHPrm8W6igtjvmO96W4VFLbLWPZ7jd5c6S1HhHx
3VVEQRUUJWemsFZRyUNsdDVE6dyEW9zStKb1vBBCfviIj5oWVkRZyiZI5wKCaj3rG8jjX+CFbA88
fharU+S6437QHfdDUnw66U1DCCknzxNGmFsKKe2Kcys55PhOYUpDa/GXudxGOrfDLmE604vU05zn
vNN5zk/I7pBMfoIC9yjvlCCCutSn/kwVqhQAAcE+mugP+9Bn1whGtCmkuDKIw0+pjQolTxJxrKyO
aJAzYR/7PPrSd30SSd0FBNURjiwrbLwfyciLChQmTeWf/NnJPE072m2pQ52FQQS1PcGJiW/zdpAs
WrmFLQV0HV/yZTcBQSM2U5G7mtX+f/P3y+bHPvb5qVCZ/tmnOd3XUhv16BXJJLeWwu64H7dlhjWN
aSMSXo3xKv+xA0KYI6/wypKWtEz7nu93rGZ11/KU34Lo6IQefcVTnApqTvM1wQRXtlKkA1DDqJQs
cZQsSRRoEQlSoLGLWVwrkMAfssh6RUymyG1AgwXtaJdqraha1MpxxjlcCieQ0HsVq6rJ08xgRsQ2
tn3fmtb3AZxx1itQZEvxccR1kKePJtoksLrierwlLdMs1V2FKrleeO2VwskkdzjBiTLm6eYxr55M
h0Nd6hY51KxgRfVL1S4Orr5Zy53AbMonVLz4Ld/uluL98U8/zOEFAQT0dcLpvHQ9nfTmccQ91AYZ
1EB1o4qhRFFyJFFQBnGIKdDtjWRk6+/47js9eh8AO+ySutP9vc1stjpbkdCc5hvkbd3ClmmxxFrU
QJ7mtHMQQasFBAfpmi++odJ5IIH15arzl3ip0Po70MGUV0CwDyKou3maP/jDNAwoUeomMOFMUff0
peeqpR4zUKb9qkd7zh0duhe70nV0JJEO8nSTmHT1NKff9cNvsh1297zxDp3JzH+KKF6FOPTYpHW2
FSWjJxEJUhmz6W0vev0viqjxGMnogMOVcYwbM4hBcfJ0evQKa910M5oFZ5Bhkl+ccDobSOAncrvK
cIa3DSd8qqR4AyhL2V2HOBQolduXvgNuc7sjgBJlzk52jvbGO6+w22pFq0XZZFcy1vvvEY7MlMc3
otEOiXhuuIWd5OT4wsrrquk8IGJw+DTfFc5ENsnA458Kpjg16vhXeXXxetYfMs/3J39qdeiUTWlq
i90HxJnaHQSs9tTFweOTRGRtFWQEiSVW/Q7vzEok0SQTuOJ65Cu+mlKPeiaNoR69ogc9RuvQeR/l
aKCl4vexzyOQwB+knsgIgyOOkSpU6Tp0tcxnN954b93L3nmP60pQGIIJrhxE0H4p3IAGM77jO6uK
sIMcdH2/1cCjL4a5qm+MzcDhy3JJlai0K5bYAAHB1Ds643ymH/0WfMRH/5ZAM+MQSHrcQh5vuBFN
+wUIcpCD7r3pvU5OkEpUWneUo+PlBIkk0qEtbZfd5vYHiST27EnP9yxV0ZWuye/y7kh77K/L261D
92IGGa/JCaJEmf4Kr8wII+zT0iQIgAGDwguvHXbYJQGGwQw+UVj64fWHfFvrR2e1LjqP7N0qGtJw
yUEOLh/BiF4uuJyS0mWQ8dpGNm7vSMeJ4YRbNHoWAxWMeqrHwqP3JKKQWg0zojWn+dp00k1aQw88
9h/n+GR5mhBCyi1l6cpssiV9iaEudRduZesP1qq7xjX7sYz98C53u8iHFcRe5Up5yh8OJPAHG03x
JQY9esVKVtb4mI+jrKVpWPulT1SrU4a4t7fn8hv3qfBzjYvhhAfI0xiHzMnyHrM61VfsYtc6S2Xq
0CmHMrRHHHH1NWjS61DntBVThADceBx3yUcjiQIHRDX7Q0qcL/my6lrW/mDAIAlPhla0GrWKVb8C
zGRm/T3sWZFHXlkQzfStaDUhiKBT5mVZw3KW10gm2UmBgk50umGr5fdp4L0K7zb8beSB4CqBTpqk
XdkkD9YIH6SN6DeVqZHmaa9xzX4844fe5vb/7LBL3M72Hr74PuRTspzlNUIImZtFVn35dQccIgYw
YJoFwuYD/yJgq/NTARSfJKKirCZY93P4iI+ahhH2lYCgApEIQxk68Bzn6p7n/FwBwR5Ag+b2YAaP
Hse46+ZlFCbMPi/YwQ63j/oP+6l2iEt5IU/gn9fS8DpfOase9RZsYtMua/e3nvWVbnDD8zM++9M8
7h737DrTeUcuudUs5VWgyG5N6/EW/nS5iETJt5SvMBSPJKLkUQ0rDkJy9KPf2xFETJfCKlSp+eSb
lGdOOJ2bx7zxlnQls5n98j72zbI0E3pekEmmsl6r6sHV9zk2UTkpiJ6VITDPQ6HJF+1yjjj+3ZWu
8231pJMQQED3i1ycJ4W98f5Jg+Z+LLFvGzA4g+gN15e+Q2YwI+KhZsHN4lqQiyu4lsMGggBsZWtI
OcqZZAw5Qbzw2rGb3UMtEWQIQ7qEEroxm+w6K1ix+k/+1JqnKQI+QGdEdTVAQ0CurW0LvGw8tzem
7UhBtAEay8ryksX5Gq85G8vqLDtqGNN07P9SzzWV1qobqZwU6BPzMexxPOSd731YKkSH7uVtbNvS
lrZzDnKwgPmiMKSSapJZ1Kjjwwibe4ADK1ayspMrrkdB9IbbzvYvze1diFrwirbWJcF2koi6EK8i
08mwla2LXHD5XX7NEcfLRzgy01xHoUev6ErX0ec4t0gajpQodTHEFFAy2QBX4HOglTE8B1iCOAtz
A75AJABAO2PapYB8fJ8BDDOeLwLekcVNACYCWcBs4DNgsvFoDhDivmXR/QnRzR3rqJUAOWPdcrZd
2LPqJCc/bk/7YbKZmiKBhN6TmbzvLd56J5nkIg11csOnHr33Slb6ArSkZdpMZs6SbD955JVdxCJz
8gO4oaBsUfXIYRtJRHtMAQZ2pOPk7nT/QIfOahkeeOQvZvEnGjQ3pWs6dC+aT3eN0+Glcs91Dzz2
hRDyXnE94IEriF7njRANjFWAaOBV46EAJO+2HkAU4vqXbhbKigX+ALrwwJ3QH9gHpvW+p4HWxuPb
edp5VVf3W6hyHCIupckMz8sfePh9+wY0+AhgOctP72d/n1rUWqJEmQlgwOByhStTOtJx22Qm+8kb
8Bmf1U0jzfSMW9DimCxa+SM/mhR4HemY4o67aSp+gxvtrTyjcsWx8xRNEnH1XAFz/0hGto4jbtAN
boxpQ5uNm9nsYy27P/7pH/DBKLnB7F/+HTeSka1BnA4HELBZ8lQHhOpUX3Gc41MsSfY2wIBIAj+g
AfAvcNwYfhVRgLuE6LzTFNgDHEYcLiwJ47sQPfn9gDeMz0GuNGsKHAOOJZLYPrjNF587rE436Y3u
zMz+Z1Ti2Gs86L3wxjsvlNBv5jL3TU889yBOU8khp+YNbtSS0kUS6bCd7Ws60tH0jCcy8VoZyvwq
pbnP/bbTmPaqLGxyo1SgsLboS4HoZmATbOlJPOGB0SiUUK/f+X2uFM4ks+FSlm4fwpAu1goYzvBb
7Wn/sayrVP7GbwsDCOixiEUhkr5EiTLLH/9x1nQDxcA5oCrQAThvDDdEfNGXEYnSDfH+pbW6roi9
gTl+QRxa3jQeEYi9j4QoYC4wt3WTpr2qbXR8UWH8O93dqEttd+7NIAWKsoi9WwH0oEfiMY5N60a3
dx1wiHDAIeIbvtkqxU9net888jwzyWy4jGU/nee8E8AgBi2UE+AXfpmsR6/QoVM642wShJ1wul3I
M9KCbcNO4SQR3Q5NVk49esUSlszLJ7+AoGXA4HyOc4ta03qBNS3hEpb88SIvzpPlcbrIxc8kfYka
dew7vBPwFV/Z7NlVCM4Zf7sCF4xHFeAl4zlAT8QX1xuRHDlYHnJ0wCFjWfWB3WbxeUB6v9o9W7ks
1TXVeIkMyc8UcFldMWZ9wsb+iMPUDmuNnc/8Cyc48fZUpo6Sa4oTSawnnTvh9FdDGmYCjGRkdBWq
mP5IOnQvDWFID0ccDSc4MaEGNZarUKWNYcw3hTwjAG9b3CCL6kl85GniiFPnkScngaBEaVK1J5H0
5nCGb5/O9FcsFRZCyE/lKf+9+XUt2guf8umASUy6WlSDbcQlxJeuQiRFCnBdFq6POJUPQiRGN+BH
oAVmjlJG7ET02chHlEfkqH9Se3JD7OCrvV1e15geuH6CKz+d21sFkZwLgLWFNdgRR0NveifIr+WS
azI5uOFWwAL8NV8HS8tJAC5zebz0B93Jzg3zmNfNXJ5LJlnVgQ5TZJ6BkndbobBOEoVpawcTqlAl
dwpTxtlhd1dKpUX7lzPOJhO5Hr3PbnZ/05WuoyxJ69vZ/rkLLqYxtSxld+1gx/uPIKAWBj2i4Poy
ovAJYs/xMnAU+Mt4LjcDLEaUWVIQZz0fyOLOGdO/YoyX0HIb21oO6dP7unb6g5UOuuv5htRfszdU
oII/8BZgciIqDrRoTQ7VGWRUksf54KNvSUuTh34eeZ4b2GCSR8yfZzjhzm/y5pp44t/5iZ9WbWWr
NEI4IYoUVmGZJKJWtYKlqN70TuhL3zGSc08GGa+VpezZmtRcJhsnlbe4NaIznTevZ32BmytDGcMy
lk20xz6qFrWWHOXoDB98nulV9daQSaZyYutRS6t95VTALzZmku7qnkuHVj1u+c1otlM6TyGl/Rzm
1JPHz2NeuBJlliyNVRWFG256aRTII897MYtXyfQo5QpbKWitJ/GiEE/6aUyLeI3XpmKUym9y80N3
3OP60e8d+XQ3i6z6QQRtCyCggMNOU5pm7GZ3v1BCixozn2k0blR/WsWvNX4q7YP+Onl/TlbdP+qv
r0rVxyb+Z3z2pyuuR0B0fNrBji/HMOZ1KX4Sk5rLvftzybXqlVaLWjmBBI5Ro44DyCa77ghGfG5U
YSiRyZ7meJgkD/YEKRTBBP/ii+9KKddZzn6WQ476e77v6433NimdUUCd15KWi+XrdJ/X3kNCx9qt
ujtOyuqsrWVneoZCnkDi5/l/778ddrCwvMXBRjZOcsTxb4B88t2PcWxNYxpva0SjHcc4tkaW1NCe
9scLK6sb3ZIGMGCUpJ+5z/3WPegxwRjtZq03sdSTeErXd7GrrB9++9vSdvZUpj7kMb6b3cGeeO4F
kel72LPyNKc9wgib44//WBUqk9o9hZQ3xjAmNJTQYmltHxdztHOqta3+eu+iUxajTJc51W71jBzl
2dehgM9p7JKse++GD5tnLd+joBa1cmYxa7QWrTQrI5vsOua7GFSm8roP+TC6qPImMvFaferPl8Jx
xAX0p39/RN2JxXdT0MAnyiJ1AKUevaIVrdakk25aeKRBc8sHn9196btnMINjQVwm0Ze+G7LIagDi
CrZVrApoStOMUEK9lrBknrSTkBtuv5zk5Ee2PJySwBztnGqbeq9cae+j1IwLCnx3ZPaY+Mct82/+
tu/eve23NXc411XI/mK5CfnEvaEMvXL+5qzHrcMSkklWBRAwMoaYAPkQo0CRX5nK63ayc7UtVvPP
+bx2CCGrzX1yWtN61EpWngSumu+8ZE6SchjZ1Ic+g69ydaKVugRnnMNrUnPXZCYfjibaMZDAED36
CgAuuPy2l70feuCRr0ev6E//gJvcHLCMZW9Lnu2lDYkgNTe5VBPyBa53zjlz/Ujc0Mctt2azil9U
3q1qpy5bcOJ2/b2M6xs3hg5sQYtS3a3oGMdcN7HJP4mkKlq0Kb3odext3r5bdE4YzegWJzm5RE4y
CUqUGYMZHPAJn/yBQIGVgw9IIutFFrKwzha2bJHWqADYYZeYR54HZkOUEmWWBx6HPfGMuMa1cdL6
XW+8t4YR9qmULpZY9ZOSQ+QEkbSf6Wf1uYYh3qvO/HN+46OW2+jl+sPt1iYNK9NMU8DukX5WnysM
rPDF6Wvh3z5ey0sPfek7MJLIycjeXxnKHBcQNFJPr0YdF0jggF70OoWAyQArf+EmWaQSldK0aAv4
OeST71aOcj9Wo9pqNeo70nUDBm0iiT2ucGWKfIH3Pe7160OfwVK4MIJ82fjLqn7D/fb4Dffb0/iD
xls7BXSasKbJmqoAwY2CK/sN99vTaHijXYdqHDIpuiZ0mtDE/33/1a+OePVYo+GNdg3uPbgbQJeW
Xd5Z33fFT3KCALg0Umvud4vpv9p+hcWpfVEY7DOoSc7Qe2+bEwQgfnpuxO/XNK+B354HR3ejnuWd
nmK4xbIHOTZUFK8NMC4hfW0ztC2VYSqNNGUHOkyLJHIqsvddgQrf/cIvY1ew4mNJKadHX2EBC1ad
4ESBRWBiJnEGZ/L3GMSguKMc/Z8vvisle4uAYHeXuwMSSGg6nvHvtaf9MHfcD8pX2ZnjKlc/Gc3o
163FS8i0z9TkqnKrueS6XPJN8Q2963y317f1v50OsLPOzh56pb5CjiqnWnCj4M5SnmNVj00FlP63
/We8kPDCBnW+OueG+w3785rfJ9RZ7+qgsGB0rzRHW3FJ8/mfPhxTOH7kR/dTnQ7NqDDW8SFbx931
upQ25zovU5BTCQQN1PxWPOoZF5Zdexv05SG1A6ytYrxjDeRWA51R8M2tAtnlzct+XJznvFNnOq+O
J36A7LKhLnXnHeLQIkccDY1pnDGWsaOMDt0YMDjFEFNg2ajELCcoqMN3xNGwm91f96HPIA2aW9L1
TDL9lrJ0233uu53gxMTlLG9Xm9qfy1XEDwpX5rzACzZvXemR5RGxbu+6rZo8zS2dna6mTq1TxjnH
dXPLcTvunOt8NrpMdHcAvVqvMCgNTjl2OT53ne9WeSPqjT/W71p/KM0+TaV1dTUk/5JtUbup1Cgo
/7n61SZ1X7XomW8JqaQqJ7cdu9x3tfahTfTyMwxkrlOd3ZD0zfmHc5ZNh2U1QfcS1AoCRS7sfmiB
V2nhO76rMJzh36aRZvqTKlFmtKHNh+b71A5mcGxPeo52xfXoKlYNHMjAezxw2jKRxKpn1CxmXdrA
hr5eeJkMVAYMLuGEL25N63nuuOu3s/3bs5zt1YMeg7zw2iHZc+pRb8FoRt+09caue1wf3nJIy5PZ
6uwXfFN9v5nRdkZjvUrvUzeh7j7fVN/9OrXupeVNl9dQ69VCp6hOU9T56oQrnlcmLXp90cHuA7t/
0CC+QdYb2V0+vrs6L0vQWxb0XRqpNWndY/t/Yb/EqnuDHM0bvRpY+Wv7V5WODxs4YmbpYmadXiib
8uZ5wvV+4nGpBhzqIZJj4g5wPQFx3SjGFluPijnMqbeUpVuyyTa5HahRxw5mcIA1h/NZzLr0K7+O
lS0AMy3FUBr34ipsjSkNaJB1hCMzm9L0Y7lfSBJJ3YcydFsggfVB1BAe4cjMjWxs44//2O/53qrl
0xLcde5HW0a3nLRp16bXQ0NCvzlX4VwPgLM+ZydEekZ+AHCo5qHuAL0jel/9fd3vQ9fsXdPCUe94
+Y7Lne73XO7ZTfxt4ulRYeP631mUlWitnkpzHX1WNFv8WVHtaV+nZQ/HaTmdHGuoHtIn6aLyDQ4/
exwMIEC2+MnhGoS/JR5fHIa7bwIKGPUDpPuB3gem+5mXVZIYytCO29m+SbKuA2jR/jWHOQM/4ROr
yz4swEkacuwQGWOTh1owwYe3svXP5Syfn0HGayDu77GLXZsvcvGr7/n+6zKUMTSkYeajmPzdde5X
g/aLTD9f8bxTsmNyhzI5ZX6tnVR7N0CEV8Tb8c7xb+rUuhVDuw89XCanzO8qg0qXY5dTo1xGue2/
VP+l7OfNPt/qmuN6WverOjPnTn5Z+4oPCydKjYLyi9UNGg9uMDQ84k+LviuzXGb5xvS+8mGVXlqL
62pvT8q+8ts/py3uuChi6uuQVxYqrYPyRuv2+dkQ3gMqb3g4fdbL0NQ486p4FBu2/jLHUIZ2PMOZ
JcgWy7njfmg966fVotajOHC5Akmq2cz2oZDlEeZ4iZcy3+XdPWGE6VJIaYTxOzGppDYJIaSpGvWZ
V3ilWOtgUu1TueZ5LfvlhJfD295oexdgZ92dPvec7mV2+rfTlsWHF5/pGdkzKtot+nqmOjPTI8fj
31xV7p+ZmkxHBQrhhcQXtkw+NXl7w/iGaRFlI27r1Dqtm73nnZtHYsp69tZYfMn2PipVwq2UKrln
haPN8guu27nABYepXcZ+6bvWqbrCwuCQvCc3w3fdy8tGpI269uDqL4DnP/CWcYfFA5WBW7AiGN6L
hJ5R8Hs8qHTwxl9wJVsUbtvFw8+AcyRoY8Wj0lXoWqT21ByVqBR/kIOt88jzBKhM5eADHPjMC69C
1zwXAhWzSVEICM6Iw40LxSALiDsWhRK6SL4zcjWqrd7Dnq8esVElik7V23VJXhMx272jvUXDlyFX
IKpT1rmrx2L+p0FjEmJq+PsEVdmlbqP2fLiDFfQCUe2zf79xIv6DhyKfAWxms89ylm9+iZdWFrY2
uRi4Yq5xdUQkSxlEJ5siEUmkwyhGTbrHvb6OOF46yMFBHngUewFQaaF6mwrBNX62b6pQW5YX08/q
c3MDPNaei/zrawC/+vVHar5Oft/lNbVFR+GY+Vn3+s8b/v6srLk3S6/Vj4drXLN/xOHFEuKtL84S
LYJSD+NEEbsmjmBEmwY0uD6SkcXuJksTi7TzK2+atmJT5elaq6bwm5MzYoet+OT9C+UuVP570vEF
FUY5WnTCyb2XT/wbqm2RF27MKb0WP3PQ2baCT1TZS8OSMyX4vZkngXp+Nad67sodYF9RZZHohlyB
K20yL9q/iFv1YOdq1sr5d0jGv999s3tgM5o9N9+qeURIX//KBDIeZS2w9IEiaVh66nufF4UoojSd
BjYPqfG9Uy1raTIj9YJjNTuF0sHKsHRGn6MY5LP8t6g/HvLR/Y8gmwefhMuUf0ewJDaxceDBsFTi
+3WVFN6o0a5L0qqIWe5v2Bd32SgIcLVT5sWrh2MGywXc5xw5GHsKRFJYlSMff880gWwE7iHwL+Lq
uVhjxc/Uwzz4b9j+pMXCn9Y0sYXhbrAupcPZN5c+5wTRI65UjAGuIHDMvDIRAAACvUlEQVQNgVgE
0oraaaBkd18U0COQjMBNxEVMt40NeyZmOyPPjJt7Z5HOJt8LCfkZBjI32IUHp2y4WHTqZwp5iN/N
iUV0JLqCQAxC8T/n9mQ+QPDge73SsPTE9kU3x8t+taa478we6FDJziYbys2PMm/P/uKLQQMZWJJL
PkoDBuTDB2SXVF/+dL6cJcoxkuD7ROWYKKI0nQY0/6HGFqfaRaXNupZnyOjpvO7i5YiVRaV9CpCW
p0rEyC6tL1c8nQ/tiHJMglGOiUTsEtN5AnJMTWrm1jndIDjlYE6R09g7E7Ov7L8ctqaodE8IAuKa
5ATgBnAZgZvG56grzU+bPBvf4JMgWqTlZoJS08fUaFt+bfWDDs2taWKTd+VkVBhVb+aeO4cOW0zw
ZGB1Wvok8Wx9nVvAYJS2YxB7mBtAIjzahnCFYcSZ8Z/eWWhZiBX0AklLDX89BYLkAMnALSACgSgE
4hFIf1oEgWeNJHIICAhkGh/SVeAacBdK5svcEzOnxCh3uh7Kjsl7qCuNWai7N/SPD+dbylfCeORp
6ZPEszXc2ArRGUYSfJ14RLJHE61uM7DxDzW/d6ojXcuNzye+s91PkRevzy0s7yMiD7mw+YhbZj5p
PLs9SWEQyEMgBYFoxGEpGnG1f7H8JqpSVf/C768EJx94IMTenqSL+vbij4tLqKUGRIE8DnGzm0gE
bht1Sc8FQeB57UmsQZRBtTzoZWzaF6xG2wpf+R6w9884p89RDaq09NT1M1Z3pi4C8mlpJpTurONJ
4b9FEnOIu/hIMyUtVtwdvrBf4vPVtMWbs08KcTd/uRdgKY0VFLCWAln/BVKY479NEjlEdweph3HG
bKh9sXatiS0TWv/8VUrwX0WU9ExMS58k/v+QRA7RTODMA9IU9v06m62l/1X8/ySJHOIA5EhBBZ6c
FM/1Piolgf8Do6DT7EsG7IgAAAAASUVORK5CYII=
"
height="70"
width="137" />
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="78.571426"
y="139.50505"
id="text3142"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan3144"
x="78.571426"
y="139.50505">Automation</tspan></text>
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="208.57144"
y="185.21931"
id="text3146"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan3148"
x="208.57144"
y="185.21931">Quality Assurance</tspan></text>
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="310"
y="230.93361"
id="text3150"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan3152"
x="310"
y="230.93361">Regression Testing</tspan></text>
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="401.42856"
y="283.79074"
id="text3154"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan3156"
x="401.42856"
y="283.79074">System Administration</tspan></text>
<rect
style="opacity:0.84942082;fill:#000000;fill-opacity:0.05608335;stroke:#2b0000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect3158"
width="40"
height="41.42857"
x="24.285707"
y="110.93362" />
<rect
style="opacity:0.84942082;fill:#000000;fill-opacity:0.05608335;stroke:#2b0000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect3158-5"
width="40"
height="41.42857"
x="147.14287"
y="155.93361" />
<rect
style="opacity:0.84942082;fill:#000000;fill-opacity:0.05608335;stroke:#2b0000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect3158-9"
width="40"
height="41.42857"
x="258.57141"
y="201.64792" />
<rect
style="opacity:0.84942082;fill:#000000;fill-opacity:0.05608335;stroke:#2b0000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect3158-50"
width="40"
height="41.42857"
x="347.14282"
y="253.07646" />
<rect
style="opacity:0.84942082;fill:#000000;fill-opacity:0.05608335;stroke:#2b0000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect3402"
width="0"
height="0"
x="687.14282"
y="729.50494" />
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="81.428574"
y="390.93362"
id="text4402"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan4404"
x="81.428574"
y="390.93362">Write one task or test and iterate</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="425.93362"
id="tspan4406">Distribute tasks over one or many hosts</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="460.93362"
id="tspan4408">Organize runs by any variables you wish</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="495.93362"
id="tspan4410"> - release</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="530.93359"
id="tspan4412"> - architecture</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="565.93359"
id="tspan4414"> - unit or partition</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="600.93359"
id="tspan4416">Tasks or tests may depend on others</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="635.93359"
id="tspan4418">Each task or test runs in clean area</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="670.93359"
id="tspan4420">Add disk space or partitions as needed</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="705.93359"
id="tspan4422">Rigorous results; error, pass, warn etc.</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="740.93359"
id="tspan4424">Crontab friendly runs (skip if running)</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="775.93359"
id="tspan4426">Easy debugging</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="810.93359"
id="tspan4428"> - easy to recreate environment for task</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="845.93359"
id="tspan4430"> - annotated HTML logs help find issues</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="880.93353"
id="tspan4432">Simplify scripts</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="915.93353"
id="tspan4434"> - eliminate for-each or while loops</tspan><tspan
sodipodi:role="line"
x="81.428574"
y="950.93353"
id="tspan4436"> - parallel running handled by tool</tspan></text>
<rect
style="opacity:0.7837838;fill:#e81c1c;fill-opacity:1;stroke:#000000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect4444"
width="95.714287"
height="38.57143"
x="17.142857"
y="223.79076" />
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="31.428562"
y="253.79076"
id="text4446"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan4448"
x="31.428562"
y="253.79076">FAIL</tspan></text>
<rect
style="opacity:0.7837838;fill:#1ac92c;fill-opacity:1;stroke:#000000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect4444-6"
width="92.85714"
height="40"
x="19.285711"
y="177.36217" />
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="29.285706"
y="208.79076"
id="text4446-1"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan4448-6"
x="29.285706"
y="208.79076">PASS</tspan></text>
<rect
style="opacity:0.7837838;fill:#ffbf02;fill-opacity:1;stroke:#000000;stroke-width:3;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
id="rect4444-9"
width="95.714287"
height="38.57143"
x="17.857157"
y="268.79077" />
<text
xml:space="preserve"
style="font-size:28px;font-style:normal;font-weight:normal;line-height:125%;letter-spacing:0px;word-spacing:0px;fill:#000000;fill-opacity:1;stroke:none;font-family:Sans"
x="22.142862"
y="295.93362"
id="text4446-3"
sodipodi:linespacing="125%"><tspan
sodipodi:role="line"
id="tspan4448-9"
x="22.142862"
y="295.93362">WARN</tspan></text>
</g>
</svg>
|
Modified docs/megatest-training.odp from [0be35cde95] to [f0451ad5da].
cannot compute difference between binary files
Modified docs/megatest-training.pdf from [201749c3bb] to [84211704af].
cannot compute difference between binary files
Modified docs/plan.txt from [b6f3c7c220] to [a80831142b].
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | + + + - - + + + + + + + + + + + + + + + - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | Road Map ======== Note: This road-map is tentative and subject to change without notice. |
Added example/cfg/machines.dat version [ef87a55f85].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | + + + + + + + + + + + + + + + + | [] [maxload] zeus 0.40000000000000002 xena 0.20000000000000001 myth2 0.01 hades 1 [minfree] zeus 1000 xena 20000 myth2 300000 hades 4000000 [reqprocs] zeus mfsmount mythbackend mfschunkserver xena mfsmount myth2 mfsmount mythfrontend mfschunkserver hades mfsmount mfsmetalogger mfschunkserver |
Added example/cfg/sheet-names.cfg version [02dee9de7f].
1 | + | machines |
Added example/cfg/sxml/_sheets.sxml version [84106e33a9].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ((@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v9.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "17") (Major "10") (Full "1.10.17") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:document-meta
(@ (urn:oasis:names:tc:opendocument:xmlns:office:1.0:version "1.2"))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:meta
(http://purl.org/dc/elements/1.1/:date "2014-02-14T06:16:26Z")
(urn:oasis:names:tc:opendocument:xmlns:meta:1.0:creation-date
"2014-02-14T06:16:17Z")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(FloatRadix "2")
(FloatDigits "53")
(EnableIteration "1")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"machines"))
(http://www.gnumeric.org/v10.dtd:Geometry (@ (Width "835") (Height "320")))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "0"))))
|
Added example/cfg/sxml/_workbook.sxml version [96ffb7f9d5].
1 | + | (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")) |
Added example/cfg/sxml/machines.sxml version [59def89588].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "3")
(http://www.gnumeric.org/v10.dtd:MaxRow "4")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"machines\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top (@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "0")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "52.5") (No "1") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "2")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "182.2") (No "3") (HardSize "1"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "0") (Count "5"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "4") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "4") (startCol "0") (endRow "4") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
|
Modified example/megatest.config from [f551a39ee6] to [1023424f91].
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | - - + + - - + - - - - + + + | [fields] |
Modified example/runconfigs.config from [346ed47154] to [52dcfef0ef].
1 2 3 4 | 1 2 3 4 5 6 7 8 9 | - + + + + | [default] ALLTESTS see this variable # Your variables here are grouped by targets [SYSTEM/RELEASE] |
Deleted example/tests/checkspace/checkspace.logpro version [ee0eb59e56].
| - - - |
|
Deleted example/tests/checkspace/checkspace.sh version [82b23e5995].
| - - - - - - - - |
|
Deleted example/tests/checkspace/testconfig version [10e3422ed2].
| - - - - - - - - - |
|
Added example/tests/diskspace/diskspace.logpro version [49d20f5850].
1 2 3 4 5 6 | + + + + + + | ;; Analyze the output from diskspace.sh ;; (expect:error in "LogFileBody" = 0 "Insufficient space" #/ERROR: available space is less/) (expect:error in "LogFileBody" = 0 "Any error" #/err/i) (expect:required in "LogFileBody" > 1 "Sucess signature" #/INFO: space available/) |
Added example/tests/diskspace/diskspace.sh version [ce15f82073].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | + + + + + + + + + + + + + + + + + + + + + + + + | #!/bin/bash -e
filter=`refdb lookup $MT_RUN_AREA_HOME/$CFG_TYPE machines $TARGETHOST filter`
echo "Using filter: $filter"
diskareas=`mount | egrep 'ext|mfs|nfs'| egrep -v "$filter" | awk '{print $3}'`
for dirname in $diskareas;do
echo "dirname: $dirname"
# measure the free space
freespace=`df -P -k $dirname | grep $dirname | awk '{print $4}'`
# get the minfree allowed from the refdb
minfree=`refdb lookup $MT_RUN_AREA_HOME/$CFG_TYPE machines $TARGETHOST minfree`
if [[ "$freespace" -lt "$minfree" ]];then
echo "ERROR: available space $freespace is less than minimum allowed of $minfree on $dirname"
else
echo "INFO: space available of $freespace k on $dirname meets required minimum of $minfree."
fi
done
|
Added example/tests/diskspace/hostname.logpro version [d00e9233db].
1 2 3 4 | + + + + | (define hostname (get-host-name)) (expect:required in "LogFileBody" > 0 (conc "Hostname matches " hostname) (regexp (conc "^" hostname "$"))) |
Added example/tests/diskspace/testconfig version [e3bae930a1].
1 2 3 4 5 6 7 8 9 10 11 12 | + + + + + + + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] hostname hostname diskspace diskspace.sh [requirements] waiton ping mode itemwait # Iteration for your tests are controlled by the items section [items] TARGETHOST [system refdb getrownames $CFG_TYPE machines] |
Added example/tests/ping/ping.logpro version [e41ac50178].
1 2 3 | + + + | (expect:error in "LogFileBody" = 0 "Any error" #/err/i) (expect:required in "LogFileBody" = 5 "Successful pings" #/bytes from.*/) |
Added example/tests/ping/testconfig version [bcb5cfda73].
1 2 3 4 5 6 7 | + + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] ping ping -c 5 $PINGHOST # Iteration for your tests are controlled by the items section [items] PINGHOST [system refdb getrownames $CFG_TYPE machines] |
Modified ezsteps.scm from [3ce551206d] to [5bdb7484d4].
1 2 3 4 5 6 7 8 9 10 11 12 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 | - + - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
;; Copyright 2006-2012, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
|
Added fdb_records.scm version [bbb0371221].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | + + + + + + + + + + + + + + + + + + + | ;; Single record for managing a filedb ;; make-vector-record "Filedb record" filedb fdb db dbpath pathcache idcache partcache ;; Filedb record (define (make-filedb:fdb)(make-vector 5)) (define-inline (filedb:fdb-get-db vec) (vector-ref vec 0)) (define-inline (filedb:fdb-get-dbpath vec) (vector-ref vec 1)) (define-inline (filedb:fdb-get-pathcache vec) (vector-ref vec 2)) (define-inline (filedb:fdb-get-idcache vec) (vector-ref vec 3)) (define-inline (filedb:fdb-get-partcache vec) (vector-ref vec 4)) (define-inline (filedb:fdb-set-db! vec val)(vector-set! vec 0 val)) (define-inline (filedb:fdb-set-dbpath! vec val)(vector-set! vec 1 val)) (define-inline (filedb:fdb-set-pathcache! vec val)(vector-set! vec 2 val)) (define-inline (filedb:fdb-set-idcache! vec val)(vector-set! vec 3 val)) (define-inline (filedb:fdb-set-partcache! vec val)(vector-set! vec 4 val)) ;; children records, should have use something other than "child" (define-inline (filedb:child-get-id vec) (vector-ref vec 0)) (define-inline (filedb:child-get-path vec) (vector-ref vec 1)) (define-inline (filedb:child-get-parent_id vec)(vector-ref vec 2)) |
Added filedb.scm version [d77bc6ba17].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;; Copyright 2006-2011, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;; (require-extension synch sqlite3 posix srfi-13 srfi-1 utils regex)
(use sqlite3 srfi-1 posix regex srfi-69 srfi-13 posix-extras)
(import (prefix sqlite3 sqlite3:))
(declare (unit filedb))
(include "fdb_records.scm")
;; (include "settings.scm")
(define (filedb:open-db dbpath)
(let* ((fdb (make-filedb:fdb))
(dbexists (file-exists? dbpath))
(db (sqlite3:open-database dbpath)))
(filedb:fdb-set-db! fdb db)
(filedb:fdb-set-dbpath! fdb dbpath)
(filedb:fdb-set-pathcache! fdb (make-hash-table))
(filedb:fdb-set-idcache! fdb (make-hash-table))
(filedb:fdb-set-partcache! fdb (make-hash-table))
;(sqlite3:set-busy-timeout! db 1000000)
(if (not dbexists)
(begin
(sqlite3:execute db "PRAGMA synchronous = OFF;")
(sqlite3:execute db "CREATE TABLE names (id INTEGER PRIMARY KEY,name TEST);") ;; for future use - change path in paths table to path_id
(sqlite3:execute db "CREATE INDEX name_index ON names (name);")
;; NB// We store a useful subset of file attributes but do not attempt to store all
(sqlite3:execute db "CREATE TABLE paths (id INTEGER PRIMARY KEY,
path TEXT,
parent_id INTEGER,
mode INTEGER DEFAULT -1,
uid INTEGER DEFAULT -1,
gid INTEGER DEFAULT -1,
size INTEGER DEFAULT -1,
mtime INTEGER DEFAULT -1);")
(sqlite3:execute db "CREATE INDEX path_index ON paths (path,parent_id);")
(sqlite3:execute db "CREATE TABLE bases (id INTEGER PRIMARY KEY,base TEXT, updated TIMESTAMP);")))
fdb))
(define (filedb:finalize-db! fdb)
(sqlite3:finalize! (filedb:fdb-get-db fdb)))
(define (filedb:get-current-time-string)
(string-chomp (time->string (seconds->local-time (current-seconds)))))
(define (filedb:get-base-id db path)
(let ((stmt (sqlite3:prepare db "SELECT id FROM bases WHERE base=?;"))
(id-num #f))
(sqlite3:for-each-row
(lambda (num) (set! id-num num)) stmt path)
(sqlite3:finalize! stmt)
id-num))
(define (filedb:get-path-id db path parent)
(let ((stmt (sqlite3:prepare db "SELECT id FROM paths WHERE path=? AND parent_id=?;"))
(id-num #f))
(sqlite3:for-each-row
(lambda (num) (set! id-num num)) stmt path parent)
(sqlite3:finalize! stmt)
id-num))
(define (filedb:add-base db path)
(let ((existing (filedb:get-base-id db path)))
(if existing #f
(begin
(sqlite3:execute db "INSERT INTO bases (base,updated) VALUES (?,?);" path (filedb:get-current-time-string))))))
;; index value field notes
;; 0 inode number st_ino
;; 1 mode st_mode bitfield combining file permissions and file type
;; 2 number of hard links st_nlink
;; 3 UID of owner st_uid as with file-owner
;; 4 GID of owner st_gid
;; 5 size st_size as with file-size
;; 6 access time st_atime as with file-access-time
;; 7 change time st_ctime as with file-change-time
;; 8 modification time st_mtime as with file-modification-time
;; 9 parent device ID st_dev ID of device on which this file resides
;; 10 device ID st_rdev device ID for special files (i.e. the raw major/minor number)
;; 11 block size st_blksize
;; 12 number of blocks allocated st_blocks
(define (filedb:add-path-stat db path parent statinfo)
(let ((stmt (sqlite3:prepare db "INSERT INTO paths (path,parent_id,mode,uid,gid,size,mtime) VALUES (?,?,?,?,?,?,?);")))
(sqlite3:execute stmt
path
parent
(vector-ref statinfo 1) ;; mode
(vector-ref statinfo 3) ;; uid
(vector-ref statinfo 4) ;; gid
(vector-ref statinfo 5) ;; size
(vector-ref statinfo 8) ;; mtime
)
(sqlite3:finalize! stmt))) ;; (filedb:get-current-time-string))))
(define (filedb:add-path db path parent)
(let ((stmt (sqlite3:prepare db "INSERT INTO paths (path,parent_id) VALUES (?,?);")))
(sqlite3:execute stmt path parent)
(sqlite3:finalize! stmt)))
(define (filedb:register-path fdb path #!key (save-stat #f))
(let* ((db (filedb:fdb-get-db fdb))
(pathcache (filedb:fdb-get-pathcache fdb))
(stat (if save-stat (file-stat path #t)))
(id (hash-table-ref/default pathcache path #f)))
(if id id
(let ((plist (string-split path "/")))
(let loop ((head (car plist))
(tail (cdr plist))
(parent 0))
(let ((id (filedb:get-path-id db head parent))
(done (null? tail)))
(if id ;; we'll have a id if the path is already registered
(if done
(begin
(hash-table-set! pathcache path id)
id) ;; return the last path id for a result
(loop (car tail)(cdr tail) id))
(begin ;; add the path and then repeat the loop with the same data
(if save-stat
(filedb:add-path-stat db head parent stat)
(filedb:add-path db head parent))
(loop head tail parent)))))))))
(define (filedb:update-recursively fdb path #!key (save-stat #f))
(let ((p (open-input-pipe (string-append "find -L " path)))) ;; (resolve-pathname path)))) ;; (string-append "find " path))))
(print "processed 0 files...")
(let loop ((l (read-line p))
(lc 0)) ;; line count
(if (eof-object? l)
(begin
(print " " lc " files")
(close-input-port p))
(begin
(filedb:register-path fdb l save-stat: save-stat) ;; (get-real-path l)) ;; don't like losing the original path info
(if (= (modulo lc 100) 0)
(print " " lc " files"))
(loop (read-line p)(+ lc 1)))))))
(define (filedb:update fdb path #!key (save-stat #f))
;; first get the realpath and add it to the bases table
(let ((real-path path) ;; (filedb:get-real-path path))
(db (filedb:fdb-get-db fdb)))
(filedb:add-base db real-path)
(filedb:update-recursively fdb path save-stat: save-stat)))
;; not used and broken
;;
(define (filedb:get-real-path path)
(let* ((p (open-input-pipe (string-append real-path " " (regexp-escape path))))
(pth (read-line p)))
(if (eof-object? pth) path
(begin
(close-input-port p)
pth))))
(define (filedb:drop-base fdb path)
(print "Sorry, I don't do anything yet"))
(define (filedb:find-all fdb pattern action)
(let* ((db (filedb:fdb-get-db fdb))
(stmt (sqlite3:prepare db "SELECT id FROM paths WHERE path like ?;"))
(result '()))
(sqlite3:for-each-row
(lambda (num)
(action num)
(set! result (cons num result))) stmt pattern)
(sqlite3:finalize! stmt)
result))
(define (filedb:get-path-record fdb id)
(let* ((db (filedb:fdb-get-db fdb))
(partcache (filedb:fdb-get-partcache fdb))
(dat (hash-table-ref/default partcache id #f)))
(if dat dat
(let ((stmt (sqlite3:prepare db "SELECT path,parent_id FROM paths WHERE id=?;"))
(result #f))
(sqlite3:for-each-row
(lambda (path parent_id)(set! result (list path parent_id))) stmt id)
(hash-table-set! partcache id result)
(sqlite3:finalize! stmt)
result))))
(define (filedb:get-children fdb parent-id)
(let* ((db (filedb:fdb-get-db fdb))
(res '()))
(sqlite3:for-each-row
(lambda (id path parent-id)
(set! res (cons (vector id path parent-id) res)))
db "SELECT id,path,parent_id FROM paths WHERE parent_id=?;"
parent-id)
res))
;; retrieve all that have children and those without
;; children that match patt
(define (filedb:get-children-patt fdb parent-id search-patt)
(let* ((db (filedb:fdb-get-db fdb))
(res '()))
;; first get the children that have no children
(sqlite3:for-each-row
(lambda (id path parent-id)
(set! res (cons (vector id path parent-id) res)))
db "SELECT id,path,parent_id FROM paths WHERE parent_id=? AND
(id IN (SELECT parent_id FROM paths) OR path LIKE ?);"
parent-id search-patt)
res))
(define (filedb:get-path fdb id)
(let* ((db (filedb:fdb-get-db fdb))
(idcache (filedb:fdb-get-idcache fdb))
(path (hash-table-ref/default idcache id #f)))
(if path path
(let loop ((curr-id id)
(path ""))
(let ((path-record (filedb:get-path-record fdb curr-id)))
(if (not path-record) #f ;; this id has no path
(let* ((parent-id (list-ref path-record 1))
(pname (list-ref path-record 0))
(newpath (string-append "/" pname path)))
(if (= parent-id 0) ;; fields 0=path, 1=parent. root parent=0
(begin
(hash-table-set! idcache id newpath)
newpath)
(loop parent-id newpath)))))))))
(define (filedb:search db pattern)
(let ((action (lambda (id)(print (filedb:get-path db id)))))
(filedb:find-all db pattern action)))
|
Modified gutils.scm from [ff468ba086] to [0911f9831f].
18 19 20 21 22 23 24 | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + |
(define (gutils:colors-similar? color1 color2)
(let* ((c1 (map string->number (string-split color1)))
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
|
Modified http-transport.scm from [26ebbfd6a6] to [d934a1dc41].
9 10 11 12 13 14 15 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - + | ;; PURPOSE. (require-extension (srfi 18) extras tcp s11n) (use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest) (import (prefix sqlite3 sqlite3:)) |
32 33 34 35 36 37 38 | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | - + | (include "db_records.scm")
(define (http-transport:make-server-url hostport)
(if (not hostport)
#f
(conc "http://" (car hostport) ":" (cadr hostport))))
|
181 182 183 184 185 186 187 | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 | + + + + - + | ;; <html> ;; <head></head> ;; <body>1 Hello, world! Goodbye Dolly</body></html> ;; Send msg to serverdat and receive result (define (http-transport:client-send-receive serverdat msg #!key (numretries 30)) (let* (;; (url (http-transport:make-server-url serverdat)) (fullurl (if (list? serverdat) (caddr serverdat) (begin (debug:print 0 "FATAL ERROR: http-transport:client-send-receive called with no server info") |
211 212 213 214 215 216 217 | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 | - + | (set! res (with-input-from-request fullurl (list (cons 'dat msg)) read-string)) (close-all-connections!) (mutex-unlock! *http-mutex*))) (time-out (lambda () |
313 314 315 316 317 318 319 | 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 | + - - + + - + | (tasks:server-update-heartbeat tdb spid)
;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
(mutex-lock! *heartbeat-mutex*)
(set! last-access *last-db-access*)
(mutex-unlock! *heartbeat-mutex*)
;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
(if (and *server-run*
|
Added index-tree.scm version [09941b0f00].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;;====================================================================== ;; Copyright 2006-2013, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== ;;====================================================================== ;; Tests ;;====================================================================== (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils) (import (prefix sqlite3 sqlite3:)) (declare (unit tests)) (declare (uses lock-queue)) (declare (uses db)) (declare (uses common)) (declare (uses items)) (declare (uses runconfig)) (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") (include "test_records.scm") ;; Populate the links tree with index.html files ;; ;; - start from most recent tests and work towards oldest -OR- ;; start from deepest hierarchy and work way up ;; - look up tests in megatest.db ;; - cross-reference the tests to stats.db ;; - if newer than event_time in stats.db or not registered in stats.db regenerate ;; - run du and store in stats.db ;; - when all tests at that level done generate next level up index.html ;; ;; include in rollup html index.html: ;; sum of du ;; counts of PASS, FAIL, RUNNING, REMOTEHOSTSTART, LAUNCHED, CHECK etc. ;; overall status ;; ;; include in test specific index.html: ;; host, uname, cpu graph, disk avail graph, steps, data ;; meta data, state, status, du ;; |
Modified items.scm from [225b8827e5] to [8234d9cd3a].
67 68 69 70 71 72 73 | 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | - - - + + + + + + + + | (list? x)) (map (lambda (x) (debug:print 6 "item-assoc->item-list x: " x) (if (< (length x) 2) (begin (debug:print 0 "ERROR: malformed items spec " (string-intersperse x " ")) (list (car x)'())) |
129 130 131 132 133 134 135 | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 | - - + + + + + | (if s (string-split s) #f))))
(if valid-values
(if (member item valid-values)
item #f)
item)))
(define (items:get-items-from-config tconfig)
|
Modified key_records.scm from [100a7d5e9a] to [b34127109e].
1 2 3 4 5 6 7 8 9 10 11 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | - - - - + - | ;;====================================================================== ;; Copyright 2006-2012, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== |
Modified keys.scm from [a462be3897] to [e5c8c45be0].
17 18 19 20 21 22 23 | 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | - - - - - - - - - + - - - - - + + + + + + + - + - + - + - - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - - + | (declare (unit keys)) (declare (uses common)) (include "key_records.scm") (include "common_records.scm") |
Modified launch.scm from [f3b05e9850] to [168401dff3].
1 | 1 2 3 4 5 6 7 8 9 | - + |
|
69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | + - + - + + + + + + + + + + + - - - - - - + + + + + + + - + - + - + - - + + + + + + + - + + + + + + + + + + | (test-id (assoc/default 'test-id cmdinfo))
(target (assoc/default 'target cmdinfo))
(itemdat (assoc/default 'itemdat cmdinfo))
(env-ovrd (assoc/default 'env-ovrd cmdinfo))
(set-vars (assoc/default 'set-vars cmdinfo)) ;; pre-overrides from -setvar
(runname (assoc/default 'runname cmdinfo))
(megatest (assoc/default 'megatest cmdinfo))
(runtlim (assoc/default 'runtlim cmdinfo))
(mt-bindir-path (assoc/default 'mt-bindir-path cmdinfo))
(keys #f)
(keyvals #f)
(fullrunscript (if (not runscript)
#f
(if (substring-index "/" runscript)
runscript ;; use unadultered if contains slashes
(let ((fulln (conc testpath "/" runscript)))
(if (and (file-exists? fulln)
(file-execute-access? fulln))
fulln
runscript))))) ;; assume it is on the path
(rollup-status 0))
(change-directory top-path)
(debug:print 2 "Exectuing " test-name " (id: " test-id ") on " (get-host-name))
;; Setup the *runremote* global var
(if *runremote* (debug:print 2 "ERROR: I'm not expecting *runremote* to be set at this time"))
;; (set! *runremote* runremote)
|
173 174 175 176 177 178 179 180 181 182 183 184 185 186 | 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 | + | (loop (+ i 1))) ))))) ;; then, if runscript ran ok (or did not get called) ;; do all the ezsteps (if any) (if ezsteps (let* ((testconfig (read-config (conc work-area "/testconfig") #f #t environ-patt: "pre-launch-env-vars")) ;; FIXME??? is allow-system ok here? (ezstepslst (hash-table-ref/default testconfig "ezsteps" '()))) (hash-table-set! *testconfigs* test-name testconfig) ;; cached for lazy reads later ... (if (not (file-exists? ".ezsteps"))(create-directory ".ezsteps")) ;; if ezsteps was defined then we are sure to have at least one step but check anyway (if (not (> (length ezstepslst) 0)) (debug:print 0 "ERROR: ezsteps defined but ezstepslst is zero length") (let loop ((ezstep (car ezstepslst)) (tal (cdr ezstepslst)) (prevstep #f)) |
240 241 242 243 244 245 246 | 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 | - + + + + + + + - + - + - - + + + - + + + + + + + + - + + + + + + + + - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + - + - - + + + + - - - - + + + + + + + + + + + + + - + - + - - - - - + + + + + - + - - + + + + + + + + + + + + + - + - - - - - + + - - - - - - - - - - + + + + + + + + + + | ((eq? rollup-status 2) 'warn) ((eq? rollup-status 0) 'pass) (else 'fail))) (next-status (cond ((eq? overall-status 'pass) this-step-status) ((eq? overall-status 'warn) (if (eq? this-step-status 'fail) 'fail 'warn)) |
404 405 406 407 408 409 410 | 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 | - + - + | ;; ;; <linkdir> - <target> - <testname> [ - <itempath> ] ;; ;; All log file links should be stored relative to the top of link path ;; ;; <target> - <testname> [ - <itempath> ] ;; |
439 440 441 442 443 444 445 | 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 | - + + |
(debug:print 2 "INFO:\n lnkbase=" lnkbase "\n lnkpath=" lnkpath "\n toptest-path=" toptest-path "\n test-path=" test-path)
(if (not (file-exists? linktree))
(begin
(debug:print 0 "WARNING: linktree did not exist! Creating it now at " linktree)
(create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
;; create the directory for the tests dir links, this is needed no matter what...
|
513 514 515 516 517 518 519 | 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 | - + | " - creating link from: " test-path "\n" " to: " lnktarget) ;; If there is already a symlink delete it and recreate it. (handle-exceptions exn (begin |
552 553 554 555 556 557 558 | 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 | - + - - - - - - - + + + + + + + + + + + + + + - - + + - + + - + | ;; 1. look though disks list for disk with most space ;; 2. create run dir on disk, path name is meaningful ;; 3. create link from run dir to megatest runs area ;; 4. remotely run the test on allocated host ;; - could be ssh to host from hosts table (update regularly with load) ;; - could be netbatch ;; (launch-test db (cadr status) test-conf)) |
629 630 631 632 633 634 635 636 637 638 | 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 | + - + | (list 'runscript runscript) (list 'run-id run-id ) (list 'test-id test-id ) (list 'itemdat itemdat ) (list 'megatest remote-megatest) (list 'ezsteps ezsteps) (list 'target mt_target) (list 'runtlim (if run-time-limit (common:hms-string->seconds run-time-limit) #f)) (list 'env-ovrd (hash-table-ref/default *configdat* "env-override" '())) (list 'set-vars (if params (hash-table-ref/default params "-setvars" #f))) (list 'runname runname) |
663 664 665 666 667 668 669 670 671 | 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 | + + - + + - + + + + - - - - - + + + + + + + + | (hash-table-ref/default test-conf "pre-launch-env-overrides" '()))) (miscprevvals (alist->env-vars ;; consolidate this code with the code in megatest.scm for "-execute" (append (list (list "MT_TEST_RUN_DIR" work-area) (list "MT_TEST_NAME" test-name) (list "MT_ITEM_INFO" (conc itemdat)) (list "MT_RUNNAME" runname) (list "MT_TARGET" mt_target) (list "MT_ITEMPATH" item-path) ) itemdat))) ;; Launchwait defaults to true, must override it to turn off wait |
Added lock-queue.scm version [a9f4c5425b].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
;; launch a task - this runs on the originating host, tests themselves
;;
;;======================================================================
(use sqlite3 srfi-18)
(import (prefix sqlite3 sqlite3:))
(declare (unit lock-queue))
(declare (uses common))
;;======================================================================
;; attempt to prevent overlapping updates of rollup files by queueing
;; update requests in an sqlite db
;;======================================================================
(define (lock-queue:open-db fname)
(let* ((actualfname (conc fname ".lockdb"))
(dbexists (file-exists? actualfname))
(db (sqlite3:open-database actualfname))
(handler (make-busy-timeout 136000)))
(if dbexists
db
(begin
(sqlite3:execute
db
"CREATE TABLE IF NOT EXISTS queue (
id INTEGER PRIMARY KEY,
test_id INTEGER,
start_time INTEGER,
state TEXT,
CONSTRAINT queue_constraint UNIQUE (test_id));")
(sqlite3:execute
db
"CREATE TABLE IF NOT EXISTS runlocks (
id INTEGER PRIMARY KEY,
test_id INTEGER,
run_lock TEXT,
CONSTRAINT runlock_constraint UNIQUE (run_lock));")))
(sqlite3:set-busy-handler! db handler)
db))
(define (lock-queue:set-state db test-id newstate)
(sqlite3:execute db "UPDATE queue SET state=? WHERE test_id=?;"
newstate
test-id))
(define (lock-queue:any-younger? db mystart test-id)
(let ((res #f))
(sqlite3:for-each-row
(lambda (tid)
;; Actually this should not be needed as mystart cannot be simultaneously less than and test-id same as
(if (not (equal? tid test-id))
(set! res tid)))
db
"SELECT test_id FROM queue WHERE start_time > ?;" mystart)
res))
(define (lock-queue:get-lock db test-id)
(let ((res #f)
(lckqry (sqlite3:prepare db "SELECT test_id,run_lock FROM runlocks WHERE run_lock='locked';"))
(mklckqry (sqlite3:prepare db "INSERT INTO runlocks (test_id,run_lock) VALUES (?,'locked');")))
(let ((result
(handle-exceptions
exn
#f
(sqlite3:with-transaction
db
(lambda ()
(sqlite3:for-each-row (lambda (tid lockstate)
(set! res (list tid lockstate)))
lckqry)
(if res
(if (equal? (car res) test-id)
#t ;; already have the lock
#f)
(begin
(sqlite3:execute mklckqry test-id)
;; if no error handled then return #t for got the lock
#t)))))))
(sqlite3:finalize! lckqry)
(sqlite3:finalize! mklckqry)
result)))
(define (lock-queue:release-lock fname test-id)
(let ((db (lock-queue:open-db fname)))
(sqlite3:execute db "DELETE FROM runlocks WHERE test_id=?;" test-id)
(sqlite3:finalize! db)))
(define (lock-queue:steal-lock db test-id)
(sqlite3:execute db "DELETE FROM runlocks WHERE run_lock='locked';")
(lock-queue:get-lock db test-it))
;; returns #f if ok to skip the task
;; returns #t if ok to proceed with task
;; otherwise waits
;;
(define (lock-queue:wait-turn fname test-id)
(let ((db (lock-queue:open-db fname))
(mystart (current-seconds)))
(sqlite3:execute
db
"INSERT OR REPLACE INTO queue (test_id,start_time,state) VALUES (?,?,'waiting');"
test-id mystart)
(thread-sleep! 1) ;; give other tests a chance to register
(let ((result
(let loop ((younger-waiting (lock-queue:any-younger? db mystart test-id)))
(if younger-waiting
(begin
;; no need for us to wait. mark in the lock queue db as skipping
(lock-queue:set-state db test-id "skipping")
#f) ;; let the calling process know that nothing needs to be done
(if (lock-queue:get-lock db test-id)
#t
(if (> (- (current-seconds) mystart) 36000) ;; waited too long, steal the lock
(lock-queue:steal-lock db test-id)
(begin
(thread-sleep! 1)
(loop (lock-queue:any-younger? db mystart test-id)))))))))
(sqlite3:finalize! db)
result)))
;; (use trace)
;; (trace lock-queue:get-lock lock-queue:release-lock lock-queue:wait-turn lock-queue:any-younger? lock-queue:set-state)
|
Modified margs.scm from [282b6e3581] to [5bb81571cb].
15 16 17 18 19 20 21 | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | - - + + - + + | (define (args:get-arg arg . default)
(if (null? default)
(hash-table-ref/default args:arg-hash arg #f)
(hash-table-ref/default args:arg-hash arg (car default))))
(define (args:get-arg-from ht arg . default)
(if (null? default)
|
Modified megatest-version.scm from [19b1c1747c] to [f71d278666].
1 2 3 4 5 | 1 2 3 4 5 6 7 | - + | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) |
Modified megatest.scm from [7a410a6be3] to [a1fa8061e9].
1 2 3 4 5 6 7 8 9 10 11 12 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | - + | ;; Copyright 2006-2012, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;; (include "common.scm") ;; (include "megatest-version.scm") |
29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | + + + + - + - - + + + - - - + + + | (declare (uses db))
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-fossil-hash.scm")
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
;; Disabled help items
;; -rollup : (currently disabled) fill run (set by :runname) with latest test(s)
;; from prior runs with same keys
(define help (conc "
Megatest, documentation at http://www.kiatoa.com/fossils/megatest
version " megatest-version "
license GPL, Copyright Matt Welland 2006-2012
Usage: megatest [options]
-h : this help
-version : print megatest version (currently " megatest-version ")
Launching and managing runs
-runall : run all tests that are not state COMPLETED and status PASS,
CHECK or KILLED
-runtests tst1,tst2 ... : run tests
|
89 90 91 92 93 94 95 | 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 | - - + + + + + + - - + + + + + + + + + - + - | :units : name of the units for value, expected_value etc. (optional)
-load-test-data : read test specific data for storage in the test_data table
from standard in. Each line is comma delimited with four
fields category,variable,value,comment
Queries
-list-runs patt : list runs matching pattern \"patt\", % is the wildcard
|
174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 | 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 | + + + + + + - + + + + - + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - + + + + | ":category" ":variable" ":value" ":expected" ":tol" ":units" ;; misc "-start-dir" "-server" "-transport" "-stop-server" "-port" "-extract-ods" "-pathmod" "-env2file" "-setvars" "-set-state-status" "-set-run-status" "-debug" ;; for *verbosity* > 2 "-gen-megatest-test" "-override-timeout" "-test-files" ;; -test-paths is for listing all "-load" ;; load and exectute a scheme file "-section" "-var" "-dumpmode" "-refdb2dat" "-o" ) |
285 286 287 288 289 290 291 292 293 294 295 296 297 298 | 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + + + + - + - + - - + + - - - - - - + + - - - - - + + + + + + + + + - - - - - + + + + + - - - - + + + - - - - - - - - + + + + + + + + + + + - + - - + + - + - + - + + - + - - - - - - - - + + - - - - + + - - - - - - + + + + + + + + + + - - - + + + + + - + + + + + + - + + + - - - - - + + + + + + + + - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + - + - + + + + + + + + + + + + + + + + + + + + + + + + - + + + + - - - + - + | (map (lambda (x)
(string-intersperse
x
" => "))
(common:get-disks) )
"\n"))
(set! *didsomething* #t)))
(if (args:get-arg "-refdb2dat")
(let* ((input-db (args:get-arg "-refdb2dat"))
(out-file (args:get-arg "-o"))
(out-port (if out-file (open-output-file out-file) (current-output-port)))
(out-fmt (or (args:get-arg "-dumpmode") "scheme"))
(res-data (configf:read-refdb input-db))
(data (car res-data))
(msg (cadr res-data)))
(if (not data)
(debug:print 0 data) ;; some error occurred
(with-output-to-port out-port
(lambda ()
(case (string->symbol out-fmt)
((scheme)(pp data))
((perl)
;; (print "%hash = (")
;; key1 => 'value1',
;; key2 => 'value2',
;; key3 => 'value3',
;; );
(configf:map-all-hier-alist
data
(lambda (sheetname sectionname varname val)
(print "$data{\"" sheetname "\"}{\"" sectionname "\"}{\"" varname "\"} = \"" val "\";"))))
((python ruby)
(print "data={}")
(configf:map-all-hier-alist
data
(lambda (sheetname sectionname varname val)
(print "data[\"" sheetname "\"][\"" sectionname "\"][\"" varname "\"] = \"" val "\""))
initproc1:
(lambda (sheetname)
(print "data[\"" sheetname "\"] = {}"))
initproc2:
(lambda (sheetname sectionname)
(print "data[\"" sheetname "\"][\"" sectionname "\"] = {}"))))
(else
(pp data))))))
(if out-file (close-output-port out-port))
(exit) ;; yes, bending the rules here - need to exit since this is a utility
))
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;; we start the server if not running else start the client thread
;;======================================================================
(if (args:get-arg "-server")
;; Server? Start up here.
;;
(let ((tl (setup-for-run))
(transport (or (configf:lookup *configdat* "setup" "transport")
|
588 589 590 591 592 593 594 | 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 | - + - | ;; process deferred tasks per above steps
;; run all tests are are Not COMPLETED and PASS or CHECK
(if (args:get-arg "-runall")
(general-run-call
"-runall"
"run all tests"
|
617 618 619 620 621 622 623 | 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 | - + - - - - - - - - - - - - + + + + + + + + - + - + | ;; - if test run time > allowed run time then kill job ;; - if cannot access db > allowed disconnect time then kill job (if (args:get-arg "-runtests") (general-run-call "-runtests" "run a test" |
683 684 685 686 687 688 689 | 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 | - + - - + - + - + | (db #f) (state (args:get-arg ":state")) (status (args:get-arg ":status")) (target (args:get-arg "-target")) (toppath (assoc/default 'toppath cmdinfo))) (change-directory toppath) ;; (set! *runremote* runremote) |
735 736 737 738 739 740 741 | 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 | - + - - + - + - + - + - - - - - + + + + + | (itemdat (assoc/default 'itemdat cmdinfo)) (db #f) (state (args:get-arg ":state")) (status (args:get-arg ":status")) (target (args:get-arg "-target"))) (change-directory testpath) ;; (set! *runremote* runremote) |
817 818 819 820 821 822 823 | 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 | + - + | (run-id (assoc/default 'run-id cmdinfo)) (test-id (assoc/default 'test-id cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (work-area (assoc/default 'work-area cmdinfo)) (db #f)) (change-directory testpath) ;; (set! *runremote* runremote) ;; The transport is handled earlier in the loading process of megatest. |
868 869 870 871 872 873 874 | 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 | - - + + + - + - + + + + - + - + | (run-id (assoc/default 'run-id cmdinfo)) (test-id (assoc/default 'test-id cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (work-area (assoc/default 'work-area cmdinfo)) (db #f) ;; (open-db)) (state (args:get-arg ":state")) (status (args:get-arg ":status"))) |
969 970 971 972 973 974 975 | 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 | - + + - - + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - | (if db (sqlite3:finalize! db)) (set! *didsomething* #t)))) ;;====================================================================== ;; Various helper commands can go below here ;;====================================================================== |
Added minimal/megatest.config version [a6a614bda6].
1 2 3 4 5 6 7 8 9 10 11 12 | + + + + + + + + + + + + | [fields]
RUNTYPE text
[setup]
linktree #{getenv PWD}/linktree
max_concurrent_jobs 20
[jobtools]
launcher nbfake
[disks]
disk0 #{getenv PWD}/runs
|
Added minimal/runconfigs.config version [2c0464015a].
1 2 3 | + + + | [default] EXAMPLEVAR 1 |
Added minimal/tests/tmpspace/testconfig version [030bb5974a].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | + + + + + + + + + + + + + + + + + + + + + + + + + + + | [ezsteps]
df [ `df -m /tmp | grep /tmp | awk '{print $3}'` -gt 200000 ]
[items]
TARGETHOST chlr10722 \
chlr15003 \
chlr13406 \
chlr12539 \
chlr12713 \
chlr11407 \
chlr14713 \
chlr11440 \
chlr11417 \
chlr14709 \
chlr11722 \
chlr11445 \
chlr11421 \
chlr11404
[test_meta]
author mrwellan
owner mrwellan
description Check for available space in /tmp
tags Utility
reviewed ww50.3
|
Added mt.scm version [049126ee50].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking (srfi 18) posix-extras directory-utils)
(import (prefix sqlite3 sqlite3:))
(declare (unit mt))
(declare (uses db))
(declare (uses common))
(declare (uses items))
(declare (uses runconfig))
(declare (uses tests))
(declare (uses server))
(declare (uses runs))
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
;; This is the Megatest API. All generally "useful" routines will be wrapped or extended
;; here.
;;======================================================================
;; R U N S
;;======================================================================
;; runs:get-runs-by-patt
;; get runs by list of criteria
;; register a test run with the db
;;
;; Use: (db-get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
;; to extract info from the structure returned
;;
(define (mt:get-runs-by-patt keys runnamepatt targpatt)
(let loop ((runsdat (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500))
(res '())
(offset 0)
(limit 500))
;; (print "runsdat: " runsdat)
(let* ((header (vector-ref runsdat 0))
(runslst (vector-ref runsdat 1))
(full-list (append res runslst))
(have-more (eq? (length runslst) limit)))
;; (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)
(if have-more
(let ((new-offset (+ offset limit))
(next-batch (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt offset limit)))
(debug:print-info 4 "More than " limit " runs, have " (length full-list) " runs so far.")
(debug:print-info 0 "next-batch: " next-batch)
(loop next-batch
full-list
new-offset
limit))
(vector header full-list)))))
;;======================================================================
;; T E S T S
;;======================================================================
(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #t) (sort-by 'event_time) (sort-order "ASC") (qryvals #f))
(let loop ((testsdat (cdb:remote-run db:get-tests-for-run #f run-id testpatt states status 0 500 not-in sort-by sort-order qryvals: qryvals))
(res '())
(offset 0)
(limit 500))
(let* ((full-list (append res testsdat))
(have-more (eq? (length testsdat) limit)))
(if have-more
(let ((new-offset (+ offset limit)))
(debug:print-info 4 "More than " limit " tests, have " (length full-list) " tests so far.")
(loop (cdb:remote-run db:get-tests-for-run #f run-id testpatt states status new-offset limit not-in sort-by sort-order qryvals: qryvals)
full-list
new-offset
limit))
full-list))))
(define (mt:get-prereqs-not-met run-id waitons ref-item-path #!key (mode '(normal))(itemmap #f))
(db:get-prereqs-not-met run-id waitons ref-item-path mode: mode itemmap: itemmap))
(define (mt:lazy-get-prereqs-not-met run-id waitons ref-item-path #!key (mode '(normal))(itemmap #f) )
(let* ((key (list run-id waitons ref-item-path mode))
(res (hash-table-ref/default *pre-reqs-met-cache* key #f))
(useres (let ((last-time (if (vector? res) (vector-ref res 0) #f)))
(if last-time
(< (current-seconds)(+ last-time 5))
#f))))
(if useres
(let ((result (vector-ref res 1)))
(debug:print 4 "Using lazy value res: " result)
result)
(let ((newres (db:get-prereqs-not-met run-id waitons ref-item-path mode: mode itemmap: itemmap)))
(hash-table-set! *pre-reqs-met-cache* key (vector (current-seconds) newres))
newres))))
(define (mt:get-run-stats)
(cdb:remote-run db:get-run-stats #f))
(define (mt:discard-blocked-tests run-id failed-test tests test-records)
(if (null? tests)
tests
(begin
(debug:print-info 1 "Discarding tests from " tests " that are waiting on " failed-test)
(let loop ((testn (car tests))
(remt (cdr tests))
(res '()))
(let* ((test-dat (hash-table-ref/default test-records testn (vector #f #f '())))
(waitons (vector-ref test-dat 2)))
;; (print "mt:discard-blocked-tests run-id: " run-id " failed-test: " failed-test " testn: " testn " with waitons: " waitons)
(if (null? remt)
(let ((new-res (reverse res)))
;; (print " new-res: " new-res)
new-res)
(loop (car remt)
(cdr remt)
(if (member failed-test waitons)
(begin
(debug:print 0 "Discarding test " testn "(" test-dat ") due to " failed-test)
res)
(cons testn res)))))))))
;;======================================================================
;; T R I G G E R S
;;======================================================================
(define (mt:process-triggers test-id newstate newstatus)
(let* ((test-dat (mt:lazy-get-test-info-by-id test-id))
(test-rundir (db:test-get-rundir test-dat))
(test-name (db:test-get-testname test-dat))
(tconfig #f)
(state (if newstate newstate (db:test-get-state test-dat)))
(status (if newstatus newstatus (db:test-get-status test-dat))))
(if (and (file-exists? test-rundir)
(directory? test-rundir))
(begin
(push-directory test-rundir)
(set! tconfig (mt:lazy-read-test-config test-name))
(pop-directory)
(for-each (lambda (trigger)
(let ((cmd (configf:lookup tconfig "triggers" trigger))
(logf (conc test-rundir "/last-trigger.log")))
(if cmd
;; Putting the commandline into ( )'s means no control over the shell.
;; stdout and stderr will be caught in the NBFAKE or mt_launch.log files
;; or equivalent. No need to do this. Just run it?
(let ((fullcmd (conc cmd " " test-id " " test-rundir " " trigger "&")))
(debug:print-info 0 "TRIGGERED on " trigger ", running command " fullcmd)
(process-run fullcmd)))))
(list
(conc state "/" status)
(conc state "/")
(conc "/" status)))))))
;;======================================================================
;; S T A T E A N D S T A T U S F O R T E S T S
;;======================================================================
(define (mt:roll-up-pass-fail-counts run-id test-name item-path status)
(if (and (not (equal? item-path ""))
(member status '("PASS" "WARN" "FAIL" "WAIVED" "RUNNING" "CHECK" "SKIP")))
(begin
(cdb:update-pass-fail-counts *runremote* run-id test-name)
(if (equal? status "RUNNING")
(cdb:top-test-set-running *runremote* run-id test-name)
(cdb:top-test-set-per-pf-counts *runremote* run-id test-name))
#f)
#f))
;; speed up for common cases with a little logic
(define (mt:test-set-state-status-by-id test-id newstate newstatus newcomment)
(cond
((and newstate newstatus newcomment)
(cdb:client-call *runremote* 'state-status-msg #t *default-numtries* newstate newstatus newcomment test-id))
((and newstate newstatus)
(cdb:client-call *runremote* 'state-status #t *default-numtries* newstate newstatus test-id))
(else
(if newstate (cdb:client-call *runremote* 'set-test-state #t *default-numtries* newstate test-id))
(if newstatus (cdb:client-call *runremote* 'set-test-status #t *default-numtries* newstatus test-id))
(if newcomment (cdb:client-call *runremote* 'set-test-comment #t *default-numtries* newcomment test-id))))
(mt:process-triggers test-id newstate newstatus)
#t)
(define (mt:lazy-get-test-info-by-id test-id)
(let* ((tdat (hash-table-ref/default *test-info* test-id #f)))
(if (and tdat
(< (current-seconds)(+ (vector-ref tdat 0) 10)))
(vector-ref tdat 1)
;; no need to update *test-info* as that is done in cdb:get-test-info-by-id
(cdb:get-test-info-by-id *runremote* test-id))))
(define (mt:lazy-read-test-config test-name)
(let ((tconf (hash-table-ref/default *testconfigs* test-name #f)))
(if tconf
tconf
(let ((test-dirs (tests:get-tests-search-path *configdat*)))
(let loop ((hed (car test-dirs))
(tal (cdr test-dirs)))
;; Setting MT_LINKTREE here is almost certainly unnecessary.
(let ((tconfig-file (conc hed "/" test-name "/testconfig")))
(if (and (file-exists? tconfig-file)
(file-read-access? tconfig-file))
(let ((link-tree-path (configf:lookup *configdat* "setup" "linktree"))
(old-link-tree (get-environment-variable "MT_LINKTREE")))
(if link-tree-path (setenv "MT_LINKTREE" link-tree-path))
(let ((newtcfg (read-config tconfig-file #f #f))) ;; NOTE: Does NOT run [system ...]
(hash-table-set! *testconfigs* test-name newtcfg)
(if old-link-tree
(setenv "MT_LINKTREE" old-link-tree)
(unsetenv "MT_LINKTREE"))
newtcfg))
(if (null? tal)
(begin
(debug:print 0 "ERROR: No readable testconfig found for " test-name)
#f)
(loop (car tal)(cdr tal))))))))))
|
Modified newdashboard.scm from [9efd15407e] to [1f8bd891c4].
1 | 1 2 3 4 5 6 7 8 9 | - + | ;;====================================================================== |
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | + + | (declare (uses margs)) (declare (uses launch)) (declare (uses megatest-version)) (declare (uses gutils)) (declare (uses db)) (declare (uses server)) (declare (uses synchash)) (declare (uses dcommon)) (declare (uses tree)) (include "common_records.scm") (include "db_records.scm") (include "key_records.scm") (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest |
80 81 82 83 84 85 86 | 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | (debug:setup) (define *tim* (iup:timer)) (define *ord* #f) |
143 144 145 146 147 148 149 | 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | - - - - - - - - - - - - - - - - - - - - + - - - - - - - - - + - - - - - | (define (mkstr . x) (string-intersperse (map conc x) ",")) (define (update-search x val) (hash-table-set! *searchpatts* x val)) |
207 208 209 210 211 212 213 | 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 | - - - - - - - - - - - | (disks-matrix (iup:matrix #:expand "YES" #:numcol 1 #:numlin 20 #:numcol-visible 1 #:numlin-visible 8)) ) |
314 315 316 317 318 319 320 | 241 242 243 244 245 246 247 248 249 250 251 252 253 254 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - | ;; The runconfigs.config file ;; (define (rconfig window-id) (iup:vbox (iup:frame #:title "Default"))) |
587 588 589 590 591 592 593 | 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 | - + - + | ;; Test browser (define (tests window-id) (iup:hbox (let* ((tb (iup:treebox #:selection-cb (lambda (obj id state) ;; (print "obj: " obj ", id: " id ", state: " state) |
712 713 714 715 716 717 718 | 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 | - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + | runs-matrix))))) ;; Browse and control a single run ;; (define (runcontrol window-id) (iup:hbox)) |
895 896 897 898 899 900 901 | 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 | - + | (define *current-window-id* 0) (define (newdashboard) (let* ((data (make-hash-table)) (keys (cdb:remote-run db:get-keys #f)) (runname "%") (testpatt "%") |
Modified process.scm from [444a7f5a5f] to [88799f98f8].
107 108 109 110 111 112 113 | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | + + + + + + + + + + + + + + + + | (let-values (((pid-val exit-status exit-code) (process-wait pid #t)))
(if (eq? pid-val 0)
(begin
(thread-sleep! 2)
(loop (+ i 1)))
(values pid-val exit-status exit-code))))))
;;======================================================================
;; MISC PROCESS RELATED STUFF
;;======================================================================
(define (process:children proc)
(with-input-from-pipe
(conc "ps h --ppid " (current-process-id) " -o pid")
(lambda ()
(let loop ((inl (read-line))
(res '()))
(if (eof-object? inl)
(reverse res)
(let ((pid (string->number inl)))
(if proc (proc pid))
(loop (read-line) (cons pid res))))))))
|
Deleted run-tests-queue-classic.scm version [5b3ba61f62].
| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|
Modified run-tests-queue-new.scm from [1ba5251696] to [da39a3ee5e].
| - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
|
Modified run_records.scm from [c113d1db2a] to [1580836de1].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | + + + + + + + + + + + + + + + | ;;====================================================================== ;; Copyright 2006-2012, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. ;;====================================================================== (define-inline (runs:runrec-make-record) (make-vector 13)) (define-inline (runs:runrec-get-target vec)(vector-ref vec 0)) ;; a/b/c (define-inline (runs:runrec-get-runname vec)(vector-ref vec 1)) ;; string (define-inline (runs:runrec-testpatt vec)(vector-ref vec 2)) ;; a,b/c,d% (define-inline (runs:runrec-keys vec)(vector-ref vec 3)) ;; (key1 key2 ...) (define-inline (runs:runrec-keyvals vec)(vector-ref vec 4)) ;; ((key1 val1)(key2 val2) ...) (define-inline (runs:runrec-environment vec)(vector-ref vec 5)) ;; environment, alist key val (define-inline (runs:runrec-mconfig vec)(vector-ref vec 6)) ;; megatest.config (define-inline (runs:runrec-runconfig vec)(vector-ref vec 7)) ;; runconfigs.config (define-inline (runs:runrec-serverdat vec)(vector-ref vec 8)) ;; (host port) (define-inline (runs:runrec-transport vec)(vector-ref vec 9)) ;; 'http (define-inline (runs:runrec-db vec)(vector-ref vec 10)) ;; <sqlite3db> (if 'fs) (define-inline (runs:runrec-top-path vec)(vector-ref vec 11)) ;; *toppath* (define-inline (runs:runrec-run_id vec)(vector-ref vec 12)) ;; run-id (define-inline (test:get-id vec) (vector-ref vec 0)) (define-inline (test:get-run_id vec) (vector-ref vec 1)) (define-inline (test:get-test-name vec)(vector-ref vec 2)) (define-inline (test:get-state vec) (vector-ref vec 3)) (define-inline (test:get-status vec) (vector-ref vec 4)) (define-inline (test:get-item-path vec)(vector-ref vec 5)) |
Modified runconfig.scm from [6f5e8ec901] to [f1fb75b972].
1 2 3 4 5 6 7 8 9 10 11 12 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | - - - - - + + - - + - - + - - - - - + + + + - - - - + + + + + + + - + - - + + - + - - + + - + | ;;====================================================================== ;; read a config file, loading only the section pertinent ;; to this run field1val/field2val/field3val ... ;;====================================================================== (use format directory-utils) (declare (unit runconfig)) (declare (uses common)) (include "common_records.scm") |
Modified runs.scm from [b605c5e7c5] to [b746e7df77].
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 | - + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + + + + + + + + + - - + + - - + + + + + + - + - - - - + + + + - + + + + + + + + + + + + + + + + + + + + + - + - - - + - + + + + + - - + + + - - + + - - - - - - - - - - - + - - - - + + + - - + - - - + - - - + + + + + + + - + + - + - - + - - - + + + + + + + + + - - + + + - - + |
|
259 260 261 262 263 264 265 | 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 | - + - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (let ((val (car x))) (if (procedure? val) val #f))) (append (if (list? items) items '()) (if (list? itemstable) itemstable '()))) 'have-procedure) ((or (list? items)(list? itemstable)) ;; calc now (debug:print-info 4 "items and itemstable are lists, calc now\n" |
311 312 313 314 315 316 317 | 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 | - - - - - - - - - - - - - - - - - - - - - - - - - - - + - + - + - - + - - + + + + + + + - + + + + + + + - + - - - + + - + - + - + - + + + + + + + + + - + + + + - + + - + - + + + + + + + + + + + + + + + + + + + + - - - - - + + + + + - + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + - - + + - - + + + + + + + + + - + - - - - - + + + + + + - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + + + + + + - - + + + - + - + - - - + + + - - + + - - - - + - - + + - - - - - + + - + - - + - - + - + - + - + - + - + - - - - - - - + + + - - - - - - + + + + + + - + - + - + - + | (conc t)
(conc (db:test-get-testname t) ":" (db:test-get-state t) "/" (db:test-get-status t))))
lst))
(define (runs:make-full-test-name testname itempath)
(if (equal? itempath "") testname (conc testname "/" itempath)))
|
Added sdb.scm version [1de5adb23b].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;;======================================================================
;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
;;======================================================================
;; Simple persistant strings lookup table. Keep out of the main db
;; so writes/reads don't slow down central access.
;;======================================================================
(require-extension (srfi 18) extras)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 csv-xml s11n md5 message-digest base64)
(import (prefix sqlite3 sqlite3:))
(import (prefix base64 base64:))
(declare (unit sdb))
;;
(define (sdb:open) ;; (conc *toppath* "/megatest.db") (car *configinfo*)))
(if (not *toppath*)
(if (not (setup-for-run))
(begin
(debug:print 0 "ERROR: Attempted to open db when not in megatest area. Exiting.")
(exit))))
(let* ((dbpath (conc *toppath* "/db/sdb.db")) ;; fname)
(dbexists (let ((fe (file-exists? dbpath)))
(if fe
fe
(begin
(create-directory (conc *toppath* "/db") #t)
#f))))
(sdb (sqlite3:open-database dbpath))
(handler (make-busy-timeout (if (args:get-arg "-override-timeout")
(string->number (args:get-arg "-override-timeout"))
136000))))
(sqlite3:set-busy-handler! sdb handler)
(if (not dbexists)
(sdb:initialize sdb))
(sqlite3:execute sdb "PRAGMA synchronous = 1;")
sdb))
(define (sdb:initialize sdb)
(sqlite3:execute sdb "CREATE TABLE IF NOT EXISTS strs
(id INTEGER PRIMARY KEY,
str TEXT,
CONSTRAINT str UNIQUE (str));")
(sqlite3:execute sdb "CREATE INDEX strindx ON strs (str);"))
;; (define sumup (let ((a 0))(lambda (x)(set! a (+ x a)) a)))
(define (sdb:register-string sdb str)
(sqlite3:execute sdb "INSERT OR IGNORE INTO strs (str) VALUES (?);" str))
(define (sdb:string->id sdb str-cache str)
(let ((id (hash-table-ref/default str-cache str #f)))
(if (not id)
(sqlite3:for-each-row
(lambda (sid)
(set! id sid)
(hash-table-set! str-cache str id))
sdb
"SELECT id FROM strs WHERE str=?;" str))
id))
(define (sdb:id->string sdb id-cache id)
(let ((str (hash-table-ref/default id-cache id #f)))
(if (not str)
(sqlite3:for-each-row
(lambda (istr)
(set! str istr)
(hash-table-set! id-cache id str))
sdb
"SELECT str FROM strs WHERE id=?;" id))
str))
(define sdb:qry
(let ((sdb #f)
(scache (make-hash-table))
(icache (make-hash-table)))
(lambda (cmd var)
(if (not sdb)(set! sdb (sdb:open)))
(case cmd
((init) (if (not sdb)(set! sdb (sdb:open))))
((finalize!) (if sdb (sqlite3:finalize! sdb)))
((getid) (let ((id (sdb:string->id sdb scache var)))
(if id
id
(begin
(sdb:register-string sdb var)
(sdb:string->id sdb scache var)))))
((getstr) (if (or (number? var)
(string->number var))
(sdb:id->string sdb icache var)
var))
(else #f)))))
|
Modified server.scm from [1157749304] to [9e4ffe8744].
49 50 51 52 53 54 55 | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | - + | (if (not (setup-for-run)) (begin (debug:print 0 "ERROR: cannot find megatest.config, exiting") (exit)))) (debug:print-info 2 "Starting server using " transport " transport") (set! *transport-type* transport) (case transport |
115 116 117 118 119 120 121 | 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | + + + + + + + + + + + + + + + + + + + + + + + + + + | (let ((pub-socket (vector-ref *runremote* 1)))
(send-message pub-socket return-addr send-more: #t)
(send-message pub-socket (db:obj->string (vector success/fail query-sig result)))))
(else
(debug:print 0 "ERROR: unrecognised transport type: " *transport-type*)
result)))
(define (server:ensure-running)
(let loop ((servers (open-run-close tasks:get-best-server tasks:open-db))
(trycount 0))
(if (or (not servers)
(null? servers))
(begin
(if (even? trycount) ;; just do the server start every other time through this loop (every 8 seconds)
(let ((cmdln (conc (if (getenv "MT_MEGATEST") (getenv "MT_MEGATEST") "megatest")
" -server - -daemonize")))
(debug:print 0 "INFO: Starting server (" cmdln ") as none running ...")
;; (server:launch (string->symbol (args:get-arg "-transport" "http"))))
;; no need to use fork, no need to do the list-servers trick. Just start the damn server, it will exit on it's own
;; if there is an existing server
(system cmdln)
(thread-sleep! 3)
;; (process-run (car (argv)) (list "-server" "-" "-daemonize" "-transport" (args:get-arg "-transport" "http")))
)
(begin
(debug:print-info 0 "Waiting for server to start")
(thread-sleep! 4)))
(if (< trycount 10)
(loop (open-run-close tasks:get-best-server tasks:open-db)
(+ trycount 1))
(debug:print 0 "WARNING: Couldn't start or find a server.")))
(debug:print 2 "INFO: Server(s) running " servers)
)))
|
Modified tasks.scm from [0e4c68ca46] to [4666e559d1].
95 96 97 98 99 100 101 | 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | - + + + + - + - - + + | ;; state: 'live, 'shutting-down, 'dead
(define (tasks:server-register mdb pid interface port priority state transport #!key (pubport -1))
(debug:print-info 11 "tasks:server-register " pid " " interface " " port " " priority " " state)
(sqlite3:execute
mdb
"INSERT OR REPLACE INTO servers (pid,hostname,port,pubport,start_time,priority,state,mt_version,heartbeat,interface,transport)
VALUES(?, ?, ?, ?, strftime('%s','now'), ?, ?, ?, strftime('%s','now'),?,?);"
|
144 145 146 147 148 149 150 | 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 | - + | (begin
(debug:print 0 "ERROR: tasks:server-get-server-id needs (hostname and pid) OR (iface and port) OR (hostname and port)")
"SELECT id FROM servers WHERE pid=-999;")))
(if hostname hostname iface)(if pid pid port))
res))
(define (tasks:server-update-heartbeat mdb server-id)
|
194 195 196 197 198 199 200 | 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 | - + + + + + + - + | (define (tasks:have-clients? mdb server-id) (null? (tasks:get-logged-in-clients mdb server-id))) ;; ping each server in the db and return first found that responds. ;; remove any others. will not necessarily remove all! (define (tasks:get-best-server mdb) (let ((res '()) |
259 260 261 262 263 264 265 | 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 | - - - - - - - + + + + + + + | " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn)) (debug:print 1 "Sending signal/term to " pid " on " hostname) (process-signal pid signal/term) (thread-sleep! 5) ;; give it five seconds to die peacefully then do a brutal kill ;;(process-signal pid signal/kill) ) ;; local machine, send sig term (begin |
540 541 542 543 544 545 546 | 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 | - + - + | (tasks:task-get-owner task)
flags)
(tasks:set-state mdb (tasks:task-get-id task) "waiting")))
(define (tasks:rollup-runs db mdb task)
(let* ((flags (make-hash-table))
(keys (db:get-keys db))
|
Modified tests.scm from [c40619bb57] to [ffbdefa44d].
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | - + + + + + + + + + + + + - - - - - - + + + + + + + + + + + + + + + + + + + + + - - - + - - + + | ;;====================================================================== |
103 104 105 106 107 108 109 110 | 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | + + + - - - + + + | (if (null? tal)
(string-intersperse (append (reverse res)(list qry)) " OR ")
(loop (car tal)(cdr tal)(cons qry res)))))))
#f))
;; get the previous record for when this test was run where all keys match but runname
;; returns #f if no such test found, returns a single test record if found
;;
;; Run this server-side
;;
(define (test:get-previous-test-run-record db run-id test-name item-path)
|
128 129 130 131 132 133 134 | 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 | - + + + + - + | (conc "SELECT id FROM runs WHERE " qrystr " AND id != ?;") (append keyvals (list run-id))) ;; for each run starting with the most recent look to see if there is a matching test ;; if found then return that matching test record (debug:print 4 "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) #f (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) |
166 167 168 169 170 171 172 | 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 | - + + - + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + | ;; collect all matching tests for the runs then ;; extract the most recent test and return that. (debug:print 4 "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) '() ;; no previous runs? return null (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) |
283 284 285 286 287 288 289 | 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 | + - + + | (tests:check-waiver-eligibility testdat prev-test))
(set! real-status "WAIVED"))
(debug:print 4 "real-status " real-status ", waived " waived ", status " status)
;; update the primary record IF state AND status are defined
(if (and state status)
(begin
|
328 329 330 331 332 333 334 | 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 | - + - + + - + - - + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + + + + - - + + + - - - + + - - - + + - - - - - - + + + + + + + + | type )))
;; This was run remote, don't think that makes sense.
(db:csv->test-data #f test-id
dat))))
;; need to update the top test record if PASS or FAIL and this is a subtest
(if (not (equal? item-path ""))
|
502 503 504 505 506 507 508 | 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 | - - + + - - + + + - + - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - + + + - + - - - - - - - + + - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + - - - - + - - - - - - - + + + + + + + + + + + + + + + + + + + | (lambda (testkeyname)
(let* ((test-record (hash-table-ref testrecordshash testkeyname))
(test-name (tests:testqueue-get-testname test-record))
(itemdat (tests:testqueue-get-itemdat test-record))
(item-path (tests:testqueue-get-item_path test-record))
(waitons (tests:testqueue-get-waitons test-record))
(keep-test #t)
|
Modified tests/Makefile from [11459f8d0e] to [dcd26e4a3b].
1 2 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 | + - + - + - - + + + + + + + + + + - - + + + + + + + + + + + + - - + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + + + - + | # # run some tests |
Modified tests/fdktestqa/fdk.config from [3481fe6c37] to [c701336661].
1 2 3 4 5 6 | 1 2 3 4 5 6 7 8 9 10 11 12 | - + | [fields] SYSTEM TEXT RELEASE TEXT [setup] # Adjust max_concurrent_jobs to limit how much you load your machines |
Modified tests/fdktestqa/testqa/Makefile from [1da3e6f8f7] to [4f03b5f50e].
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | - - - + + + + + + + + + - + - + + + + + - + + |
|
Added tests/fdktestqa/testqa/README version [a5a438bd7b].
1 | + | set NUMTESTS to set the number of tests that will be run. A small number (say 20) illustrates itemwait well. |
Modified tests/fdktestqa/testqa/megatest.config from [88ea0dc535] to [50948d2125].
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + + + - + | [setup] testcopycmd cp --remove-destination -rlv TEST_SRC_PATH/. TEST_TARG_PATH/. >> TEST_TARG_PATH/mt_launch.log 2>> TEST_TARG_PATH/mt_launch.log |
Modified tests/fdktestqa/testqa/tests/bigrun/step1.sh from [38294e0788] to [45d51b92e4].
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | - - - + + + + - + + + + - + + |
|
Modified tests/fdktestqa/testqa/tests/bigrun/testconfig from [cdfa932657] to [a953628936].
1 2 3 4 5 6 7 8 9 10 11 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | - + | # Add additional steps here. Format is "stepname script" [ezsteps] step1 step1.sh # Test requirements are specified here [requirements] # waiton setup priority 0 # Iteration for your tests are controlled by the items section [items] |
Modified tests/fdktestqa/testqa/tests/bigrun2/testconfig from [5d695076f7] to [ccc63b9335].
1 2 3 4 5 6 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | - + - - + + - + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] step1 step1.sh # Test requirements are specified here [requirements] |
Added tests/fdktestqa/testqa/tests/bigrun3/step1.sh version [f90152c7af].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | #!/bin/sh # prev_test=`$MT_MEGATEST -test-paths -target $MT_TARGET :runname $MT_RUNNAME -testpatt bigrun/$NUMBER` # if [ -e $prev_test/testconfig ]; then # exit 0 # else # exit 1 # fi exit 0 |
Added tests/fdktestqa/testqa/tests/bigrun3/testconfig version [e9786b9270].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | + + + + + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script"
[ezsteps]
step1 step1.sh
# Test requirements are specified here
[requirements]
waiton bigrun2
priority 0
mode itemwait
itemmap .*/
# Iteration for your tests are controlled by the items section
[items]
NUMBER #{scheme (string-intersperse (map (lambda (x)(conc "blah/" x)) \
(map number->string (sort (let loop ((a 0)(res '())) \
(if (<= a (or (any->number (get-environment-variable "NUMTESTS")) 2500)) \
(loop (+ a 1)(cons a res)) res)) <))) " ")}
# test_meta is a section for storing additional data on your test
[test_meta]
author matt
owner matt
description An example test
tags tagone,tagtwo
reviewed never
|
Added tests/fullrun/afs.config version [d8bf445723].
1 | + | TESTSTORUN priority_6 sqlitespeed/ag |
Modified tests/fullrun/config/mt_include_1.config from [8ae9c17ecf] to [44520ee9a2].
1 2 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | - + + - + + + + | [setup] # exectutable /path/to/megatest |
Modified tests/fullrun/megatest.config from [48f6d0e4a8] to [d34de12963].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | + + + + + + + - + - - + + + + + + - - + + - - + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + - + + + + + | [fields]
sysname TEXT
fsname TEXT
datapath TEXT
# refareas can be searched to find previous runs
# the path points to where megatest.db exists
[refareas]
area1 /tmp/oldarea/megatest
[include config/mt_include_1.config]
[misc]
home #{shell readlink -f $MT_RUN_AREA_HOME}
parent #{shell readlink -f $MT_RUN_AREA_HOME/..}
[tests-paths]
1 #{get misc parent}/simplerun/tests
[setup]
|
82 83 84 85 86 87 88 | 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | + + + + + + + + + | ## -or-
## name /path/to/area
[disks]
disk0 /foobarbazz
[include config/mt_include_2.config]
[include #{getenv USER}_testing.config]
[jobgroups]
# NOTE: job groups will falsely count the toplevel test as a job. If possible add N
# to your jobgroups where N is the number of parallel runs you are likely to see
#
sqlite3 5
blockz 5
|
Added tests/fullrun/nfs.config version [417e40a368].
1 | + | TESTSTORUN priority_4 test_mt_vars |
Added tests/fullrun/run-each-proc.sh version [2d922bdae6].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | + + + + + + + + + + + + + + + | #!/bin/bash for x in `cat all-db-procs.txt`;do cat > ~/.megatestrc <<EOF (require-library trace) (import trace) (trace $x ) EOF fname=`echo "$x" | tr ':!>' '-_g'` megatest -runtests sqlitespeed,test2,ez% -target ubuntu/nfs/none :runname $fname > $fname.log done |
Modified tests/fullrun/runconfigs.config from [3802f0c6b8] to [cdf025da8a].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + + | [default]
SOMEVAR This should show up in SOMEVAR3
# target based getting of config file, look at afs.config and nfs.config
[include #{getenv fsname}.config]
[include #{getenv MT_RUN_AREA_HOME}/common_runconfigs.config]
# #{system echo 'VACKYVAR #{shell pwd}' > $MT_RUN_AREA_HOME/config/$USER.config}
[include ./config/#{getenv USER}.config]
WACKYVAR0 #{get ubuntu/nfs/none CURRENT}
WACKYVAR1 #{scheme (args:get-arg "-target")}
[default/ubuntu/nfs]
WACKYVAR2 #{runconfigs-get CURRENT}
[ubuntu/nfs/none]
WACKYVAR2 #{runconfigs-get CURRENT}
SOMEVAR2 This should show up in SOMEVAR4 if the target is ubuntu/nfs/none
[default]
SOMEVAR3 #{rget SOMEVAR}
SOMEVAR4 #{rget SOMEVAR2}
SOMEVAR5 #{runconfigs-get SOMEVAR2}
[this/a/test]
BLAHFOO 123
|
Added tests/fullrun/tests/all_toplevel/calcresults.logpro version [dfb57c6b97].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;; (c) 2006,2007,2008,2009 Matthew Welland matt@kiatoa.com
;;
;; License GPL.
(define logbody "LogFileBody")
(define pass-specs '( ;; testname num-expected max-runtime
("exit_0" 1 20)
("ezlog_fail_then_pass" 1 20)
("ezlog_pass" 1 20)
("ez_pass" 1 20)
("lineitem_pass" 1 20)
("priority_1" 1 20)
("priority_10" 1 20)
("priority_10_waiton_1" 1 20)
("priority_3" 1 20)
("priority_4" 1 20)
("priority_5" 1 20)
("priority_6" 1 20)
("priority_7" 1 20)
("priority_8" 1 20)
("priority_9" 1 20)
("runfirst" 7 20)
("singletest" 1 20)
("singletest2" 1 20)
("special" 1 20)
("sqlitespeed" 10 20)
("test1" 1 20)
("test2" 6 20)
("test_mt_vars" 6 20)
))
(define fail-specs '( ;; testname num-expected max-runtime
("exit_1" 1 20)
("ez_exit2_fail" 1 20)
("ez_fail" 1 20)
("ez_fail_quick" 1 20)
("ezlog_fail" 1 20)
("lineitem_fail" 1 20)
("logpro_required_fail" 1 20)
("manual_example" 1 20)
("neverrun" 1 20)))
(define warn-specs '(("ezlog_warn" 1 20)))
(define nost-specs '(("wait_no_items1" 1 20)
("wait_no_items2" 1 20)
("wait_no_items3" 1 20)
("wait_no_items4" 1 20)
("no_items" 1 20)))
(define (check-one-test estate estatus testname count runtime)
(let* ((rxe (regexp (conc "^\\s+Test: " testname "(\\(.*|\\s+)\\s+State: " estate "\\s+Status: " estatus "\\s+Runtime:\\s+(\\d+)s")))
(msg1 (conc testname " expecting count of " count))
(msg2 (conc testname " expecting runtime less than " runtime)))
(expect:required in logbody = count msg1 rxe)
;;(expect:value in logbody count < msg2 rxe)
))
;; Special cases
;;
(expect:ignore in logbody >= 0 "all_toplevel may not yet be done" #/Test: all_toplevel/)
(expect:error in logbody = 0 "tests left in RUNNING state" #/State: RUNNING/)
(expect:required in logbody = 1 "priority_2 is KILLED" #/Test: priority_2\s+State: KILLED\s+Status: FAIL/)
(expect:required in logbody = 1 "testxz has 1 NOT_STARTED test" #/Test: testxz\s+State: NOT_STARTED/)
(expect:required in logbody = 29 "blocktestxz has 29 tests" #/Test: blocktestxz/)
;; General cases
;;
(for-each
(lambda (testdat)
(apply check-one-test "COMPLETED" "PASS" testdat))
pass-specs)
(for-each
(lambda (testdat)
(apply check-one-test "COMPLETED" "FAIL" testdat))
fail-specs)
(for-each
(lambda (testdat)
(apply check-one-test "COMPLETED" "WARN" testdat))
warn-specs)
(for-each
(lambda (testdat)
(apply check-one-test "NOT_STARTED" "n/a" testdat))
nost-specs)
;; Catch all.
;;
(expect:error in logbody = 0 "Tests not accounted for" #/Test: /)
;; ;; define your hooks
;; (hook:first-error "echo \"Error hook activated: #{escaped errmsg}\"")
;; (hook:first-warning "echo \"Got warning: #{escaped warnmsg}\"")
;; (hook:value "echo \"Value hook activated: expected=#{expected}, measured=#{measured}, tolerance=#{tolerance}, message=#{message}\"")
;;
;; ;; first ensure your run at least started
;; ;;
;; (trigger "Init" #/This is a header/)
;; (trigger "InitEnd" #/^\s*$/)
;; (section "Init" "Init" "InitEnd")
;;
;; (trigger "Body" #/^.*$/) ;; anything starts the body
;; ;; (trigger "EndBody" #/This had better never match/)
;;
;; (section "Body" "Body" "EndBody")
;;
;; (trigger "Blah2" #/^begin Blah2/)
;; (trigger "Blah2End" #/^end Blah2/)
;; (section "Blah2" "Blah2" "Blah2End")
;;
;; (expect:required in "Init" = 1 "Header" #/This is a header/)
;; (expect:required in "LogFileBody" > 0 "Something required but not found" #/This is required but not found/)
;; (expect:value in "LogFileBody" 1.9 0.1 "Output voltage" #/Measured voltage output:\s*([\d\.\+\-e]+)v/)
;; (expect:value in "LogFileBody" 0.5 0.1 "Output current" #/Measured output current:\s*([\d\.\+\-e]+)mA/)
;; (expect:value in "LogFileBody" 110e9 2e9 "A big number (first)" #/Freq:\s*([\d\.\+\-e]+)\s+Hz/)
;; (expect:value in "LogFileBody" 110e9 1e9 "A big number (second), hook not called" #/Freq:\s*([\d\.\+\-e]+)Hz/)
;; (expect:value in "LogFileBody" 110e9 1e9 "A big number (never activated)" #/Freq:\s*([\d\.\+\-e]+)zH/)
;;
;; ;; Using match number
;; (expect:value in "LogFileBody" 1.9 0.1 "Time Voltage" #/out: (\d+)\s+(\d+)/ match: 2)
;;
;; ;; Comparison instead of tolerance
;; (expect:value in "LogFileBody" 1.9 > "Time voltage" #/out: (\d+)\s+(\d+)/ match: 2)
;;
;; (expect:ignore in "Blah2" < 99 "FALSE ERROR" #/ERROR/)
;; (expect:ignore in "Body" < 99 "Ignore the word error in comments" #/^\/\/.*error/)
;; (expect:warning in "Body" = 0 "Any warning" #/WARNING/)
;; (expect:error in "Body" = 0 "ERROR BLAH" (list #/ERROR/ #/error/)) ;; but disallow any other errors
;;
;; ;(expect in "Init" < 1 "Junk" #/This is bogus/)
|
Modified tests/fullrun/tests/all_toplevel/testconfig from [a36e0b7a97] to [4c397d46e3].
1 2 3 4 | 1 2 3 4 5 6 7 8 9 10 11 12 13 | + - + + + + + | [ezsteps] calcresults megatest -list-runs $MT_RUNNAME -target $MT_TARGET [requirements] waiton all_toplevel exit_0 exit_1 ez_exit2_fail ez_fail ez_pass ezlog_fail \ |
Added tests/fullrun/tests/blocktestxz/main.sh version [c5c5020d12].
1 2 3 4 5 6 | + + + + + + | #!/bin/bash $MT_MEGATEST -test-status :state $THESTATE :status $THESTATUS -setlog "nada.html" # By exiting with non-zero we tell Megatest to preseve the state and status exit 1 |
Added tests/fullrun/tests/blocktestxz/testconfig version [689bce3544].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | + + + + + + + + + + + + + + + + + + + + + + | [setup] runscript main.sh [items] THESTATE UNKNOWN INCOMPLETE KILLED KILLREQ STUCK BOZZLEBLONKED STUCK/DEAD THESTATUS PASS FAIL STUCK/DEAD SKIP [requirements] waiton sqlitespeed [test_meta] author matt owner bob description This test will fail causing the dependent test "testxz"\ to never run. This triggers the code that must determine\ that a test will never be run and thus remove it from\ the queue of tests to be run. tags first,single reviewed 1/1/1965 jobgroup blockz |
Modified tests/fullrun/tests/ez_exit2_fail/testconfig from [fc174ee7f2] to [f01baecf74].
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | - - - + + + | [setup] [ezsteps] exit2 exit 2 lookithome ls /home [test_meta] author matt owner bob |
Added tests/fullrun/tests/ez_fail_quick/testconfig version [84fb49b4c8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | [requirements] priority 10 [ezsteps] # should fail on next step lookitnada ls /nada [triggers] # run like this: cmd test-id test-rundir trigger COMPLETED/FAIL xterm;echo [test_meta] author matt owner bob description This test runs a single ezstep which fails immediately. tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/ezlog_fail_then_pass/testconfig from [be9f816262] to [4d4490bc7d].
1 2 3 4 5 6 7 8 | 1 2 3 4 5 6 7 8 9 10 11 12 13 | - - + + | [setup] [ezsteps] firststep main.sh [test_meta] author matt owner bob |
Modified tests/fullrun/tests/manual_example/testconfig from [a183e20093] to [f5375aa3ae].
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 11 12 13 | - - + + | [setup] [ezsteps] setup ./runsetupxterm.sh # launch launchxterm [test_meta] author matt owner bob |
Added tests/fullrun/tests/no_items/testconfig version [ee0c082186].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | + + + + + + + + + + + + + + + | [ezsteps] listfiles ls [items] FOO [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass \ but there is an items definition with no items. This should evoke an \ error. tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/priority_1/testconfig from [a4d944cb23] to [737fc2258c].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + | [setup] runscript main.sh [requirements] priority 1 [test_meta] jobgroup sqlite3 author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/priority_2/main.sh from [0536bc3eb1] to [8c8c341150].
1 2 3 4 5 | 1 2 3 4 5 6 7 8 9 10 | - + | #!/bin/bash # a bunch of steps in 2 second increments for i in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17;do $MT_MEGATEST -step step$i :state start :status running -setlog results$i.html |
Modified tests/fullrun/tests/priority_2/testconfig from [62b7ebcc8f] to [7fc8d055ec].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | + + + | [setup] runscript main.sh [requirements] priority 2 # runtimelim 1d 1h 1m 10s runtimelim 20s [test_meta] jobgroup sqlite3 author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/priority_3/main.sh from [c133dda42f] to [416f9ddbf9].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + | #!/bin/bash # a bunch of steps in 2 second increments for i in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17;do $MT_MEGATEST -step step$i :state start :status running -setlog results$i.html sleep 2 echo "<html><header>Results$i</header><body>Nothing but faux results here!</body></html>" > results$i.html $MT_MEGATEST -step step$i :state end :status 0 done # get a previous test export EZFAILPATH=`$MT_MEGATEST -test-files lookithome.log -target $MT_TARGET :runname $MT_RUNNAME -testpatt ez_fail` if [[ -e $EZFAILPATH ]];then echo All good! |
Modified tests/fullrun/tests/priority_3/testconfig from [3693d6b2ed] to [392fa56879].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | + | [setup] runscript main.sh [requirements] priority 3 [test_meta] jobgroup sqlite3 author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/priority_4/testconfig from [331e061c45] to [0f3ea908bb].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + | [setup] runscript main.sh [requirements] priority 4 [test_meta] jobgroup sqlite3 author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/priority_5/testconfig from [ef11eb1493] to [ce686fcc38].
1 2 3 4 5 6 7 8 9 10 11 12 13 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | + + + | [setup] runscript main.sh [requirements] priority 5 [skip] prevrunning #t [test_meta] author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Modified tests/fullrun/tests/runfirst/main.sh from [e4be557feb] to [2d77d9ebfd].
21 22 23 24 25 26 27 28 | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | + + + + - + + | faz,bar,10,8mA,,,"this is a comment" EOF $MT_MEGATEST -load-test-data << EOF cat, var, val, exp, comp, units, comment, status, type ameas,iout,1.2,1.9,>,Amps,Comment,,meas EOF loadstatus=$? if [[ `basename $PWD` == "mustfail" ]];then $MT_MEGATEST -test-status :state COMPLETED :status FAIL else |
Modified tests/fullrun/tests/runfirst/testconfig from [f0b52bc3c6] to [784a9af124].
1 2 3 4 5 6 7 8 9 10 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - + - + | [setup] runscript main.sh [pre-launch-env-vars] # These are set before the test is launched on the originating # host. This can be used to control remote launch tools, e.g. to # to choose the target host, select the launch tool etc. SPECIAL_ENV_VAR override with everything after the first space. [items] |
Modified tests/fullrun/tests/singletest/main.sh from [e63ffb76fa] to [d41b458021].
1 2 3 4 5 6 | 1 2 3 4 5 6 7 8 9 | - + | #!/bin/bash # megatest -step wasting_time :state start :status n/a -m "This is a test step comment" # sleep 20 # megatest -step wasting_time :state end :status $? |
Added tests/fullrun/tests/special/testconfig version [32232b309f].
1 2 3 4 5 6 7 8 | + + + + + + + + | [ezsteps]
# calcresults megatest -list-runs $MT_RUNNAME -target $MT_TARGET
[requirements]
waiton #{rget TESTSTORUN}
# This is a "toplevel" test, it does not require waitons to be non-FAIL to run
mode toplevel
|
Modified tests/fullrun/tests/sqlitespeed/runscript.rb from [45705f52bd] to [630bce8730].
1 2 | 1 2 3 4 5 6 7 8 9 10 | - + | #! /usr/bin/env ruby |
Modified tests/fullrun/tests/sqlitespeed/testconfig from [a64305aaab] to [d7b60872d2].
1 2 3 4 5 6 7 8 9 10 11 | 1 2 3 4 5 6 7 8 9 10 11 12 13 | + + | [setup] runscript runscript.rb tags non important,dumb junk [requirements] waiton runfirst [items] MANYITEMS [system (env > envfile.txt;echo aa ab ac ad ae af ag ah ai)] # BORKED [test_meta] jobgroup sqlite3 |
Added tests/fullrun/tests/testxz/testconfig version [b0661b0db5].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] listfiles ls # Test requirements are specified here [requirements] waiton blocktestxz # test_meta is a section for storing additional data on your test [test_meta] author mrwellan owner mrwellan description This test should never get run due to blocktestxz failing tags tagone,tagtwo reviewed never |
Added tests/fullrun/tests/wait_no_items1/testconfig version [8560a2beaf].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + + + + + + + + + + + + + + + + + | [ezsteps] listfiles ls [requirements] waiton no_items [items] [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass \ but there is an items definition with no items. This should evoke an \ error. tags first,single reviewed 09/10/2011, by Matt |
Added tests/fullrun/tests/wait_no_items2/testconfig version [329ea91261].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + + + + + + + + + + + + + + + + + | [ezsteps] listfiles ls [requirements] waiton wait_no_items1 [items] [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass \ but there is an items definition with no items. This should evoke an \ error. tags first,single reviewed 09/10/2011, by Matt |
Added tests/fullrun/tests/wait_no_items3/testconfig version [ac0d16af73].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + + + + + + + + + + + + + + + + + | [ezsteps] listfiles ls [requirements] waiton wait_no_items2 [items] [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass \ but there is an items definition with no items. This should evoke an \ error. tags first,single reviewed 09/10/2011, by Matt |
Added tests/fullrun/tests/wait_no_items4/testconfig version [ea8006f831].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + + + + + + + + + + + + + + + + + | [ezsteps] listfiles ls [requirements] waiton wait_no_items3 [items] [test_meta] author matt owner bob description This test runs a single ezstep which is expected to pass \ but there is an items definition with no items. This should evoke an \ error. tags first,single reviewed 09/10/2011, by Matt |
Added tests/installall/config/megatest.config.dat version [736a5da885].
1 | + | ../megatest.config |
Added tests/installall/config/runconfigs.config.dat version [3b8f260acb].
1 | + | ../runconfigs.config |
Added tests/installall/config/sheet-names.cfg version [ab2c4d6c15].
1 2 | + + | megatest.config runconfigs.config |
Added tests/installall/config/sxml/_sheets.sxml version [8edcebe32d].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ((@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v9.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "17") (Major "10") (Full "1.10.17") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:document-meta
(@ (urn:oasis:names:tc:opendocument:xmlns:office:1.0:version "1.2"))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:meta
(http://purl.org/dc/elements/1.1/:date "2013-07-21T23:45:07Z")
(urn:oasis:names:tc:opendocument:xmlns:meta:1.0:creation-date
"2013-07-21T23:42:35Z")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(FloatRadix "2")
(FloatDigits "53")
(EnableIteration "1")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"megatest.config")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"runconfigs.config"))
(http://www.gnumeric.org/v10.dtd:Geometry (@ (Width "1440") (Height "647")))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "0"))))
|
Added tests/installall/config/sxml/_workbook.sxml version [96ffb7f9d5].
1 | + | (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")) |
Added tests/installall/config/sxml/megatest.config.sxml version [20b51cabfc].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "5")
(http://www.gnumeric.org/v10.dtd:MaxRow "7")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"megatest.config\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top (@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "112.5") (No "0") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "63.75") (No "2") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "3")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "86.25") (No "4") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "5"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.75") (No "0") (Count "8"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
|
Added tests/installall/config/sxml/runconfigs.config.sxml version [6fbe8f45dc].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "3")
(http://www.gnumeric.org/v10.dtd:MaxRow "7")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"runconfigs.config\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top (@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "108.8") (No "0") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "97.5") (No "1") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "100.5") (No "2") (HardSize "1") (Count "2"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "0") (Count "2")))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.75") (No "2")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "3") (Count "2")))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.75") (No "5")))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "13.5") (No "6")))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.75") (No "7"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "7") (CursorCol "3"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "7") (startCol "3") (endRow "7") (endCol "3"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
|
Added tests/installall/configs/chicken-4.8.0.4.config version [bef028dfb3].
1 | + | CHICKEN_URL http://code.call-cc.org/releases/4.8.0/chicken-4.8.0.4.tar.gz |
Added tests/installall/configs/chicken-4.8.1.config version [3328179afb].
1 | + | CHICKEN_URL http://code.call-cc.org/dev-snapshots/2013/01/04/chicken-4.8.1.tar.gz |
Added tests/installall/megatest.config version [a67193d07e].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | + + + + + + + + + + + + + + + + + + + + + + + + | [fields]
CHICKEN_VERSION TEXT
MEGATEST_VERSION TEXT
IUPMODE TEXT
BUILD_TAG TEXT
[setup]
max_concurrent_jobs 6
linktree #{getenv MT_RUN_AREA_HOME}/links
testcopycmd cp --remove-destination -rsv TEST_SRC_PATH/. TEST_TARG_PATH/. >> TEST_TARG_PATH/mt_launch.log 2>> TEST_TARG_PATH/mt_launch.log
[jobtools]
useshell yes
launcher nbfind
[env-override]
EXAMPLE_VAR example value
[server]
port 9080
[disks]
disk0 #{getenv MT_RUN_AREA_HOME}/runs
|
Added tests/installall/runconfigs.config version [7b227fbb06].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | [.............]
#
# [CHICKEN_VERSION/MEGATEST_VERSION/IUPMODE/PLATFORM/BUILD_TAG]
#
[default]
ALLTESTS see this variable
PREFIX #{getenv MT_RUN_AREA_HOME}/#{getenv BUILD_TAG}/#{getenv MT_RUNNAME}
DOWNLOADS #{getenv MT_RUN_AREA_HOME}/downloads
IUPLIB 26g4
PLATFORM linux
LOGPRO_VERSION v1.05
BUILDSQLITE yes
SQLITE3_VERSION 3071401
ZEROMQ_VERSION 2.2.0
logpro_VERSION v1.08
stml_VERSION v0.901
megatest_VERSION v1.5511
[include configs/hicken-#{getenv CHICKEN_VERSION}.config]
# Currently must have at least one variable in a section
[4.8.0/trunk/bin/std]
IUP_VERSION na
[4.8.0.4/trunk/src/std]
CHICKEN_URL http://code.call-cc.org/releases/4.8.0/chicken-4.8.0.4.tar.gz
IUP_VERSION na
[4.8.1/trunk/src/std]
IUP_VERSION na
[4.8.0/v1.5508/opt]
IUP_VERSION na
PREFIX /opt/chicken/4.8.0
[4.8.0/trunk/centos5.7vm]
BUILDSQLITE no
|
Added tests/installall/tests/canvas-draw/install.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/canvas-draw/install.sh version [161268d5b1].
1 2 3 4 5 | + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/canvas-draw/testconfig version [2a7615e9f3].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] install install.sh # Test requirements are specified here [requirements] waiton iuplib setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the canvas-draw egg tags tagone,tagtwo reviewed never |
Added tests/installall/tests/chicken/compile.logpro version [4b1b41a7d0].
1 2 3 4 5 6 7 8 9 10 | + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory ..." #/Leaving directory/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:ignore in "LogFileBody" >= 0 "Ignore HAVE_STRERROR" #/HAVE_STRERROR/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/chicken/compile.sh version [272db8604a].
1 2 3 4 5 6 7 8 | + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
cd chicken-${CHICKEN_VERSION}
make PLATFORM=${PLATFORM} PREFIX=${PREFIX}
|
Added tests/installall/tests/chicken/download.logpro version [c8aac76d70].
1 2 3 4 5 6 7 8 9 10 11 | + + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "README file must be seen" #/README$/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore error flagged by finalizer-error-test" #/\w+-error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/chicken/download.sh version [ba9f4a1774].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
if [ ! -e ${DOWNLOADS}/chicken-${CHICKEN_VERSION}.tar.gz ]; then
if [ "${CHICKEN_URL}" == "" ]; then
CHICKEN_URL=http://code.call-cc.org/releases/${CHICKEN_VERSION}/chicken-${CHICKEN_VERSION}.tar.gz
fi
echo "Downloading $CHICKEN_URL"
(cd ${DOWNLOADS};wget ${CHICKEN_URL})
fi
ls -l ${DOWNLOADS}/chicken-${CHICKEN_VERSION}.tar.gz
tar xfvz ${DOWNLOADS}/chicken-${CHICKEN_VERSION}.tar.gz
ls -l chicken-${CHICKEN_VERSION}
|
Added tests/installall/tests/chicken/install.logpro version [2d69c0d10e].
1 2 3 4 5 6 7 8 9 10 11 | + + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory" #/Leaving directory/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore error in some filenames" #/\w+-errors/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/chicken/install.sh version [47d124f75d].
1 2 3 4 5 6 7 8 9 10 11 | + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
# source $PREFIX
cd chicken-${CHICKEN_VERSION}
make PLATFORM=${PLATFORM} PREFIX=${PREFIX} install
ls -l ${PREFIX}/bin
|
Added tests/installall/tests/chicken/testconfig version [7dac45e334].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | + + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh compile compile.sh install install.sh # Test requirements are specified here [requirements] waiton setup # priority 10 # Iteration for your tests are controlled by the items section [items] # CHICKEN_VERSION 4.8.0 # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Download and install chicken scheme tags tagone,tagtwo reviewed never |
Added tests/installall/tests/eggs/install.logpro version [ce3aad56c4].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Last thing done is chmod ..." #/chmod /) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore someword-errors" #/\w+-error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/eggs/install.sh version [b7bf4a2122].
1 2 3 4 5 6 7 8 | + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh $PREFIX/bin/chicken-install $PROX $EGG_NAME |
Added tests/installall/tests/eggs/testconfig version [db11309e75].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] install install.sh # Test requirements are specified here [requirements] waiton chicken setup priority 9 # Iteration for your tests are controlled by the items section [items] EGG_NAME matchable readline apropos base64 regex-literals format regex-case test coops trace csv dot-locking posix-utils posix-extras directory-utils hostinfo tcp-server rpc csv-xml fmt json md5 ssax sxml-serializer sxml-modifications salmonella sql-de-lite postgresql # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Download and install eggs with no significant prerequisites tags tagone,tagtwo reviewed never |
Added tests/installall/tests/ffcall/compile.logpro version [dafe0ca4b9].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory" #/Leaving directory/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/ffcall/compile.sh version [b1f9ee8d88].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
cd ffcall
./configure --prefix=${PREFIX} --enable-shared
make
|
Added tests/installall/tests/ffcall/download.logpro version [a65f247e38].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "VERSION" #/ VERSION/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/ffcall/download.sh version [4f613a1743].
1 2 3 4 5 6 7 8 9 10 11 12 13 | + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
if ! [[ -e ${DOWNLOADS}/ffcall.tar.gz ]] ; then
(cd ${DOWNLOADS};wget http://www.kiatoa.com/matt/iup/ffcall.tar.gz )
fi
tar xfvz ${DOWNLOADS}/ffcall.tar.gz
ls -l ffcall
|
Added tests/installall/tests/ffcall/install.logpro version [dafe0ca4b9].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory" #/Leaving directory/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/ffcall/install.sh version [c40130a331].
1 2 3 4 5 6 7 8 | + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh cd ffcall make install |
Added tests/installall/tests/ffcall/testconfig version [042dbec27d].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh compile compile.sh install install.sh # Test requirements are specified here [requirements] waiton setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the ffcall library tags tagone,tagtwo reviewed never |
Added tests/installall/tests/iup/install.logpro version [c5d9baa323].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "chmod is roughly last thing that happens" #/chmod /) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore setup-error-handling" #/\w+-error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iup/install.sh version [57d94ee07e].
1 2 3 4 5 6 7 8 9 10 11 12 | + + + + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh # source $PREFIX/setup-chicken4x.sh export CSCLIBS=`echo $LD_LIBRARY_PATH | sed 's/:/ -L/g'` CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" $PREFIX/bin/chicken-install $PROX -D no-library-checks -feature disable-iup-web iup # CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" $CHICKEN_INSTALL $PROX -D no-library-checks -feature disable-iup-web -deploy -prefix $DEPLOYTARG iup # iup:1.0.2 CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" $PREFIX/bin/chicken-install $PROX -D no-library-checks canvas-draw # CSC_OPTIONS="-I$PREFIX/include -L$CSCLIBS" $CHICKEN_INSTALL $PROX -D no-library-checks -deploy -prefix $DEPLOYTARG canvas-draw |
Added tests/installall/tests/iup/testconfig version [5db24fdb23].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script"
[ezsteps]
install install.sh
# Test requirements are specified here
[requirements]
waiton iup#{getenv IUPMODE}lib tougheggs
# Iteration for your tests are controlled by the items section
[items]
# test_meta is a section for storing additional data on your test
[test_meta]
author matt
owner matt
description Install iup egg
tags tagone,tagtwo
reviewed never
|
Added tests/installall/tests/iupbinlib/compile.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupbinlib/compile.sh version [161268d5b1].
1 2 3 4 5 | + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/iupbinlib/download.logpro version [5b3da735d6].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "README file should show up" #/README/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupbinlib/download.sh version [f2ee3d4aa3].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
# source $PREFIX/setup-chicken4x.sh
if [[ `uname -a | grep x86_64` == "" ]]; then
export ARCHSIZE=''
else
export ARCHSIZE=64_
fi
# export files="cd-5.4.1_Linux${IUPLIB}_lib.tar.gz im-3.6.3_Linux${IUPLIB}_lib.tar.gz iup-3.5_Linux${IUPLIB}_lib.tar.gz"
if [[ x$USEOLDIUP == "x" ]];then
export files="cd-5.5.1_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz im-3.8_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz iup-3.6_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz"
else
echo WARNING: Using old IUP libraries
export files="cd-5.4.1_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz im-3.6.3_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz iup-3.5_Linux${IUPLIB}_${ARCHSIZE}lib.tar.gz"
fi
mkdir -p $PREFIX/iuplib
for a in `echo $files` ; do
if ! [[ -e ${DOWNLOADS}/$a ]] ; then
(cd ${DOWNLOADS};wget http://www.kiatoa.com/matt/iup/$a)
fi
echo Untarring $a into $PREFIX/lib
(cd $PREFIX/lib;tar xfvz ${DOWNLOADS}/$a;mv include/* ../include)
done
|
Added tests/installall/tests/iupbinlib/install.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupbinlib/install.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/iupbinlib/testconfig version [f1c92a67e2].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh # Test requirements are specified here [requirements] waiton ffcall setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the iup library if it is not already installed tags tagone,tagtwo reviewed never |
Added tests/installall/tests/iupbinlib/untar.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupbinlib/untar.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/iupsrclib/cd.logpro version [de3fb33d93].
1 2 3 | + + + | (expect:ignore in "LogFileBody" >= 0 "Ignore these binary operator errors for now" #/error: missing binary operator/) (load "compile.logpro") |
Added tests/installall/tests/iupsrclib/compile.logpro version [b41da09609].
1 2 3 4 5 6 7 8 9 10 11 12 | + + + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Completed signature" #/(Dynamic Library.*Done|Leaving directory|Nothing to be done)/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore files with error in name" #/error.[ch]/) (expect:ignore in "LogFileBody" >= 0 "Ignore files with errors in name" #/errors.[ch]/) (expect:ignore in "LogFileBody" >= 0 "Ignore files with warn in name" #/warning.[ch]/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupsrclib/compile.sh version [f015809a0b].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
pkg=$1
source $PREFIX/buildsetup.sh
export LUA_SUFFIX=
export LUA_INC=$MT_TEST_RUN_DIR/lua52/include
if [[ $pkg == "lua52" ]]; then
(cd $pkg/src;make $PLATFORM)
else
(cd $pkg/src;make)
fi
|
Added tests/installall/tests/iupsrclib/download.logpro version [df3583cb3b].
1 2 3 4 5 6 7 8 9 10 11 12 13 | + + + + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "README file should show up" #/README/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore files with error in name" #/error.[ch]/) (expect:ignore in "LogFileBody" >= 0 "Ignore files with errors in name" #/errors.[ch]/) (expect:ignore in "LogFileBody" >= 0 "Ignore files with warn in name" #/warning.[ch]/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupsrclib/download.sh version [ad6ad0c176].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
mkdir -p $PREFIX/iuplib
for a in cd-5.6.1_Sources.tar.gz im-3.8.1_Sources.tar.gz iup-3.8_Sources.tar.gz lua-5.2.1_Sources.tar.gz; do
if ! [[ -e ${DOWNLOADS}/$a ]] ; then
(cd ${DOWNLOADS};wget http://www.kiatoa.com/matt/iup/$a)
fi
tar xfvz ${DOWNLOADS}/$a
done
find . -type d -exec chmod ug+x {} \;
|
Added tests/installall/tests/iupsrclib/im.logpro version [5f1496c62a].
1 | + | (load "compile.logpro") |
Added tests/installall/tests/iupsrclib/install.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupsrclib/install.sh version [f3584b2f09].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | + + + + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh # The so files cp -f im/lib/Linux26g4/*.so $PREFIX/lib cp -f cd/lib/Linux26g4/*.so $PREFIX/lib cp -f iup/lib/Linux26g4/*.so $PREFIX/lib # The development files mkdir -p $PREFIX/include/im cp -fR im/include/*.h $PREFIX/include/im cp -f im/lib/Linux26g4/*.a $PREFIX/lib mkdir -p $PREFIX/include/cd cp -f cd/include/*.h $PREFIX/include/cd cp -f cd/lib/Linux26g4/*.a $PREFIX/lib mkdir -p /usr/include/iup cp -f iup/include/*.h $PREFIX/include/iup cp -f iup/lib/Linux26g4/*.a $PREFIX/lib |
Added tests/installall/tests/iupsrclib/iup.logpro version [d60fae9ebf].
1 2 3 | + + + | (expect:ignore in "LogFileBody" >= 0 "Ignore these binary operator errors for now" #/error: missing binary operator/ expires: "10/10/2013") (load "compile.logpro") |
Added tests/installall/tests/iupsrclib/lua.logpro version [5f1496c62a].
1 | + | (load "compile.logpro") |
Added tests/installall/tests/iupsrclib/testconfig version [1d7cd86274].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | + + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh lua compile.sh lua52 im compile.sh im cd compile.sh cd iup compile.sh iup # Test requirements are specified here [requirements] waiton ffcall setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the iup library if it is not already installed tags tagone,tagtwo reviewed never |
Added tests/installall/tests/iupsrclib/untar.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/iupsrclib/untar.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/mmisc/clone.logpro version [c92957c5fd].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Output from fossil" #/^repository:\s+/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/i) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/mmisc/clone.sh version [a61e06ec47].
1 2 3 4 5 6 7 8 9 10 11 | + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
fossil clone http://www.kiatoa.com/fossils/$FSLPKG $FSLPKG.fossil
mkdir src
cd src
fossil open ../$FSLPKG.fossil --nested
fossil co ${$FSLPKG}_VERSION}
|
Added tests/installall/tests/mmisc/install.logpro version [1f5310e869].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Always get a chmod at the end of install" #/chmod.*logpro.setup-info/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in setup-error-handling" #/setup-error-handling/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/i) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/mmisc/install.sh version [6fa1a37e4b].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | + + + + + + + + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh cd src if [ $FSLPKG == "logpro" ];then chicken-install elif [ $FSLPKG == "stml" ];then cp install.cfg.template install.cfg cp requirements.scm.template requirements.scm make make install else make make install PREFIX=$PREFIX fi |
Added tests/installall/tests/mmisc/testconfig version [e2a1711886].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] clone clone.sh install install.sh # Test requirements are specified here [requirements] waiton eggs setup # Iteration for your tests are controlled by the items section [items] FSLPKG logpro stml megatest # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the logpro tool tags tagone,tagtwo reviewed never |
Added tests/installall/tests/opensrc/clone.logpro version [c7d0c07345].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Output from fossil" (list #/^repository:\s+/ #/comment:/)) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/i) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/opensrc/clone.sh version [3a6c7e5a01].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | + + + + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh parentdir=$MT_LINKTREE/$MT_TARGET/$MT_RUNNAME lockfile $parentdir/clone.lock if [ ! -e $parentdir/opensrc.fossil ];then fossil clone http://www.kiatoa.com/fossils/opensrc $parentdir/opensrc.fossil fi if [ ! -e $parentdir/src/dbi ];then mkdir -p $parentdir/src (cd $parentdir/src;fossil open $parentdir/opensrc.fossil --nested) else (cd $parentdir/src;fossil sync;fossil co trunk;fossil status) fi rm -f $parentdir/clone.lock ln -sf $parentdir/src $MT_TEST_RUN_DIR/src |
Added tests/installall/tests/opensrc/install.logpro version [78dae7a202].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Always get a chmod at the end of install" #/chmod.*.setup-info/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in setup-error-handling" #/setup-error-handling/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/i) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/opensrc/install.sh version [0a2e83707c].
1 2 3 4 5 6 | + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh cd src/$MODULE_NAME chicken-install |
Added tests/installall/tests/opensrc/testconfig version [f020005b2c].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] clone clone.sh install install.sh # Test requirements are specified here [requirements] waiton eggs setup sqlite3 # Iteration for your tests are controlled by the items section [items] MODULE_NAME dbi margs qtree vcd xfig mutils # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the eggs from the opensrc fossil tags tagone,tagtwo reviewed never |
Added tests/installall/tests/setup/setup.logpro version [ce8667656b].
1 2 3 4 5 6 7 8 9 10 | + + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "ALL DONE" #/ALL DONE$/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/setup/setup.sh version [70b95f9196].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash # Run your step here cksetupsh=$PREFIX/setup-chicken4x.sh cksetupcsh=$PREFIX/setup-chicken4x.csh setupsh=$PREFIX/buildsetup.sh # make a cache dir mkdir -p $DOWNLOADS mkdir -p $PREFIX # File for users to source to run chicken echo "# Source me to setup to to run chicken" > $cksetupsh echo "export PATH=$PREFIX/bin:\$PATH" > $cksetupsh echo "export LD_LIBRARY_PATH=$PREFIX/lib" >> $cksetupsh # tcsh version echo "setenv PATH $PREFIX/bin:\$PATH" > $cksetupcsh echo "setenv LD_LIBRARY_PATH $PREFIX/lib" >> $cksetupcsh # File to source for build process echo "export PATH=$PREFIX/bin:\$PATH" > $setupsh echo "export LD_LIBRARY_PATH=$PREFIX/lib" >> $setupsh if [[ $proxy == "" ]]; then echo 'Please set the environment variable "proxy" to host.com:port (e.g. foo.com:1234) to use a proxy' else echo "export http_proxy=http://$proxy" >> $setupsh echo "export PROX=\"-proxy $proxy\"" >> $setupsh fi echo "export PREFIX=$PREFIX" >> $setupsh echo ALL DONE |
Added tests/installall/tests/setup/testconfig version [27705aefdb].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] setup setup.sh # Test requirements are specified here [requirements] # priority 10 # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Download and install chicken scheme tags tagone,tagtwo reviewed never |
Added tests/installall/tests/sqlite3/compile.logpro version [1d01bbbbd5].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory" #/(Leaving directory|Nothing to be done for|creating sqlite3)/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore strerror_r" #/strerror_r/i) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/sqlite3/compile.sh version [e12d00dc21].
1 2 3 4 5 6 7 8 9 10 | + + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh cd sqlite-autoconf-$SQLITE3_VERSION ./configure --prefix=$PREFIX make |
Added tests/installall/tests/sqlite3/download.logpro version [39413dc315].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "sqlite-autoconf" #/sqlite-autoconf/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/sqlite3/download.sh version [f2f624d46c].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Run your step here
source $PREFIX/buildsetup.sh
echo Install sqlite3
if ! [[ -e ${DOWNLOADS}/sqlite-autoconf-${SQLITE3_VERSION}.tar.gz ]]; then
(cd ${DOWNLOADS};wget http://www.sqlite.org/sqlite-autoconf-${SQLITE3_VERSION}.tar.gz)
fi
tar xfz ${DOWNLOADS}/sqlite-autoconf-${SQLITE3_VERSION}.tar.gz
ls -l sqlite-autoconf-${SQLITE3_VERSION}.tar.gz
|
Added tests/installall/tests/sqlite3/install.logpro version [dafe0ca4b9].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Leaving directory" #/Leaving directory/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/sqlite3/install.sh version [c5cbfd9758].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh cd sqlite-autoconf-$SQLITE3_VERSION make install |
Added tests/installall/tests/sqlite3/installegg.logpro version [739280ede6].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "chmod sqlite3" #/chmod.*sqlite3/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore setup-error-handling" #/setup-error-handling/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/sqlite3/installegg.sh version [c022c1b5fd].
1 2 3 4 5 6 7 | + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" $PREFIX/bin/chicken-install $PROX sqlite3 |
Added tests/installall/tests/sqlite3/testconfig version [a8be7a5282].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | + + + + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh compile compile.sh install install.sh installegg installegg.sh # Test requirements are specified here [requirements] # We waiton chicken because this one installs the egg. It would behove us to split this # into two tests ... waiton tougheggs priority 2 # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install sqlite3 library for systems where it is not installed tags tagone,tagtwo reviewed never |
Added tests/installall/tests/tougheggs/install.logpro version [ce3aad56c4].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Last thing done is chmod ..." #/chmod /) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" >= 0 "Ignore someword-errors" #/\w+-error/) (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/tougheggs/install.sh version [7f9ea04779].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh lockfile $PREFIX/eggs.lock $PREFIX/bin/chicken-install $PROX $EGG_NAME rm -f $PREFIX/eggs.lock |
Added tests/installall/tests/tougheggs/testconfig version [e1e673d39f].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] install install.sh # Test requirements are specified here [requirements] waiton eggs # Iteration for your tests are controlled by the items section [items] EGG_NAME intarweb http-client awful uri-common spiffy-request-vars spiffy apropos spiffy-directory-listing # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Download and install eggs with no significant prerequisites tags tagone,tagtwo reviewed never |
Added tests/installall/tests/zmq/install.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/zmq/install.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/zmq/testconfig version [61b477c9b8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] install install.sh # Test requirements are specified here [requirements] waiton zmqlib chicken setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the zmq egg tags tagone,tagtwo reviewed never |
Added tests/installall/tests/zmqlib/compile.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/zmqlib/compile.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/zmqlib/download.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/zmqlib/download.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/zmqlib/install.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/zmqlib/install.sh version [161268d5b1].
1 2 3 4 5 | + + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/installall/tests/zmqlib/testconfig version [fcfbb2efb3].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | + + + + + + + + + + + + + + + + + + + + + | # Add additional steps here. Format is "stepname script" [ezsteps] download download.sh untar untar.sh compile compile.sh install install.sh # Test requirements are specified here [requirements] waiton setup # Iteration for your tests are controlled by the items section [items] # test_meta is a section for storing additional data on your test [test_meta] author matt owner matt description Install the zmq library if it doesn't already exist tags tagone,tagtwo reviewed never |
Added tests/installall/tests/zmqlib/untar.logpro version [da3117435b].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "Put description here" #/put pattern here/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/i)) ;; but disallow any other errors |
Added tests/installall/tests/zmqlib/untar.sh version [f8d37254ad].
1 2 3 4 | + + + + | #!/usr/bin/env bash # Run your step here source $PREFIX/buildsetup.sh |
Added tests/mintest/megatest.config version [24752ab48d].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | + + + + + + + + + + + + + + + + | [fields]
X TEXT
[setup]
max_concurrent_jobs 50
linktree #{getenv PWD}/linktree
[server]
port 8090
[jobtools]
useshell yes
launcher nbfind
[disks]
disk0 #{getenv PWD}/runs
|
Added tests/mintest/runconfigs.config version [40b4b21352].
1 2 3 4 5 6 | + + + + + + | [default] ALLTESTS see this variable # Your variables here are grouped by targets [SYSTEM/RELEASE] [a] ANOTHERVAR only defined if target is "a" |
Added tests/mintest/tests/a/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/mintest/tests/a1/testconfig version [9ca81e5ed7].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b1 |
Added tests/mintest/tests/b/testconfig version [6534ef153f].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton c |
Added tests/mintest/tests/b1/testconfig version [4b7d232216].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton c1 |
Added tests/mintest/tests/c/testconfig version [edfeef7824].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton d |
Added tests/mintest/tests/c1/testconfig version [7cc87abb7f].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton d1fail |
Added tests/mintest/tests/d/testconfig version [7572bd1520].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton e |
Added tests/mintest/tests/d1fail/testconfig version [896a37e3bb].
1 2 3 4 5 6 7 | + + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS step2 exit 123 [requirements] waiton e1 |
Added tests/mintest/tests/e/testconfig version [8e71a3916a].
1 2 3 4 | + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS |
Added tests/mintest/tests/e1/testconfig version [8e71a3916a].
1 2 3 4 | + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS |
Added tests/mintest/tests/f/testconfig version [8af865d5b6].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton |
Added tests/mintest/tests/g/testconfig version [1fecef7a7b].
1 2 3 4 5 6 7 8 9 | + + + + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b [items] NADA |
Added tests/mintest/tests/h/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/mintest/tests/i/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/mintest/tests/j/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/mintest/tests/k/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/mintest/tests/l/testconfig version [facb7c910d].
1 2 3 4 5 6 | + + + + + + | # Add steps here. Format is "stepname script" [ezsteps] step1 echo SUCCESS [requirements] waiton b |
Added tests/resources/ruby/librunscript.rb version [a529a5a104].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | # This is the library of stuff for megatest
def run_and_record(stepname, cmd, checks)
system "megatest -step #{stepname} :state start :status n/a"
system cmd
exitcode=$?
if exitcode==0
exitcode='pass'
else
exitcode='fail'
end
system "megatest -step #{stepname} :state end :status #{exitcode}"
end
def record_step(stepname,state,status)
system "megatest -step #{stepname} :state #{state} :status #{status}"
end
def test_status(state,status)
system "megatest -test-status :state #{state} :status #{status}"
end
# WARNING: This example is deprecated. Don't use the -test-status command
# unless you know for sure what you are doing.
def file_size_checker(stepname,filename,minsize,maxsize)
fsize=File.size(filename)
if fsize > maxsize or fsize < minsize
system "megatest -test-status :state COMPLETED :status fail"
else
system "megatest -test-status :state COMPLETED :status pass"
end
end
def wait_for_step(testname,stepname)
end
|
Modified tests/simplerun/tests/test1/step1.logpro from [22f12ee837] to [3a7d1def42].
1 | 1 2 3 4 5 6 7 8 | - + | ;; You should have at least one expect:required. This ensures that your process ran |
Modified tests/simplerun/tests/test1/step1.sh from [a96d5c2635] to [c71fbc7484].
1 2 3 4 | 1 2 3 4 5 | + | #!/usr/bin/env bash # Run your step here echo Got here! |
Modified tests/simplerun/tests/test1/step2.logpro from [22f12ee837] to [3a7d1def42].
1 | 1 2 3 4 5 6 7 8 | - + | ;; You should have at least one expect:required. This ensures that your process ran |
Modified tests/simplerun/tests/test1/step2.sh from [b3e19b3724] to [97ecbea6c6].
1 2 3 4 5 | 1 2 3 4 5 6 | + | #!/usr/bin/env bash # Run your step here echo Got here eh! |
Modified tests/simplerun/tests/test2/step1.logpro from [22f12ee837] to [3a7d1def42].
1 | 1 2 3 4 5 6 7 8 | - + | ;; You should have at least one expect:required. This ensures that your process ran |
Modified tests/simplerun/tests/test2/step2.logpro from [22f12ee837] to [3a7d1def42].
1 | 1 2 3 4 5 6 7 8 | - + | ;; You should have at least one expect:required. This ensures that your process ran |
Added tests/speedtest/megatest.config version [7467c22f06].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | [fields]
sysname TEXT
fsname TEXT
datapath TEXT
[setup]
transport #{scheme (if (getenv "USEHTTP") "http" "fs")}
max_concurrent_jobs 50
# It is possible (but not recommended) to override the rsync command used
# to populate the test directories. For test development the following
# example can be useful
#
testcopycmd cp --remove-destination -rsv TEST_SRC_PATH/. TEST_TARG_PATH/. >> TEST_TARG_PATH/mt_launch.log 2>> TEST_TARG_PATH/mt_launch.log
# FULL or 2, NORMAL or 1, OFF or 0
synchronous OFF
# override the logview command
#
logviewer (%MTCMD%) 2> /dev/null > /dev/null
# override the html viewer launch command
#
# htmlviewercmd firefox -new-window
htmlviewercmd konqueror
[jobtools]
launcher nbfake
[server]
# If the server can't be started on this port it will try the next port until
# it succeeds
port 8080
# This server will keep running this number of hours after last access.
# Three minutes is 0.05 hours
timeout 0.025
## disks are:
## name host:/path/to/area
## -or-
## name /path/to/area
[disks]
disk0 #{getenv MT_RUN_AREA_HOME}/tmp_run
|
Added tests/speedtest/runconfigs.config version [0df59726be].
1 2 3 | + + + | [default] SOMEVAR This should show up in SOMEVAR3 |
Added tests/speedtest/tests/speedtest/main.sh version [a0890e7c55].
1 2 3 4 5 6 7 8 9 10 | + + + + + + + + + + | #!/bin/bash # a bunch of steps in 2 second increments for i in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17;do $MT_MEGATEST -step step$i :state start :status running -setlog results$i.html sleep $TEST_DELAY $MT_MEGATEST -step step$i :state end :status 0 done exit 0 |
Added tests/speedtest/tests/speedtest/testconfig version [b5ced43bad].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | + + + + + + + + + + + + + + + + + + | [setup] runscript main.sh [requirements] priority 1 [items] SETLOG 0 1 TEST_DELAY 0 1 2 3 4 5 6 7 8 9 10 ITERATIONS 0 1 2 3 4 5 6 7 8 9 10 [test_meta] author matt owner bob description This test checks that a multi-lineitem test with mix of pass and non-fail rolls up a PASS tags first,single reviewed 09/10/2011, by Matt |
Added tests/test7.logpro version [4938e4fafc].
1 2 3 4 5 6 7 8 | + + + + + + + + | ;; You should have at least one expect:required. This ensures that your process ran (expect:required in "LogFileBody" > 0 "All tests launched" #/INFO:.*All tests launched/) ;; You may need ignores to suppress false error or warning hits from the later expects ;; NOTE: Order is important here! (expect:ignore in "LogFileBody" < 99 "Ignore the word error in comments" #/^\/\/.*error/) (expect:warning in "LogFileBody" = 0 "Any warning" #/warn/) (expect:error in "LogFileBody" = 0 "Any error" (list #/ERROR/ #/error/)) ;; but disallow any other errors |
Modified tests/tests.scm from [17571516a2] to [18c56c70d8].
9 10 11 12 13 14 15 | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | - - + + |
;; strftime('%m/%d/%Y %H:%M:%S','now','localtime')
(require-extension test)
(require-extension regex)
(require-extension srfi-18)
(import srfi-18)
|
53 54 55 56 57 58 59 | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | - - - - + + + + - + - + - - + + - + + + + + + + + - - - + + + - - - - - - - - - + + - | ;; tests:match (test #f #t (tests:match "abc/def" "abc" "def")) (for-each (lambda (patterns testname itempath expected) (test (conc patterns " " testname "/" itempath "=>" expected) expected (tests:match patterns testname itempath))) |
167 168 169 170 171 172 173 | 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 | - + - - - - - - - + + + + + + + - - + + | (test #f #f (cdb:roll-up-pass-fail-counts *runremote* 1 "test1" "" "PASS")) ;; (set! *verbosity* 1) ;; (cdb:set-verbosity *runremote* *verbosity*) (test "get all legal tests" (list "test1" "test2") (sort (get-all-legal-tests) string<=?)) |
234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 | 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 | + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + + - - - + + + + - + + + - + + + + + + + + + + + - - - - - + + + + + | ; (hash-table-set! args:arg-hash "-keepgoing" #t) (hash-table-set! args:arg-hash "-itempatt" "%") (hash-table-set! args:arg-hash "-testpatt" "%") (hash-table-set! args:arg-hash "-target" "ubuntu/r1.2") (test "Setup for a run" #t (begin (setup-for-run) #t)) (define *tdb* #f) (define keyvals #f) (test "target->keyval" #t (let ((kv (keys:target->keyval keys (args:get-arg "-target")))) (set! keyvals kv)(list? keyvals))) (define testdbpath (conc "/tmp/" (getenv "USER") "/megatest_testing")) (system (conc "rm -f " testdbpath "/testdat.db;mkdir -p " testdbpath)) (print "Using " testdbpath " for test db") (test #f #t (let ((db (open-test-db testdbpath))) (set! *tdb* db) (sqlite3#database? db))) (sqlite3#finalize! *tdb*) ;; (test "Remove the rollup run" #t (begin (remove-runs) #t)) (define tconfig #f) (test "get a testconfig" #t (let ((tconf (tests:get-testconfig "test1" 'return-procs))) (set! tconfig tconf) (hash-table? tconf))) (db:clean-all-caches) |
388 389 390 391 392 393 394 | 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 | + + + + + - + | #t)) (hash-table-set! args:arg-hash ":runname" "%") (test "Remove the rollup run" #t (begin (operate-on 'remove-runs))) (print "Waiting for server to be done, should be about 20 seconds") (test "server stop" #f (let ((hostname (car *runremote*)) (port (cadr *runremote*))) (tasks:kill-server #t hostname port server-pid 'http) (open-run-close tasks:get-best-server tasks:open-db))) |
Added tree.scm version [e7e38b65a4].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ;;======================================================================
;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
(use format)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))
(declare (unit tree))
(declare (uses margs))
(declare (uses launch))
(declare (uses megatest-version))
(declare (uses gutils))
(declare (uses db))
(declare (uses server))
(declare (uses synchash))
(declare (uses dcommon))
(include "common_records.scm")
(include "db_records.scm")
(include "key_records.scm")
;;======================================================================
;; T R E E S T U F F
;;======================================================================
;; path is a list of nodes, each the child of the previous
;; this routine returns the id so another node can be added
;; either as a leaf or as a branch
;;
;; BUG: This needs a stop sensor for when a branch is exhausted
;;
(define (tree:find-node obj path)
;; start at the base of the tree
(if (null? path)
#f ;; or 0 ????
(let loop ((hed (car path))
(tal (cdr path))
(depth 0)
(nodenum 0))
;; nodes in iup tree are 100% sequential so iterate over nodenum
(if (iup:attribute obj (conc "DEPTH" nodenum)) ;; end when no more nodes
(let ((node-depth (string->number (iup:attribute obj (conc "DEPTH" nodenum))))
(node-title (iup:attribute obj (conc "TITLE" nodenum))))
(if (and (equal? depth node-depth)
(equal? hed node-title)) ;; yep, this is the one!
(if (null? tal) ;; end of the line
nodenum
(loop (car tal)(cdr tal)(+ depth 1)(+ 1 nodenum)))
;; this is the case where we found part of the hierarchy but not
;; all of it, i.e. the node-depth went from deep to less deep
(if (> depth node-depth) ;; (+ 1 node-depth))
#f
(loop hed tal depth (+ nodenum 1)))))
#f))))
;; top is the top node name zeroeth node VALUE=0
(define (tree:add-node obj top nodelst #!key (userdata #f))
(if (not (iup:attribute obj "TITLE0"))
(iup:attribute-set! obj "ADDBRANCH0" top))
(cond
((not (string=? top (iup:attribute obj "TITLE0")))
(print "ERROR: top name " top " doesn't match " (iup:attribute obj "TITLE0")))
((null? nodelst))
(else
(let loop ((hed (car nodelst))
(tal (cdr nodelst))
(depth 1)
(pathl (list top)))
;; Because the tree dialog changes node numbers when
;; nodes are added or removed we must look up nodes
;; each and every time. 0 is the top node so default
;; to that.
(let* ((newpath (append pathl (list hed)))
(parentnode (tree:find-node obj pathl))
(nodenum (tree:find-node obj newpath)))
;; Add the branch under lastnode if not found
(if (not nodenum)
(begin
(iup:attribute-set! obj (conc "ADDBRANCH" parentnode) hed)
(if userdata
(iup:attribute-set! obj (conc "USERDATA" parentnode) userdata))
(if (null? tal)
#t
;; reset to top
(loop (car nodelst)(cdr nodelst) 1 (list top))))
(if (null? tal) ;; if null here then this path has already been added
#t
(loop (car tal)(cdr tal)(+ depth 1) newpath))))))))
(define (tree:node->path obj nodenum)
(let loop ((currnode 0)
(path '()))
(let* ((node-depth (string->number (iup:attribute obj (conc "DEPTH" currnode))))
(node-title (iup:attribute obj (conc "TITLE" currnode)))
(trimpath (if (and (not (null? path))
(> (length path) node-depth))
(take path node-depth)
path))
(newpath (append trimpath (list node-title))))
(if (>= currnode nodenum)
newpath
(loop (+ currnode 1)
newpath)))))
|
Added txtdb/metadat.scm version [af09f06325].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (define minimal-sxml
'(*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")
(http://www.gnumeric.org/v10.dtd:Workbook
(@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v9.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "17") (Major "10") (Full "1.10.17") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:document-meta
(@ (urn:oasis:names:tc:opendocument:xmlns:office:1.0:version "1.2"))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:meta
(http://purl.org/dc/elements/1.1/:date "2013-07-26T05:41:51Z")
(urn:oasis:names:tc:opendocument:xmlns:meta:1.0:creation-date
"2013-07-26T05:41:10Z")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(FloatRadix "2")
(FloatDigits "53")
(EnableIteration "1")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"Sheet1"))
(http://www.gnumeric.org/v10.dtd:Geometry
(@ (Width "1440") (Height "647")))
(http://www.gnumeric.org/v10.dtd:Sheets
(http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:Name "Sheet1")
(http://www.gnumeric.org/v10.dtd:MaxCol "-1")
(http://www.gnumeric.org/v10.dtd:MaxRow "-1")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"Sheet1\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:left
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles
(@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0")
(startCol "0")
(endRow "65535")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols (@ (DefaultSizePts "48")))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75")))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:Cells)
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0")))))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "0"))))))
(define sheet-meta
'(http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "8")
(http://www.gnumeric.org/v10.dtd:MaxRow "18")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"First_Sheet\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "1") (startCol "0") (endRow "17") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "hh\":\"mm\":\"ss AM/PM")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "18") (startCol "0") (endRow "31") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "32") (startCol "0") (endRow "255") (endCol "7"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "256") (startCol "0") (endRow "65535") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "2") (endRow "1") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "2") (startCol "2") (endRow "17") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "0")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "3") (endRow "31") (endCol "7"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "8") (endRow "255") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "64") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "48") (No "0")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "99") (No "1") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "2") (Count "7"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.64") (No "0")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "1") (Count "17")))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.1") (No "18"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "3") (CursorCol "1"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "3") (startCol "1") (endRow "3") (endCol "1"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout
(@ (TopLeft "A2"))
(http://www.gnumeric.org/v10.dtd:FreezePanes
(@ (UnfrozenTopLeft "A2") (FrozenTopLeft "A1"))))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0")))))
(define sheets-meta
'((@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v9.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "17") (Major "10") (Full "1.10.17") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:document-meta
(@ (urn:oasis:names:tc:opendocument:xmlns:office:1.0:version "1.2"))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:meta
(http://purl.org/dc/elements/1.1/:date "2013-07-26T04:47:02Z")
(urn:oasis:names:tc:opendocument:xmlns:meta:1.0:creation-date
"2013-07-26T04:46:14Z")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(FloatRadix "2")
(FloatDigits "53")
(EnableIteration "1")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"First_Sheet")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"Second-sheet")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"RunsToDo")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"RunsToLock"))
(http://www.gnumeric.org/v10.dtd:Geometry (@ (Width "1440") (Height "647")))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "1")))))
(define workbook-meta
'(*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")))
|
Added txtdb/nada3/First_Sheet.dat version [b680ed8dff].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | [Time] BLANKVAL A 0.324305555555556 B 0.33125 C 0.334722222222222 D 0.336805555555556 E 0.338888888888889 F 0.340972222222222 G 0.343055555555556 H 0.345833333333333 I 0.347916666666667 J 0.351388888888889 K 0.366666666666667 L 0.379166666666667 M 0.395833333333333 N 0.422222222222222 O 0.452083333333333 P 0.491666666666667 Q 0.570833333333333 [DeltaTime] A 0 B =days(B3,$B$2)*24*60 C D E F G H I J K L M N O P Q [Ambient] A 35.4 B 35.4 C 35 D 35 E 35 F 35 G 35 H 36 I 36 J 37 K 37 L 38 M 39 N 40 O 41 P 41 Q 41.5 [Firebox] A 34.3 B 72 C 100 D 130 E 145 F 150 G 150 H 158 I 156 J 152 K 134 L 117 M 100 N 91 O 79 P 68 Q 51 [2nd_row] A 34.3 B 60 C 90 D 116 E 121 F 125 G 128 H 129 I 128 J 126 K 117 L 108 M 100 N 90 O 78 P 63 Q 51 [3rd_row] A 34.1 B 42 C 57 D 69 E 73 F 78 G 82 H 86 I 87 J 89 K 94 L 96 M 93 N 88 O 77 P 64 Q 51 [4th_row] A 34 B 39 C 46 D 52 E 54 F 56 G 60 H 62 I 65 J 67 K 77 L 82 M 82 N 81 O 72 P 62 Q 51 [Exit] A 34 B 68 C 68 D 68 E 68 F 68 G 69 H 70 I 72 J 75 K 107 L 106 M 106 N 100 O 79 P 68 Q 51 |
Added txtdb/nada3/RunsToDo.dat version [3e0737c065].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | + + + + + + + + + + + + + + + | [a/b/c] 123 a 456 b 789 c [d/e/f] 123 e 456 f 789 g [g/h/i] 123 h 456 i 789 j |
Added txtdb/nada3/RunsToLock.dat version [9e39b39de9].
1 2 3 4 5 6 7 8 9 10 11 | + + + + + + + + + + + | [def] ghi jkl qrst uvwx yz12 [mno] abc def xyz jkl mnop |
Added txtdb/nada3/Second-sheet.dat version [6499ddd193].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | [2] V2 X V6 Y V8 Z V12 E V15 B V17 + [A1] V8 Z V17 = # Just a test really # V1 X V3 X V5 Y V7 Y V10 Z V11 E V13 E V14 B V16 B [3] V2 John, V6 Tom V8 Fred V17 ~ # a deeply held belief is a danger to sanity # V4 X row-11 Z row-18 B |
Added txtdb/nada3/Sheet3.dat version [2e8bf819e7].
1 2 3 4 5 6 7 8 | + + + + + + + + | [zeroth title] row1name row2name [col1title] row1name row1value row2nameNoValue row3name row3value |
Added txtdb/nada3/sheet-names.cfg version [380375514f].
1 2 3 4 | + + + + | First_Sheet Second-sheet RunsToDo RunsToLock |
Added txtdb/nada3/sxml/First_Sheet.sxml version [4c684f65f1].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "8")
(http://www.gnumeric.org/v10.dtd:MaxRow "19")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"First_Sheet\"")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "Pt") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "4096") (startCol "0") (endRow "65535") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "4") (endRow "255") (endCol "15"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "32") (startCol "0") (endRow "255") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "2") (startCol "2") (endRow "17") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "0")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "3") (endRow "31") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "1") (startCol "0") (endRow "17") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "hh\":\"mm\":\"ss AM/PM")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "18") (startCol "0") (endRow "31") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "16") (endRow "4095") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "2") (endRow "1") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "64") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "256") (startCol "0") (endRow "4095") (endCol "15"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0")))))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "0") (MarginB "2") (MarginA "2")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "99") (No "1") (MarginB "2") (MarginA "2") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "2") (MarginB "2") (MarginA "2") (Count "7"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.64") (No "0") (MarginB "0") (MarginA "0")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "1") (MarginB "0") (MarginA "0") (Count "17")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.1") (No "18") (MarginB "0") (MarginA "0") (Count "2"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "3") (CursorCol "1"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "3") (startCol "1") (endRow "3") (endCol "1"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout
(@ (TopLeft "A2"))
(http://www.gnumeric.org/v10.dtd:FreezePanes
(@ (UnfrozenTopLeft "A2") (FrozenTopLeft "A1"))))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ShowIter "0")
(SensitivityR "0")
(ProgramR "0")
(ProblemType "0")
(PerformR "0")
(NonNeg "1")
(MaxTime "60")
(MaxIter "1000")
(LimitsR "0")
(Discr "0")
(AutoScale "0")
(AnswerR "0"))))
|
Added txtdb/nada3/sxml/RunsToDo.sxml version [670e476878].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "3")
(http://www.gnumeric.org/v10.dtd:MaxRow "4")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"RunsToDo\"")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top (@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "Pt") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0")))))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "0") (MarginB "2") (MarginA "2") (Count "4"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "0") (MarginB "0") (MarginA "0") (Count "4")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.75") (No "4") (MarginB "0") (MarginA "0"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "3") (CursorCol "2"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "3") (startCol "2") (endRow "3") (endCol "2"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ShowIter "0")
(SensitivityR "0")
(ProgramR "0")
(ProblemType "0")
(PerformR "0")
(NonNeg "1")
(MaxTime "60")
(MaxIter "1000")
(LimitsR "0")
(Discr "0")
(AutoScale "0")
(AnswerR "0"))))
|
Added txtdb/nada3/sxml/RunsToLock.sxml version [fedfcd13be].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "1")
(http://www.gnumeric.org/v10.dtd:MaxRow "1")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top (@ (PrefUnit "cm") (Points "120")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "cm") (Points "120"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[TAB]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "Page &[PAGE]") (Left ""))))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0")))))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "0") (MarginB "2") (MarginA "2") (Count "2"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.75"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.75") (No "0") (MarginB "0") (MarginA "0") (Count "2"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ShowIter "0")
(SensitivityR "0")
(ProgramR "0")
(ProblemType "1")
(PerformR "0")
(NonNeg "1")
(MaxTime "0")
(MaxIter "0")
(LimitsR "0")
(Inputs "")
(Discr "0")
(AutoScale "0")
(AnswerR "0"))))
|
Added txtdb/nada3/sxml/Second-sheet.sxml version [f87c23eec3].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "3")
(http://www.gnumeric.org/v10.dtd:MaxRow "21")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"Second-sheet\"")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "Pt") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "Pt") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "4096") (startCol "0") (endRow "65535") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "4") (endRow "255") (endCol "15"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "32") (startCol "0") (endRow "255") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "17") (startCol "3") (endRow "31") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "31") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "16") (startCol "3") (endRow "16") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "1")
(Rotation "0")
(PatternColor "FFFF:FFFF:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:CCCC:0"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "16") (endRow "4095") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "64") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "1") (startCol "3") (endRow "15") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "3") (endRow "0") (endCol "3"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "28")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0"))))))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "256") (startCol "0") (endRow "4095") (endCol "15"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")
(http://www.gnumeric.org/v10.dtd:StyleBorder
(http://www.gnumeric.org/v10.dtd:Top (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Bottom (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Left (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Right (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Diagonal (@ (Style "0")))
(http://www.gnumeric.org/v10.dtd:Rev-Diagonal (@ (Style "0")))))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "0") (MarginB "2") (MarginA "2")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "1") (MarginB "2") (MarginA "2")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "99") (No "2") (MarginB "2") (MarginA "2") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "227.2") (No "3") (MarginB "2") (MarginA "2") (HardSize "1"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "60") (No "0") (MarginB "0") (MarginA "0") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "1") (MarginB "0") (MarginA "0") (Count "17")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.1") (No "18") (MarginB "0") (MarginA "0") (Count "4"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "3"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "3") (endRow "0") (endCol "3"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ShowIter "0")
(SensitivityR "0")
(ProgramR "0")
(ProblemType "0")
(PerformR "0")
(NonNeg "1")
(MaxTime "60")
(MaxIter "1000")
(LimitsR "0")
(Discr "0")
(AutoScale "0")
(AnswerR "0"))))
|
Added txtdb/nada3/sxml/Sheet3.sxml version [fc57fa497e].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:MaxCol "0")
(http://www.gnumeric.org/v10.dtd:MaxRow "0")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"Sheet3\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right (@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "65535") (endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo (@ (Unit "64.01") (No "0"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo (@ (Unit "12.82") (No "0"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
|
Added txtdb/nada3/sxml/_sheets.sxml version [fd8e08bb55].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | ((@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v8.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "3") (Major "6") (Full "1.6.3") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name "WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(http://www.gnumeric.org/v10.dtd:Summary
(http://www.gnumeric.org/v10.dtd:Item
(http://www.gnumeric.org/v10.dtd:name "application")
(http://www.gnumeric.org/v10.dtd:val-string "gnumeric"))
(http://www.gnumeric.org/v10.dtd:Item
(http://www.gnumeric.org/v10.dtd:name "author")
(http://www.gnumeric.org/v10.dtd:val-string "matthew.r.welland")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName "First_Sheet")
(http://www.gnumeric.org/v10.dtd:SheetName "Second-sheet")
(http://www.gnumeric.org/v10.dtd:SheetName "RunsToDo")
(http://www.gnumeric.org/v10.dtd:SheetName "RunsToLock"))
(http://www.gnumeric.org/v10.dtd:Geometry (@ (Width "1440") (Height "647")))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "3")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(EnableIteration "1"))))
|
Added txtdb/nada3/sxml/_workbook.sxml version [96ffb7f9d5].
1 | + | (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")) |
Added txtdb/testdata.sxml version [0efca32b7e].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | (*TOP* (*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")
(http://www.gnumeric.org/v10.dtd:Workbook
(@ (http://www.w3.org/2001/XMLSchema-instance:schemaLocation
"http://www.gnumeric.org/v9.xsd"))
(http://www.gnumeric.org/v10.dtd:Version
(@ (Minor "17") (Major "10") (Full "1.10.17") (Epoch "1")))
(http://www.gnumeric.org/v10.dtd:Attributes
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_horizontal_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_vertical_scrollbar")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::show_notebook_tabs")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::do_auto_completion")
(http://www.gnumeric.org/v10.dtd:value "TRUE"))
(http://www.gnumeric.org/v10.dtd:Attribute
(http://www.gnumeric.org/v10.dtd:type "4")
(http://www.gnumeric.org/v10.dtd:name
"WorkbookView::is_protected")
(http://www.gnumeric.org/v10.dtd:value "FALSE")))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:document-meta
(@ (urn:oasis:names:tc:opendocument:xmlns:office:1.0:version "1.2"))
(urn:oasis:names:tc:opendocument:xmlns:office:1.0:meta
(http://purl.org/dc/elements/1.1/:date "2013-07-14T22:32:27Z")
(urn:oasis:names:tc:opendocument:xmlns:meta:1.0:creation-date
"2013-07-13T04:38:00Z")))
(http://www.gnumeric.org/v10.dtd:Calculation
(@ (MaxIterations "100")
(ManualRecalc "0")
(IterationTolerance "0.001")
(FloatRadix "2")
(FloatDigits "53")
(EnableIteration "1")))
(http://www.gnumeric.org/v10.dtd:SheetNameIndex
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"First_Sheet")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"Second-sheet")
(http://www.gnumeric.org/v10.dtd:SheetName
(@ (http://www.gnumeric.org/v10.dtd:Rows "65536")
(http://www.gnumeric.org/v10.dtd:Cols "256"))
"Sheet3"))
(http://www.gnumeric.org/v10.dtd:Geometry
(@ (Width "1440") (Height "647")))
(http://www.gnumeric.org/v10.dtd:Sheets
(http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:Name "First_Sheet")
(http://www.gnumeric.org/v10.dtd:MaxCol "8")
(http://www.gnumeric.org/v10.dtd:MaxRow "17")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"First_Sheet\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles
(@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "1") (startCol "0") (endRow "17") (endCol "1"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "hh\":\"mm\":\"ss AM/PM")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "18") (startCol "0") (endRow "31") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "32") (startCol "0") (endRow "255") (endCol "7"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "256")
(startCol "0")
(endRow "65535")
(endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "2") (endRow "1") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "2") (startCol "2") (endRow "17") (endCol "2"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "0")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "3") (endRow "31") (endCol "7"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0") (startCol "8") (endRow "255") (endCol "63"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0")
(startCol "64")
(endRow "65535")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "0")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "99") (No "1") (HardSize "1")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "2") (Count "7"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.64") (No "0")))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "1") (Count "17"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "29") (CursorCol "1"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "29")
(startCol "1")
(endRow "29")
(endCol "1"))))
(http://www.gnumeric.org/v10.dtd:Cells
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "1"))
"Time")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "2"))
"DeltaTime")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "3"))
"Ambient")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "4"))
"Firebox")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "5"))
"2nd row")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "6"))
"3rd row")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "7"))
"4th row")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "8"))
"Exit ")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "1") (Col "0"))
"A")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "1"))
"0.32430555555555557")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "2"))
"0")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "3"))
"35.399999999999999")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "4"))
"34.299999999999997")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "5"))
"34.299999999999997")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "6"))
"34.100000000000001")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "7"))
"34")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "1") (Col "8"))
"34")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "2") (Col "0"))
"B")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "1"))
"0.33124999999999999")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "2") (ExprID "1") (Col "2"))
"=days(B3,$B$2)*24*60")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "3"))
"35.399999999999999")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "4"))
"72")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "5"))
"60")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "6"))
"42")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "7"))
"39")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "2") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "3") (Col "0"))
"C")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "1"))
"0.3347222222222222")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "3") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "3"))
"35")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "4"))
"100")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "5"))
"90")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "6"))
"57")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "7"))
"46")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "3") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "4") (Col "0"))
"D")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "1"))
"0.33680555555555558")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "4") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "3"))
"35")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "4"))
"130")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "5"))
"116")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "6"))
"69")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "7"))
"52")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "4") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "5") (Col "0"))
"E")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "1"))
"0.33888888888888891")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "5") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "3"))
"35")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "4"))
"145")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "5"))
"121")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "6"))
"73")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "7"))
"54")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "5") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "6") (Col "0"))
"F")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "1"))
"0.34097222222222223")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "6") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "3"))
"35")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "4"))
"150")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "5"))
"125")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "6"))
"78")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "7"))
"56")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "6") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "7") (Col "0"))
"G")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "1"))
"0.34305555555555556")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "7") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "3"))
"35")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "4"))
"150")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "5"))
"128")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "6"))
"82")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "7"))
"60")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "7") (Col "8"))
"69")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "8") (Col "0"))
"H")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "1"))
"0.34583333333333333")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "8") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "3"))
"36")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "4"))
"158")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "5"))
"129")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "6"))
"86")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "7"))
"62")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "8") (Col "8"))
"70")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "9") (Col "0"))
"I")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "1"))
"0.34791666666666665")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "9") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "3"))
"36")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "4"))
"156")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "5"))
"128")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "6"))
"87")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "7"))
"65")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "9") (Col "8"))
"72")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "10") (Col "0"))
"J")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "1"))
"0.35138888888888886")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "10") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "3"))
"37")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "4"))
"152")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "5"))
"126")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "6"))
"89")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "7"))
"67")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "10") (Col "8"))
"75")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "11") (Col "0"))
"K")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "1"))
"0.36666666666666664")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "11") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "3"))
"37")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "4"))
"134")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "5"))
"117")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "6"))
"94")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "7"))
"77")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "11") (Col "8"))
"107")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "12") (Col "0"))
"L")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "1"))
"0.37916666666666665")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "12") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "3"))
"38")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "4"))
"117")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "5"))
"108")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "6"))
"96")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "7"))
"82")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "12") (Col "8"))
"106")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "13") (Col "0"))
"M")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "1"))
"0.39583333333333331")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "13") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "3"))
"39")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "4"))
"100")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "5"))
"100")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "6"))
"93")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "7"))
"82")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "13") (Col "8"))
"106")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "14") (Col "0"))
"N")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "1"))
"0.42222222222222222")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "14") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "3"))
"40")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "4"))
"91")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "5"))
"90")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "6"))
"88")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "7"))
"81")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "14") (Col "8"))
"100")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "15") (Col "0"))
"O")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "1"))
"0.45208333333333334")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "15") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "3"))
"41")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "4"))
"79")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "5"))
"78")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "6"))
"77")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "7"))
"72")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "15") (Col "8"))
"79")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "16") (Col "0"))
"P")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "1"))
"0.49166666666666664")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "16") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "3"))
"41")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "4"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "5"))
"63")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "6"))
"64")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "7"))
"62")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "16") (Col "8"))
"68")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "17") (Col "0"))
"Q")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "1"))
"0.5708333333333333")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (Row "17") (ExprID "1") (Col "2")))
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "3"))
"41.5")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "4"))
"51")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "5"))
"51")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "6"))
"51")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "7"))
"51")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "17") (Col "8"))
"51"))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
(http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:Name "Second-sheet")
(http://www.gnumeric.org/v10.dtd:MaxCol "4")
(http://www.gnumeric.org/v10.dtd:MaxRow "20")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"Second-sheet\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles
(@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0")
(startCol "0")
(endRow "65279")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "65280")
(startCol "0")
(endRow "65534")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans")))
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "65535")
(startCol "0")
(endRow "65535")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "0")))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "48") (No "1") (Count "4"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "13.5") (No "0") (Count "20"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "4") (CursorCol "4"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "4") (startCol "4") (endRow "4") (endCol "4"))))
(http://www.gnumeric.org/v10.dtd:Cells
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "1"))
"A1")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "0") (Col "2"))
"2")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "0") (Col "3"))
"A1")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "40") (Row "0") (Col "4"))
"3")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "1") (Col "0"))
"V1")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "1") (Col "1"))
"X")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "2") (Col "0"))
"V2")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "2") (Col "2"))
"X")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "3") (Col "0"))
"V3")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "3") (Col "3"))
"X")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "4") (Col "0"))
"V4")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "4") (Col "4"))
"X")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "5") (Col "0"))
"V5")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "5") (Col "3"))
"Y")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "6") (Col "0"))
"V6")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "6") (Col "2"))
"Y")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "7") (Col "0"))
"V7")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "7") (Col "1"))
"Y")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "8") (Col "0"))
"V8")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "8") (Col "1"))
"Z")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "9") (Col "0"))
"V8")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "9") (Col "2"))
"Z")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "10") (Col "0"))
"V10")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "10") (Col "3"))
"Z")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "11") (Col "4"))
"Z")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "12") (Col "0"))
"V11")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "12") (Col "3"))
"E")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "13") (Col "0"))
"V12")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "13") (Col "2"))
"E")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "14") (Col "0"))
"V13")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "14") (Col "1"))
"E")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "15") (Col "0"))
"V14")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "15") (Col "1"))
"B")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "16") (Col "0"))
"V15")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "16") (Col "2"))
"B")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "17") (Col "0"))
"V16")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "17") (Col "3"))
"B")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "18") (Col "4"))
"B")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "19") (Col "0"))
"V17")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "19") (Col "1"))
"-")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "19") (Col "2"))
"+")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "19") (Col "3"))
"=")
(http://www.gnumeric.org/v10.dtd:Cell
(@ (ValueType "60") (Row "19") (Col "4"))
"~"))
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0"))))
(http://www.gnumeric.org/v10.dtd:Sheet
(@ (Visibility "GNM_SHEET_VISIBILITY_VISIBLE")
(OutlineSymbolsRight "1")
(OutlineSymbolsBelow "1")
(HideZero "0")
(HideRowHeader "0")
(HideGrid "0")
(HideColHeader "0")
(GridColor "0:0:0")
(DisplayOutlines "1")
(DisplayFormulas "0"))
(http://www.gnumeric.org/v10.dtd:Name "Sheet3")
(http://www.gnumeric.org/v10.dtd:MaxCol "0")
(http://www.gnumeric.org/v10.dtd:MaxRow "0")
(http://www.gnumeric.org/v10.dtd:Zoom "1")
(http://www.gnumeric.org/v10.dtd:Names
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Print_Area")
(http://www.gnumeric.org/v10.dtd:value "#REF!")
(http://www.gnumeric.org/v10.dtd:position "A1"))
(http://www.gnumeric.org/v10.dtd:Name
(http://www.gnumeric.org/v10.dtd:name "Sheet_Title")
(http://www.gnumeric.org/v10.dtd:value "\"Sheet3\"")
(http://www.gnumeric.org/v10.dtd:position "A1")))
(http://www.gnumeric.org/v10.dtd:PrintInformation
(http://www.gnumeric.org/v10.dtd:Margins
(http://www.gnumeric.org/v10.dtd:top
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:bottom
(@ (PrefUnit "mm") (Points "93.26")))
(http://www.gnumeric.org/v10.dtd:left
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:right
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:header
(@ (PrefUnit "mm") (Points "72")))
(http://www.gnumeric.org/v10.dtd:footer
(@ (PrefUnit "mm") (Points "72"))))
(http://www.gnumeric.org/v10.dtd:Scale
(@ (type "percentage") (percentage "100")))
(http://www.gnumeric.org/v10.dtd:vcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:hcenter (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:grid (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:even_if_only_styles
(@ (value "0")))
(http://www.gnumeric.org/v10.dtd:monochrome (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:draft (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:titles (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:do_not_print (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:print_range (@ (value "0")))
(http://www.gnumeric.org/v10.dtd:order "d_then_r")
(http://www.gnumeric.org/v10.dtd:orientation "portrait")
(http://www.gnumeric.org/v10.dtd:Header
(@ (Right "") (Middle "&[tab]") (Left "")))
(http://www.gnumeric.org/v10.dtd:Footer
(@ (Right "") (Middle "&[page]") (Left "")))
(http://www.gnumeric.org/v10.dtd:paper "na_letter")
(http://www.gnumeric.org/v10.dtd:comments "in_place")
(http://www.gnumeric.org/v10.dtd:errors "as_displayed"))
(http://www.gnumeric.org/v10.dtd:Styles
(http://www.gnumeric.org/v10.dtd:StyleRegion
(@ (startRow "0")
(startCol "0")
(endRow "65535")
(endCol "255"))
(http://www.gnumeric.org/v10.dtd:Style
(@ (WrapText "0")
(VAlign "2")
(ShrinkToFit "0")
(Shade "0")
(Rotation "0")
(PatternColor "0:0:0")
(Locked "1")
(Indent "0")
(Hidden "0")
(HAlign "1")
(Format "General")
(Fore "0:0:0")
(Back "FFFF:FFFF:FFFF"))
(http://www.gnumeric.org/v10.dtd:Font
(@ (Unit "10")
(Underline "0")
(StrikeThrough "0")
(Script "0")
(Italic "0")
(Bold "0"))
"Sans"))))
(http://www.gnumeric.org/v10.dtd:Cols
(@ (DefaultSizePts "48"))
(http://www.gnumeric.org/v10.dtd:ColInfo
(@ (Unit "64.01") (No "0"))))
(http://www.gnumeric.org/v10.dtd:Rows
(@ (DefaultSizePts "12.1"))
(http://www.gnumeric.org/v10.dtd:RowInfo
(@ (Unit "12.82") (No "0"))))
(http://www.gnumeric.org/v10.dtd:Selections
(@ (CursorRow "0") (CursorCol "0"))
(http://www.gnumeric.org/v10.dtd:Selection
(@ (startRow "0") (startCol "0") (endRow "0") (endCol "0"))))
(http://www.gnumeric.org/v10.dtd:Cells)
(http://www.gnumeric.org/v10.dtd:SheetLayout (@ (TopLeft "A1")))
(http://www.gnumeric.org/v10.dtd:Solver
(@ (ProgramR "0")
(ProblemType "0")
(NonNeg "1")
(ModelType "0")
(MaxTime "60")
(MaxIter "1000")
(Discr "0")
(AutoScale "0")))))
(http://www.gnumeric.org/v10.dtd:UIData (@ (SelectedTab "0")))))
|
Modified txtdb/txtdb.scm from [5f75a02c13] to [cf8a5ae239].
1 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 | - + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
|
Added utils/Makefile.installall version [3d28c758b8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
# Copyright 2013, Matthew Welland.
#
# This program is made available under the GNU GPL version 2.0 or
# greater. See the accompanying file COPYING for details.
#
# This program is distributed WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE.
help :
@echo You may need to do the following first:
@echo sudo apt-get install libreadline-dev
@echo sudo apt-get install libwebkitgtk-dev
@echo sudo apt-get install libmotif3 -OR- set KTYPE=26g4
@echo KTYPE can be 26, 26g4, or 32
@echo KTYPE=$KTYPE
@echo You are using PREFIX=$PREFIX
@echo You are using proxy="$(proxy)"
@echo If needed set proxy to host.dom:port
@echo
@echo "Set additional_libpath to help find gtk or other libraries, don't forget a leading :"
@echo ADDITIONAL_LIBPATH=$(ADDITIONAL_LIBPATH)
@echo
@echo To use previous IUP libraries set USEOLDIUP to yes
@echo USEOLDIUP=$(USEOLDIUP)
@echo
@echo To make all do: make all
# Put the installation here
ifeq ($(PREFIX),)
PREFIX=$(PWD)/target
endif
# Set this on the command line of your make call if needed: make PROXY=host.com:1234
PROXY=
# Select IUP library type
KTYPE=26g4
# Select version of chicken, sqlite3 etc
CHICKEN_VERSION=4.8.0
SQLITE3_VERSION=3071401
# Eggs to install (straightforward ones)
EGGS=matchable readline apropos base64 regex-literals format regex-case test coops trace csv \
dot-locking posix-utils posix-extras directory-utils hostinfo tcp-server rpc csv-xml fmt \
json md5 awful http-client spiffy uri-common intarweb spiffy-request-vars \
spiffy-directory-listing ssax sxml-serializer sxml-modifications
#
# Derived variables
#
ifeq ($(PROXY),)
PROX=
else
http_proxy=http://$(PROXY)
PROX="-proxy $(PROXY)"
endif
BUILDHOME=$(PWD)
PATH:=$(PREFIX)/bin:$(PATH)
LIBPATH=$(PREFIX)/lib$(ADDITIONAL_LIBPATH)
LD_LIBRARY_PATH=$(LIBPATH)
CHICKEN_INSTALL=$(PREFIX)/bin/chicken-install
CHICKEN_EGG_DIR=$(PREFIX)/lib/chicken/6
VPATH=$(CHICKEN_EGG_DIR):$(PWD)/eggflags
vpath %.so $(CHICKEN_EGG_DIR)
vpath %.flag eggflags
EGGSOFILES=$(addprefix $(CHICKEN_EGG_DIR)/,$(addsuffix .so,$(EGGS)))
EGGFLAGS=$(addprefix eggflags/,$(addsuffix .flag,$(EGGS)))
# Stuff needed for IUP
ISARCHX86_64=$(shell uname -a | grep x86_64)
ifeq ($(ISARCHX86_64),)
ARCHSIZE=
else
ARCHSIZE=64_
endif
IUPFILES=cd-5.5.1_Linux$(KTYPE)_$(ARCHSIZE)lib.tar.gz im-3.8_Linux$(KTYPE)_$(ARCHSIZE)lib.tar.gz iup-3.6_Linux$(KTYPE)_$(ARCHSIZE)lib.tar.gz
CSCLIBS=$(shell echo $(LD_LIBRARY_PATH) | sed 's/:/ -L/g')
CSC_OPTIONS=-I$(PREFIX)/include -L$(CSCLIBS)
all : chkn eggs libiup sqlite3 logprobin mutils
chkn : $(CHICKEN_INSTALL)
eggs : $(EGGSOFILES)
sqlite3 : $(CHICKEN_EGG_DIR)/sqlite3.so
libiup : $(PREFIX)/lib/libavcall.a $(CHICKEN_EGG_DIR)/iup.so $(CHICKEN_EGG_DIR)/canvas-draw.so
logprobin : $(PREFIX)/bin/logpro
$(PREFIX)/bin/logpro : $(CHICKEN_EGG_DIR)/regex-literals.so
$(CHICKEN_INSTALL) logpro
# Silly rule to make installing eggs more makeish, I don't understand why I need the basename
$(CHICKEN_EGG_DIR)/%.so : eggflags/%.flag
$(CHICKEN_INSTALL) $(PROX) $(shell basename $*)
$(EGGFLAGS) : # $(CHICKEN_INSTALL)
mkdir -p eggflags
touch $(EGGFLAGS)
# some setup stuff
#
setup-chicken4x.sh : $(EGGFLAGS)
(echo "export PATH=$(PATH)" > setup-chicken4x.sh)
(echo "export LD_LIBRARY_PATH=$(LD_LIBRARY_PATH)" >> setup-chicken4x.sh)
mkdir -p $(PREFIX)
# Download chicken source
chicken-$(CHICKEN_VERSION).tar.gz :
wget http://code.call-cc.org/releases/$(CHICKEN_VERSION)/chicken-$(CHICKEN_VERSION).tar.gz
# NB// Must touch csi.scm since tar puts original date on it and deps are wrong then
chicken-$(CHICKEN_VERSION)/csi.scm : chicken-$(CHICKEN_VERSION).tar.gz
tar xfvz chicken-$(CHICKEN_VERSION).tar.gz
touch -c chicken-$(CHICKEN_VERSION)/csi.scm
$(CHICKEN_INSTALL) : chicken-$(CHICKEN_VERSION)/csi.scm setup-chicken4x.sh
cd chicken-$(CHICKEN_VERSION);make PLATFORM=linux PREFIX=$(PREFIX)
cd chicken-$(CHICKEN_VERSION);make PLATFORM=linux PREFIX=$(PREFIX) install
sqlite-autoconf-$(SQLITE3_VERSION).tar.gz :
wget http://www.sqlite.org/sqlite-autoconf-$(SQLITE3_VERSION).tar.gz
sqlite-autoconf-$(SQLITE3_VERSION) : sqlite-autoconf-$(SQLITE3_VERSION).tar.gz
tar xfz sqlite-autoconf-$(SQLITE3_VERSION).tar.gz
$(PREFIX)/bin/sqlite3 : sqlite-autoconf-$(SQLITE3_VERSION)
(cd sqlite-autoconf-$(SQLITE3_VERSION);./configure --prefix=$(PREFIX);make;make install)
$(CHICKEN_EGG_DIR)/sqlite3.so : $(PREFIX)/bin/sqlite3
CSC_OPTIONS="-I$(PREFIX)/include -L$(PREFIX)/lib" $(CHICKEN_INSTALL) $(PROX) sqlite3
mutils : $(CHICKEN_EGG_DIR)/margs.so $(CHICKEN_EGG_DIR)/qtree.so # $(CHICKEN_EGG_DIR)/dbi.so
# Get and install my various utilities that haven't been eggified yet.
opensrc/margs/margs.scm opensrc/dbi/dbi.scm opensrc/qtree/qtree.scm : $(CHICKEN_INSTALL) $(CHICKEN_EGG_DIR)/sqlite3.so
mkdir -p opensrc
cd opensrc;if [ ! -e opensrc.fossil ]; then fossil clone http://www.kiatoa.com/fossils/opensrc opensrc.fossil; fi
cd opensrc;if [ -e dbi/dbi.scm ]; then fossil update; else fossil open opensrc.fossil; fi
$(CHICKEN_EGG_DIR)/dbi.so : opensrc/dbi/dbi.scm
cd opensrc/dbi;chicken-install
$(CHICKEN_EGG_DIR)/margs.so : opensrc/margs/margs.scm
cd opensrc/margs;chicken-install
$(CHICKEN_EGG_DIR)/qtree.so : opensrc/qtree/qtree.scm
cd opensrc/qtree;chicken-install
#
# IUP
#
ffcall.tar.gz :
wget http://www.kiatoa.com/matt/iup/ffcall.tar.gz
ffcall/README : ffcall.tar.gz
tar xfvz ffcall.tar.gz
touch -c ffcall/README
$(PREFIX)/lib/libavcall.a : ffcall/README
cd ffcall;./configure --prefix=$(PREFIX) --enable-shared && make && make install
$(IUPFILES) :
wget http://www.kiatoa.com/matt/iup/$@
cd $(PREFIX)/lib;tar xfvz $(BUILDHOME)/$@
mv $(PREFIX)/lib/include/* $(PREFIX)/include
$(PREFIX)/lib/libiup.so : $(IUPFILES)
touch -c $(PREFIX)/lib/libiup.so
$(CHICKEN_EGG_DIR)/iup.so : $(PREFIX)/lib/libiup.so
$(CHICKEN_INSTALL) $(PROX) -D no-library-checks -feature disable-iup-web iup
$(CHICKEN_EGG_DIR)/canvas-draw.so : $(PREFIX)/lib/libiup.so
$(CHICKEN_INSTALL) $(PROX) -D no-library-checks canvas-draw
clean :
rm -rf chicken-4.8.0 eggflags ffcall sqlite-autoconf-$(SQLITE3_VERSION)
|
Added utils/Makefile_latest.installall version [1a0ad0a0fd].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
# Copyright 2013,2014 Matthew Welland.
#
# This program is made available under the GNU GPL version 2.0 or
# greater. See the accompanying file COPYING for details.
#
# This program is distributed WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE.
# make PREFIX=/mfs/pkgs/chicken/chicken-core all
help :
@echo You may need to do the following first:
@echo sudo apt-get install libreadline-dev
@echo sudo apt-get install libwebkitgtk-dev
@echo sudo apt-get install libmotif3
@echo You are using PREFIX=$(PREFIX)
@echo You are using proxy="$(proxy)"
@echo If needed set proxy to host.dom:port
@echo
@echo To make all do: make all
# Put the installation here
ifeq ($(PREFIX),)
PREFIX=$(PWD)/target
endif
# Set this on the command line of your make call if needed: make PROXY=host.com:1234
PROXY=
# Select version of chicken, sqlite3 etc
CHICKEN_VERSION=4.8.0
SQLITE3_VERSION=3071401
# Eggs to install (straightforward ones)
EGGS=matchable readline apropos base64 regex-literals format regex-case test coops trace csv \
dot-locking posix-utils posix-extras directory-utils hostinfo tcp-server rpc csv-xml fmt \
json md5 awful http-client spiffy uri-common intarweb spiffy-request-vars \
spiffy-directory-listing ssax sxml-serializer sxml-modifications sqlite3
#
# Derived variables
#
ifeq ($(PROXY),)
PROX=
else
http_proxy=http://$(PROXY)
PROX=-proxy $(PROXY)
endif
BUILDHOME=$(PWD)
PATH:=$(PREFIX)/bin:$(PATH)
LIBPATH=$(PREFIX)/lib$(ADDITIONAL_LIBPATH)
LD_LIBRARY_PATH=$(LIBPATH)
CHICKEN_INSTALL=$(PREFIX)/bin/chicken-install
CHICKEN_EGG_DIR=$(PREFIX)/lib/chicken/6
VPATH=$(CHICKEN_EGG_DIR):$(PWD)/eggflags
vpath %.so $(CHICKEN_EGG_DIR)
vpath %.flag eggflags
EGGSOFILES=$(addprefix $(CHICKEN_EGG_DIR)/,$(addsuffix .so,$(EGGS)))
EGGFLAGS=$(addprefix eggflags/,$(addsuffix .flag,$(EGGS)))
# Stuff needed for IUP
ISARCHX86_64=$(shell uname -a | grep x86_64)
ifeq ($(ISARCHX86_64),)
ARCHSIZE=
else
ARCHSIZE=64_
endif
CSCLIBS=$(shell echo $(LD_LIBRARY_PATH) | sed 's/:/ -L/g')
# CSC_OPTIONS=-I$(PREFIX)/include -L$(CSCLIBS)
all : chkn eggs libiup logprobin
chkn : $(CHICKEN_INSTALL)
eggs : $(EGGSOFILES)
libiup : $(PREFIX)/lib/libavcall.a $(CHICKEN_EGG_DIR)/iup.so $(CHICKEN_EGG_DIR)/canvas-draw.so
logprobin : $(PREFIX)/bin/logpro
$(PREFIX)/bin/logpro : $(CHICKEN_EGG_DIR)/regex-literals.so
$(CHICKEN_INSTALL) logpro
# Silly rule to make installing eggs more makeish, I don't understand why I need the basename
$(CHICKEN_EGG_DIR)/%.so : eggflags/%.flag
$(CHICKEN_INSTALL) $(PROX) -keep-installed $(shell basename $*)
$(EGGFLAGS) : # $(CHICKEN_INSTALL)
mkdir -p eggflags
touch $(EGGFLAGS)
# some setup stuff
#
setup-chicken4x.sh : $(EGGFLAGS)
(echo "export PATH=$(PATH)" > setup-chicken4x.sh)
(echo "export LD_LIBRARY_PATH=$(LD_LIBRARY_PATH)" >> setup-chicken4x.sh)
mkdir -p $(PREFIX)
chicken-core/chicken.scm :
git clone http://code.call-cc.org/git/chicken-core.git
# git clone git://code.call-cc.org/chicken-core
$(CHICKEN_INSTALL) : chicken-core/chicken.scm setup-chicken4x.sh
cd chicken-core;make PLATFORM=linux PREFIX=$(PREFIX)
cd chicken-core;make PLATFORM=linux PREFIX=$(PREFIX) install
#
# IUP
#
ffcall.fossil :
fossil clone http://www.kiatoa.com/fossils/ffcall ffcall.fossil
ffcall/README : ffcall.fossil
mkdir -p ffcall
cd ffcall && if [ -e README ];then fossil update; else fossil open ../ffcall.fossil; fi
# NOTE: This worked fine *without* the enable-shared
#
$(PREFIX)/lib/libavcall.a : ffcall/README
cd ffcall;./configure --prefix=$(PREFIX) --enable-shared && make && make install
iuplib.fossil :
fossil clone http://www.kiatoa.com/fossils/iuplib iuplib.fossil
iup/installall.sh : iuplib.fossil
mkdir -p iup
cd iup && if [ -e installall.sh ];then fossil update; else fossil open ../iuplib.fossil; fi
iup/iup/alldone : iup/installall.sh
cd iup && ./makeall.sh
$(PREFIX)/lib/libiup.so : iup/iup/alldone
touch -c $(PREFIX)/lib/libiup.so
$(CHICKEN_EGG_DIR)/iup.so : $(PREFIX)/lib/libiup.so
$(CHICKEN_INSTALL) $(PROX) -D no-library-checks -feature disable-iup-web iup
$(CHICKEN_EGG_DIR)/canvas-draw.so : $(PREFIX)/lib/libiup.so
$(CHICKEN_INSTALL) $(PROX) -D no-library-checks canvas-draw
clean :
rm -rf chicken-4.8.0 eggflags ffcall sqlite-autoconf-$(SQLITE3_VERSION)
|
Modified utils/installall.sh from [269ebc2426] to [b11388ebc6].
1 2 3 4 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | - + + + + + + + + + + + | #! /usr/bin/env bash # set -x |
47 48 49 50 51 52 53 | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 | + + + + - - - + + + + + + - + - + - - + + + + - - + + + + + + + - + - + + - - + + - + + - + - - + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + - - - - + + - - - - - - - - - - - - + + - - - - - + | if [[ $KTYPE == "" ]]; then echo 'Using KTYPE=26' export KTYPE=26 else echo Using KTYPE=$KTYPE fi # Put all the downloaded tar files in tgz mkdir -p tgz # http://code.call-cc.org/releases/4.8.0/chicken-4.8.0.5.tar.gz |
322 323 324 325 326 327 328 | 229 230 231 232 233 234 235 236 237 238 | + + + | # unzip -o Canvas_Draw-$CD_REL.zip # # cd "Canvas Draw-$CD_REL/chicken" # CSC_OPTIONS="-I$PREFIX/include -L$LIBPATH" $CHICKEN_INSTALL $PROX -D no-library-checks echo You may need to add $LD_LIBRARY_PATH to your LD_LIBRARY_PATH variable, a setup-chicken4x.sh echo file can be found in the current directory which should work for setting up to run chicken4x echo Testing iup $PREFIX/bin/csi -b -eval '(use iup)(print "Success")' |
Added utils/loadrunner version [3fad28f85d].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/bin/bash
# load=`uptime|awk '{print $10}'|cut -d, -f1`
load=`uptime|perl -pe 's/.*: (\d+.\d+),.*/$1/'`
if which cpucheck > /dev/null;then
numcpu=`cpucheck|tail -1|awk '{print $6}'`
elif which lscpu > /dev/null;then
numcpu=`lscpu|grep "CPU.s.:"|awk '{print $2}'`
else
numcpu=2
fi
# NB// max_load is in units of percent.
#
lperc=`echo "100 * $load / $numcpu"|bc`
if [[ "x$MAX_ALLOWED_LOAD" == "x" ]]; then
max_load=100
else
max_load=$MAX_ALLOWED_LOAD
fi
if [[ $lperc -lt $max_load ]];then
echo "Load acceptable: lperc=$lperc %, max_load=$max_load %, load=$load, numcpu=$numcpu, MAX_ALLOWED_LOAD=$MAX_ALLOWED_LOAD %"
echo "Starting command: \"$@\""
nbfake "$@"
else
# echo "Load too high: lperc=$lperc, max_load=$max_load, waiting two minutes before trying to run command: \"$@\""
echo "loadrunner $@" | at now + 2 minutes 2> /dev/null
fi
|
Modified utils/mk_wrapper from [abe9806348] to [7459f2e147].
1 2 3 4 5 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | + - - + + - + + - | #!/bin/bash prefix=$1 cmd=$2 target=$3 |
Modified utils/mt_ezstep from [bafa45892c] to [94c507b08a].
1 2 3 4 5 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | + + + - - - + + + + | #!/bin/bash
usage="mt_ezstep stepname prevstepname command [args ...]"
if [ "$MT_CMDINFO" == "" ];then
if [ -e megatest.sh ];then
source megatest.sh
else
|
66 67 68 69 70 71 72 | 70 71 72 73 74 75 76 77 78 | - + | exitstatus=2
elif [ $logprostatus -eq 1 ]; then
exitstatus=1
else
exitstatus=0
fi
|
Added utils/mt_xterm version [40d98efdc8].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | + + + + + + + + + + + + + + | #!/bin/bash MT_TMPDISPLAY=$DISPLAY if [ -e megatest.sh ];then source megatest.sh fi export DISPLAY=$MT_TMPDISPLAY if [ x"$MT_XTERM_CMD" == "x" ];then exec xterm "$@" else exec $MT_XTERM_CMD fi |
Added utils/mtgetfile version [071134089a].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/bin/bash
fullparams="$@"
function findfile () {
megatest $fullparams -repl <<EOF
(let* ((numargs (length remargs))
(path (if (> numargs 0)(car remargs) #f))
(scriptn (if (> numargs 1)(cadr remargs) #f))
(keys (cdb:remote-run db:get-keys #f))
(target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(args:get-arg "-target")
#f)))
(key-vals (if target (keys:target->keyval keys target) #f))
(errmsg (cond
((not key-vals) "missing -target")
((not target) "missing -target")
((not scriptn) "missing file name to find")
(else #f))))
(if errmsg
(begin
(print "THEPATH: Missing required switch: " errmsg)
(print "THEPATH: Usage: mtgetfile -target target scriptname [searchpath]")
(exit)))
(print "THEPATH: key-vals=" key-vals " path=" path " scriptn=" scriptn))
EOF
}
findfile | egrep "^THEPATH: " | sed -e 's/^THEPATH: //'
|
Added utils/mtrunscript version [e78e46f29a].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/usr/bin/env bash
# Copyright 2012, Matthew Welland.
#
# This program is made available under the GNU GPL version 2.0 or
# greater. See the accompanying file COPYING for details.
#
# This program is distributed WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE.
#
# VERSION:
# set -e
# set -u
# set -x
# Usage: mtrunscript scriptname params
#
# Look for scriptname in this order
#
# $MT_TEST_RUN_DIR/scripts => $MT_RUN_AREA_HOME/scripts
# => $MT_RUN_AREA_HOME/../scripts => $PATH
#
# In each area look for the script with the name like this:
#
# scriptname_$TARGET[1]_$TARGET[2]_...$TARGET[n]_$MT_TESTNAME_$MT_ITEMPATH(s#/#_)
#
echo "NOT IMPLEMENTED YET!"
exit
case "x$1" in
# repo
xrep*)
fsl_dbinit
case "x$2" in
xhelp)
fsl_help
exit
;;
# repo get
xget)
hook_pre_repo_get "$@"
fsl_repo_get $3 $4
hook_post_repo_get "$@"
exit
;;
xaddarea)
fsl_add_area $3 $4
exit
;;
xdroparea)
fsl_remove_area $3
exit
;;
xdbinit)
fsl_dbinit
exit
;;
xls|xlist)
shift
shift
fsl_ls "$@"
exit
;;
xcreate)
hook_pre_repo_create
fsl_repo_create $3 $4 $5 $6
hook_post_repo_create
exit
;;
ximport)
fsl_repo_import $3 $4 $5
exit
;;
*)
fsl_help
exit
esac
;;
"xmv")
if [ "x$2" = "x-f" ];then
# echo "Force mode"
fsl_force=1
shift
shift
# change this to exec when happy!
# fsl mv -f f1 [f2 f3...] targ
fsl_mv "$@"
# args=("$@")
# echo $@ -> echo $@
# use $# variable to print out
# number of arguments passed to the bash script
# echo Number of arguments passed: $# -> echo Number of arguments passed: $#
exit
else
# echo No force
shift
fsl_mv "$@"
exit
fi
;;
xtim*)
fsl_fork_find
shift
$FOSSILEXE timeline "$@" | sed -e :a -e '$!N;s/\n / /;ta' -e 'P;D'
exit
;;
# leaves output needs to be niceified, no need for a function
xle*)
fsl_fork_find
shift
$FOSSILEXE leaves "$@" | sed -e :a -e '$!N;s/\n / /;ta' -e 'P;D'
exit
;;
# changes and status
xcha* | xstat*)
fsl_fork_find
fsl_conflicts "$@"
rm -f $CONFLICT_FLAG_FILE
exit
;;
# ci/commit
xci | xcom*)
fsl_conflicts changes "$@"
trap "$FOSSILUTIL releaselock $FSLUTIL_PARAMS" SIGINT
# Set up for remote locking
if [ ! -e $CONFLICT_FLAG_FILE ]; then
rm -f $CONFLICT_FLAG_FILE
read -p "ERROR: Conflicts detected. Type \"yes\" to continue: " -e ANSWER
if [ $ANSWER = "yes" ]; then
$FOSSILUTIL commitlock $FSLUTIL_PARAMS
$FOSSILEXE "$@"
$FOSSILUTIL releaselock $FSLUTIL_PARAMS
else
exit 1
fi
else
$FOSSILUTIL commitlock $FSLUTIL_PARAMS
$FOSSILEXE "$@"
$FOSSILUTIL releaselock $FSLUTIL_PARAMS
fi
exit
;;
xtag)
case "x$2" in
xadd | xcancel)
$FOSSILEXE "$@"
$FOSSILEXE sync
exit
;;
*)
$FOSSILEXE "$@"
exit
;;
esac
;;
# add mention of repo to help
"xhelp")
if [ $# -gt 1 ]; then
case "x$2" in
xrepo)
fsl_help
exit
;;
*)
$FOSSILEXE "$@"
;;
esac
else
$FOSSILEXE help | sed -e 's/sync/sync repo/'
fi
exit
;;
xup* | xco)
fsl_fork_find
$FOSSILEXE "$@"
exit
;;
esac
exec $FOSSILEXE "$@"
|
Modified utils/nbfake from [455975d5ec] to [6962f03891].
1 2 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | - - + + + + + + + - + - + | #!/bin/bash |
Added utils/nbload version [4b5138d43f].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + | #!/bin/bash
# load=`uptime|awk '{print $10}'|cut -d, -f1`
load=`uptime|perl -pe 's/.*: (\d+.\d+),.*/$1/'`
if which cpucheck > /dev/null;then
numcpu=`cpucheck|tail -1|awk '{print $6}'`
elif which lscpu > /dev/null;then
numcpu=`lscpu|grep "CPU.s.:"|awk '{print $2}'`
else
numcpu=2
fi
# NB// max_load is in units of percent.
#
lperc=`echo "100 * $load / $numcpu"|bc`
if [[ "x$MAX_ALLOWED_LOAD" == "x" ]]; then
max_load=100
else
max_load=$MAX_ALLOWED_LOAD
fi
if [[ $lperc -lt $max_load ]];then
echo "Load acceptable: lperc=$lperc %, max_load=$max_load %, load=$load, numcpu=$numcpu, MAX_ALLOWED_LOAD=$MAX_ALLOWED_LOAD %"
echo "Starting command: \"$@\""
nbfake "$@"
else
# echo "Load too high: lperc=$lperc, max_load=$max_load, waiting two minutes before trying to run command: \"$@\""
echo "nbload $@" | at now + 2 minutes 2> /dev/null
fi
|
Added utils/revtagfsl.scm version [48b6acfe19].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
;; Copyright 2006-2013, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
(use json regex posix)
(use srfi-69)
;; Add tags with node nums: trunk(12)
(define fname #f)
(let ((parms (argv)))
(if (> (length parms) 1)
(set! fname (cadr parms))))
(if (not (and fname (file-exists? fname)))
(begin
(print "Usage: revtagfsl /path/to/fossilfile.fossil")
(exit 1)))
(define (revtag:get-timeline fslfname limit)
(let* ((cmd (if (file-exists? fslfname)
(conc "fossil json timeline checkin --limit " limit " -R " fslfname)
(conc "fossil json timeline checkin --limit " limit))))
(with-input-from-pipe cmd json-read)))
(define mt (vector->list (revtag:get-timeline fname 10000)))
(define tl (map vector->list (cdr (assoc "timeline" (vector->list (cdr (assoc "payload" mt)))))))
(define tagged (make-hash-table))
(define usedtags (make-hash-table))
(for-each (lambda (node)
(let* ((uuid (cdr (assoc "uuid" node)))
(tags-dat (assoc "tags" node))
(tags (if tags-dat (cdr tags-dat) '())))
(for-each (lambda (tag)
(hash-table-set! usedtags tag #t))
tags)))
tl)
(define ord-tl (sort tl (lambda (a b)(let ((ta (cdr (assoc "timestamp" a)))(tb (cdr (assoc "timestamp" b))))(< ta tb)))))
(define (make-tag branch)
(let* ((nextnum (+ 1 (hash-table-ref/default tagged branch 0))))
(hash-table-set! tagged branch nextnum)
(conc branch "-r" nextnum)))
(define (get-next-revtag branch)
(let loop ((tag (make-tag branch)))
(if (hash-table-ref/default usedtags tag #f)
(loop (make-tag branch))
tag)))
(print "branch, uuid, newtag")
(let loop ((hed (car ord-tl))
(tal (cdr ord-tl)))
(let* ((tags (let ((t (assoc "tags" hed)))
(if t (cdr t) '())))
(uuid (cdr (assoc "uuid" hed)))
(branch (if (null? tags) "nobranch" (car tags)))
(tagpatt (regexp (conc "^" branch "-r\\d+$")))
(currtag (filter (lambda (x)(string-match tagpatt x)) tags)))
(if (and (not (equal? branch "nobranch"))
(null? currtag))
(let ((newtag (get-next-revtag branch)))
(print branch ", " uuid ", " newtag)
(system (conc "fossil tag add \"" newtag "\" " uuid " -R " fname)) ;; ?--raw? ?--propagate? TAGNAME CHECK-IN ?VALUE?
(hash-table-set! usedtags currtag #t)))
(if (not (null? tal))
(loop (car tal)(cdr tal)))))
|
Modified zmq-transport.scm from [82efec97d4] to [397cba74a4].
52 53 54 55 56 57 58 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | - + | ;; [ ] [ ] 7. Turn self ping back on
(define (zmq-transport:make-server-url hostport)
(if (not hostport)
#f
(conc "tcp://" (car hostport) ":" (cadr hostport))))
|