Artifact 36f9bc1a62796123e9a5e341f8b81a4b9336d39e:

• File nacl.fs — part of check-in [5dd56873c6] at 2012-07-02 22:38:35 on branch trunk — 32 bit compiles - but don't expect it to work (user: bernd size: 1778)
• File testing/nacl.fs — part of check-in [560fb86b36] at 2012-10-22 22:04:40 on branch trunk — Move unnecessary stuff to testing/ (user: bernd size: 1778)

\ Interface to the NaCL library

c-library nacl
    s" nacl" add-lib
    cell 8 = [IF]
	\c #include <amd64/crypto_box.h>
	\c #include <amd64/crypto_scalarmult_curve25519.h>
	\c #include <amd64/crypto_secretbox.h>
	\c #include <amd64/crypto_stream.h>
	\c #include <amd64/crypto_hash.h>
	\c #include <amd64/randombytes.h>
    [ELSE]
	\c #include <x86/crypto_box.h>
	\c #include <x86/crypto_scalarmult_curve25519.h>
	\c #include <x86/crypto_secretbox.h>
	\c #include <x86/crypto_stream.h>
	\c #include <x86/crypto_hash.h>
	\c #include <x86/randombytes.h>
    [THEN]
    c-function crypto_box_keypair crypto_box_keypair a a -- void ( pk sk -- )
    c-function crypto_box crypto_box a a n a a a -- void ( c m mlen n pk sk -- )
    c-function crypto_box_beforenm crypto_box_beforenm a a a -- void ( k pk sk -- )
    c-function crypto_box_open crypto_box_open a a n a a a -- void ( m c clen n pk sk -- )
    c-function crypto_scalarmult_curve25519 crypto_scalarmult_curve25519 a a a -- void ( s pk sk -- )
    c-function crypto_scalarmult_curve25519_base crypto_scalarmult_curve25519_base a a -- void ( pk sk -- )
    c-function crypto_secretbox crypto_secretbox a a n a a -- void ( c m mlen n k -- )
    c-function crypto_secretbox_open crypto_secretbox_open a a n a a -- void ( m c clen n k -- )
    c-function crypto_stream crypto_stream a n a a -- void ( c clen n k -- )
    c-function crypto_stream_xor crypto_stream_xor a a n a a -- void ( c m mlen n k -- )
    c-function crypto_hash crypto_hash a a n -- void ( h m mlen -- )
    c-function randombytes randombytes a n -- void ( addr n -- )
end-c-library

32 Constant PUBLICKEYBYTES
32 Constant SECRETKEYBYTES
32 Constant KEYBYTES
32 Constant BEFORENMBYTES
24 Constant NONCEBYTES
32 Constant ZEROBYTES
16 Constant BOXZEROBYTES