1
0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-12-22 20:35:44 +01:00

disable type casting in constant definitions to access them in the target language

required because SWIG cannot handle definitions with type casting
This commit is contained in:
q-posev 2021-07-20 10:39:05 +02:00
parent d527561440
commit 9fa2bc2835

View File

@ -159,7 +159,7 @@ typedef int32_t trexio_exit_code;
result = [ "#+begin_src c :tangle prefix_front.h :exports none" ]
for (text, code,_) in table:
text=text.replace("~","")
result += [ f"#define {text:30s} ((trexio_exit_code) {code:d})" ]
result += [ f"#define {text:30s} {code:d} //((trexio_exit_code) {code:d})" ]
result += [ "#+end_src" ]
result += [ "" ]
@ -178,31 +178,31 @@ return '\n'.join(result)
#+RESULTS:
:results:
#+begin_src c :tangle prefix_front.h
#define TREXIO_FAILURE ((trexio_exit_code) -1)
#define TREXIO_SUCCESS ((trexio_exit_code) 0)
#define TREXIO_INVALID_ARG_1 ((trexio_exit_code) 1)
#define TREXIO_INVALID_ARG_2 ((trexio_exit_code) 2)
#define TREXIO_INVALID_ARG_3 ((trexio_exit_code) 3)
#define TREXIO_INVALID_ARG_4 ((trexio_exit_code) 4)
#define TREXIO_INVALID_ARG_5 ((trexio_exit_code) 5)
#define TREXIO_END ((trexio_exit_code) 6)
#define TREXIO_READONLY ((trexio_exit_code) 7)
#define TREXIO_ERRNO ((trexio_exit_code) 8)
#define TREXIO_INVALID_ID ((trexio_exit_code) 9)
#define TREXIO_ALLOCATION_FAILED ((trexio_exit_code) 10)
#define TREXIO_HAS_NOT ((trexio_exit_code) 11)
#define TREXIO_INVALID_NUM ((trexio_exit_code) 12)
#define TREXIO_ATTR_ALREADY_EXISTS ((trexio_exit_code) 13)
#define TREXIO_DSET_ALREADY_EXISTS ((trexio_exit_code) 14)
#define TREXIO_OPEN_ERROR ((trexio_exit_code) 15)
#define TREXIO_LOCK_ERROR ((trexio_exit_code) 16)
#define TREXIO_UNLOCK_ERROR ((trexio_exit_code) 17)
#define TREXIO_FILE_ERROR ((trexio_exit_code) 18)
#define TREXIO_GROUP_READ_ERROR ((trexio_exit_code) 19)
#define TREXIO_GROUP_WRITE_ERROR ((trexio_exit_code) 20)
#define TREXIO_ELEM_READ_ERROR ((trexio_exit_code) 21)
#define TREXIO_ELEM_WRITE_ERROR ((trexio_exit_code) 22)
#define TREXIO_INVALID_STR_LEN ((trexio_exit_code) 30)
#define TREXIO_FAILURE -1 //((trexio_exit_code) -1)
#define TREXIO_SUCCESS 0 //((trexio_exit_code) 0)
#define TREXIO_INVALID_ARG_1 1 //((trexio_exit_code) 1)
#define TREXIO_INVALID_ARG_2 2 //((trexio_exit_code) 2)
#define TREXIO_INVALID_ARG_3 3 //((trexio_exit_code) 3)
#define TREXIO_INVALID_ARG_4 4 //((trexio_exit_code) 4)
#define TREXIO_INVALID_ARG_5 5 //((trexio_exit_code) 5)
#define TREXIO_END 6 //((trexio_exit_code) 6)
#define TREXIO_READONLY 7 //((trexio_exit_code) 7)
#define TREXIO_ERRNO 8 //((trexio_exit_code) 8)
#define TREXIO_INVALID_ID 9 //((trexio_exit_code) 9)
#define TREXIO_ALLOCATION_FAILED 10 //((trexio_exit_code) 10)
#define TREXIO_HAS_NOT 11 //((trexio_exit_code) 11)
#define TREXIO_INVALID_NUM 12 //((trexio_exit_code) 12)
#define TREXIO_ATTR_ALREADY_EXISTS 13 //((trexio_exit_code) 13)
#define TREXIO_DSET_ALREADY_EXISTS 14 //((trexio_exit_code) 14)
#define TREXIO_OPEN_ERROR 15 //((trexio_exit_code) 15)
#define TREXIO_LOCK_ERROR 16 //((trexio_exit_code) 16)
#define TREXIO_UNLOCK_ERROR 17 //((trexio_exit_code) 17)
#define TREXIO_FILE_ERROR 18 //((trexio_exit_code) 18)
#define TREXIO_GROUP_READ_ERROR 19 //((trexio_exit_code) 19)
#define TREXIO_GROUP_WRITE_ERROR 20 //((trexio_exit_code) 20)
#define TREXIO_ELEM_READ_ERROR 21 //((trexio_exit_code) 21)
#define TREXIO_ELEM_WRITE_ERROR 22 //((trexio_exit_code) 22)
#define TREXIO_INVALID_STR_LEN 30 //((trexio_exit_code) 30)
#+end_src
#+begin_src f90 :tangle prefix_fortran.f90
@ -389,10 +389,10 @@ end interface
#+begin_src c :tangle prefix_front.h
typedef int32_t back_end_t;
#define TREXIO_HDF5 ( (back_end_t) 0 )
#define TREXIO_TEXT ( (back_end_t) 1 )
#define TREXIO_HDF5 0 //( (back_end_t) 0 )
#define TREXIO_TEXT 1 //( (back_end_t) 1 )
/*#define TREXIO_JSON ( (back_end_t) 2 )*/
#define TREXIO_INVALID_BACK_END ( (back_end_t) 2 )
#define TREXIO_INVALID_BACK_END 2 //( (back_end_t) 2 )
#define TREXIO_DELIM "\n"
#+end_src