Megatest

Check-in [a1dbd06515]
Login
Overview
Comment:Minor tidy up
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: a1dbd06515099561a77523765ad303e23051b456
User & Date: mrwellan on 2017-09-06 11:47:27
Other Links: branch diff | manifest | tags
Context
2017-09-06
14:56
test data synced into pgdb check-in: 8a40b211a4 user: pjhatwal tags: v1.65
11:47
Minor tidy up check-in: a1dbd06515 user: mrwellan tags: v1.65
2017-09-01
15:50
pgdb test-step sync completed check-in: 2f03232e1d user: pjhatwal tags: v1.65
2017-06-21
18:52
Unknown old merge? Leaf check-in: 5464c15055 user: matt tags: v1.65-unknown
Changes

Modified mtut.scm from [e9393f688c] to [6bb8fa9976].

454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
                             "timer thread")))
       (thread-start! th1)
       (thread-start! th2)
       (thread-join! th1)
       res))))

;;======================================================================


;; Runs
;;======================================================================

;; make a runname
;;
(define (make-runname pre post)
 (time->string







<
<







454
455
456
457
458
459
460


461
462
463
464
465
466
467
                             "timer thread")))
       (thread-start! th1)
       (thread-start! th2)
       (thread-join! th1)
       res))))

;;======================================================================


;; Runs
;;======================================================================

;; make a runname
;;
(define (make-runname pre post)
 (time->string
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
		     given-toppath: start-dir
		     ;; pathenvvar: "MT_RUN_AREA_HOME"
		     ))
	 (mtconf    (if mtconfdat (car mtconfdat) #f)))
    ;; we set some dynamic data in a section called "scratchdata"
    (if mtconf
	(begin
           
	  (configf:section-var-set! mtconf "scratchdat" "toppath" start-dir)))
    ;; (print "TOPPATH: " (configf:lookup mtconf "scratchdat" "toppath"))
    mtconfdat))


;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.








<







522
523
524
525
526
527
528

529
530
531
532
533
534
535
		     given-toppath: start-dir
		     ;; pathenvvar: "MT_RUN_AREA_HOME"
		     ))
	 (mtconf    (if mtconfdat (car mtconfdat) #f)))
    ;; we set some dynamic data in a section called "scratchdata"
    (if mtconf
	(begin

	  (configf:section-var-set! mtconf "scratchdat" "toppath" start-dir)))
    ;; (print "TOPPATH: " (configf:lookup mtconf "scratchdat" "toppath"))
    mtconfdat))


;; NEED TIMESTAMP ON PKTS for efficient loading of packets into db.