@@ -15,12 +15,16 @@
 (declare (uses api))
 (declare (uses tdb))
 (declare (uses http-transport))
 
 ;;
-;; These are all called on the client side
+;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
 ;;
+
+;;======================================================================
+;;  S U P P O R T   F U N C T I O N S
+;;======================================================================
 
 ;; cmd is a symbol
 ;; vars is a json string encoding the parameters for the call
 ;;
 (define (rmt:send-receive cmd params)
@@ -50,33 +54,56 @@
 (define (rmt:json-str->dat json-str)
   (with-input-from-string json-str
     (lambda ()
       (json-read))))
 
+;;======================================================================
 ;;
-;; Actual api calls 
+;; A C T U A L   A P I   C A L L S  
 ;;
+;;======================================================================
+
+;;======================================================================
+;;  K E Y S 
+;;======================================================================
+
+(define (rmt:get-key-val-pairs run-id)
+  (rmt:send-receive 'get-key-val-pairs (list run-id)))
+
+;;======================================================================
+;;  T E S T S
+;;======================================================================
 
 (define (rmt:get-test-info-by-id test-id)
   (list->vector
    (rmt:send-receive 'get-test-info-by-id (list test-id))))
 
-(define (rmt:get-key-val-pairs run-id)
-  (rmt:send-receive 'get-key-val-pairs (list run-id)))
-
 (define (rmt:test-get-rundir-from-test-id test-id)
   (rmt:send-receive 'test-get-rundir-from-test-id (list test-id)))
 
 (define (rmt:open-test-db-by-test-id test-id #!key (work-area #f))
   (let* ((test-path (if (string? work-area)
 			work-area
 			(rmt:test-get-rundir-from-test-id test-id))))
     (debug:print 3 "TEST PATH: " test-path)
     (open-test-db test-path)))
+
+(define (rmt:testmeta-get-record testname)
+  (list->vector
+   (rmt:send-receive 'testmeta-get-record (list testname))))
+
+;;======================================================================
+;;  R U N S
+;;======================================================================
+
+(define (rmt:get-run-info run-id)
+  (let ((res (rmt:send-receive 'get-run-info (list run-id))))
+    (vector (car res)
+	    (list->vector (cadr res)))))
 
 ;;======================================================================
-;; S T E P S
+;;  S T E P S
 ;;======================================================================
 
 ;; Getting steps is more complicated.
 ;;
 ;; If given work area 
@@ -89,5 +116,15 @@
 (define (rmt:get-steps-for-test test-id #!key (work-area #f))
   (let* ((tdb (rmt:open-test-db-by-test-id test-id work-area: work-area)))
     (if tdb
 	(tdb:get-steps-data tdb test-id)
 	'())))
+
+;;======================================================================
+;;  T E S T   D A T A 
+;;======================================================================
+
+(define (rmt:read-test-data test-id categorypatt #!key (work-area #f)) 
+  (let ((tdb  (rmt:open-test-db-by-test-id test-id work-area: work-area)))
+    (if tdb
+	(tdb:read-test-data tdb test-id categorypatt)
+	'())))