berriedale
/
arun
mirror of https://github.com/berriedale/arun
1
0
Fork 0
Code Issues Releases Wiki Activity

Properly override functions/procuedures for Arun.Launchers.Unix.UnixLanucher

This commit is contained in:
R. Tyler Croy 2017-01-13 11:57:30 -08:00
parent 58db0578c3
commit 7a1fa9e447
No known key found for this signature in database
GPG Key ID: 1426C7DC3F51E16F
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/arun-launchers-unix.ads
View File

@ -26,6 +26,16 @@ package Arun.Launchers.Unix is
procedure Initialize (L : in out UnixLauncher);
function Find_Full_Path (L : in UnixLauncher;
Path_Snippet : in String) return String;
-- Determine the full path of the snippet based on PATH or other environment
-- variables.
--
-- Will return an empty string if a full path was not discoverable.
procedure Execute (L : in UnixLauncher;
Executable : in String);
private
type UnixLauncher is new Arun.Launcher_Type with record

17
src/arun.ads
View File

@ -19,4 +19,21 @@
package Arun is
procedure Main;
type Launcher_Type is interface;
procedure Initialize (L : in Launcher_Type'Class) is abstract;
-- Launcher_Type-specific initialization routine
function Find_Full_Path (L : in Launcher_Type;
Path_Snippet : in String) return String is abstract;
-- Determine the full path of the snippet based on PATH or other environment
-- variables.
--
-- Will return an empty string if a full path was not discoverable.
procedure Execute (L : in Launcher_Type;
Executable : in String) is abstract;
-- Spawn the Executable in place of the current process
end Arun;