diff --git a/fortium.f90 b/fortium.f90 index 0e03edc..67484e5 100644 --- a/fortium.f90 +++ b/fortium.f90 @@ -1,14 +1,17 @@ module fortium - !Fortran bindings for the nanomsg v0.4 sockets library (https://github.com/nanomsg/nanomsg) - !"nanomsg" is licensed under MIT/X11 license and is a trademark of 250bpm s.r.o. + !Fortran bindings for libsodium - a P(ortable|ackageable) NaCl-based crypto library + !(https://github.com/jedisct1/libsodium) + !"libsodium" is licensed under the ISC license (http://en.wikipedia.org/wiki/ISC_license) ! - !nanofort bindings for nanomsg - MIT License (MIT) - !See LICENSE file for more details + !fortium bindings for libsodium - MIT License (MIT) + !See LICENSE file for more details !Copyright (c) 2014 John N. Shahbazian - !https://github.com/jshahbazi/nanofort + !https://github.com/jshahbazi/fortium use iso_c_binding + implicit none + interface !---------------------------- @@ -175,14 +178,6 @@ integer(c_int) function crypto_auth_hmacsha512256_final(state, out) bind(c,name= type(c_ptr), value :: out !unsigned char *out end function crypto_auth_hmacsha512256_final - - integer(c_int) function strlen(s) bind(c, name='strlen') - use iso_c_binding - implicit none - !---- - type(c_ptr), intent(in), value :: s - end function strlen - !c_memcpy - same as the C function memcpy type(c_ptr) function c_memcpy(dest, src, n) bind(c,name="memcpy") use iso_c_binding diff --git a/fortium_defines.f90 b/fortium_defines.f90 index dca466e..f53bea9 100644 --- a/fortium_defines.f90 +++ b/fortium_defines.f90 @@ -1,7 +1,17 @@ module fortium_defines - use iso_c_binding + !Fortran bindings for libsodium - a P(ortable|ackageable) NaCl-based crypto library + !(https://github.com/jedisct1/libsodium) + !"libsodium" is licensed under the ISC license (http://en.wikipedia.org/wiki/ISC_license) + ! + !fortium bindings for libsodium - MIT License (MIT) + !See LICENSE file for more details + !Copyright (c) 2014 John N. Shahbazian + !https://github.com/jshahbazi/fortium + use iso_c_binding + implicit none + !----------------------------- !crypto_hash_sha512.h diff --git a/fortium_types.f90 b/fortium_types.f90 index a79e526..99257a1 100644 --- a/fortium_types.f90 +++ b/fortium_types.f90 @@ -1,15 +1,16 @@ module fortium_types - !Fortran bindings for the nanomsg v0.4 sockets library (https://github.com/nanomsg/nanomsg) - !"nanomsg" is licensed under MIT/X11 license and is a trademark of 250bpm s.r.o. + !Fortran bindings for libsodium - a P(ortable|ackageable) NaCl-based crypto library + !(https://github.com/jedisct1/libsodium) + !"libsodium" is licensed under the ISC license (http://en.wikipedia.org/wiki/ISC_license) ! - !nanofort bindings for nanomsg - MIT License (MIT) - !See LICENSE file for more details + !fortium bindings for libsodium - MIT License (MIT) + !See LICENSE file for more details !Copyright (c) 2014 John N. Shahbazian - !https://github.com/jshahbazi/nanofort + !https://github.com/jshahbazi/fortium use iso_c_binding - + implicit none type, bind(c) :: crypto_hash_sha512_state integer(c_int64_t) :: state(8)