finer_test_load Program

  1. finer_test_load.f90
  2. finer_test_load

Uses

  • program~~finer_test_load~~UsesGraph program~finer_test_load finer_test_load module~finer finer program~finer_test_load->module~finer flap flap program~finer_test_load->flap penf penf program~finer_test_load->penf module~finer_backend finer_backend module~finer->module~finer_backend module~finer_file_ini_t finer_file_ini_t module~finer->module~finer_file_ini_t module~finer_backend->penf module~finer_file_ini_t->penf module~finer_file_ini_t->module~finer_backend iso_fortran_env iso_fortran_env module~finer_file_ini_t->iso_fortran_env module~finer_section_t finer_section_t module~finer_file_ini_t->module~finer_section_t module~finer_option_t finer_option_t module~finer_file_ini_t->module~finer_option_t stringifor stringifor module~finer_file_ini_t->stringifor module~finer_section_t->penf module~finer_section_t->module~finer_backend module~finer_section_t->module~finer_option_t module~finer_section_t->stringifor module~finer_option_t->penf module~finer_option_t->module~finer_backend module~finer_option_t->stringifor

FiNeR test: basic load.

Usage

 ./finer_test_load

Calls

program~~finer_test_load~~CallsGraph program~finer_test_load finer_test_load proc~cli_parse cli_parse program~finer_test_load->proc~cli_parse

Contents

Variables

Subroutines

Source Code

finer_test_load

Variables

TypeAttributesNameInitial
character(len=999) :: file_name

Name of INI file.
type(file_ini) :: fini

INI file handler.
integer :: i

Counter.
character(len=:), allocatable:: items(:,:)

Items pairs.

Subroutines

subroutine cli_parse()

Build and parse test cli.

Arguments

None

Source Code

program finer_test_load
!< FiNeR test: basic load.
!<
!<### Usage
!<```bash
!< ./finer_test_load
!<```
use finer, only :  file_ini
use flap, only : command_line_interface
use penf, only : I4P

implicit none
character(999)                :: file_name  !< Name of INI file.
type(file_ini)                :: fini       !< INI file handler.
character(len=:), allocatable :: items(:,:) !< Items pairs.
integer                       :: i          !< Counter.

call cli_parse
call fini%load(filename=file_name)
call fini%get_items(items)
do i=1,size(items,dim=1)
  print "(A)", trim(items(i,1))//' = '//trim(items(i,2))
enddo

contains
  subroutine cli_parse()
  !< Build and parse test cli.
  type(command_line_interface) :: cli   !< Test command line interface.
  integer(I4P)                 :: error !< Error trapping flag.

  call cli%init(progname='finer_test_load',                  &
                authors='S. Zaghi',                          &
                help='Usage: ',                              &
                examples=["finer_test_load --ini test.ini"], &
                epilog=new_line('a')//"all done")

  call cli%add(switch='--ini',          &
               switch_ab='-i',          &
               help='name of ini file', &
               required=.true.,         &
               act='store')

  call cli%parse(error=error) ; if (error/=0) stop

  call cli%get(switch='--ini', val=file_name)
  endsubroutine cli_parse
endprogram finer_test_load