add single-command run API

Author: perazz

src/stdlib_system.F90

@@ -11,6 +11,8 @@ module stdlib_system
 public :: process_type
 public :: is_completed
 public :: is_running
+public :: update
+public :: wait
 
 ! CPU clock ticks storage
 integer, parameter, private :: TICKS = int64
@@ -33,9 +35,6 @@ module stdlib_system
     logical :: completed = .false.        
     integer(TICKS) :: start_time = 0
 
-    !> Process exit code
-    integer :: exit_code = 0
-    
     !> Stdin file name
     character(:), allocatable :: stdin_file
 
@@ -44,6 +43,7 @@ module stdlib_system
     character(:), allocatable :: stdout
 
     !> Error output
+    integer :: exit_code = 0    
     character(:), allocatable :: stderr_file
     character(:), allocatable :: stderr
 
@@ -53,8 +53,19 @@ module stdlib_system
 end type process_type
 
 interface run
-    !> Open a new, asynchronous process
-    module type(process_type) function process_open(args,wait,stdin,want_stdout,want_stderr) result(process)
+    !> Open a new process from a command line
+    module type(process_type) function process_open_cmd(cmd,wait,stdin,want_stdout,want_stderr) result(process)
+        !> The command and arguments
+        character(*), intent(in) :: cmd
+        !> Optional character input to be sent to the process via pipe
+        character(*), optional, intent(in) :: stdin
+        !> Define if the process should be synchronous (wait=.true.), or asynchronous(wait=.false.)
+        logical, optional, intent(in) :: wait
+        !> Require collecting output
+        logical, optional, intent(in) :: want_stdout, want_stderr        
+    end function process_open_cmd
+    !> Open a new, asynchronous process from a list of arguments
+    module type(process_type) function process_open_args(args,wait,stdin,want_stdout,want_stderr) result(process)
         !> The command and arguments
         character(*), intent(in) :: args(:)
         !> Optional character input to be sent to the process via pipe
@@ -63,7 +74,7 @@ module type(process_type) function process_open(args,wait,stdin,want_stdout,want
         logical, optional, intent(in) :: wait
         !> Require collecting output
         logical, optional, intent(in) :: want_stdout, want_stderr        
-    end function process_open
+    end function process_open_args
 end interface run
 
 !> Live check if a process is still running
@@ -101,7 +112,7 @@ end subroutine wait_for_completion
     module subroutine update_process_state(process)
         type(process_type), intent(inout) :: process
     end subroutine update_process_state
-end interface
+end interface update
 
 !! version: experimental
 !!

src/stdlib_system_subprocess.F90

@@ -69,8 +69,23 @@ module subroutine sleep(millisec)
 
     end subroutine sleep
 
-    !> Open a new, asynchronous process
-    module type(process_type) function process_open(args,wait,stdin,want_stdout,want_stderr) result(process)
+    !> Open a new process
+    module type(process_type) function process_open_cmd(cmd,wait,stdin,want_stdout,want_stderr) result(process)
+        !> The command and arguments
+        character(*), intent(in) :: cmd
+        !> Optional character input to be sent to the process via pipe
+        character(*), optional, intent(in) :: stdin
+        !> Define if the process should be synchronous (wait=.true.), or asynchronous(wait=.false.)
+        logical, optional, intent(in) :: wait
+        !> Require collecting output
+        logical, optional, intent(in) :: want_stdout, want_stderr
+        
+        process = process_open_args([cmd],wait,stdin,want_stdout,want_stderr)
+        
+    end function process_open_cmd
+
+    !> Open a new process
+    module type(process_type) function process_open_args(args,wait,stdin,want_stdout,want_stderr) result(process)
         !> The command and arguments
         character(*), intent(in) :: args(:)
         !> Optional character input to be sent to the process via pipe
@@ -138,7 +153,7 @@ module type(process_type) function process_open(args,wait,stdin,want_stdout,want
         ! Run a first update
         call update_process_state(process)   
 
-    end function process_open
+    end function process_open_args
 
     subroutine launch_asynchronous(process, args, stdin)
         class(process_type), intent(inout) :: process