home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sa104os2.zip / SATHR104.ZIP / SATHER / LIBRARY / FLT_OTHR.SA < prev    next >
Text File  |  1994-10-25  |  2KB  |  60 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. -------------------------------------------------------------------
  9. value class FLTX is
  10.    -- IEEE extended precision floating point.
  11.  
  12.    str:STR is
  13.       -- ***
  14.       raise "FLTX::str:STR is undefined."                  
  15.    end;
  16.    
  17.    str_in(s:FSTR):FSTR is
  18.       -- Append a string version of self to `s' and return it.
  19.       --***
  20.       raise "FLTX::str_in missing."            
  21.    end;
  22.    
  23. end; -- class FLTE
  24.  
  25. -------------------------------------------------------------------
  26. value class FLTDX is
  27.    -- IEEE double extended precision floating point.
  28.    
  29.    str:STR is
  30.       -- ***
  31.       raise "FLTDX::str:STR is undefined."                  
  32.    end;
  33.    
  34.    str_in(s:FSTR):FSTR is
  35.       -- Append a string version of self to `s' and return it.
  36.       --***
  37.       raise "FLTDX::str_in missing."                  
  38.    end;
  39.    
  40. end; -- class FLTDE
  41.  
  42. -------------------------------------------------------------------
  43. class FLTI is
  44.    -- Infinite precision floating point.
  45.  
  46.    str:STR is
  47.       -- ***
  48.       raise "FLTI::str:STR is undefined."                  
  49.    end;
  50.    
  51.    str_in(s:FSTR):FSTR is
  52.       -- Append a string version of self to `s' and return it.
  53.       --***
  54.       raise "FLTI::str_in missing."                  
  55.    end;
  56.    
  57. end; -- class FLTI
  58.  
  59. -------------------------------------------------------------------
  60.