Overview
| Comment: | Made repl use non-blocking client mode |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.5105 |
| Files: | files | file ages | folders |
| SHA1: |
50f33a00a7f955b1f670ec13c7ce0396 |
| User & Date: | mrwellan on 2012-11-02 13:19:20 |
| Other Links: | manifest | tags |
Context
|
2012-11-02
| ||
| 17:36 | Added interface to the monitor db and appropriate handling thereof. check-in: 5f757480e6 user: mrwellan tags: trunk, v1.506 | |
| 13:19 | Made repl use non-blocking client mode check-in: 50f33a00a7 user: mrwellan tags: trunk, v1.5105 | |
| 11:58 | Bumped version check-in: a95331bfec user: mrwellan tags: trunk, v1.5104 | |
Changes
Modified megatest-version.scm from [76bf18887a] to [0ac622c7df].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 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)) (define megatest-version 1.5105) |
Modified megatest.scm from [15e38b91f5] to [9c15c3f066].
| ︙ | ︙ | |||
324 325 326 327 328 329 330 |
(exit) ;; must do, would have to add checks to many/all calls below
(set! *didsomething* #t))
(exit)))
;; if not list or kill then start a client (if appropriate)
(if (or (args-defined? "-h" "-version" "-gen-megatest-area" "-gen-megatest-test")
(eq? (length (hash-table-keys args:arg-hash)) 0))
(debug:print-info 1 "Server connection not needed")
| < < < < | | 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 |
(exit) ;; must do, would have to add checks to many/all calls below
(set! *didsomething* #t))
(exit)))
;; if not list or kill then start a client (if appropriate)
(if (or (args-defined? "-h" "-version" "-gen-megatest-area" "-gen-megatest-test")
(eq? (length (hash-table-keys args:arg-hash)) 0))
(debug:print-info 1 "Server connection not needed")
(server:client-launch do-ping: #t)))
;;======================================================================
;; Remove old run(s)
;;======================================================================
;; since several actions can be specified on the command line the removal
;; is done first
|
| ︙ | ︙ | |||
874 875 876 877 878 879 880 |
(if (args:get-arg "-repl")
(let* ((toppath (setup-for-run))
(db (if toppath (open-db) #f)))
(if db
(begin
(set! *db* db)
| | | | 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 |
(if (args:get-arg "-repl")
(let* ((toppath (setup-for-run))
(db (if toppath (open-db) #f)))
(if db
(begin
(set! *db* db)
(set! *client-non-blocking-mode* #t)
;; (server:client-setup)
(import readline)
(import apropos)
(gnu-history-install-file-manager
(string-append
(or (get-environment-variable "HOME") ".") "/.megatest_history"))
(current-input-port (make-gnu-readline-port "megatest> "))
(repl))
|
| ︙ | ︙ |