44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(set! *last-draw* (current-milliseconds))))
(include "events.scm")
;; System spec (to be moved into loaded file)
;;
;; x y w gap x-min x-max
(define *cpu-grid* (vector 500 50 15 2 500 645))
(define (make-cpu:grid)(make-vector 6))
(define *queues* (make-hash-table)) ;; name -> (list (list user duration num-cpus num-gigs) ... )
(define *cpus* (make-hash-table)) ;; cpu-name => (vector user job-len num-cpu mem x-loc y-loc)
(define *obj-locations* (make-hash-table)) ;; name -> (x y layer)
(define *queue-spec*
(vector
80 ;; start-x
|
|
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(set! *last-draw* (current-milliseconds))))
(include "events.scm")
;; System spec (to be moved into loaded file)
;;
;; x y w gap x-min x-max
(define *cpu-grid* (vector 500 50 15 2 500 600))
(define (make-cpu:grid)(make-vector 6))
(define *queues* (make-hash-table)) ;; name -> (list (list user duration num-cpus num-gigs) ... )
(define *cpus* (make-hash-table)) ;; cpu-name => (vector user job-len num-cpu mem x-loc y-loc)
(define *obj-locations* (make-hash-table)) ;; name -> (x y layer)
(define *queue-spec*
(vector
80 ;; start-x
|
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
|
(let* ((user (vector-ref hed 0))
(h (let ((numjobs (vector-ref hed 1)))
(if *use-log*
(inexact->exact (round (log (+ 1 (* *job-log-scale* numjobs)))))
numjobs)))
(x1 (- x2 bar-width))
(y2 (- origin-y h)))
(print "x1 " x1 ", origin-y " origin-y ", x2 " x2 ", y2 " y2)
(ezx-fillrect-2d *ezx* x1 y2 x2 origin-y (get-user-color user))
(if (not (null? tal))
(loop (car tal)(cdr tal) x1)))))
(ezx-redraw *ezx*)))))))
|
|
<
<
|
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
|
(let* ((user (vector-ref hed 0))
(h (let ((numjobs (vector-ref hed 1)))
(if *use-log*
(inexact->exact (round (log (+ 1 (* *job-log-scale* numjobs)))))
numjobs)))
(x1 (- x2 bar-width))
(y2 (- origin-y h)))
;; (print "x1 " x1 ", origin-y " origin-y ", x2 " x2 ", y2 " y2)
(ezx-fillrect-2d *ezx* x1 y2 x2 origin-y (get-user-color user))
(if (not (null? tal))
(loop (car tal)(cdr tal) x1)))))
(ezx-redraw *ezx*)))))))
;; (let* ((args (argv))
;; (fname (if (> (length args) 1)
;; (cadr args)
;; "default.scm")))
(load "default.scm")
|