Megatest

Check-in [7616160fe5]
Login
Overview
Comment:undid ugly (define debug:print debug:dprint)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v2.01-local-mtfiles | v2.01-try-1
Files: files | file ages | folders
SHA1: 7616160fe5daab0e0b1f61392187b6a1489fb7ba
User & Date: bjbarcla on 2019-01-03 18:17:41
Other Links: branch diff | manifest | tags
Context
2019-01-04
20:05
wip check-in: 97f137eb53 user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1
2019-01-03
18:17
undid ugly (define debug:print debug:dprint) check-in: 7616160fe5 user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1
12:42
captured comments in modules.scm check-in: e428cef775 user: bjbarcla tags: v2.01-local-mtfiles, v2.01-try-1
Changes

Modified Makefile from [e930f9f6b6] to [60ab8d3bf0].

216
217
218
219
220
221
222

223

224
225
226
227
228
229
230
216
217
218
219
220
221
222
223

224
225
226
227
228
229
230
231







+
-
+








megatest-fossil-hash.scm : $(SRCFILES) megatest.scm *_records.scm
	echo "(define megatest-fossil-hash \"$(MTESTHASH)\")" > megatest-fossil-hash.new
	if ! diff -q megatest-fossil-hash.new megatest-fossil-hash.scm ; then echo copying .new to .scm;cp -f megatest-fossil-hash.new megatest-fossil-hash.scm;fi

$(OFILES) $(GOFILES) : common_records.scm 

# TODO: make modules.scm changes trigger rebuild. modules.scm in following recipe does not work.
%.o : %.scm
%.o : %.scm modules.scm
	csc $(CSCOPTS) -c $<

$(PREFIX)/bin/.$(ARCHSTR)/mtest : mtest utils/mk_wrapper
	@echo Installing to PREFIX=$(PREFIX)
	$(INSTALL) mtest $(PREFIX)/bin/.$(ARCHSTR)/mtest
	utils/mk_wrapper $(PREFIX) mtest $(PREFIX)/bin/megatest
	chmod a+x $(PREFIX)/bin/megatest

Modified modules.scm from [a769f56f5f] to [5e6618e242].

16
17
18
19
20
21
22
23
24








16
17
18
19
20
21
22


23
24
25
26
27
28
29
30







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

(use (prefix mtargs    args:))
(use (prefix mtdebug   debug:))
(use (prefix mtconfigf configf:))
(define debug:print debug:dprint) ;; cannot name it print in mtdebug module
(define args:any? args:any-defined?) ;; canot name it any? in mtargs module

(print "BB> called once")
(configf:add-eval-string "(use (prefix mtargs    args:))
                          (use (prefix mtdebug   debug:))
                          (use (prefix mtconfigf configf:))")