Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -465,11 +465,25 @@
                                  val TEXT,
                                    CONSTRAINT no_sync_metadat_constraint UNIQUE (var));"
 			    "CREATE TABLE IF NOT EXISTS no_sync_locks 
                                 (key TEXT,
                                  val TEXT,
-                                   CONSTRAINT no_sync_metadat_constraint UNIQUE (key));"))))))
+                                   CONSTRAINT no_sync_metadat_constraint UNIQUE (key));"
+			    "CREATE TABLE IF NOT EXISTS processes
+                                (id INTEGER PRIMARY KEY,
+                                 host TEXT,
+                                 port INTEGER,
+                                 pid INTEGER,
+                                 starttime INTEGER,
+                                 endtime INTEGER,
+                                 status TEXT,
+                                 purpose TEXT,
+                                 dbname TEXT,
+                                 mtversion TEXT,
+                                 reason TEXT DEFAULT 'none',
+                                   CONSTRAINT no_sync_processes UNIQUE (host,pid);"
+			    ))))))
 	 (on-tmp      (equal? (car (string-split dbpath "/")) "tmp"))
 	 (db        (if on-tmp
 			(dbfile:cautious-open-database dbname init-proc 0 "WAL")
 			(dbfile:cautious-open-database dbname init-proc 0 #f)
 			;; (sqlite3:open-database dbname)
@@ -478,10 +492,38 @@
 	(begin
 	  (sqlite3:execute db "PRAGMA synchronous = 0;")
 	  (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))))
     db))
 
+;; processes table calls
+
+(define (dbfile:register-process nsdb host port pid starttime status purpose dbname mtversion)
+  (sqlite3:execute nsdb "INSERT INTO processes (?,?,?,?,?,?,?,?) VALUES (host,port,pid,starttime,status,purpose,dbname,mtversion);"
+		   host port pid starttime status purpose dbname mtversion))
+
+(define (dbfile:set-process-status nsdb host pid newstatus)
+  (sqlite3:execute nsdb "UPDATE processes SET status=? WHERE host=? AND pid=?;" newstatus host pid))
+
+(define (dbfile:get-process-options nsdb purpose dbname)
+  (sqlite3:fold-row
+   ;; host port pid starttime status mtversion
+   (lambda (res . row)
+     (cons row res))
+   '()
+   nsdb
+   "SELECT host,port,pid,starttime,status,mtversion FROM processes WHERE purpose=? AND dbname LIKE ? AND status='alive';"
+   purpose dbname))
+
+(define (dbfile:set-process-done nsdb host pid reason)
+  (sqlite3:execute nsdb "UPDATE processes SET status='ended',endtime=?,reason=? WHERE host=? AND pid=?;" (current-seconds) reason host pid)
+  (dbfile:cleanup-old-entries nsdb))
+
+(define (dbfile:cleanup-old-entries nsdb)
+  (sqlite3:execute nsdb "DELETE FROM process WHERE status='ended' AND endtime<?;" (- (current-seconds) (* 3600 48))))
+
+;; other no-sync functions
+
 (define (dbfile:with-no-sync-db dbpath proc)
   (mutex-lock! *no-sync-db-mutex*)
   (let* ((already-open *no-sync-db*)
 	 (db  (or already-open (dbfile:raw-open-no-sync-db dbpath)))
 	 (res (proc db)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -725,10 +725,24 @@
 (define (rmt:no-sync-del! var)
   (rmt:send-receive 'no-sync-del! #f `(,var)))
 
 (define (rmt:no-sync-get-lock keyname)
   (rmt:send-receive 'no-sync-get-lock #f `(,keyname)))
+
+;; process registration
+
+(define (rmt:register-process host port pid starttime status purpose dbname mtversion)
+  #f)
+
+(define (rmt:set-process-done host pid reason)
+  #f)
+
+(define (rmt:set-process-status host pid newstatus)
+  #f)
+
+(define (rmt:get-process-options purpose dbname)
+  #f)
 
 ;;======================================================================
 ;; A R C H I V E S
 ;;======================================================================