From 8c3ee7c18f21962176668130a923608da1f52928 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 3 Jun 2019 18:28:46 +0200 Subject: files_map-editor: add Fill_Text_Ptr. --- src/files_map-editor.adb | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) (limited to 'src/files_map-editor.adb') diff --git a/src/files_map-editor.adb b/src/files_map-editor.adb index 06b5d3385..6253d1cf7 100644 --- a/src/files_map-editor.adb +++ b/src/files_map-editor.adb @@ -373,6 +373,35 @@ package body Files_Map.Editor is Text_Ptr (0 .. Text_Len - 1)); end Replace_Text_Ptr; + procedure Fill_Text_Ptr (File : Source_File_Entry; + Text_Ptr : File_Buffer_Ptr; + Text_Len : Source_Ptr) + is + pragma Assert (File <= Source_Files.Last); + F : Source_File_Record renames Source_Files.Table (File); + Buf_Len : constant Source_Ptr := Get_Buffer_Length (File); + begin + if Text_Len + 2 > Buf_Len then + raise Constraint_Error; + end if; + + if Text_Len > 0 then + F.Source (Source_Ptr_Org .. Source_Ptr_Org + Text_Len - 1) := + Text_Ptr (Source_Ptr_Org .. Source_Ptr_Org + Text_Len - 1); + end if; + Set_File_Length (File, Text_Len); + Set_Gap (File, Text_Len + 2, Buf_Len - 1); + + -- Clear cache. + F.Cache_Line := 1; + F.Cache_Pos := Source_Ptr_Org; + + -- Reset line table. + Lines_Tables.Free (F.Lines); + Lines_Tables.Init (F.Lines); + File_Add_Line_Number (File, 1, Source_Ptr_Org); + end Fill_Text_Ptr; + procedure Set_Gap (File : Source_File_Entry; First : Source_Ptr; Last : Source_Ptr) -- cgit v1.2.3