add system module

There are a number of capabilities it would be useful to bring from cstdlib and STL. This is an initial demonstration, replacing the non-cross-compiler sleep() with a standard implmeentation that works across compilers and operating systems, with millisecond integer input.

Author: scivision

README.md

@@ -1,5 +1,8 @@
 # Fortran Standard Library
 
+[![Actions Status](https://github.com/fortran-lang/stdlib/workflows/CI/badge.svg)](https://github.com/fortran-lang/stdlib/actions)
+[![Actions Status](https://github.com/fortran-lang/stdlib/workflows/CI_windows/badge.svg)](https://github.com/fortran-lang/stdlib/actions)
+
 ## Scope
 
 The goal of the Fortran Standard Library is to achieve the following general scope:
@@ -16,19 +19,19 @@ The goal of the Fortran Standard Library is to achieve the following general sco
 
 ### Get the code
 
-```
+```sh
 git clone https://github.com/fortran-lang/stdlib
 cd stdlib
 ```
 
 ### Build with CMake
 
-```
-mkdir build
-cd build
-cmake ..
-make
-ctest
+```sh
+cmake -B build
+
+cmake --build build
+
+cmake --build build --target test
 ```
 
 ### Build with make

src/CMakeLists.txt

@@ -3,6 +3,7 @@ set(SRC
  stdlib_experimental_io.f90
  stdlib_experimental_error.f90
  stdlib_experimental_optval.f90
+ stdlib_experimental_system.F90
 )
 
 add_library(fortran_stdlib ${SRC})

src/stdlib_experimental_system.F90

@@ -0,0 +1,34 @@
+module stdlib_experimental_system
+use, intrinsic :: iso_c_binding, only : c_int
+implicit none
+private
+
+interface
+#ifdef _WIN32
+subroutine system_sleep(ms) bind (C, name='Sleep')
+import c_int
+integer(c_int), value, intent(in) :: ms
+end subroutine system_sleep
+#else
+subroutine system_sleep(us) bind (C, name='usleep')
+import c_int
+integer(c_int), value, intent(in) :: us
+end subroutine system_sleep
+#endif
+end interface
+
+public :: sleep
+
+contains
+
+subroutine sleep(millisec)
+integer, intent(in) :: millisec
+
+#ifndef _WIN32
+millisec = millisec * 1000
+#endif
+
+call system_sleep(int(millisec, c_int))
+end subroutine sleep
+
+end module stdlib_experimental_system

src/tests/CMakeLists.txt

@@ -1,6 +1,7 @@
 add_subdirectory(ascii)
 add_subdirectory(io)
 add_subdirectory(optval)
+add_subdirectory(system)
 
 add_executable(test_skip test_skip.f90)
 target_link_libraries(test_skip fortran_stdlib)

src/tests/system/CMakeLists.txt

@@ -0,0 +1,5 @@
+add_executable(test_sleep test_sleep.f90)
+target_link_libraries(test_sleep fortran_stdlib)
+
+add_test(NAME Sleep COMMAND $<TARGET_FILE:test_sleep> 1234)
+set_tests_properties(Sleep PROPERTIES TIMEOUT 5)

src/tests/system/test_sleep.f90

@@ -0,0 +1,16 @@
+program test_sleep
+
+use stdlib_experimental_system, only : sleep
+
+integer :: ierr, millisec
+character(8) :: argv
+
+millisec = 789
+call get_command_argument(1, argv, status=ierr)
+if (ierr==0) read(argv,*) millisec
+
+if (millisec<0) millisec=0
+
+call sleep(millisec)
+
+end program