fix sleep

Author: perazz

example/system/example_process_2.f90

@@ -5,8 +5,8 @@ program run_async
 
     type(process_type) :: p
 
-    ! Run an asynchronous process to sleep for 5 seconds
-    p = run("sleep 3", wait=.false.)
+    ! Run an asynchronous process to sleep for 1 second
+    p = run("sleep 1", wait=.false.)
 
     ! Check if the process is running
     if (is_running(p)) then

example/system/example_process_4.f90

@@ -30,7 +30,7 @@ program example_process_kill
 
     ! Verify the process is no longer running
     running = is_running(process)
-    print *, "Process running after kill:", running
+    print *, "Process running after kill:", running,' runtime=',elapsed(process)
 
     stop 0
 

src/stdlib_system_subprocess.F90

@@ -77,7 +77,7 @@ end function process_has_win32
     module subroutine sleep(millisec)
         integer, intent(in) :: millisec
 
-        call process_wait(real(0.001*millisec,c_float))
+        call process_wait(real(0.001*real(max(0,millisec),c_float),c_float))
 
     end subroutine sleep
 

src/stdlib_system_subprocess.c

@@ -109,9 +109,6 @@ void process_create_windows(const char* cmd, const char* stdin_stream,
         snprintf(full_cmd, full_cmd_len, "%s", cmd);
     }
 
-    // Free the allocated memory
-    free(full_cmd);
-    
     // Create the process
     BOOL success = CreateProcess(
         NULL,               // Application name
@@ -126,8 +123,11 @@ void process_create_windows(const char* cmd, const char* stdin_stream,
         &pi                 // PROCESS_INFORMATION
     );
 
+    // Free the allocated memory
+    free(full_cmd);    
+    
     if (!success) {
-        fprintf(stderr, "CreateProcess failed (%lud).\n", GetLastError());
+        fprintf(stderr, "CreateProcess failed (%lu).\n", GetLastError());
         return;
     }
 
@@ -333,15 +333,18 @@ bool process_kill(stdlib_pid pid)
 void process_wait(float seconds)
 {
 #ifdef _WIN32
-   DWORD dwMilliseconds = 1000*seconds;
+   DWORD dwMilliseconds = (DWORD) (seconds * 1000);
    Sleep(dwMilliseconds);
 #else
    int ierr;
 
-   struct timespec ts_remaining;
-   ts_remaining.tv_sec  = seconds;
-   ts_remaining.tv_nsec = seconds * 1000000000L;
-
+   unsigned int ms = (unsigned int) (seconds * 1000);
+   struct timespec ts_remaining =
+   { 
+     ms / 1000, 
+     (ms % 1000) * 1000000L 
+   };   
+   
    do
    {
      struct timespec ts_sleep = ts_remaining;
@@ -358,7 +361,7 @@ void process_wait(float seconds)
          fprintf(stderr, "nanosleep() bad milliseconds value\n");
          exit(EINVAL);
        case EFAULT:
-         fprintf(stderr, "nanosleep() bad milliseconds value\n");
+         fprintf(stderr, "nanosleep() problem copying information to user space\n");
          exit(EFAULT);
        case ENOSYS:
          fprintf(stderr, "nanosleep() not supported on this system\n");