home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SHSUCD11.ZIP / SERVTASK.ADS < prev    next >
Encoding:
Text File  |  1995-06-29  |  1.5 KB  |  59 lines
  1. --************************************************************************
  2. --
  3. --  SERVTASK.ADS               Version 3.0
  4. --
  5. --  A copyright-reserved, free use program.
  6. --  (c)John H. McCoy, 1994, Sam Houston St. Univ., TX 77341-2206
  7. --************************************************************************
  8.  
  9. with Types; use Types;
  10. with NetBios; use NetBios;
  11. with Drivers; use Drivers;
  12. with system;
  13. with calendar;
  14.  
  15. package ServerTasks is
  16.  
  17. task type Nets is
  18.   entry Start(Name: string16);
  19.   entry Call (Ncb: ncbAccess);
  20.   entry Hold;
  21.   entry ShutDown;
  22.   pragma priority(20);
  23. end Nets;
  24. for Nets'storage_size use 1024;
  25.  
  26. type NetAccess is access Nets;
  27.  
  28. task type Schedulers is
  29.   entry Listen(Net : NetAccess;
  30.                Ncb : ncbAccess);
  31.   entry ShutDown;
  32. end Schedulers;
  33. for Schedulers'storage_size use 1024;
  34.  
  35. type SchedulerAccess is access Schedulers;
  36.  
  37. task type Sessions is
  38.   entry Start(Net       : NetAccess;
  39.               LocalName : string16;
  40.               SubUnits  : byte;
  41.               Scheduler : SchedulerAccess);
  42. end Sessions;
  43. for Sessions'storage_size use 704;
  44. type SessionsAccess is access Sessions;
  45.  
  46. task type Consoles is
  47.   entry Init(MaxSessions: integer;
  48.              LastCd     : integer;
  49.              ServerName : string16);
  50.   entry SignIn(SessionNumber: byte;
  51.                Client       : String16);
  52.   entry SignOut(SessionNumber: byte);
  53.   entry CkIn(SessionNumber: byte);
  54.   entry ShutDown;
  55. end Consoles;
  56. for Consoles'storage_size use 1024;
  57. Console : Consoles;
  58.  
  59. end ServerTasks;