#!/usr/local/bin/tops -s /usr/local/tops/sys -u /opt/mytops/usr/
{  File topse  February 2008

   Copyright (C) 2008  Dale R. Williamson

   Real time data collection 
}
\-----------------------------------------------------------------------

\  Words.

   CATMSG push no catmsg

   "mget.v" source

   inline: START ( --- )
      soonest_task (f) IF COLLECT_START ELSE COLLECT_END THEN
   end

   pull catmsg

\-----------------------------------------------------------------------

\  SYSOUT must be defined for daemon output.  These lines define a
\  LOG file and set SYSOUT to LOG file:
   "HOME" env "topse.log" catpath "LOG" book
   LOG set_sysout \ SYSOUT will be LOG

\  Write the first lines to LOG file:
   "-" 80 cats nl dot nl
   "PID " getpid intstr + spaced date + dot nl

\  Sync the program time:
   NIST_SYNC

\  Run START on an ALARM that gives DSERVER time to start:
   2 (sec) "START" ALARM

\-----------------------------------------------------------------------

\  Start a daemon server, running forever.

\  This server is only for the purpose of connecting for maintenance
\  and debugging, through word remoteprompt().
   "*" def_port nextport DSERVER

\-----------------------------------------------------------------------
