From 792830405df9c71e845305de10ce1bb1f12e79ba Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 28 Aug 2022 22:30:59 +1000 Subject: [PATCH] lace.text.forge: Add a procedure to store a string in a file. --- 1-base/lace/source/text/lace-text-forge.adb | 14 ++++++++++++++ 1-base/lace/source/text/lace-text-forge.ads | 3 +++ 2 files changed, 17 insertions(+) diff --git a/1-base/lace/source/text/lace-text-forge.adb b/1-base/lace/source/text/lace-text-forge.adb index d15bc3a..07ec696 100644 --- a/1-base/lace/source/text/lace-text-forge.adb +++ b/1-base/lace/source/text/lace-text-forge.adb @@ -49,6 +49,20 @@ is end to_Text; + + procedure store (Filename : in forge.Filename; the_String : in String) + is + use ada.Text_IO; + + File : File_type; + begin + create (File, out_File, String (Filename)); + put (File, the_String); + close (File); + end store; + + + -------------- -- Stock Items -- diff --git a/1-base/lace/source/text/lace-text-forge.ads b/1-base/lace/source/text/lace-text-forge.ads index a3c5dc2..853da7a 100644 --- a/1-base/lace/source/text/lace-text-forge.ads +++ b/1-base/lace/source/text/lace-text-forge.ads @@ -14,6 +14,9 @@ is function to_Text (Filename : in forge.Filename) return Item; -- Converts 'CR & LF' to 'LF' at the end of a line. + procedure store (Filename : in forge.Filename; the_String : in String); + + -------------- -- Stock Items --