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