Megatest

  -list-db-targets        : list the target combinations used in the db
  -show-config            : dump the internal representation of the megatest.config file
  -show-runconfig         : dump the internal representation of the runconfigs.config file
  -dumpmode json          : dump in json format instead of sexpr
  -show-cmdinfo           : dump the command info for a test (run in test environment)
  -section sectionName
  -var varName            : for config and runconfig lookup value for sectionName varName
  -changed-runs-since N   : get list of runs changed since time N (Unix seconds)

Misc 
  -start-dir path         : switch to this directory before running megatest
  -rebuild-db             : bring the database schema up to date
  -cleanup-db             : remove any orphan records, vacuum the db
  -import-megatest.db     : migrate a database from v1.55 series to v1.60 series
  -sync-to-megatest.db    : migrate data back to megatest.db

			"-dumpmode"
			"-run-id"
			"-ping"
			"-refdb2dat"
			"-o"
			"-log"
			"-archive"
			"-changed-runs-since"
			) 
		 (list  "-h" "-help" "--help"
			"-version"
		        "-force"
		        "-xterm"
		        "-showkeys"
		        "-show-keys"

						 (tdb:step-get-event_time step)))
				       steps)))))))))
		      tests)))))
	   runs)
	  (if (eq? dmode 'json)(json-write data))
	  (set! *didsomething* #t))))

(if (and (args:get-arg "-changed-runs-since")
	 (launch:setup-for-run))
    (let* ((since-time (string->number (args:get-arg "-changed-runs-since")))
	   (dbdir      (db:dbfile-path #f)) ;; (configf:lookup *configdat* "setup" "dbdir"))
	   (alldbs     (glob (conc dbdir "/[0-9]*.db")))
	   (changed    (filter (lambda (dbfile)
				 (> (file-modification-time dbfile) since-time))
			       alldbs))
	   (run-ids    (delete-duplicates
			(map (lambda (dbfile)
			       (let* ((res (string-match ".*\\/(\\d)*\\.db" dbfile)))
				 (if res
				     (string->number (cadr res))
				     (begin
				       (debug:print 2 "ERROR: Failed to process " dbfile " for run-id")
				       0))))
			     changed))))
      ;; (rmt:get-tests-for-runs-mindata run-ids testpatt states status not-in)
      (print (sort run-ids <))
      (set! *didsomething* #t)))
      
      
;;======================================================================
;; full run
;;======================================================================

;; get lock in db for full run for this directory
;; for all tests with deps
;;   walk tree of tests to find head tasks