openssl.libcrypto: defining structs for some opaque aliens

basis/openssl/libcrypto/libcrypto.factor

@@ -59,9 +59,47 @@ CONSTANT: BIO_C_GET_SSL     110
 
 LIBRARY: libcrypto
 
+! ===============================================
+! crypto.h
+! ===============================================
+STRUCT: crypto_ex_data_st
+    { sk void* }
+    { dummy int } ;
+TYPEDEF: crypto_ex_data_st CRYPTO_EX_DATA
+
 ! ===============================================
 ! bio.h
 ! ===============================================
+STRUCT: bio_method_st
+    { type int }
+    { name c-string }
+    { bwrite void* }
+    { bread void* }
+    { bputs void* }
+    { bgets void* }
+    { ctrl void* }
+    { create void* }
+    { destroy void* }
+    { callback_ctrl void* } ;
+TYPEDEF: bio_method_st BIO_METHOD
+
+STRUCT: bio_st
+    { method BIO_METHOD* }
+    { callback void* }
+    { cb_arg c-string }
+    { init int }
+    { shutdown int }
+    { flags int }
+    { retry_reason int }
+    { num int }
+    { ptr void* }
+    { next_bio bio_st* }
+    { prev_bio bio_st* }
+    { references int }
+    { num_read ulong }
+    { num_write ulong }
+    { ex_data CRYPTO_EX_DATA } ;
+TYPEDEF: bio_st BIO
 
 FUNCTION: bio* BIO_new_file ( c-string filename, c-string mode ) ;
 
@@ -69,7 +107,7 @@ FUNCTION: int BIO_printf ( bio* bio, c-string format ) ;
 
 FUNCTION: long BIO_ctrl ( void* bio, int cmd, long larg, void* parg ) ;
 
-FUNCTION: void* BIO_new_socket ( int fd, int close-flag ) ;
+FUNCTION: BIO* BIO_new_socket ( int fd, int close-flag ) ;
 
 FUNCTION: void* BIO_new ( void* method ) ;