wip: write nums

src/templates_front/build.sh

@@ -2,14 +2,21 @@
 
 DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" &> /dev/null && pwd )"
 
+# prefixes
 cat $DIR/prefix_front.c   > trexio.c
 cat $DIR/prefix_front.h   > trexio.h
 cat $DIR/prefix_s_front.h > trexio_s.h
+cat $DIR/prefix_fortran.f90   > trexio_f.f90
 
+# c front end
 cat $DIR/populated/pop_*.c >> trexio.c
 cat $DIR/populated/pop_*.h >> trexio.h
 
+# fortran front end
+cat $DIR/populated/pop_*.f90  >> trexio_f.f90
+
+# suffixes
 cat $DIR/suffix_s_front.h >> trexio_s.h
 cat $DIR/suffix_front.h   >> trexio.h
-
+cat $DIR/suffix_fortran.f90 >> trexio_f.f90
 

src/templates_front/templator_front.org

@@ -2,17 +2,24 @@
 
 * Constant file prefixes (not used by generator)                    :noxport:
 
-** Prefixes
-
   #+NAME:header
   #+begin_src c 
-/* This file was generated from the trexio.org org-mode file.
+/* This file was generated from the templator_front.org org-mode file.
    To generate it, open trexio.org in Emacs and execute
    M-x org-babel-tangle
 */
 
   #+end_src
 
+  #+begin_src fortran :tangle prefix_fortran.f90 :noweb yes
+<<header>>
+
+module trexio
+
+  use, intrinsic :: iso_c_binding
+
+  #+end_src
+
   #+begin_src c :tangle prefix_front.h :noweb yes
 <<header>>
 #ifndef _TREXIO_H
@@ -80,6 +87,7 @@
 #define FREE(X) { free(X) ; (X)=NULL; }
    #+end_src
 
+
 * Front end
 
  All calls to TREXIO are thread-safe.
@@ -175,7 +183,7 @@ struct trexio_back_end_s {
    #+end_src
    
 ** File opening
-   
+
    #+begin_src c :tangle prefix_front.h
 trexio_t* trexio_open(const char* file_name, const char mode, const back_end_t back_end);
    #+end_src
@@ -279,9 +287,20 @@ trexio_t* trexio_open(const char* file_name, const char mode, const back_end_t b
   return result;
 }
    #+end_src
+
+   #+begin_src fortran :tangle prefix_fortran.f90
+interface
+   type (c_ptr) function trexio_open (filename, mode, backend) bind(C)
+     use, intrinsic :: iso_c_binding
+     character(kind=c_char), dimension(*)   :: filename
+     character(kind=c_char), intent(in)     :: mode
+     integer (c_int32_t), intent(in), value :: backend
+   end function trexio_open
+end interface   
+   #+end_src
    
 ** File closing
-   
+ 
    #+begin_src c :tangle prefix_front.h
 trexio_exit_code trexio_close(trexio_t* file);
    #+end_src
@@ -354,9 +373,16 @@ trexio_exit_code trexio_close(trexio_t* file) {
 }
    #+end_src
 
+   #+begin_src fortran :tangle prefix_fortran.f90
+interface
+   type (c_int32_t) function trexio_close (trex_file) bind(C)
+     use, intrinsic :: iso_c_binding
+     type (c_ptr), intent(in), value :: trex_file
+   end function trexio_close
+end interface   
+   #+end_src
 
 * Templates for front end
-
 ** Template for frontend read/write a number
    
      #+begin_src c :tangle rw_num_front.h
@@ -424,6 +450,32 @@ trexio_exit_code trexio_write_$group_num$(trexio_t* file, const int64_t num) {
      #+end_src
 
 
+     #+begin_src fortran :tangle write_num_front_fortran.f90
+
+interface
+   integer (c_int32_t) function trexio_write_$group_num$ (trex_file, num) bind(C)
+     use, intrinsic :: iso_c_binding
+     type (c_ptr), intent(in), value :: trex_file
+     integer (c_int64_t), intent(in), value :: num
+   end function trexio_write_$group_num$
+end interface
+
+     #+end_src
+
+
+     #+begin_src fortran :tangle read_num_front_fortran.f90
+     
+interface
+   integer (c_int32_t) function trexio_read_$group_num$ (trex_file, num) bind(C)
+     use, intrinsic :: iso_c_binding
+     type (c_ptr), intent(in), value :: trex_file
+     integer (c_int64_t), intent(inout), value :: num
+   end function trexio_read_$group_num$
+end interface
+
+     #+end_src
+
+
 ** Template for frontend read/write a dataset
 
      #+begin_src c :tangle rw_dset_front.h
@@ -551,5 +603,9 @@ trexio_exit_code trexio_write_$group$_$group_dset$(trexio_t* file, const $group_
 #endif
   #+end_src
 
+  #+begin_src fortran :tangle suffix_fortran.f90
+end module trexio
+  #+end_src
+