basis/openssl/libcrypto/libcrypto.factor

   1 ! Copyright (C) 2007 Elie CHAFTARI, 2009 Maxim Savchenko
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 !
   4 ! Tested with OpenSSL 0.9.8a_0 on Mac OS X 10.4.9 PowerPC
   5 !
   6 ! export LD_LIBRARY_PATH=/opt/local/lib
   7
   8 USING: alien alien.syntax combinators kernel system ;
   9
  10 IN: openssl.libcrypto
  11
  12 <<
  13 {
  14     { [ os openbsd? ] [ ] } ! VM is linked with it
  15     { [ os winnt? ] [ "libcrypto" "libeay32.dll" "cdecl" add-library ] }
  16     { [ os macosx? ] [ "libcrypto" "libcrypto.dylib" "cdecl" add-library ] }
  17     { [ os unix? ] [ "libcrypto" "libcrypto.so" "cdecl" add-library ] }
  18 } cond
  19 >>
  20
  21 C-STRUCT: bio-method
  22     { "int" "type" }
  23     { "void*" "name" }
  24     { "void*" "bwrite" }
  25     { "void*" "bread" }
  26     { "void*" "bputs" }
  27     { "void*" "bgets" }
  28     { "void*" "ctrl" }
  29     { "void*" "create" }
  30     { "void*" "destroy" }
  31     { "void*" "callback-ctrl" } ;
  32
  33 C-STRUCT: bio
  34     { "void*" "method" }
  35     { "void*" "callback" }
  36     { "void*" "cb-arg" }
  37     { "int" "init" }
  38     { "int" "shutdown" }
  39     { "int" "flags" }
  40     { "int" "retry-reason" }
  41     { "int" "num" }
  42     { "void*" "ptr" }
  43     { "void*" "next-bio" }
  44     { "void*" "prev-bio" }
  45     { "int" "references" }
  46     { "ulong" "num-read" }
  47     { "ulong" "num-write" }
  48     { "void*" "crypto-ex-data-stack" }
  49     { "int" "crypto-ex-data-dummy" } ;
  50
  51 CONSTANT: BIO_NOCLOSE       HEX: 00
  52 CONSTANT: BIO_CLOSE         HEX: 01
  53
  54 CONSTANT: RSA_3             HEX: 3
  55 CONSTANT: RSA_F4            HEX: 10001
  56
  57 CONSTANT: BIO_C_SET_SSL     109
  58 CONSTANT: BIO_C_GET_SSL     110
  59
  60 LIBRARY: libcrypto
  61
  62 ! ===============================================
  63 ! bio.h
  64 ! ===============================================
  65
  66 FUNCTION: bio* BIO_new_file ( char* filename, char* mode ) ;
  67
  68 FUNCTION: int BIO_printf ( bio* bio, char* format ) ;
  69
  70 FUNCTION: long BIO_ctrl ( void* bio, int cmd, long larg, void* parg ) ;
  71
  72 FUNCTION: void* BIO_new_socket ( int fd, int close-flag ) ;
  73
  74 FUNCTION: void* BIO_new ( void* method ) ;
  75
  76 FUNCTION: int BIO_set ( void* bio, void* method ) ;
  77
  78 FUNCTION: int BIO_free ( void* bio ) ;
  79
  80 FUNCTION: void* BIO_push ( void* bio, void* append ) ;
  81
  82 FUNCTION: int BIO_read ( void* b, void* buf, int len ) ;
  83
  84 FUNCTION: int BIO_gets ( void* b, char* buf, int size ) ;
  85
  86 FUNCTION: int BIO_write ( void* b, void* buf, int len ) ;
  87
  88 FUNCTION: int BIO_puts ( void* bp, char* buf ) ;
  89
  90 FUNCTION: ulong ERR_get_error (  ) ;
  91
  92 FUNCTION: void ERR_clear_error ( ) ;
  93
  94 FUNCTION: char* ERR_error_string ( ulong e, void* buf ) ;
  95
  96 FUNCTION: void* BIO_f_buffer (  ) ;
  97
  98 ! ===============================================
  99 ! evp.h
 100 ! ===============================================
 101
 102 CONSTANT: EVP_MAX_MD_SIZE 64
 103
 104 C-STRUCT: EVP_MD_CTX
 105     { "EVP_MD*" "digest" }
 106     { "ENGINE*" "engine" }
 107     { "ulong" "flags" }
 108     { "void*" "md_data" } ;
 109
 110 TYPEDEF: void* EVP_MD*
 111 TYPEDEF: void* ENGINE*
 112
 113 ! Initialize ciphers and digest tables
 114 FUNCTION: void OpenSSL_add_all_ciphers (  ) ;
 115
 116 FUNCTION: void OpenSSL_add_all_digests (  ) ;
 117
 118 ! Clean them up before exiting
 119 FUNCTION: void EVP_cleanup (  ) ;
 120
 121 FUNCTION: EVP_MD* EVP_get_digestbyname ( char* name ) ;
 122
 123 FUNCTION: void EVP_MD_CTX_init ( EVP_MD* ctx ) ;
 124
 125 FUNCTION: int EVP_MD_CTX_cleanup ( EVP_MD_CTX* ctx ) ;
 126
 127 FUNCTION: EVP_MD_CTX* EVP_MD_CTX_create ( ) ;
 128
 129 FUNCTION: void EVP_MD_CTX_destroy ( EVP_MD_CTX* ctx ) ;
 130
 131 FUNCTION: int EVP_MD_CTX_copy_ex ( EVP_MD_CTX* out, EVP_MD_CTX* in ) ;
 132
 133 FUNCTION: int EVP_DigestInit_ex ( EVP_MD_CTX* ctx, EVP_MD* type, ENGINE* impl ) ;
 134
 135 FUNCTION: int EVP_DigestUpdate ( EVP_MD_CTX* ctx, void* d, uint cnt ) ;
 136
 137 FUNCTION: int EVP_DigestFinal_ex ( EVP_MD_CTX* ctx, void* md, uint* s ) ;
 138
 139 FUNCTION: int EVP_Digest ( void* data, uint count, void* md, uint* size, EVP_MD* type, ENGINE* impl ) ;
 140
 141 FUNCTION: int EVP_MD_CTX_copy ( EVP_MD_CTX* out, EVP_MD_CTX* in ) ;
 142
 143 FUNCTION: int EVP_DigestInit ( EVP_MD_CTX* ctx, EVP_MD* type ) ;
 144
 145 FUNCTION: int EVP_DigestFinal ( EVP_MD_CTX* ctx, void* md, uint* s ) ;
 146
 147 FUNCTION: void* PEM_read_bio_DHparams ( void* bp, void* x, void* cb,
 148                                         void* u ) ;
 149
 150 ! ===============================================
 151 ! rsa.h
 152 ! ===============================================
 153
 154 FUNCTION: void* RSA_generate_key ( int num, ulong e, void* callback,
 155                                    void* cb_arg ) ;
 156
 157 FUNCTION: int RSA_check_key ( void* rsa ) ;
 158
 159 FUNCTION: void RSA_free ( void* rsa ) ;
 160
 161 FUNCTION: int RSA_print_fp ( void* fp, void* x, int offset ) ;
 162
 163 ! ===============================================
 164 ! objects.h
 165 ! ===============================================
 166
 167 FUNCTION: int OBJ_sn2nid ( char* s ) ;
 168
 169 ! ===============================================
 170 ! bn.h
 171 ! ===============================================
 172
 173 FUNCTION: int BN_num_bits ( void* a ) ;
 174
 175 FUNCTION: void* BN_bin2bn ( void* s, int len, void* ret ) ;
 176
 177 FUNCTION: int BN_bn2bin ( void* a, void* to ) ;
 178
 179 FUNCTION: void BN_clear_free ( void* a ) ;
 180
 181 ! ===============================================
 182 ! ec.h
 183 ! ===============================================
 184
 185 CONSTANT: POINT_CONVERSION_COMPRESSED 2
 186 CONSTANT: POINT_CONVERSION_UNCOMPRESSED 4
 187 CONSTANT: POINT_CONVERSION_HYBRID 6
 188
 189 FUNCTION: int EC_GROUP_get_degree ( void* group ) ;
 190
 191 FUNCTION: void* EC_POINT_new ( void* group ) ;
 192
 193 FUNCTION: void EC_POINT_clear_free ( void* point ) ;
 194
 195 FUNCTION: int EC_POINT_point2oct ( void* group, void* point, int form, void* buf, int len, void* ctx ) ;
 196
 197 FUNCTION: int EC_POINT_oct2point ( void* group, void* point, void* buf, int len, void* ctx ) ;
 198
 199 FUNCTION: void* EC_KEY_new_by_curve_name ( int nid ) ;
 200
 201 FUNCTION: void EC_KEY_free ( void* r ) ;
 202
 203 FUNCTION: int EC_KEY_set_private_key ( void* key, void* priv_key ) ;
 204
 205 FUNCTION: int EC_KEY_set_public_key ( void* key, void* pub_key ) ;
 206
 207 FUNCTION: int EC_KEY_generate_key ( void* eckey ) ;
 208
 209 FUNCTION: void* EC_KEY_get0_group ( void* key ) ;
 210
 211 FUNCTION: void* EC_KEY_get0_private_key ( void* key ) ;
 212
 213 FUNCTION: void* EC_KEY_get0_public_key ( void* key ) ;
 214
 215 ! ===============================================
 216 ! ecdsa.h
 217 ! ===============================================
 218
 219 FUNCTION: int ECDSA_size ( void* eckey ) ;
 220
 221 FUNCTION: int ECDSA_sign ( int type, void* dgst, int dgstlen, void* sig, void* siglen, void* eckey ) ;
 222
 223 FUNCTION: int ECDSA_verify ( int type, void* dgst, int dgstlen, void* sig, int siglen, void* eckey ) ;