Overview
| Comment: | Improved debug in non-compiled work mode for multi-dboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
c47a7592d4d1bed4ebebae5aabfb72a3 |
| User & Date: | matt on 2015-07-20 21:35:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-26
| ||
| 23:08 | Added dep testcase check-in: 6f47b91ac8 user: matt tags: v1.60 | |
|
2015-07-20
| ||
| 21:35 | Improved debug in non-compiled work mode for multi-dboard check-in: c47a7592d4 user: matt tags: v1.60 | |
| 21:17 | Added script to start multiboard without compiling check-in: 03ad86429e user: matt tags: v1.60 | |
Changes
Modified multi-dboard.scm from [a922f9abf1] to [aa5e3f008b].
| ︙ | ︙ | |||
66 67 68 69 70 71 72 73 74 75 76 77 78 79 | ;; (client:launch)) ;; (client:launch)) (define *runremote* #f) (define *windows* (make-hash-table)) (define *changed-main* (make-hash-table)) ;; set path/... => #t (define *changed-mutex* (make-mutex)) ;; use for all incoming change requests (debug:setup) (define *tim* (iup:timer)) (define *ord* #f) (iup:attribute-set! *tim* "TIME" 300) | > | 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | ;; (client:launch)) ;; (client:launch)) (define *runremote* #f) (define *windows* (make-hash-table)) (define *changed-main* (make-hash-table)) ;; set path/... => #t (define *changed-mutex* (make-mutex)) ;; use for all incoming change requests (define *searchpatts* (make-hash-table)) (debug:setup) (define *tim* (iup:timer)) (define *ord* #f) (iup:attribute-set! *tim* "TIME" 300) |
| ︙ | ︙ | |||
778 779 780 781 782 783 784 |
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
| > | | | | | | | | | | | | | | | 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 |
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(define (main)
(let-values
(((con port)(dboard:server-start #f)))
(let ((portnum (if (string? port)(string->number port) port)))
;; got here, monitor/dashboard was started
(mddb:register-dashboard portnum)
(thread-start! (make-thread (lambda ()(dboard:server-service con portnum)) "server service"))
(thread-start! (make-thread (lambda ()
(let loop ()
(dboard:general-updater con portnum)
(thread-sleep! 1)
(loop))) "general updater"))
(dboard:make-window 0)
(mddb:unregister-dashboard (get-host-name) portnum)
(dboard:server-close con port))))
|
Added tests/fullrun/multi-dboard-load-all.scm version [929c778374].
> > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | (require-library margs) (load "../../common.scm") (load "../../common_records.scm") (load "../../margs.scm") (load "../../megatest-version.scm") (load "../../portlogger.scm") (load "../../tasks.scm") (load "../../db.scm") (load "../../configf.scm") (load "../../keys.scm") (load "../../tree.scm") (load "../../multi-dboard.scm") |
Modified tests/fullrun/multi-dboard.sh from [5478d683f7] to [f73dd06f1d].
1 2 | #!/bin/bash | | < < < < < < < < < < < < < | 1 2 3 | #!/bin/bash csi -I ../.. multi-dboard-load-all.scm |