Megatest

Check-in [34541b6e01]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Moved few items around; api:read/write query lists, megatest-fossil-hash
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 34541b6e01955b267c52439d853756c67b0205e6
User & Date: matt on 2019-12-08 20:31:32
Other Links: branch diff | manifest | tags
Context
2019-12-08
21:21
Moved bunch of functions into commonmod check-in: 3793b78d9e user: matt tags: v1.70-defunct-try
20:31
Moved few items around; api:read/write query lists, megatest-fossil-hash check-in: 34541b6e01 user: matt tags: v1.70-defunct-try
19:46
Unravelled a few ravels. check-in: 9990ebb12c user: matt tags: v1.70-defunct-try
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified api-inc.scm from [611db9dbf8] to [7dfa5ca729].

︙︙
14
15
16
17
18
19
20
21

22
23
24
25
26
27
28
29
30
31

;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
;;
;;======================================================================



;; allow these queries through without starting a server
;;
(define api:read-only-queries
  '(get-key-val-pairs
    get-var
    get-keys
    get-key-vals
    test-toplevel-num-items
    get-test-info-by-id
    get-steps-info-by-id








|
>


|








14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
;;
;;======================================================================

;; Moved to commonmod
;;
;; allow these queries through without starting a server
;;
#;(define api:read-only-queries
  '(get-key-val-pairs
    get-var
    get-keys
    get-key-vals
    test-toplevel-num-items
    get-test-info-by-id
    get-steps-info-by-id
︙︙
75
76
77
78
79
80
81


82
83
84
85
86
87
88
89

    testmeta-get-record
    have-incompletes?
    ;; synchash-get
    get-changed-record-ids
		get-run-record-ids 
    get-not-completed-cnt))



(define api:write-queries
  '(
    get-keys-write ;; dummy "write" query to force server start

    ;; SERVERS
    start-server
    kill-server









>
>
|








76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

    testmeta-get-record
    have-incompletes?
    ;; synchash-get
    get-changed-record-ids
		get-run-record-ids 
    get-not-completed-cnt))

;; moved to commonmod
;;
#;(define api:write-queries
  '(
    get-keys-write ;; dummy "write" query to force server start

    ;; SERVERS
    start-server
    kill-server
︙︙

Modified dashboard.scm from [eb1dd516fd] to [00f7bdad76].

︙︙
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

(declare (uses dcommonmod))
(import dcommonmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")

;; invoke the imports
(declare (uses commonmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))









|








63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

(declare (uses dcommonmod))
(import dcommonmod)

(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod
(include "vg_records.scm")

;; invoke the imports
(declare (uses commonmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))
︙︙

Modified megamod.scm from [8a70df3db8] to [2858ad645d].

︙︙
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

(include "test_records.scm")
;; (include "vg_records.scm")

;;======================================================================
;; L O C K I N G   M E C H A N I S M S 
;;======================================================================

(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")

;; globals
(define *writes-total-delay* 0)
(define *exit-started* #f)
(define *last-monitor-update-time* 0)
(define *default-log-port* (current-error-port))









|
|








141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

(include "test_records.scm")
;; (include "vg_records.scm")

;;======================================================================
;; L O C K I N G   M E C H A N I S M S 
;;======================================================================

;; (include "megatest-fossil-hash.scm") ;; try getting this from commonmod
;; (include "megatest-version.scm")

;; globals
(define *writes-total-delay* 0)
(define *exit-started* #f)
(define *last-monitor-update-time* 0)
(define *default-log-port* (current-error-port))
︙︙

Modified megatest.scm from [8a122fe918] to [b8fe549190].

︙︙
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-fossil-hash.scm")

(define getenv get-environment-variable)
(configf:add-eval-string "(import megamod)")

(define *usage-log-file* #f)    ;; 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









|








75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
;; (include "megatest-fossil-hash.scm") ;; included in megamod

(define getenv get-environment-variable)
(configf:add-eval-string "(import megamod)")

(define *usage-log-file* #f)    ;; 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
︙︙

Modified mtexec.scm from [ac7a0a03a9] to [f01922b9b2].

︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

(declare (uses megamod))
(import megamod)

;; (declare (uses rmt))

;; (use ducttape-lib)

(include "megatest-fossil-hash.scm")

;; (require-library stml)

(define help (conc "
mtutil, part of the Megatest tool suite, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright Matt Welland 2006-2017








|








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

(declare (uses megamod))
(import megamod)

;; (declare (uses rmt))

;; (use ducttape-lib)

;; (include "megatest-fossil-hash.scm") ;; comes from megamod now

;; (require-library stml)

(define help (conc "
mtutil, part of the Megatest tool suite, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright Matt Welland 2006-2017
︙︙

Modified mtut.scm from [55420a289a] to [ba9363667c].

︙︙
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

;; (import configfmod)
(import megamod)

;; (declare (uses rmt))

(use ducttape-lib)

(include "megatest-fossil-hash.scm")

;; (require-library stml)
(use stml2)

;; stuff for the mapper and checker functions
;;
(define *target-mappers*  (make-hash-table)) 








|








37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

;; (import configfmod)
(import megamod)

;; (declare (uses rmt))

(use ducttape-lib)

;; (include "megatest-fossil-hash.scm") ;; comes from megamod

;; (require-library stml)
(use stml2)

;; stuff for the mapper and checker functions
;;
(define *target-mappers*  (make-hash-table))
︙︙

Modified tcmt.scm from [92574c4144] to [64104d9e52].

︙︙
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

;; (declare (uses megatest-version))

(declare (uses megamod))
(declare (uses commonmod))
(import megamod)
(import commonmod)

(include "megatest-fossil-hash.scm")
(include "db_records.scm")

(define origargs (cdr (argv)))
(define remargs (args:get-args
		 (argv)
		 `( "-target"
		    "-reqtarg"








|








34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

;; (declare (uses megatest-version))

(declare (uses megamod))
(declare (uses commonmod))
(import megamod)
(import commonmod)

;; (include "megatest-fossil-hash.scm") ;; comes from megamod
(include "db_records.scm")

(define origargs (cdr (argv)))
(define remargs (args:get-args
		 (argv)
		 `( "-target"
		    "-reqtarg"
︙︙

This page was generated in about 0.131s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00