503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
|
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
|
-
-
-
-
-
+
+
+
+
+
|
Version " megatest-version ", built from " megatest-fossil-hash ))
(define (main)
(make-and-init-bigdata)
;; set up the functions in http transport
(hash-table-set! *http-functions* 'api:process-request api:process-request)
(hash-table-set! *http-functions* 'http-transport:main-page http-transport:main-page)
(hash-table-set! *http-functions* 'http-transport:show-jquery http-transport:show-jquery)
(hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log)
(hash-table-set! *http-functions* 'http-transport:html-dboard http-transport:html-dboard)
;; (hash-table-set! *http-functions* 'api:process-request api:process-request)
;; (hash-table-set! *http-functions* 'http-transport:main-page http-transport:main-page)
;; (hash-table-set! *http-functions* 'http-transport:show-jquery http-transport:show-jquery)
;; (hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log)
;; (hash-table-set! *http-functions* 'http-transport:html-dboard http-transport:html-dboard)
;; 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)
(load debugcontrolf)))
|