nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lace.text.forge: Rid 'CR' from line endings.

Browse Source
This commit is contained in:
Rod Kay
2022-08-16 14:30:18 +10:00
parent 9f32667aaf
commit 147b7ae4c4
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
1-base/lace/source/text/lace-text-forge.adb
View File

@@ -22,8 +22,17 @@ is
while not end_of_File (the_File)
loop
append (Pad, get_Line (the_File)
& ada.Characters.Latin_1.LF);
declare
use ada.Characters;
Line : constant String := get_Line (the_File);
begin
if Line (Line'Last) = latin_1.CR
then
append (Pad, Line (Line'First .. Line'Last - 1) & latin_1.LF);
else
append (Pad, Line & latin_1.LF);
end if;
end;
end loop;
close (the_File);

4
1-base/lace/source/text/lace-text-forge.ads
View File

@@ -10,8 +10,8 @@ is
type Filename is new String;
function to_String (Filename : in forge.Filename) return String;
function to_Text (Filename : in forge.Filename) return Item;
function to_String (Filename : in forge.Filename) return String; -- Converts 'CR & LF' to 'LF' at the end of a line.
function to_Text (Filename : in forge.Filename) return Item; -- Converts 'CR & LF' to 'LF' at the end of a line.
--------------