@@ -14,19 +14,24 @@
 ;;     GNU General Public License for more details.
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
+;;======================================================================
+;; Support routines for nmsg usage.
+;;   This should be reusable, non-megatest specific stuff
+;;======================================================================
+
 (declare (unit nmsg-transport))
 
 (module
- nmsg-transport
- (
-  nmsg:start-server
-  nmsg:open-send-close
-  nmsg:open-send-receive
-  )
+    nmsg-transport
+    (
+     nmsg:start-server
+     nmsg:open-send-close
+     nmsg:open-send-receive
+     )
 
 (import scheme posix chicken data-structures ports)
 
 (use pkts)
 (use nanomsg srfi-18)
@@ -114,6 +119,10 @@
        (thread-start! th1)
        (thread-start! th2)
        (thread-join! th1)
        res))))
 
+;; get a signature for identifing this process
+(define (nmsg:get-process-signature)
+  (conc (get-host-name) " " (current-process-id)))
+
 )