-- (C) Copyright International Business Machines Corporation 23 January 
-- 1990.  All Rights Reserved. 
--  
-- See the file USERAGREEMENT distributed with this software for full 
-- terms and conditions of use. 
-- SCCS Info: @(#)sysmain.d	1.3 3/11/91

sysmain: using (common, terminalIO, sysRManager) definitions

  -- interface to Hermes main programs invoked with the -sys
  -- command-line option (as called by root.p)

  sysmain: callmessage (
    argv: common!charstringList,
    terminal: terminalIO!terminalFunctions,
    rm: sysRManager!sysRManager
  )
  constant (argv)		-- note: rmanager and terminal can be
				-- changed by the user program
  exit {full}
  minimum {full};
  
  sysmainQ: inport of sysmain {full};
  sysmainFn: outport of sysmainQ;
  
end definitions
