src/OSD/OSD_Host.cdl

   1
   2 --Copyright:      Matra Datavision 1992,1993
   3
   4 -- File:          OSD_Host.cdl
   5 -- Created:       Tue 18 1992
   6 -- Author:        Stephan GARNAUD (ARM)
   7 --                <sga@sparc4>
   8
   9
  10 class Host from OSD
  11
  12  ---Purpose: Carries information about a Host
  13
  14
  15 uses SysType, OEMType, Error, AsciiString from TCollection
  16 raises ConstructionError, NullObject, OSDError
  17
  18  is
  19
  20   Create returns Host;
  21     ---Purpose: Initializes current host by default.
  22     ---Level: Advanced
  23
  24   SystemVersion (me : in out) returns AsciiString is static;
  25     ---Purpose: Returns system name and version
  26     ---Level: Advanced
  27
  28   SystemId (me) returns SysType is static;
  29     ---Purpose: Returns the system type (UNIX System V, UNIX BSD, MS-DOS...)
  30     ---Level: Advanced
  31
  32   HostName (me : in out) returns AsciiString is static;
  33     ---Purpose: Returns host name.
  34     ---Level: Advanced
  35
  36   AvailableMemory (me : in out)  returns Integer is static;
  37     ---Purpose: Returns available memory in Kilobytes.
  38     ---Level: Obsolete syntax. Will be removed in next version
  39
  40   InternetAddress (me : in out) returns AsciiString is static;
  41     ---Purpose: Returns Internet address of current host.
  42     ---Level: Advanced
  43
  44   MachineType (me : in out) returns OEMType is static;
  45     ---Purpose: Returns type of current machine.
  46     ---Level: Advanced
  47
  48  Failed (me) returns Boolean is static;
  49    ---Purpose: Returns TRUE if an error occurs
  50    ---Level: Advanced
  51
  52  Reset (me : in out) is static;
  53    ---Purpose: Resets error counter to zero
  54    ---Level: Advanced
  55
  56  Perror (me : in out)
  57    ---Purpose: Raises OSD_Error
  58    ---Level: Advanced
  59    raises OSDError is static;
  60
  61  Error (me) returns Integer is static;
  62    ---Purpose: Returns error number if 'Failed' is TRUE.
  63    ---Level: Advanced
  64
  65 fields
  66   myName   : AsciiString;
  67   myError  : Error;
  68 end Host from OSD;
  69
  70