@@ -127,218 +127,5 @@
       (api:unregister-thread (current-thread))
       result)))
 
 (define api:tcp-dispatch-request-make-handler api:tcp-dispatch-request-make-handler-old) ;; choose -old or -new
 
-(define *api-halt-writes* #f)
-
-(define (api:dispatch-request dbstruct cmd run-id params)
-  (if (not *no-sync-db*)
-      (db:open-no-sync-db))
-  (let* ((start-time (current-milliseconds)))
-    (if (member cmd api:write-queries)
-	(let loop ()
-	  (if *api-halt-writes*
-	      (begin
-		(thread-sleep! 0.2)
-		(if (< (- (current-milliseconds) start-time)
-		       5000) ;; hope it don't take more than five seconds to sync
-		    (loop-time)
-		    #;(debug:print 0 *default-log-port* "ERROR: writes halted for more than 5 seconds, sync might be taking too long"))))))
-    (db:add-stats 'api-write-blocking-for-sync run-id params (- (current-milliseconds) start-time)))
-  (case cmd
-    ;;===============================================
-    ;; READ/WRITE QUERIES
-    ;;===============================================
-
-    ((get-keys-write)                        (db:get-keys dbstruct)) ;; force a dummy "write" query to force server; for debug in -repl
-    
-    ;; SERVERS
-    ((start-server)                    (apply tt:server-process-run params))
-    ((kill-server)                     (set! *server-run* #f))
-
-    ;; TESTS
-
-    ;;((test-set-state-status-by-id)     (apply mt:test-set-state-status-by-id dbstruct params))
-    ;;BB - commented out above because it was calling below, eventually, incorrectly (dbstruct passed to mt:test-set-state-status-by-id, which previosly did more, but now only passes thru to db:set-state-status-and-roll-up-items.
-    ((test-set-state-status-by-id)
-
-     ;; (define (db:set-state-status-and-roll-up-items dbstruct run-id test-name item-path state status comment)
-     (db:set-state-status-and-roll-up-items
-      dbstruct
-      (list-ref params 0) ; run-id
-      (list-ref params 1) ; test-name
-      #f                  ; item-path
-      (list-ref params 2) ; state
-      (list-ref params 3) ; status
-      (list-ref params 4) ; comment
-      ))
-    
-    ((delete-test-records)             (apply db:delete-test-records dbstruct params))
-    ((delete-old-deleted-test-records) (apply db:delete-old-deleted-test-records dbstruct params))
-    ((test-set-state-status)           (apply db:test-set-state-status dbstruct params))
-    ((test-set-top-process-pid)        (apply db:test-set-top-process-pid dbstruct params))
-    ((set-state-status-and-roll-up-items) (apply db:set-state-status-and-roll-up-items dbstruct params))
-    ((set-state-status-and-roll-up-run) (apply db:set-state-status-and-roll-up-run dbstruct params)) 
-    ((top-test-set-per-pf-counts)       (apply db:top-test-set-per-pf-counts dbstruct params))
-    ((test-set-archive-block-id)        (apply db:test-set-archive-block-id dbstruct params))
-
-    ((insert-test)                      (db:insert-test dbstruct run-id params))
-
-    ;; RUNS
-    ((register-run)                 (apply db:register-run dbstruct params))
-    ((set-tests-state-status)       (apply db:set-tests-state-status dbstruct params))
-    ((delete-run)                   (apply db:delete-run dbstruct params))
-    ((lock/unlock-run)              (apply db:lock/unlock-run dbstruct params))
-    ((update-run-event_time)        (apply db:update-run-event_time dbstruct params))
-    ((update-run-stats)             (apply db:update-run-stats dbstruct params))
-    ((set-var)                      (apply db:set-var dbstruct params))
-    ((inc-var)                      (apply db:inc-var dbstruct params))
-    ((dec-var)                      (apply db:dec-var dbstruct params))
-    ((del-var)                      (apply db:del-var dbstruct params))
-    ((add-var)                      (apply db:add-var dbstruct params))
-
-    ((insert-run)                   (apply db:insert-run dbstruct params))
-
-    ;; STEPS
-    ((teststep-set-status!)         (apply db:teststep-set-status! dbstruct params))
-    ((delete-steps-for-test!)       (apply db:delete-steps-for-test! dbstruct params))
-    
-    ;; TEST DATA
-    ((test-data-rollup)             (apply db:test-data-rollup dbstruct params))
-    ((csv->test-data)               (apply db:csv->test-data dbstruct params))
-
-    ;; MISC
-    ((sync-cachedb->db)               (let ((run-id (car params)))
-                                      (db:sync-touched dbstruct run-id db:initialize-main-db force-sync: #t)))
-    ((get-toplevels-and-incompletes) (apply db:get-toplevels-and-incompletes dbstruct params))
-    ((mark-incomplete)              #f);;(thread-start! (make-thread (lambda () ;; no need to block on this one
-					;;			  (apply db:find-and-mark-incomplete dbstruct params)
-					;;			  #t)))) 
-    ((create-all-triggers)          (db:create-all-triggers dbstruct))
-    ((drop-all-triggers)            (db:drop-all-triggers dbstruct)) 
-
-    ;; TESTMETA
-    ((testmeta-add-record)       (apply db:testmeta-add-record dbstruct params))
-    ((testmeta-update-field)     (apply db:testmeta-update-field dbstruct params))
-    ((get-tests-tags)            (db:get-tests-tags dbstruct))
-
-    ;; TASKS
-    ((tasks-add)                 (apply tasks:add dbstruct params))   
-    ((tasks-set-state-given-param-key) (apply tasks:set-state-given-param-key dbstruct params))
-    ((tasks-get-last)            (apply tasks:get-last dbstruct params))
-
-    ;; NO SYNC DB
-    ((no-sync-set)               (apply db:no-sync-set         *no-sync-db* params))
-    ((no-sync-get/default)       (apply db:no-sync-get/default *no-sync-db* params))
-    ((no-sync-del!)              (apply db:no-sync-del!        *no-sync-db* params))
-    ((no-sync-get-lock)          (apply db:no-sync-get-lock    *no-sync-db* params))
-
-    ;; NO SYNC DB PROCESSES
-    ((register-process)          (apply dbfile:register-process *no-sync-db* params))
-    ((set-process-done)          (apply dbfile:set-process-done *no-sync-db* params))
-    ((set-process-status)        (apply dbfile:set-process-status *no-sync-db* params))
-    ((get-process-options)       (apply dbfile:get-process-options *no-sync-db* params))
-    
-    ;; ARCHIVES
-    ;; ((archive-get-allocations)   
-    ((archive-register-disk)     (apply db:archive-register-disk dbstruct params))
-    ((archive-register-block-name)(apply db:archive-register-block-name dbstruct params))
-    ;; ((archive-allocate-testsuite/area-to-block)(apply db:archive-allocate-testsuite/area-to-block dbstruct block-id testsuite-name areakey))
-
-    ;;======================================================================
-    ;; READ ONLY QUERIES
-    ;;======================================================================
-
-    ;; KEYS
-    ((get-key-val-pairs)               (apply db:get-key-val-pairs dbstruct params))
-    ((get-keys)                        (db:get-keys dbstruct))
-    ((get-key-vals)                    (apply db:get-key-vals dbstruct params))
-    ((get-target)                      (apply db:get-target dbstruct params))
-    ((get-targets)                     (db:get-targets dbstruct))
-
-    ;; ARCHIVES
-    ((test-get-archive-block-info)     (apply db:test-get-archive-block-info dbstruct params))
-    
-    ;; TESTS
-    ((test-toplevel-num-items)         (apply db:test-toplevel-num-items dbstruct params))
-    ((get-test-info-by-id)	       (apply db:get-test-info-by-id dbstruct params))
-    ((get-test-state-status-by-id)     (apply db:get-test-state-status-by-id dbstruct params))
-    ((test-get-rundir-from-test-id)    (apply db:test-get-rundir-from-test-id dbstruct params))
-    ((get-count-tests-running-for-testname) (apply db:get-count-tests-running-for-testname dbstruct params))
-    ((get-count-tests-running)         (apply db:get-count-tests-running dbstruct params))
-    ((get-count-tests-running-in-jobgroup) (apply db:get-count-tests-running-in-jobgroup dbstruct params))
-    ;; ((delete-test-step-records)        (apply db:delete-test-step-records dbstruct params))
-    ;; ((get-previous-test-run-record)    (apply db:get-previous-test-run-record dbstruct params))
-    ((get-matching-previous-test-run-records)(apply db:get-matching-previous-test-run-records dbstruct params))
-    ((test-get-logfile-info)           (apply db:test-get-logfile-info dbstruct params))
-    ((test-get-records-for-index-file)  (apply db:test-get-records-for-index-file dbstruct params))
-    ((get-testinfo-state-status)       (apply db:get-testinfo-state-status dbstruct params))
-    ((test-get-top-process-pid)        (apply db:test-get-top-process-pid dbstruct params))
-    ((test-get-paths-matching-keynames-target-new) (apply db:test-get-paths-matching-keynames-target-new dbstruct params))
-    ((get-prereqs-not-met)             (apply db:get-prereqs-not-met dbstruct params))
-    ((get-count-tests-running-for-run-id) (apply db:get-count-tests-running-for-run-id dbstruct params))
-    ((get-not-completed-cnt)           (apply db:get-not-completed-cnt  dbstruct params)) 
-    ((get-raw-run-stats)               (apply db:get-raw-run-stats dbstruct params))
-    ((get-test-times)                  (apply db:get-test-times dbstruct params))
-
-    ;; RUNS
-    ((get-run-info)                 (apply db:get-run-info dbstruct params))
-    ((get-run-status)               (apply db:get-run-status dbstruct params))
-    ((get-run-state)                (apply db:get-run-state dbstruct params))
-    ((get-run-state-status)         (apply db:get-run-state-status dbstruct params))
-    ((set-run-status)               (apply db:set-run-status dbstruct params))
-    ((set-run-state-status)  			 (apply db:set-run-state-status dbstruct params))
-    ((update-tesdata-on-repilcate-db) (apply db:update-tesdata-on-repilcate-db  dbstruct params)) 
-    ((get-tests-for-run)            (apply db:get-tests-for-run dbstruct params))
-    ((get-tests-for-run-state-status) (apply db:get-tests-for-run-state-status dbstruct params))
-    ((get-test-id)                  (apply db:get-test-id dbstruct params))
-    ((get-tests-for-run-mindata)    (apply db:get-tests-for-run-mindata dbstruct params))
-    ;; ((get-tests-for-runs-mindata)   (apply db:get-tests-for-runs-mindata dbstruct params))
-    ((get-runs)                     (apply db:get-runs dbstruct params))
-    ((simple-get-runs)              (apply db:simple-get-runs dbstruct params))
-    ((get-num-runs)                 (apply db:get-num-runs dbstruct params))
-    ((get-runs-cnt-by-patt)         (apply db:get-runs-cnt-by-patt dbstruct params))
-    ((get-all-run-ids)              (db:get-all-run-ids dbstruct))
-    ((get-prev-run-ids)             (apply db:get-prev-run-ids dbstruct params))
-    ((get-run-ids-matching-target)  (apply db:get-run-ids-matching-target dbstruct params))
-    ((get-runs-by-patt)             (apply db:get-runs-by-patt dbstruct params))
-    ((get-run-name-from-id)         (apply db:get-run-name-from-id dbstruct params))
-    ((get-main-run-stats)           (apply db:get-main-run-stats dbstruct params))
-    ((get-var)                      (apply db:get-var dbstruct params))
-    ((get-run-stats)                (apply db:get-run-stats dbstruct params))
-    ((get-run-times)                (apply db:get-run-times dbstruct params)) 
-
-    ;; STEPS
-    ((get-steps-data)               (apply db:get-steps-data dbstruct params))
-    ((get-steps-for-test)           (apply db:get-steps-for-test dbstruct params))
-    ((get-steps-info-by-id)         (apply db:get-steps-info-by-id dbstruct params))
-
-    ;; TEST DATA
-    ((read-test-data)               (apply db:read-test-data dbstruct params))
-    ((read-test-data-varpatt)       (apply db:read-test-data-varpatt dbstruct params))
-    ((get-data-info-by-id)          (apply db:get-data-info-by-id dbstruct params)) 
-
-    ;; MISC
-    ((get-latest-host-load)         (apply db:get-latest-host-load dbstruct params))
-    ((have-incompletes?)            (apply db:have-incompletes? dbstruct params))
-    ((login)                        (apply db:login dbstruct params))
-    ((general-call)                 (let ((stmtname   (car params))
-                                          (run-id     (cadr params))
-                                          (realparams (cddr params)))
-                                      (db:general-call dbstruct run-id stmtname realparams)))
-    ((sdb-qry)                      (apply sdb:qry params))
-    ((ping)                         (current-process-id))
-    ((get-changed-record-ids)       (apply db:get-changed-record-ids dbstruct params))
-    ((get-changed-record-test-ids)  (apply db:get-changed-record-test-ids dbstruct params))
-    ((get-changed-record-run-ids)  (apply db:get-changed-record-run-ids dbstruct params))
-    ((get-run-record-ids) 	    (apply db:get-run-record-ids dbstruct params))
-    ((get-all-runids)               (apply db:get-all-runids dbstruct))	
-    ;; TESTMETA
-    ((testmeta-get-record)       (apply db:testmeta-get-record dbstruct params))
-
-    ;; TASKS 
-    ((find-task-queue-records)   (apply tasks:find-task-queue-records dbstruct params))
-    (else
-     (debug:print 0 *default-log-port* "ERROR: bad api call " cmd)
-     (conc "ERROR: BAD api call " cmd))))
-