implement send_signal

Author: wassup05

src/stdlib_system.F90

@@ -78,6 +78,7 @@ module stdlib_system
 public :: update
 public :: wait
 public :: kill
+public :: send_signal
 public :: elapsed
 public :: is_windows
 
@@ -139,6 +140,10 @@ module stdlib_system
 
     !! Kill a process
     procedure :: kill         => process_kill
+
+    !! Send (POSIX) signal to a process
+    !! no-op on Windows
+    procedure :: send_signal  => process_send_signal
 
     !! Get process ID
     procedure :: pid          => process_get_ID
@@ -408,6 +413,36 @@ module subroutine process_kill(process, success)
         logical, intent(out) :: success
     end subroutine process_kill
 end interface kill
+
+interface send_signal
+    !! version: experimental
+    !!
+    !! sends (POSIX) signal to a running process.
+    !! ([Specification](../page/specs/stdlib_system.html#send_signal))
+    !!
+    !! ### Summary
+    !! Provides a method to send POSIX signals to a running process.
+    !! Returns a boolean flag indicating whether the operation was successful.
+    !!
+    !! ### Description
+    !!
+    !! This interface allows for the sending of signal to an external process.
+    !! If the signal is sent successfully, the `success` output flag is set to `.true.`, otherwise `.false.`.
+    !! This function is useful for controlling and managing processes
+    !!
+    !! @note This operation may be system-dependent and could fail if the underlying user does not have
+    !! the necessary rights to kill a process. It is a no-op on Windows
+    !!
+    module subroutine process_send_signal(process, signal, success)
+        !> The process object to send a signal to
+        class(process_type), intent(inout) :: process
+        !> The integer representation of the signal
+        !> Example: 9 for SIGKILL
+        integer, intent(in) :: signal
+        !> Boolean flag indicating whether the operation was successful
+        logical, intent(out) :: success
+    end subroutine process_send_signal
+end interface send_signal
 
 interface sleep
     !! version: experimental

src/stdlib_system_subprocess.F90

@@ -43,6 +43,13 @@ logical(c_bool) function process_system_kill(pid) bind(C, name='process_kill')
             implicit none
             integer(process_ID), intent(in), value :: pid
         end function process_system_kill
+
+        logical(c_bool) function process_system_send_signal(pid, signal) bind(C, name='process_send_signal')
+            import c_bool, process_ID
+            implicit none
+            integer(process_ID), intent(in), value :: pid
+            integer, intent(in), value :: signal
+        end function process_system_send_signal
 
         ! System implementation of a wait function
         subroutine process_wait(seconds) bind(C,name='process_wait')
@@ -473,6 +480,40 @@ module subroutine process_kill(process, success)
         end if
 
     end subroutine process_kill
+
+    ! Send POSIX signal to a process
+    module subroutine process_send_signal(process, signal, success)
+        class(process_type), intent(inout) :: process
+        ! Signal number
+        integer, intent(in) :: signal
+        ! Return a boolean flag for successful operation
+        logical, intent(out) :: success
+
+        integer(c_int) :: exit_code
+        logical(c_bool) :: running
+
+        success = .true.
+
+        ! No need to
+        if (process%completed) return
+        if (process%id == FORKED_PROCESS) return
+
+        success = logical(process_system_send_signal(process%id, signal))
+
+        if (success) then
+
+            call process_query_status(process%id, wait=C_FALSE, is_running=running, exit_code=exit_code)
+            process%completed = .not.running
+
+            if (process%completed) then
+               ! Process completed, may have returned an error code
+               process%exit_code = exit_code
+               call save_completed_state(process,delete_files=.true.)
+            end if
+
+        end if
+
+    end subroutine process_send_signal
 
     subroutine save_completed_state(process,delete_files)
         class(process_type), intent(inout) :: process