basis/openssl/libssl/libssl.factor

   1 ! Copyright (C) 2007 Elie CHAFTARI
   2 ! Portions copyright (C) 2008 Slava Pestov
   3 ! See http://factorcode.org/license.txt for BSD license.
   4 USING: alien alien.c-types alien.libraries alien.parser
   5 alien.syntax assocs classes.struct combinators kernel lexer
   6 literals namespaces openssl.libcrypto parser quotations
   7 sequences system words ;
   8
   9 IN: openssl.libssl
  10
  11 << "libssl" {
  12     { [ os windows? ] [ "ssleay32.dll" ] }
  13     { [ os macosx? ] [ "libssl.dylib" ] }
  14     { [ os unix? ] [ "libssl.so" ] }
  15 } cond cdecl add-library >>
  16
  17 CONSTANT: X509_FILETYPE_PEM       1
  18 CONSTANT: X509_FILETYPE_ASN1      2
  19 CONSTANT: X509_FILETYPE_DEFAULT   3
  20
  21 ALIAS: SSL_FILETYPE_ASN1 X509_FILETYPE_ASN1
  22 ALIAS: SSL_FILETYPE_PEM  X509_FILETYPE_PEM
  23
  24 CONSTANT: SSL_CTRL_NEED_TMP_RSA   1
  25 CONSTANT: SSL_CTRL_SET_TMP_RSA    2
  26 CONSTANT: SSL_CTRL_SET_TMP_DH     3
  27 CONSTANT: SSL_CTRL_SET_TMP_RSA_CB 4
  28 CONSTANT: SSL_CTRL_SET_TMP_DH_CB  5
  29
  30 CONSTANT: SSL_CTRL_GET_SESSION_REUSED       6
  31 CONSTANT: SSL_CTRL_GET_CLIENT_CERT_REQUEST  7
  32 CONSTANT: SSL_CTRL_GET_NUM_RENEGOTIATIONS   8
  33 CONSTANT: SSL_CTRL_CLEAR_NUM_RENEGOTIATIONS 9
  34 CONSTANT: SSL_CTRL_GET_TOTAL_RENEGOTIATIONS 10
  35 CONSTANT: SSL_CTRL_GET_FLAGS                11
  36 CONSTANT: SSL_CTRL_EXTRA_CHAIN_CERT         12
  37
  38 CONSTANT: SSL_CTRL_SET_MSG_CALLBACK         13
  39 CONSTANT: SSL_CTRL_SET_MSG_CALLBACK_ARG     14
  40
  41 CONSTANT: SSL_CTRL_SESS_NUMBER              20
  42 CONSTANT: SSL_CTRL_SESS_CONNECT             21
  43 CONSTANT: SSL_CTRL_SESS_CONNECT_GOOD        22
  44 CONSTANT: SSL_CTRL_SESS_CONNECT_RENEGOTIATE 23
  45 CONSTANT: SSL_CTRL_SESS_ACCEPT              24
  46 CONSTANT: SSL_CTRL_SESS_ACCEPT_GOOD         25
  47 CONSTANT: SSL_CTRL_SESS_ACCEPT_RENEGOTIATE  26
  48 CONSTANT: SSL_CTRL_SESS_HIT                 27
  49 CONSTANT: SSL_CTRL_SESS_CB_HIT              28
  50 CONSTANT: SSL_CTRL_SESS_MISSES              29
  51 CONSTANT: SSL_CTRL_SESS_TIMEOUTS            30
  52 CONSTANT: SSL_CTRL_SESS_CACHE_FULL          31
  53 CONSTANT: SSL_CTRL_OPTIONS                  32
  54 CONSTANT: SSL_CTRL_MODE                     33
  55
  56 CONSTANT: SSL_CTRL_GET_READ_AHEAD           40
  57 CONSTANT: SSL_CTRL_SET_READ_AHEAD           41
  58 CONSTANT: SSL_CTRL_SET_SESS_CACHE_SIZE      42
  59 CONSTANT: SSL_CTRL_GET_SESS_CACHE_SIZE      43
  60 CONSTANT: SSL_CTRL_SET_SESS_CACHE_MODE      44
  61 CONSTANT: SSL_CTRL_GET_SESS_CACHE_MODE      45
  62
  63 CONSTANT: SSL_CTRL_GET_MAX_CERT_LIST        50
  64 CONSTANT: SSL_CTRL_SET_MAX_CERT_LIST        51
  65
  66 CONSTANT: SSL_OP_NO_SSLv2 0x01000000
  67 CONSTANT: SSL_OP_NO_SSLv3 0x02000000
  68 CONSTANT: SSL_OP_NO_TLSv1 0x04000000
  69 CONSTANT: SSL_OP_NO_TLSv1_2 0x08000000
  70 CONSTANT: SSL_OP_NO_TLSv1_1 0x10000000
  71
  72 CONSTANT: SSL_ERROR_NONE             0
  73 CONSTANT: SSL_ERROR_SSL              1
  74 CONSTANT: SSL_ERROR_WANT_READ        2
  75 CONSTANT: SSL_ERROR_WANT_WRITE       3
  76 CONSTANT: SSL_ERROR_WANT_X509_LOOKUP 4
  77 CONSTANT: SSL_ERROR_SYSCALL          5 ! consult errno for details
  78 CONSTANT: SSL_ERROR_ZERO_RETURN      6
  79 CONSTANT: SSL_ERROR_WANT_CONNECT     7
  80 CONSTANT: SSL_ERROR_WANT_ACCEPT      8
  81
  82 ! Error messages table
  83 : error-messages ( -- hash )
  84     H{
  85         { 0  "SSL_ERROR_NONE" }
  86         { 1  "SSL_ERROR_SSL" }
  87         { 2  "SSL_ERROR_WANT_READ" }
  88         { 3  "SSL_ERROR_WANT_WRITE" }
  89         { 4  "SSL_ERROR_WANT_X509_LOOKUP" }
  90         { 5  "SSL_ERROR_SYSCALL" }
  91         { 6  "SSL_ERROR_ZERO_RETURN" }
  92         { 7  "SSL_ERROR_WANT_CONNECT" }
  93         { 8  "SSL_ERROR_WANT_ACCEPT" }
  94     } ;
  95
  96 C-TYPE: SSL_CTX
  97 C-TYPE: SSL_SESSION
  98
  99 LIBRARY: libssl
 100
 101 ! ===============================================
 102 ! stack.h
 103 ! ===============================================
 104
 105 STRUCT: stack_st
 106     { num int }
 107     { data char** }
 108     { sorted int }
 109     { num_alloc int }
 110     { comp void* } ;
 111 TYPEDEF: stack_st _STACK
 112
 113 ! ===============================================
 114 ! asn1t.h
 115 ! ===============================================
 116
 117 C-TYPE: ASN1_ITEM
 118
 119 ! ===============================================
 120 ! asn1.h
 121 ! ===============================================
 122 C-TYPE: ASN1_VALUE
 123 TYPEDEF: ASN1_ITEM ASN1_ITEM_EXP
 124
 125 STRUCT: ASN1_STRING
 126     { length int }
 127     { type int }
 128     { data uchar* }
 129     { flags long } ;
 130
 131 FUNCTION: int ASN1_STRING_cmp ( ASN1_STRING *a, ASN1_STRING *b ) ;
 132
 133 FUNCTION: ASN1_VALUE* ASN1_item_d2i ( ASN1_VALUE** val, uchar **in, long len, ASN1_ITEM *it ) ;
 134
 135 ! ===============================================
 136 ! ossl_typ.h
 137 ! ===============================================
 138 TYPEDEF: ASN1_STRING ASN1_OCTET_STRING
 139
 140 ! ===============================================
 141 ! x509.h
 142 ! ===============================================
 143
 144 STRUCT: X509_EXTENSION
 145     { object void* }
 146     { critical void* }
 147     { value ASN1_OCTET_STRING* } ;
 148
 149 C-TYPE: X509_NAME
 150 C-TYPE: X509
 151
 152 ! ===============================================
 153 ! x509v3.h
 154 ! ===============================================
 155 STRUCT: X509V3_EXT_METHOD
 156     { ext_nid int }
 157     { ext_flags int }
 158     { it void* } ;
 159
 160 FUNCTION: X509V3_EXT_METHOD* X509V3_EXT_get ( X509_EXTENSION* ext ) ;
 161
 162 UNION-STRUCT: GENERAL_NAME_st_d
 163     { ptr char* }
 164     { otherName void* }
 165     { rfc822Name void* }
 166     { dNSName ASN1_STRING* } ;
 167
 168 STRUCT: GENERAL_NAME_st
 169     { type int }
 170     { d GENERAL_NAME_st_d } ;
 171
 172 CONSTANT: GEN_OTHERNAME 0
 173 CONSTANT: GEN_EMAIL     1
 174 CONSTANT: GEN_DNS       2
 175 CONSTANT: GEN_X400      3
 176 CONSTANT: GEN_DIRNAME   4
 177 CONSTANT: GEN_EDIPARTY  5
 178 CONSTANT: GEN_URI       6
 179 CONSTANT: GEN_IPADD     7
 180 CONSTANT: GEN_RID       8
 181
 182 ! ===============================================
 183 ! ssl.h
 184 ! ===============================================
 185
 186 STRUCT: ssl_method_st
 187     { version int }
 188     { ssl_new void* }
 189     { ssl_clear void* }
 190     { ssl_free void* }
 191     { ssl_accept void* }
 192     { ssl_connect void* }
 193     { ssl_read void* }
 194     { ssl_peek void* }
 195     { ssl_write void* }
 196     { ssl_shutdown void* }
 197     { ssl_renegotiate void* }
 198     { ssl_renegotiate_check void* }
 199     { ssl_get_message void* }
 200     { ssl_read_bytes void* }
 201     { ssl_write_bytes void* }
 202     { ssl_dispatch_alert void* }
 203     { ssl_ctrl void* }
 204     { ssl_ctx_ctrl void* }
 205     { get_cipher_by_char void* }
 206     { put_cipher_by_char void* }
 207     { ssl_pending void* }
 208     { num_ciphers void* }
 209     { get_cipher void* }
 210     { get_ssl_method void* }
 211     { get_timeout void* }
 212     { ssl3_enc void* }
 213     { ssl_version void* }
 214     { ssl_callback_ctrl void* }
 215     { ssl_ctx_callback_ctrl void* } ;
 216 TYPEDEF: ssl_method_st* ssl-method
 217
 218 STRUCT: ssl_st
 219     { version int }
 220     { type int }
 221     { method ssl_method_st* }
 222     { rbio BIO* }
 223     { wbio BIO* }
 224     { bbio BIO* }
 225     { rwstate int }
 226     { in_handshake int }
 227     { handshake_func void* }
 228     { server int }
 229     { new_session int }
 230     { quiet_shutdown int }
 231     { shutdown int }
 232     { state int }
 233     { rstate int }
 234     { init_buf void* }
 235     { init_msg void* }
 236     { init_num int }
 237     { init_off int }
 238     { packet void* }
 239     { packet_length int }
 240     { s2 void* }
 241     { s3 void* }
 242     { d1 void* }
 243     { read_ahead int }
 244     { msg_callback void* }
 245     { msg_callback_arg void* }
 246     { hit int }
 247     { param void* }
 248     { cipher_list void* }
 249     { cipher_list_by_id void* }
 250     { mac_flags int }
 251     { enc_read_ctx void* }
 252     { read_hash void* }
 253     { expand void* }
 254     { enc_write_ctx void* }
 255     { write_hash void* }
 256     { compress void* }
 257     { cert void* }
 258     { sid_ctx_length uint }
 259     { sid_ctx void* }
 260     { session SSL_SESSION* }
 261     { generate_session_id void* }
 262     { verify_mode int }
 263     { verify_callback void* }
 264     { info_callback void* }
 265     { error int }
 266     { error_code int }
 267     { kssl_ctx void* }
 268     { psk_client_callback void* }
 269     { psk_server_callback void* }
 270     { ctx SSL_CTX* } ;
 271 TYPEDEF: ssl_st SSL
 272
 273 FUNCTION: c-string SSL_get_version ( SSL* ssl ) ;
 274
 275 ! Maps OpenSSL errors to strings
 276 FUNCTION: void SSL_load_error_strings (  ) ;
 277 FUNCTION: c-string SSL_state_string ( SSL* ssl ) ;
 278 FUNCTION: c-string SSL_rstate_string ( SSL* ssl ) ;
 279 FUNCTION: c-string SSL_state_string_long ( SSL* ssl ) ;
 280 FUNCTION: c-string SSL_rstate_string_long ( SSL* ssl ) ;
 281
 282 ! Must be called before any other action takes place
 283 FUNCTION: int SSL_library_init (  ) ;
 284
 285 ! Sets the default SSL version
 286 FUNCTION: ssl-method SSLv2_client_method (  ) ;
 287
 288 FUNCTION: ssl-method SSLv23_client_method (  ) ;
 289
 290 FUNCTION: ssl-method SSLv23_server_method (  ) ;
 291
 292 FUNCTION: ssl-method SSLv23_method (  ) ; ! SSLv3 but can rollback to v2
 293
 294 FUNCTION: ssl-method SSLv3_client_method (  ) ;
 295
 296 FUNCTION: ssl-method SSLv3_server_method (  ) ;
 297
 298 FUNCTION: ssl-method SSLv3_method (  ) ;
 299
 300 FUNCTION: ssl-method TLSv1_client_method (  ) ;
 301
 302 FUNCTION: ssl-method TLSv1_server_method (  ) ;
 303
 304 FUNCTION: ssl-method TLSv1_method (  ) ;
 305
 306 ! Creates the context
 307 FUNCTION: SSL_CTX* SSL_CTX_new ( ssl-method method ) ;
 308
 309 ! Load the certificates and private keys into the SSL_CTX
 310 FUNCTION: int SSL_CTX_use_certificate_chain_file ( SSL_CTX* ctx,
 311                                                    c-string file ) ; ! PEM type
 312
 313 FUNCTION: SSL* SSL_new ( SSL_CTX* ctx ) ;
 314
 315 FUNCTION: int SSL_set_fd ( SSL* ssl, int fd ) ;
 316
 317 FUNCTION: void SSL_set_bio ( SSL* ssl, void* rbio, void* wbio ) ;
 318
 319 FUNCTION: int SSL_set_session ( SSL* to, SSL_SESSION* session ) ;
 320 FUNCTION: SSL_SESSION* SSL_get_session ( SSL* to ) ;
 321 FUNCTION: SSL_SESSION* SSL_get1_session ( SSL* ssl ) ;
 322
 323 FUNCTION: int SSL_get_error ( SSL* ssl, int ret ) ;
 324
 325 FUNCTION: void SSL_set_connect_state ( SSL* ssl ) ;
 326
 327 FUNCTION: void SSL_set_accept_state ( SSL* ssl ) ;
 328
 329 FUNCTION: int SSL_connect ( SSL* ssl ) ;
 330
 331 FUNCTION: int SSL_accept ( SSL* ssl ) ;
 332
 333 FUNCTION: int SSL_write ( SSL* ssl, void* buf, int num ) ;
 334
 335 FUNCTION: int SSL_read ( SSL* ssl, void* buf, int num ) ;
 336
 337 FUNCTION: int SSL_shutdown ( SSL* ssl ) ;
 338
 339 CONSTANT: SSL_SENT_SHUTDOWN 1
 340 CONSTANT: SSL_RECEIVED_SHUTDOWN 2
 341
 342 FUNCTION: int SSL_get_shutdown ( SSL* ssl ) ;
 343
 344 FUNCTION: int SSL_CTX_set_session_id_context ( SSL_CTX* ctx, c-string sid_ctx, uint len ) ;
 345
 346 FUNCTION: void SSL_free ( SSL* ssl ) ;
 347
 348 FUNCTION: void SSL_SESSION_free ( SSL_SESSION* ses ) ;
 349
 350 FUNCTION: int SSL_want ( SSL* ssl ) ;
 351
 352 CONSTANT: SSL_NOTHING 1
 353 CONSTANT: SSL_WRITING 2
 354 CONSTANT: SSL_READING 3
 355 CONSTANT: SSL_X509_LOOKUP 4
 356
 357 FUNCTION: long SSL_get_verify_result ( SSL* ssl ) ;
 358
 359 FUNCTION: X509* SSL_get_peer_certificate ( SSL* s ) ;
 360
 361 FUNCTION: void SSL_CTX_free ( SSL_CTX* ctx ) ;
 362
 363 FUNCTION: void RAND_seed ( void* buf, int num ) ;
 364
 365 FUNCTION: int SSL_set_cipher_list ( SSL* ssl, c-string str ) ;
 366
 367 FUNCTION: int SSL_use_RSAPrivateKey_file ( SSL* ssl, c-string str ) ;
 368
 369 FUNCTION: int SSL_CTX_use_RSAPrivateKey_file ( SSL_CTX* ctx, int type ) ;
 370
 371 FUNCTION: int SSL_use_certificate_file ( SSL* ssl,
 372                                          c-string str, int type ) ;
 373
 374 FUNCTION: int SSL_CTX_load_verify_locations ( SSL_CTX* ctx, c-string CAfile,
 375                                               c-string CApath ) ;
 376
 377 FUNCTION: int SSL_CTX_set_default_verify_paths ( SSL_CTX* ctx ) ;
 378
 379 CONSTANT: SSL_VERIFY_NONE 0
 380 CONSTANT: SSL_VERIFY_PEER 1
 381 CONSTANT: SSL_VERIFY_FAIL_IF_NO_PEER_CERT 2
 382 CONSTANT: SSL_VERIFY_CLIENT_ONCE 4
 383
 384 FUNCTION: void SSL_CTX_set_verify ( SSL_CTX* ctx, int mode, void* callback ) ;
 385
 386 FUNCTION: void SSL_CTX_set_client_CA_list ( SSL_CTX* ctx, SSL* list ) ;
 387
 388 FUNCTION: SSL* SSL_load_client_CA_file ( c-string file ) ;
 389
 390 ! Used to manipulate settings of the SSL_CTX and SSL objects.
 391 ! This function should never be called directly
 392 FUNCTION: long SSL_CTX_ctrl ( SSL_CTX* ctx, int cmd, long larg, void* parg ) ;
 393
 394 FUNCTION: void SSL_CTX_set_default_passwd_cb ( SSL_CTX* ctx, void* cb ) ;
 395
 396 FUNCTION: void SSL_CTX_set_default_passwd_cb_userdata ( SSL_CTX* ctx,
 397                                                         void* u ) ;
 398
 399 FUNCTION: int SSL_CTX_use_PrivateKey_file ( SSL_CTX* ctx, c-string file,
 400                                             int type ) ;
 401
 402 ! Sets the maximum depth for the allowed ctx certificate chain verification
 403 FUNCTION: void SSL_CTX_set_verify_depth ( SSL_CTX* ctx, int depth ) ;
 404
 405 ! Sets DH parameters to be used to be dh.
 406 ! The key is inherited by all ssl objects created from ctx
 407 FUNCTION: void SSL_CTX_set_tmp_dh_callback ( SSL_CTX* ctx, void* dh ) ;
 408
 409 FUNCTION: void SSL_CTX_set_tmp_rsa_callback ( SSL_CTX* ctx, void* rsa ) ;
 410
 411 FUNCTION: void* BIO_f_ssl (  ) ;
 412
 413 : SSL_CTX_set_tmp_rsa ( ctx rsa -- n )
 414     [ SSL_CTRL_SET_TMP_RSA 0 ] dip SSL_CTX_ctrl ;
 415
 416 : SSL_CTX_set_tmp_dh ( ctx dh -- n )
 417     [ SSL_CTRL_SET_TMP_DH 0 ] dip SSL_CTX_ctrl ;
 418
 419 : SSL_CTX_set_session_cache_mode ( ctx mode -- n )
 420     [ SSL_CTRL_SET_SESS_CACHE_MODE ] dip f SSL_CTX_ctrl ;
 421
 422 CONSTANT: SSL_SESS_CACHE_OFF    0x0000
 423 CONSTANT: SSL_SESS_CACHE_CLIENT 0x0001
 424 CONSTANT: SSL_SESS_CACHE_SERVER 0x0002
 425
 426 CONSTANT: SSL_SESS_CACHE_BOTH flags{ SSL_SESS_CACHE_CLIENT SSL_SESS_CACHE_SERVER }
 427
 428 CONSTANT: SSL_SESS_CACHE_NO_AUTO_CLEAR      0x0080
 429 CONSTANT: SSL_SESS_CACHE_NO_INTERNAL_LOOKUP 0x0100
 430 CONSTANT: SSL_SESS_CACHE_NO_INTERNAL_STORE  0x0200
 431
 432 CONSTANT: SSL_SESS_CACHE_NO_INTERNAL
 433     flags{ SSL_SESS_CACHE_NO_INTERNAL_LOOKUP SSL_SESS_CACHE_NO_INTERNAL_STORE }
 434
 435 ! ===============================================
 436 ! x509_vfy.h
 437 ! ===============================================
 438
 439 <<
 440
 441 SYMBOL: verify-messages
 442
 443 H{ } clone verify-messages set-global
 444
 445 : verify-message ( n -- word ) verify-messages get-global at ;
 446
 447 SYNTAX: X509_V_:
 448     scan-token "X509_V_" prepend create-in
 449     scan-number
 450     [ 1quotation ( -- value ) define-inline ]
 451     [ verify-messages get set-at ]
 452     2bi ;
 453
 454 >>
 455
 456 X509_V_: OK 0
 457 X509_V_: ERR_UNABLE_TO_GET_ISSUER_CERT 2
 458 X509_V_: ERR_UNABLE_TO_GET_CRL 3
 459 X509_V_: ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE 4
 460 X509_V_: ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE 5
 461 X509_V_: ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY 6
 462 X509_V_: ERR_CERT_SIGNATURE_FAILURE 7
 463 X509_V_: ERR_CRL_SIGNATURE_FAILURE 8
 464 X509_V_: ERR_CERT_NOT_YET_VALID 9
 465 X509_V_: ERR_CERT_HAS_EXPIRED 10
 466 X509_V_: ERR_CRL_NOT_YET_VALID 11
 467 X509_V_: ERR_CRL_HAS_EXPIRED 12
 468 X509_V_: ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD 13
 469 X509_V_: ERR_ERROR_IN_CERT_NOT_AFTER_FIELD 14
 470 X509_V_: ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD 15
 471 X509_V_: ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD 16
 472 X509_V_: ERR_OUT_OF_MEM 17
 473 X509_V_: ERR_DEPTH_ZERO_SELF_SIGNED_CERT 18
 474 X509_V_: ERR_SELF_SIGNED_CERT_IN_CHAIN 19
 475 X509_V_: ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY 20
 476 X509_V_: ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE 21
 477 X509_V_: ERR_CERT_CHAIN_TOO_LONG 22
 478 X509_V_: ERR_CERT_REVOKED 23
 479 X509_V_: ERR_INVALID_CA 24
 480 X509_V_: ERR_PATH_LENGTH_EXCEEDED 25
 481 X509_V_: ERR_INVALID_PURPOSE 26
 482 X509_V_: ERR_CERT_UNTRUSTED 27
 483 X509_V_: ERR_CERT_REJECTED 28
 484 X509_V_: ERR_SUBJECT_ISSUER_MISMATCH 29
 485 X509_V_: ERR_AKID_SKID_MISMATCH 30
 486 X509_V_: ERR_AKID_ISSUER_SERIAL_MISMATCH 31
 487 X509_V_: ERR_KEYUSAGE_NO_CERTSIGN 32
 488 X509_V_: ERR_UNABLE_TO_GET_CRL_ISSUER 33
 489 X509_V_: ERR_UNHANDLED_CRITICAL_EXTENSION 34
 490 X509_V_: ERR_KEYUSAGE_NO_CRL_SIGN 35
 491 X509_V_: ERR_UNHANDLED_CRITICAL_CRL_EXTENSION 36
 492 X509_V_: ERR_INVALID_NON_CA 37
 493 X509_V_: ERR_PROXY_PATH_LENGTH_EXCEEDED 38
 494 X509_V_: ERR_KEYUSAGE_NO_DIGITAL_SIGNATURE 39
 495 X509_V_: ERR_PROXY_CERTIFICATES_NOT_ALLOWED 40
 496 X509_V_: ERR_APPLICATION_VERIFICATION 50
 497
 498 ! ===============================================
 499 ! obj_mac.h
 500 ! ===============================================
 501
 502 CONSTANT: NID_commonName        13
 503 CONSTANT: NID_subject_alt_name  85
 504 CONSTANT: NID_issuer_alt_name   86
 505
 506 ! ===============================================
 507 ! On Windows, some of the functions making up libssl are placed in the
 508 ! libeay32.dll and not in the similarily named ssleay32.dll file.
 509 ! ===============================================
 510
 511 << os windows? [
 512     "libssl-windows"
 513     [ "libeay32.dll" cdecl add-library ] [ current-library set ] bi
 514 ] when >>
 515
 516 ! x509.h
 517 FUNCTION: int X509_NAME_get_text_by_NID ( X509_NAME* name, int nid, void* buf, int len ) ;
 518 FUNCTION: int X509_get_ext_by_NID ( X509* a, int nid, int lastpos ) ;
 519 FUNCTION: void* X509_get_ext_d2i ( X509 *a, int nid, int* crit, int* idx ) ;
 520 FUNCTION: X509_NAME* X509_get_issuer_name ( X509* a ) ;
 521 FUNCTION: X509_NAME* X509_get_subject_name ( X509* a ) ;
 522 FUNCTION: int X509_check_trust ( X509* a, int id, int flags ) ;
 523 FUNCTION: X509_EXTENSION* X509_get_ext ( X509* a, int loc ) ;
 524
 525 ! stack.h
 526 FUNCTION: int sk_num ( _STACK *s ) ;
 527 FUNCTION: void* sk_value ( _STACK *s, int ) ;