fortran.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- Copyright (C) International Computer Science Institute, 1995.  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. <----------

-- fortran.sa: FORTRAN interface classes 


immutable class F_INTEGER 
immutable class F_INTEGER is
   -- FORTRAN INTEGER*4 type (built in type)
   create(x:INT):F_INTEGER is
      raise "F_INTEGER::create(INT):F_INTEGER undefined." 
   end;

   int:INT is
      -- A Sather integer version of self
      raise "F_INTEGER::int:INT undefined."
   end;
   
   str:STR is
      return int.str;
   end;
end;


immutable class F_REAL 
immutable class F_REAL is
   -- FORTRAN REAL type (built in type)

   create(x:FLT):F_REAL is
      raise "F_REAL::create(FLT):F_REAL undefined." 
   end;

   flt:FLT is
      -- A Sather FLT version of self
      raise "F_REAL::flt:FLT undefined."
   end;
   
   str:STR is
      return flt.str;
   end;
end;

-- These are not built in! (Not yet anyway)

class F_INTEGER_ARR 
class F_INTEGER_ARR is
   include AREF{F_INTEGER};
end;


class F_REAL_ARR 
class F_REAL_ARR is
   include AREF{F_REAL};
end;