Megatest

Check-in [2415804df9]
Login
Overview
Comment:Added import of megamod for eval in configf
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-try3
Files: files | file ages | folders
SHA1: 2415804df98278e66a8f2a3837ec93f4c7ca1823
User & Date: matt on 2019-11-12 23:57:25
Other Links: branch diff | manifest | tags
Context
2019-11-16
03:17
Dashboard compiles check-in: dfa5ecc8d1 user: matt tags: v1.65-try3
2019-11-12
23:57
Added import of megamod for eval in configf check-in: 2415804df9 user: matt tags: v1.65-try3
23:26
First pass integration of the fix from Peter Bex for mtconfigf eval. Not quite working yet... check-in: e057f70f51 user: matt tags: v1.65-try3
Changes

Modified Makefile from [4fd2cd6834] to [8a87ee849e].

48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
OFILES   = $(SRCFILES:%.scm=%.o)
GOFILES  = $(GUISRCF:%.scm=%.o)

MOFILES = $(addprefix mofiles/,$(MSRCFILES:%.scm=%.o))
# compiled import files
MOIMPFILES = $(MSRCFILES:%.scm=%.import.o)

%.import.o : mofiles/%.o %.import.scm
	csc -unit $*.import -c $*.import.scm -o $*.import.o



mofiles/%.o : %.scm mofiles
	mkdir -p mofiles
	csc $(CSCOPTS) -J -c $< -o mofiles/$*.o

# a.import.o : a.import.scm a.o
# csc -unit a.import -c a.import.scm -o $*.o







|

<
<







48
49
50
51
52
53
54
55
56


57
58
59
60
61
62
63
OFILES   = $(SRCFILES:%.scm=%.o)
GOFILES  = $(GUISRCF:%.scm=%.o)

MOFILES = $(addprefix mofiles/,$(MSRCFILES:%.scm=%.o))
# compiled import files
MOIMPFILES = $(MSRCFILES:%.scm=%.import.o)

%.import.o : %.import.scm
	csc -unit $*.import -c $*.import.scm -o $*.import.o



mofiles/%.o : %.scm mofiles
	mkdir -p mofiles
	csc $(CSCOPTS) -J -c $< -o mofiles/$*.o

# a.import.o : a.import.scm a.o
# csc -unit a.import -c a.import.scm -o $*.o

Modified megatest.scm from [98225c2e93] to [9eb593a3a0].

78
79
80
81
82
83
84

85
86
87
88
89
90
91
(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)


(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

;; 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")))







>







78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
(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

;; 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")))