Files
harbour-core/harbour/contrib/hbssl/tests/bio.prg
Viktor Szakats a9e9453769 2011-02-03 01:44 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbssl/hbssl.hbp
  * contrib/hbssl/hbssl.hbm
  * contrib/hbssl/ssl.c
    ! Implemented special OpenSSL requirement when using OpenSSL
      as a .dll under win, for version 0.9.8 and above.
    ! http://www.openssl.org/support/faq.html#PROG2
    ; NOTE: SSL_INIT() must be called by the user application
            for this to work.

  * contrib/hbssl/tests/bio.prg
  * contrib/hbssl/tests/encode.prg
  * contrib/hbssl/tests/digest.prg
  * contrib/hbssl/tests/crypt.prg
  * contrib/hbssl/tests/pem.prg
    + Call SSL_INIT()

  * contrib/hbssl/pem.c
    ! PEM_READ_BIO_*() functions fixed to not require a second
      parameter (a password callback or string).

  * contrib/3rd/sqlite3/sqlite3.c
  + contrib/3rd/sqlite3/sqlite3.dif
  * contrib/3rd/sqlite3/sqlite3.hbp
    ! make sqlite3 work in minix.
      Patch by Tamas.
    ; NOTE: I'd be good to submit this mod upstream. It might 
            be nasty to rediff this code. [vszakats]
2011-02-04 00:45:00 +00:00

31 lines
573 B
Plaintext

/*
* $Id$
*/
/*
* Copyright 2009 Viktor Szakats (harbour.01 syenar.hu)
* www - http://harbour-project.org
*/
#include "simpleio.ch"
#include "hbssl.ch"
PROCEDURE Main()
LOCAL bio
SSL_INIT()
? bio := BIO_new_fd( 1, HB_BIO_NOCLOSE )
? "BIO_WRITE", BIO_write( bio, "Hello world!" + hb_eol() )
? "BIO_FLUSH", BIO_flush( bio )
? "BIO_FREE", BIO_free( bio )
? bio := BIO_new_file( "bio_test.txt", "a+" )
? "BIO_WRITE", BIO_write( bio, "Hello world!" + hb_eol() )
? "BIO_FLUSH", BIO_flush( bio )
? "BIO_FREE", BIO_free( bio )
RETURN