Re: Emulation of MatLab functions?

[Jacob Sparre Andersen <sparre@nbi.dk>]

Steve:

John Thornley published a sorting package somewhere.

Find should be pretty easy to implement. Something along the
lines of:

   --  The following is distributed according to the GNU GPL
or the
   --  ADCL (when it is finished).

   generic
      type Element_Type is private;
      type Element_Array is array (Integer range <>) of
Element_Type;
      with function Match (Item : Element_Type) return
Boolean;
   function Find (Source : Element_Array) return
Element_Array;

   function Find (Source : Element_Array) return
Element_Array is
      Match_Count : Natural := 0;
      Matches     : array (Source'Range) of Boolean;
   begin
      for Index in Source'Range loop
         Matches (Index) := Match (Source (Index));

         if Matches (Index) then
            Match_Count := Match_Count + 1;
         end if;
      end loop;

      declare
         Result       : Element_Array (1 .. Match_Count);
         Target_Index : Natural := 0;
      begin
         for Source_Index in Source'Range loop
            if Matches (Source_Index) then
               Target_Index := Target_Index + 1;
               Result (Target_Index) := Source
(Source_Index);
            end if;
         end loop;

         return Result;
      end;
   end Find;

Jacob
-- 
Warning: Dates in calendars are closer than they appear.