Overview
| Comment: | added a message when .megatestrc is loaded. Changed version to 1.8031 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.8031 |
| Files: | files | file ages | folders |
| SHA1: |
b1ebd498161eb8380e42ffb8eca94234 |
| User & Date: | mmgraham on 2024-02-13 17:20:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-13
| ||
| 17:20 | added a message when .megatestrc is loaded. Changed version to 1.8031 Leaf check-in: b1ebd49816 user: mmgraham tags: v1.8031 | |
|
2024-01-27
| ||
| 17:28 | Fixed dependency issue in Makefile. check-in: 2725650ca5 user: matt tags: v1.80-revolution | |
Changes
Modified megatest-version.scm from [be277ab6e6] to [1bbcf7f9b0].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. ;; (declare (unit megatest-version)) | | | 16 17 18 19 20 21 22 23 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. ;; (declare (unit megatest-version)) (define megatest-version 1.8031) |
Modified megatest.scm from [5f91080744] to [33565db1f2].
| ︙ | ︙ | |||
109 110 111 112 113 114 115 | ;;(lambda params (apply rmt:send-receive params))) ;; make send-receive available to rmtmod via parameter ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file ;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc"))) (if (common:file-exists? debugcontrolf) | > > > | > > > | 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
;;(lambda params (apply rmt:send-receive params))) ;; make send-receive available to rmtmod via parameter
;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
;;
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
(if (common:file-exists? debugcontrolf)
(begin
;; for some reason, debug:print does not work here. Had to use print.
(print (conc "WARNING: loading " debugcontrolf))
(load debugcontrolf)
)
)
)
;; usage logging, careful with this, it is not designed to deal with all real world challenges!
;;
(if (and *usage-log-file*
(file-write-access? *usage-log-file*))
(with-output-to-file
*usage-log-file*
|
| ︙ | ︙ |