Re: Booch: missing r/w access through iterators

[mheaney@on2.com (Matthew Heaney)]

porton@ex-code.com (Victor Porton) wrote in message news:<3dc9ec63$0$300$bed64819@news.gradwell.net>...
> 
> I noticed Access_Current_Item, but with it to gain such access one
> needs to create a new procedure! Too bad. I want direct access like:
> 
> function Current_Item_Access(It: Iterator'Class) return Item_Access;

The Charles library does indeed have such a function:

   generic
      type Element_Access is
        access all Element_Type;
   function Generic_Element 
     (Iterator : Iterator_Type) return Element_Access;

This allows you to do this:

   function To_Access is new Generic_Element (...);

   declare
     E : Element_Subtype renames To_Access (Iterator).all;
   begin
     <now you have access to actual object>
   end;

The library is hosted at my web page:

http://home.earthlink.net/~matthewjheaney/charles/index.html