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.c-types alien.syntax combinators kernel system
   9 alien.libraries classes.struct ;
  10
  11 IN: openssl.libcrypto
  12
  13 <<
  14 {
  15     { [ os windows? ] [ "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 STRUCT: bio-method
  22     { type int }
  23     { name void* }
  24     { bwrite void* }
  25     { bread void* }
  26     { bputs void* }
  27     { bgets void* }
  28     { ctrl void* }
  29     { create void* }
  30     { destroy void* }
  31     { callback-ctrl void* } ;
  32
  33 STRUCT: bio
  34     { method void* }
  35     { callback void* }
  36     { cb-arg void* }
  37     { init int }
  38     { shutdown int }
  39     { flags int }
  40     { retry-reason int }
  41     { num int }
  42     { ptr void* }
  43     { next-bio void* }
  44     { prev-bio void* }
  45     { references int }
  46     { num-read ulong }
  47     { num-write ulong }
  48     { crypto-ex-data-stack void* }
  49     { crypto-ex-data-dummy int } ;
  50
  51 CONSTANT: BIO_NOCLOSE       0x00
  52 CONSTANT: BIO_CLOSE         0x01
  53
  54 CONSTANT: RSA_3             0x3
  55 CONSTANT: RSA_F4            0x10001
  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 ( c-string filename, c-string mode ) ;
  67
  68 FUNCTION: int BIO_printf ( bio* bio, c-string 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, c-string buf, int size ) ;
  85
  86 FUNCTION: int BIO_write ( void* b, void* buf, int len ) ;
  87
  88 FUNCTION: int BIO_puts ( void* bp, c-string buf ) ;
  89
  90 FUNCTION: ulong ERR_get_error (  ) ;
  91
  92 FUNCTION: void ERR_clear_error ( ) ;
  93
  94 FUNCTION: c-string 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-TYPE: EVP_MD
 105 C-TYPE: ENGINE
 106
 107 STRUCT: EVP_MD_CTX
 108     { digest EVP_MD* }
 109     { engine ENGINE* }
 110     { flags ulong }
 111     { md_data void* } ;
 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 ( c-string 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 ( c-string 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 ) ;