add object oriented interface

Author: perazz

src/stdlib_system.F90

@@ -52,6 +52,23 @@ module stdlib_system
     !> Store time at the last update
     integer(TICKS) :: last_update = 0
 
+contains
+
+    !! Check if process is still running
+    procedure :: is_running   => process_is_running
+    
+    !! Check if process is completed
+    procedure :: is_completed => process_is_completed
+    
+    !! Return elapsed time since inception
+    procedure :: elapsed      => process_lifetime
+    
+    !! Update process state internals
+    procedure :: update       => update_process_state
+    
+    !! Kill a process
+    procedure :: kill         => process_kill
+    
 end type process_type
 
 interface runasync
@@ -142,6 +159,7 @@ module function run_sync_args(args, stdin, want_stdout, want_stderr) result(proc
         !> The output process handler.
         type(process_type) :: process        
     end function run_sync_args
+    
 end interface run
 
 interface is_running
@@ -264,7 +282,7 @@ end subroutine wait_for_completion
     !!
     module subroutine update_process_state(process)
         !> The process object whose state needs to be updated.
-        type(process_type), intent(inout) :: process
+        class(process_type), intent(inout) :: process
     end subroutine update_process_state
 end interface update
 
@@ -290,7 +308,7 @@ end subroutine update_process_state
     !!
     module subroutine process_kill(process, success)
         !> The process object to be terminated.
-        type(process_type), intent(inout) :: process
+        class(process_type), intent(inout) :: process
         !> Boolean flag indicating whether the termination was successful.
         logical, intent(out) :: success
     end subroutine process_kill

src/stdlib_system_subprocess.F90

@@ -369,7 +369,7 @@ end subroutine wait_for_completion
 
     !> Update a process's state, and save it to the process variable
     module subroutine update_process_state(process)
-        type(process_type), intent(inout) :: process
+        class(process_type), intent(inout) :: process
 
         real(RTICKS) :: count_rate        
         integer(TICKS) :: count_max,current_time
@@ -407,7 +407,7 @@ end subroutine update_process_state
 
     ! Kill a process 
     module subroutine process_kill(process, success)
-        type(process_type), intent(inout) :: process
+        class(process_type), intent(inout) :: process
         ! Return a boolean flag for successful operation
         logical, intent(out) :: success
 
@@ -439,7 +439,7 @@ module subroutine process_kill(process, success)
     end subroutine process_kill
 
     subroutine save_completed_state(process,delete_files)
-        type(process_type), intent(inout) :: process
+        class(process_type), intent(inout) :: process
         logical, intent(in) :: delete_files
 
         logical(c_bool) :: running