Overview
| Comment: | added nice-path to declarations in commonmod.scm to fix itemwait test. Changed #f to for null log file to prevent type mismatch warning |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.90 |
| Files: | files | file ages | folders |
| SHA1: |
b7ea5abf1a38690c965bc83d69a61177 |
| User & Date: | mmgraham on 2024-02-23 17:40:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-26
| ||
| 11:31 | Changed a print from debug 0 to 4 check-in: 644eb3c1e4 user: mmgraham tags: v1.90 | |
|
2024-02-23
| ||
| 17:40 | added nice-path to declarations in commonmod.scm to fix itemwait test. Changed #f to for null log file to prevent type mismatch warning check-in: b7ea5abf1a user: mmgraham tags: v1.90 | |
|
2024-02-16
| ||
| 16:06 | Added (use json) to mtbody.scm to fix envsetup check-in: 2765970d14 user: mmgraham tags: v1.90 | |
Changes
Modified commonmod.scm from [979dffa1a9] to [08c8b5bc17].
| ︙ | ︙ | |||
144 145 146 147 148 149 150 151 152 153 154 155 156 157 | common:list-or-null common:logpro-exit-code->status-sym common:low-noise-print common:make-tmpdir-name common:max common:min-max common:nice-path common:pkts-spec common:raw-get-remote-host-load common:read-encoded-string common:real-path common:send-thunk-to-background-thread common:simple-file-lock common:simple-file-lock-and-wait | > | 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 |
common:list-or-null
common:logpro-exit-code->status-sym
common:low-noise-print
common:make-tmpdir-name
common:max
common:min-max
common:nice-path
nice-path
common:pkts-spec
common:raw-get-remote-host-load
common:read-encoded-string
common:real-path
common:send-thunk-to-background-thread
common:simple-file-lock
common:simple-file-lock-and-wait
|
| ︙ | ︙ |
Modified mtbody.scm from [7f837d24f5] to [51e1a31285].
| ︙ | ︙ | |||
302 303 304 305 306 307 308 |
(define *didsomething* #t)
(exit 1)))))
(define (main)
;; remove when configf fully modularized
(read-config-set! configf:read-file)
| | | 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 |
(define *didsomething* #t)
(exit 1)))))
(define (main)
;; remove when configf fully modularized
(read-config-set! configf:read-file)
(define *usage-log-file* "") ;; put path to file for logging usage in this var in the ~/.megatestrc file
(define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file
;; set some parameters here - these need to be put in something that can be loaded from other
;; executables such as dashboard and mtutil
;;
(include "transport-mode.scm")
(dbfile:db-init-proc db:initialize-main-db)
|
| ︙ | ︙ | |||
325 326 327 328 329 330 331 |
;;
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (common:file-exists? debugcontrolf)
(load debugcontrolf)))
;; usage logging, careful with this, it is not designed to deal with all real world challenges!
;;
| | | | | 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 |
;;
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (common:file-exists? debugcontrolf)
(load debugcontrolf)))
;; usage logging, careful with this, it is not designed to deal with all real world challenges!
;;
(if (not (string=? *usage-log-file* ""))
(if (file-write-access? *usage-log-file*)
(with-output-to-file
*usage-log-file*
(lambda ()
(print (if *usage-use-seconds*
(current-seconds)
(time->string
(seconds->local-time (current-seconds))
"%Yww%V.%w %H:%M:%S"))
" "
(current-user-name) " "
(current-directory) " "
"\"" (string-intersperse (argv) " ") "\""))
#:append)))
;; Disabled help items
;; -rollup : (currently disabled) fill run (set by :runname) with latest test(s)
;; from prior runs with same keys
;; -daemonize : fork into background and disconnect from stdin/out
(define help (conc "
|
| ︙ | ︙ |