Add json-fortran to dependencies; begin parsing a Keras model

Author: milancurcic

fpm.toml

@@ -5,5 +5,9 @@ author = "Milan Curcic"
 maintainer = "milancurcic@hey.com"
 copyright = "Copyright 2018-2022, neural-fortran contributors"
 
+[build]
+external-modules = "hdf5"
+link = ["hdf5", "hdf5_fortran"]
+
 [dependencies]
-h5fortran = { git="https://github.com/geospace-code/h5fortran" }
+json-fortran = { git = "https://github.com/jacobwilliams/json-fortran" }

test/test_io_hdf5.f90

@@ -1,9 +1,12 @@
 program test_io_hdf5
 
   use nf_io_hdf5, only: get_h5_attribute_string
+
   implicit none
 
-  print *, get_h5_attribute_string('test/data/mnist_dense.h5', '.', 'model_config')
-  print *, get_h5_attribute_string('test/data/mnist_dense.h5', 'model_weights', 'layer_names')
+  character(:), allocatable :: attr
+  character(*), parameter :: test_data_path = 'test/data/mnist_dense.h5'
+
+  attr = get_h5_attribute_string(test_data_path, '.', 'backend')
 
 end program test_io_hdf5

test/test_parse_keras_model.f90

@@ -0,0 +1,33 @@
+program test_parse_keras_model
+
+  use nf_io_hdf5, only: get_h5_attribute_string
+  use json_module
+
+  implicit none
+
+  character(:), allocatable :: model_config_string
+  character(*), parameter :: test_data_path = 'test/data/mnist_dense.h5'
+  type(json_core) :: json
+  type(json_value), pointer :: model_config, layers, next_layer, layer
+  character(:), allocatable :: class_name, layer_type
+  logical :: found
+  integer :: n, num_layers
+
+  model_config_string = &
+    get_h5_attribute_string(test_data_path, '.', 'model_config')
+
+  call json % parse(model_config, model_config_string)
+  call json % get(model_config, 'config.layers', layers)
+
+  num_layers = json % count(layers)
+  print *, 'This model has', num_layers, 'layers.'
+
+  do n = 1, num_layers
+    call json % get_child(layers, n, layer)
+    print *, 'Layer', n
+    !call json % print(layer)
+    call json % get(layer, 'class_name', layer_type)
+    print *, layer_type
+  end do
+
+end program test_parse_keras_model