From 6147cb03663c1978ee76832c0014e1d7c949fc17 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 11 Nov 2022 16:48:22 +1100 Subject: [PATCH] lace.environ.os_commands: Use 'unsafe' aShell commands. --- .../lace/source/environ/lace-environ-os_commands.adb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/1-base/lace/source/environ/lace-environ-os_commands.adb b/1-base/lace/source/environ/lace-environ-os_commands.adb index 65eb263..1a0db05 100644 --- a/1-base/lace/source/environ/lace-environ-os_commands.adb +++ b/1-base/lace/source/environ/lace-environ-os_commands.adb @@ -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