sysdep.f90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
module sysdep
  use, intrinsic :: iso_c_binding
  implicit none
  private
  public :: abortprogram
  public :: sysdepargget
  public :: sysdepargcount
  public :: sysdepenvget
 
  interface
    subroutine dc_f_abort() &
      ! bind(C, name="dc_c_abort")
      bind(C, name="abort")
      import
    end subroutine dc_f_abort
  end interface
 
contains
 
  subroutine abortprogram(message)
    use dc_types, only: stderr
    implicit none
    character(len=*), intent(in), optional :: message
    continue
    if (present(message)) write(stderr, *) trim(message)
    call dc_f_abort()
  end subroutine abortprogram
 
  integer function sysdepargcount()
    implicit none
    sysdepargcount = command_argument_count()
  end function sysdepargcount
 
  subroutine sysdepargget(index, val)
    implicit none
    integer,            intent(in)  :: index
    character(len = *), intent(out) :: val
    !
    integer:: idx
    integer:: argc
    continue
    argc = sysdepargcount()
    if (index < 0) then
      idx = argc + 1 + index
    else
      idx = index
    endif
    if (idx > argc) then
      val = ''
    else
      call get_command_argument(index, val)
    end if
  end subroutine sysdepargget
 
  subroutine sysdepenvget(env, str)
    character(len = *), intent(in)  :: env
    character(len = *), intent(out) :: str
    call get_environment_variable(trim(adjustl(env)), str)
  end subroutine sysdepenvget
 
end module sysdep