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 >
Wrap
Text File
|
1994-10-25
|
2KB
|
53 lines
-- Copyright (C) International Computer Science Institute, 1994. COPYRIGHT --
-- NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY and is subject --
-- to the terms of the SATHER LIBRARY GENERAL PUBLIC LICENSE contained in --
-- the file "Doc/License" of the Sather distribution. The license is also --
-- available from ICSI, 1947 Center St., Suite 600, Berkeley CA 94704, USA. --
--------> Please email comments to "sather-bugs@icsi.berkeley.edu". <----------
-- sys.sa: System related information.
-------------------------------------------------------------------
class SYS is
-- System related information.
const char_size:=8; -- Number of bits in a CHAR.
destroy(o:$OB) is
raise "SYS::destroy($OB) undefined" end;
id(o:$OB):INT is
raise "SYS::id($OB):INT undefined" end;
tp(o:$OB):INT is
raise "SYS::tp($OB):INT undefined" end;
str_for_tp(i:INT):STR is
raise "SYS::str_for_tp(INT):STR undefined"; end;
ob_eq(o1,o2:$OB):BOOL is
raise "SYS::ob_eq($OB,$OB):BOOL undefined"; end;
ext_ob_for(o:$OB):EXT_OB is
raise "SYS::ext_ob_for($OB):EXT_OB undefined"; end;
-- These indicate if any of the IEEE exceptions transpired.
-- They may be set/cleared by the programmer.
shared ieee_invalid_operation,
ieee_division_by_zero,
ieee_overflow,
ieee_underflow,
ieee_inexact:BOOL;
-- If an IEEE exception occurs while the corresponding ieee_trap_on
-- BOOL is set, then an exception will be generated.
shared ieee_trap_on_invalid_operation,
ieee_trap_on_division_by_zero,
ieee_trap_on_overflow,
ieee_trap_on_underflow,
ieee_trap_on_inexact:BOOL;
end; -- class SYS
--external class C_SYS is
-- c_SYS_is_value_tp_INT_BOOL(i:INT):BOOL;
--end;