steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sodium: move some words into the <PRIVATE> section

travis-windows
Alexander Iljin 2018-12-24 00:48:01 +01:00
parent c84410f3c6
commit ce6f4ee249
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/sodium/sodium.factor
View File

@ -11,6 +11,16 @@ ERROR: buffer-too-small ;
! Call this before any other function, may be called multiple times.
: sodium-init ( -- ) sodium_init 0 < [ sodium-init-fail ] when ;
<PRIVATE
: cipher-buf ( message-length n -- byte-array )
crypto_secretbox_macbytes + <byte-array> ;
: message-buf ( cipher-length n -- byte-array )
crypto_secretbox_macbytes - <byte-array> ;
PRIVATE>
: random-bytes ( byte-array -- byte-array' )
dup dup length randombytes_buf ;
@ -30,12 +40,6 @@ ERROR: buffer-too-small ;
: crypto-generichash ( out-bytes in-bytes key-bytes/f -- out-bytes' )
[ dup ] 2dip [ dup length ] tri@ crypto_generichash check0 ;
: cipher-buf ( msg-length -- byte-array )
crypto_secretbox_macbytes + <byte-array> ;
: message-buf ( msg-length -- byte-array )
crypto_secretbox_macbytes - <byte-array> ;
: check-length ( byte-array min-length -- byte-array )
[ dup length ] dip < [ buffer-too-small ] when ;