home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / LIBRARY / SYS.SA < prev    next >
Text File  |  1994-10-25  |  2KB  |  53 lines
  1. -- Copyright (C) International Computer Science Institute, 1994.  COPYRIGHT  --
  2. -- NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY and is subject --
  3. -- to the terms of the SATHER LIBRARY GENERAL PUBLIC LICENSE contained in    --
  4. -- the file "Doc/License" of the Sather distribution.  The license is also   --
  5. -- available from ICSI, 1947 Center St., Suite 600, Berkeley CA 94704, USA.  --
  6. --------> Please email comments to "sather-bugs@icsi.berkeley.edu". <----------
  7.  
  8. -- sys.sa: System related information.
  9. -------------------------------------------------------------------
  10. class SYS is
  11.    -- System related information.
  12.    const char_size:=8;        -- Number of bits in a CHAR.
  13.    
  14.    destroy(o:$OB) is
  15.       raise "SYS::destroy($OB) undefined" end;
  16.    
  17.    id(o:$OB):INT is
  18.       raise "SYS::id($OB):INT undefined" end;
  19.  
  20.    tp(o:$OB):INT is
  21.       raise "SYS::tp($OB):INT undefined" end;
  22.  
  23.    str_for_tp(i:INT):STR is
  24.       raise "SYS::str_for_tp(INT):STR undefined"; end;
  25.  
  26.    ob_eq(o1,o2:$OB):BOOL is
  27.       raise "SYS::ob_eq($OB,$OB):BOOL undefined"; end;
  28.    
  29.    ext_ob_for(o:$OB):EXT_OB is
  30.        raise "SYS::ext_ob_for($OB):EXT_OB undefined"; end;
  31.    
  32.    -- These indicate if any of the IEEE exceptions transpired.
  33.    -- They may be set/cleared by the programmer.
  34.    shared ieee_invalid_operation,
  35.       ieee_division_by_zero,
  36.       ieee_overflow,
  37.       ieee_underflow,
  38.       ieee_inexact:BOOL;
  39.  
  40.    -- If an IEEE exception occurs while the corresponding ieee_trap_on
  41.    -- BOOL is set, then an exception will be generated.
  42.    shared ieee_trap_on_invalid_operation,
  43.       ieee_trap_on_division_by_zero,
  44.       ieee_trap_on_overflow,
  45.       ieee_trap_on_underflow,
  46.       ieee_trap_on_inexact:BOOL;
  47.    
  48. end; -- class SYS
  49.  
  50. --external class C_SYS is
  51. --   c_SYS_is_value_tp_INT_BOOL(i:INT):BOOL;
  52. --end;
  53.