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

lace.environ.os_commands: Use 'unsafe' aShell commands.

Browse Source
This commit is contained in:
Rod Kay
2022-11-11 16:48:22 +11:00
parent 4385bfdc47
commit 6147cb0366
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
1-base/lace/source/environ/lace-environ-os_commands.adb
View File

@@ -1,5 +1,5 @@
with
shell.Commands,
shell.Commands.unsafe,
gnat.OS_Lib,
@@ -26,7 +26,7 @@ is
is
use Shell;
begin
Commands.run (command_Line, +Input);
Commands.unsafe.run (command_Line, +Input);
exception
when E : Commands.command_Error =>
raise Error with Exception_Message (E);
@@ -38,7 +38,8 @@ is
add_Errors : in Boolean := True) return String
is
use Shell,
Shell.Commands;
Shell.Commands,
Shell.Commands.unsafe;
function trim_LF (Source : in String) return String
is
@@ -71,8 +72,9 @@ is
Input : in String := "") return Data
is
use Shell,
Shell.Commands;
the_Command : Command := Forge.to_Command (command_Line);
Shell.Commands,
Shell.Commands.unsafe;
the_Command : unsafe.Command := Forge.to_Command (command_Line);
begin
return Output_of (run (The_Command, +Input));
exception