example.f90

!******************************************************************************
! Copyright (C) 2015-2018 Commissariat a l'energie atomique et aux energies 
! alternatives (CEA)
! All rights reserved.
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions are met:
! * Redistributions of source code must retain the above copyright
!   notice, this list of conditions and the following disclaimer.
! * Redistributions in binary form must reproduce the above copyright
!   notice, this list of conditions and the following disclaimer in the
!   documentation and/or other materials provided with the distribution.
! * Neither the name of CEA nor the names of its contributors may be used to
!   endorse or promote products derived from this software without specific
!   prior written permission.
!
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 
! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 
! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
! THE SOFTWARE.
!******************************************************************************

PROGRAM example
  USE ISO_C_binding
  USE paraconf
  
  IMPLICIT NONE
  
!   INCLUDE 'paraconf_f90.h'
  
  TYPE(PC_tree_t) :: conf, some_key
  INTEGER :: a_int, a_list_len, a_map_len, ii
  REAL(8) :: a_float
  CHARACTER(30) :: a_string
  LOGICAL :: a_log
  CHARACTER(LEN=PC_ERRMSG_MAXLENGTH) :: errmsg
  TYPE(PC_errhandler_t) :: errh
  CHARACTER(LEN=4096) :: infile

  if (command_argument_count() /= 1) then
    print *, "Error: expected 1 argument!"
    error stop
  endif

  call get_command_argument(1,infile)   !first, read in the two values
  
  call PC_parse_path(infile,conf)

  call PC_int(PC_get(conf,".a_int"), a_int)
  call PC_double(PC_get(conf,".a_float"), a_float)
  call PC_string(PC_get(conf,".a_string"), a_string)
  call PC_log(PC_get(conf, ".a_yes"), a_log)
  print '("a_int=",I5," a_float=",F10.1," a_string=",A30," a_yes=",L)', &
      a_int, a_float, a_string, a_log

  print '("a_list=[")'
  call PC_len(PC_get(conf,".a_list"), a_list_len)
  do ii = 0, a_list_len-1
!     call PC_int(PC_get(PC_get(conf,".a_int"), ii), a_int)
    print '("  ", I5)', a_int
  enddo
  print '("]")'

  print '("a_map={")'
  call PC_len(PC_get(conf,".a_map"), a_map_len)
  do ii = 0, a_map_len-1
!     call PC_int(PC_key(PC_get(conf,".a_int"), ii), a_string)
!     call PC_int(PC_get(PC_get(conf,".a_int"), ii), a_int)
    print '("  ", A30,"=> ", I5)', a_string, a_int
  enddo
  print '("}")'

  call PC_errhandler(PC_NULL_HANDLER, errh)
    some_key = PC_get(conf, ".some_key");
  call PC_errhandler(errh)
  if ( PC_status(some_key) > 0 ) then
    print '("config contains `some_key`")'
  else
    print '("config does not contain `some_key`")'
  endif
  
  call PC_tree_destroy(conf)

END PROGRAM example