home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / queuem2 / quedsply.def < prev    next >
Text File  |  1989-08-02  |  1KB  |  54 lines
  1. (* source: h:\modula\code\queues\QueDsply.DEF   v1.0a       revised: 88.07.17
  2.    author: G.Greene, AGCS D/429 (NS/TS), 312/681-7783       created: 88.07.17
  3.  
  4.    function:
  5.     Definitions of procedures used by main program module QueueExample to
  6.     create and update a graphic display of queue and server status.
  7.  
  8.    history:
  9.     88.06.10  1.0a  initial release
  10. *)
  11.  
  12.  
  13. DEFINITION MODULE QueDsply;
  14.  
  15.  
  16. FROM  QueData  IMPORT  (*TYPE*)  QueueListIndices,  QueueLists,  ServerLists;
  17.  
  18.  
  19. TYPE
  20.   DisplayActions  = ( Mark, Unmark );
  21.   MessageTypes    = ( WarningMessage, ErrorMessage );
  22.  
  23.  
  24. PROCEDURE  DisplayStatusMatrix ( );
  25.  
  26.  
  27. PROCEDURE  ChangeQueueDisplay (
  28.                        (*in*)  Queue:  CARDINAL;
  29.                        (*in*)  Length: CARDINAL;
  30.                        (*in*)  Action: DisplayActions );
  31.  
  32.  
  33. PROCEDURE  ChangeServerDisplay (
  34.                         (*in*)  Queue:  CARDINAL;
  35.                         (*in*)  Server: CARDINAL;
  36.                         (*in*)  Action: DisplayActions );
  37.  
  38.  
  39. PROCEDURE  DisplayCurrentTime (
  40.                        (*in*)  Time: CARDINAL );
  41.  
  42.  
  43. PROCEDURE  DisplayMessage (
  44.                    (*in*)  MessageType: MessageTypes;
  45.                    (*in*)  Message:  ARRAY  OF CHAR );
  46.  
  47.  
  48. PROCEDURE  DisplaySummary (
  49.                            QueueList:  QueueLists;
  50.                            ServerList: ServerLists;
  51.                            NumberOfQueues: QueueListIndices );
  52.  
  53. END  QueDsply.
  54.