anchor.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- anchor.sa: 
-- Author: Benedict A. Gomes <gomes@icsib18.ICSI.Berkeley.EDU>
-- Copyright (C) 1995, International Computer Science Institute
-- anchor.sa,v 1.1 1995/11/15 03:36:33 gomes Exp
--
-- COPYRIGHT NOTICE: This code is provided WITHOUT ANY WARRANTY
-- and is subject to the terms of the SATHER LIBRARY GENERAL PUBLIC
-- LICENSE contained in the file: Sather/Doc/License of the
-- Sather distribution. The license is also available from ICSI,
-- 1947 Center St., Suite 600, Berkeley CA 94704, USA.


immutable class TK_ANCHOR 
immutable class TK_ANCHOR is
   -- Describes anchoring positions
   
   readonly attr str: STR;
   
   -- Creation routines
   nw: SAME is return #("nw") end;
   ne: SAME is return #("ne") end;
   sw: SAME is return #("sw") end;
   se: SAME is return #("se") end;
   n: SAME is return #("n") end;
   e: SAME is return #("e") end;
   s: SAME is return #("s") end;
   w: SAME is return #("w") end;
   center:SAME is return #("center"); end;

   private create(nm: STR): SAME is 
      res: SAME;  return res.str(nm);
   end;

   is_nil: BOOL is return void(str) end;
   
end; -- class TK_ANCHOR