remove unused process handle

Author: perazz

src/stdlib_system.F90

@@ -1,6 +1,5 @@
 module stdlib_system
 use, intrinsic :: iso_c_binding, only : c_int, c_long, c_null_ptr, c_int64_t
-use, intrinsic :: iso_c_binding, only : process_handle => c_ptr, null_process => c_null_ptr 
 use stdlib_kinds, only: int64, dp
 implicit none
 private
@@ -27,12 +26,11 @@ module stdlib_system
 ! Default flag for the runner process
 integer(process_ID), parameter, private :: FORKED_PROCESS = 0_process_ID
 
-! Public type to describe a process
+!> Process type holding process information and the connected stdout, stderr, stdin units 
 type :: process_type
 
     !> Process ID (if external); 0 if run by the program process
     integer(process_ID)  :: id = FORKED_PROCESS
-    type(process_handle) :: handle = null_process
 
     !> Process is completed
     logical :: completed = .false.        

src/stdlib_system_subprocess.F90

@@ -30,16 +30,15 @@ subroutine process_query_status(pid, wait, is_running, exit_code) &
             integer(c_int), intent(out) :: exit_code     
         end subroutine process_query_status
 
-        subroutine process_create(cmd, stdin_stream, stdin_file, stdout_file, stderr_file, handle, pid) &
+        subroutine process_create(cmd, stdin_stream, stdin_file, stdout_file, stderr_file, pid) &
                    bind(C, name='process_create')
-            import c_char, process_handle, process_ID
+            import c_char, process_ID
             implicit none
             character(c_char), intent(in)           :: cmd(*)
             character(c_char), intent(in), optional :: stdin_stream(*)
             character(c_char), intent(in), optional :: stdin_file(*)
             character(c_char), intent(in), optional :: stdout_file(*)
             character(c_char), intent(in), optional :: stderr_file(*)
-            type(process_handle), intent(out)       :: handle
             integer(process_ID), intent(out)        :: pid
         end subroutine process_create
 
@@ -185,7 +184,7 @@ subroutine launch_asynchronous(process, args, stdin)
 
         ! On Windows, this 1) creates 2) launches an external process from C.
         ! On unix, this 1) forks an external process
-        call process_create(c_cmd, c_stdin, c_stdin_file, c_stdout_file, c_stderr_file, process%handle, process%id)
+        call process_create(c_cmd, c_stdin, c_stdin_file, c_stdout_file, c_stderr_file, process%id)
 
     end subroutine launch_asynchronous
 

src/stdlib_system_subprocess.c

@@ -28,7 +28,7 @@ typedef int64_t stdlib_pid;
 // On Windows systems: create a new process
 void process_create_windows(const char* cmd, const char* stdin_stream,  
                     const char* stdin_file, const char* stdout_file, const char* stderr_file, 
-                    stdlib_handle* handle, stdlib_pid* pid) {
+                    stdlib_pid* pid) {
 
     STARTUPINFO si;
     PROCESS_INFORMATION pi;
@@ -37,7 +37,6 @@ void process_create_windows(const char* cmd, const char* stdin_stream,
     FILE* stdin_fp = NULL;
 
     // Initialize null handle
-    (*handle) = NULL;
     (*pid) = 0;
 
     ZeroMemory(&si, sizeof(si));
@@ -112,7 +111,6 @@ void process_create_windows(const char* cmd, const char* stdin_stream,
 
     // Return the process handle for status queries
     CloseHandle(pi.hThread);  // Close the thread handle
-    (*handle) = (stdlib_handle) pi.hProcess;       // Return the process handle
     (*pid) = (stdlib_pid) pi.dwProcessId;
 
 }
@@ -257,10 +255,9 @@ bool process_kill_unix(int pid) {
 
 
 // On UNIX systems: just fork a new process. The command line will be executed from Fortran.
-void process_create_posix(stdlib_handle* handle, stdlib_pid* pid) 
+void process_create_posix(stdlib_pid* pid) 
 {
 
-    (*handle) = NULL;
     (*pid) = (stdlib_pid) fork();
 }
 
@@ -273,11 +270,11 @@ void process_create_posix(stdlib_handle* handle, stdlib_pid* pid)
 // Create or fork process
 void process_create(const char* cmd, const char* stdin_stream, const char* stdin_file, 
                     const char* stdout_file, const char* stderr_file, 
-                    stdlib_handle* handle, stdlib_pid* pid) {                                                  
+                    stdlib_pid* pid) {                                                  
 #ifdef _WIN32
-    process_create_windows(cmd, stdin_stream, stdin_file, stdout_file, stderr_file, handle, pid);
+    process_create_windows(cmd, stdin_stream, stdin_file, stdout_file, stderr_file, pid);
 #else
-    process_create_posix(handle, pid);
+    process_create_posix(pid);
 #endif // _WIN32
 }