SimulationCore2/Test/testJson.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/Test/testJson.f90"
program testjson
    use json_module
    use RedisInterface
    use iso_c_binding, only: c_null_char,c_char
    integer::n_children
    logical                    :: is_found
    character(len=100),allocatable::redisOutput
    type(json_file)            :: jsonfile
    type(json_value),pointer :: jsonroot,pval
    type(json_core) :: json
    character(len=:),allocatable::name
    integer::simulationStatus,simulationSpeed


! call initConnection("config-remote.json")
! call getData(redisContent)
! print *,len(redisContent)," bytes read from redis"
! open(1,file="redisContent.json",status="REPLACE")
! write(1,"(A)") redisContent
! close(1)
! call jsoncore%initialize()
! call jsoncore%deserialize(jsonvalue,redisContent)
    redisOutput = '{"status":1,"speed":10}'
    print *,"redisOutput=",redisOutput
    call jsonfile%initialize()
    call jsonfile%deserialize(redisOutput)
! call jsonfile%get("speed",simulationSpeed,is_found)
! if ( .not. is_found ) print *,"speed Not Found"
! call jsonfile%get("status",simulationStatus,is_found)
! if ( .not. is_found ) print *,"status Not Found"
! call jsonfile%get(pval,simulationSpeed)
    print *,"speed=",simulationSpeed
    print *,"status=",simulationStatus
    call jsonfile%json_file_get_root(jsonroot)
    call json%get(jsonroot,'status',pval)
    call json%get(pval,simulationStatus)
    call json%get(jsonroot,'speed',pval)
    call json%get(pval,simulationSpeed)
    print *,"speed=",simulationSpeed
    print *,"status=",simulationStatus
    call json%destroy(jsonroot)
! call jsonfile%load_file('redisContent.json'); if (jsonfile%failed()) stop
! call jsonfile%json_file_get_root(jsonvalue)

! call jsoncore%info(jsonvalue, n_children=n_children)
! print *,"n_children =",n_children
! call jsoncore%info(jsonvalue, name=name)
! print *,"name = ",name
! call json%initialize(allow_duplicate_keys=.false.)
! call json%create_object(p,'')   !create the root
! call json%add(p,'year',1805)    !add some data
! call json%add(p,'year',2000)    !add some data
! call json%add(p,'value',1.0) !add some data
! call json%print(p,'test.json')  !write it to a file
! call json%destroy(p)            !cleanup

end program testjson