with Types; use Types;

package Locations is

   type location is record
      File  : name_id;
      Dir   : name_id;
      Line  : int;
      First : text_ptr;
      Last  : text_ptr;
      Scan  : text_ptr;
   end record;

   No_Location : constant location := (No_Name, No_Name, 0, 0, 0, 0);

   function Image (Loc : location) return String;

   procedure Set_New_Location
     (Loc  : in out location;
      Name :        name_id;
      Line :        int);

   function "<" (Op1, Op2 : location) return Boolean;

end Locations;