sodium: add startup initialization hook

extra/sodium/ffi/ffi.factor

@@ -1,6 +1,7 @@
 ! Copyright (C) 2017 Alexander Ilin.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries alien.syntax combinators system ;
+USING: alien alien.c-types alien.libraries alien.syntax
+combinators system ;
 IN: sodium.ffi
 
 << "sodium" {
@@ -10,3 +11,5 @@ IN: sodium.ffi
 } cond cdecl add-library >>
 
 LIBRARY: sodium
+
+FUNCTION: int sodium_init ( )

extra/sodium/sodium.factor

@@ -0,0 +1,11 @@
+! Copyright (C) 2017 Alexander Ilin.
+! See http://factorcode.org/license.txt for BSD license.
+USING: init kernel math sodium.ffi ;
+IN: sodium
+
+ERROR: sodium-init-fail ;
+
+! Call this before any other function, may be called multiple times.
+: sodium-init ( -- ) sodium_init 0 < [ sodium-init-fail ] when ;
+
+[ sodium-init ] "sodium" add-startup-hook