Re: Problem with generic linked list package

[Laurent <daemon2@internet.lu>]

@Simon

Thanks for the example.

   type Rec is record 
      B : Boolean; 
      I : Integer; 
   end record; 
   function "<" (L, R : Rec) return Boolean is 
   begin 
      return L.I < R.I; 
   end "<"; 

Would that work for a record like this or would I have to define a function for every imaginable record?

ie:  type Rec is record
             S: String;
             I: Integer;
             D: Date;
     end record;

Or could I do this (just a little piece of code hope you understand what I mean):

els if Element.Rec.I < L.Head.all.Element.Rec.I then 
         Add_To_Front (L, Element);

Thanks

Laurent