mirror of
https://github.com/AdaCore/vss-text.git
synced 2026-02-12 13:52:46 -08:00
115 lines
3.0 KiB
Ada
115 lines
3.0 KiB
Ada
--
|
|
-- Copyright (C) 2020-2025, AdaCore
|
|
--
|
|
-- SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
--
|
|
|
|
package body VSS.Implementation.Strings is
|
|
|
|
------------------
|
|
-- Fixup_Delete --
|
|
------------------
|
|
|
|
function Fixup_Delete
|
|
(Self : in out Cursor;
|
|
Start : Cursor;
|
|
Size : Cursor_Offset) return Boolean is
|
|
begin
|
|
if Size.Index_Offset = 0 then
|
|
return True;
|
|
end if;
|
|
|
|
if Self.Index < Start.Index then
|
|
-- Cursor's position is before deleted segment, only negative UTF*
|
|
-- offsets need to be fixed.
|
|
|
|
if Self.UTF8_Offset < 0 then
|
|
Self.UTF8_Offset := Self.UTF8_Offset + Size.UTF8_Offset;
|
|
end if;
|
|
|
|
if Self.UTF16_Offset < 0 then
|
|
Self.UTF16_Offset := Self.UTF16_Offset + Size.UTF16_Offset;
|
|
end if;
|
|
|
|
return True;
|
|
|
|
elsif Self.Index < Start.Index + Size.Index_Offset then
|
|
-- Cursor's position is inside deleted segment, invalidate position.
|
|
|
|
Self := (others => <>);
|
|
|
|
return False;
|
|
|
|
else
|
|
-- Cursor's position is after deleted segment, cursor's index and
|
|
-- positive UTF* offset need to be fixed.
|
|
|
|
Self.Index := Self.Index - Size.Index_Offset;
|
|
|
|
if Self.UTF8_Offset >= 0 then
|
|
Self.UTF8_Offset := Self.UTF8_Offset - Size.UTF8_Offset;
|
|
end if;
|
|
|
|
if Self.UTF16_Offset >= 0 then
|
|
Self.UTF16_Offset := Self.UTF16_Offset - Size.UTF16_Offset;
|
|
end if;
|
|
|
|
return True;
|
|
end if;
|
|
end Fixup_Delete;
|
|
|
|
------------------
|
|
-- Fixup_Insert --
|
|
------------------
|
|
|
|
procedure Fixup_Insert
|
|
(Self : in out Cursor;
|
|
Start : Cursor;
|
|
Size : Cursor_Offset) is
|
|
begin
|
|
if Size.Index_Offset = 0 then
|
|
return;
|
|
end if;
|
|
|
|
if Self.Index < Start.Index then
|
|
-- Cursor's position is before insertion point, only negative UTF*
|
|
-- offsets need to be fixed.
|
|
|
|
if Self.UTF8_Offset < 0 then
|
|
Self.UTF8_Offset := Self.UTF8_Offset - Size.UTF8_Offset;
|
|
end if;
|
|
|
|
if Self.UTF16_Offset < 0 then
|
|
Self.UTF16_Offset := Self.UTF16_Offset - Size.UTF16_Offset;
|
|
end if;
|
|
|
|
else
|
|
-- Cursor's position is at or after insertion point, index of the
|
|
-- cursor and positive UTF* offsets need to be fixed.
|
|
|
|
Self.Index := Self.Index + Size.Index_Offset;
|
|
|
|
if Self.UTF8_Offset >= 0 then
|
|
Self.UTF8_Offset := Self.UTF8_Offset + Size.UTF8_Offset;
|
|
end if;
|
|
|
|
if Self.UTF16_Offset >= 0 then
|
|
Self.UTF16_Offset := Self.UTF16_Offset + Size.UTF16_Offset;
|
|
end if;
|
|
end if;
|
|
end Fixup_Insert;
|
|
|
|
----------------
|
|
-- Is_Invalid --
|
|
----------------
|
|
|
|
function Is_Invalid (Self : Cursor) return Boolean is
|
|
begin
|
|
return
|
|
Self.Index = 0
|
|
and Self.UTF8_Offset = VSS.Unicode.UTF8_Code_Unit_Offset'Last
|
|
and Self.UTF16_Offset = VSS.Unicode.UTF16_Code_Unit_Offset'Last;
|
|
end Is_Invalid;
|
|
|
|
end VSS.Implementation.Strings;
|