~ubuntu-branches/ubuntu/trusty/ocamlnet/trusty

« back to all changes in this revision

Viewing changes to src/equeue-ssl/ssl_exts.ml

• browse files at revision 28
• compare with another revision
• download diff
• download tarball
• view history from revision 28

Show diffs side-by-side

added

removed

src/equeue-ssl/ssl_exts.ml

1

 

(* $Id: ssl_exts.ml 1170 2008-03-04 20:27:30Z gerd $ *)

 

1

(* $Id: ssl_exts.ml 1745 2012-03-01 17:31:29Z gerd $ *)

2

2

 

3

3

exception Shutdown_error of Ssl.ssl_error

4

4

 

6

6

  Callback.register_exception "ssl_exn_shutdown_error" 

7

7

    (Shutdown_error Ssl.Error_none)

8

8

 

9

 

external get_shutdown : Ssl.socket -> bool * bool = "ocaml_ssl_get_shutdown"

10

 

 

11

 

external get_rbio_eof : Ssl.socket -> bool = "ocaml_ssl_get_rbio_eof"

12

 

 

13

 

external single_shutdown : Ssl.socket -> unit = "ocaml_ssl_single_shutdown"

 

9

external get_shutdown : Ssl.socket -> bool * bool = "equeue_ssl_get_shutdown"

 

10

 

 

11

external get_rbio_eof : Ssl.socket -> bool = "equeue_ssl_get_rbio_eof"

 

12

 

 

13

external single_shutdown : Ssl.socket -> unit = "equeue_ssl_single_shutdown"

14

14

 

15

15

type ssl_mode =

16

16

    { enable_partial_write : bool;

18

18

      auto_retry : bool;

19

19

    }

20

20

 

21

 

external get_mode : Ssl.socket -> ssl_mode = "ocaml_ssl_get_mode"

 

21

external get_mode : Ssl.socket -> ssl_mode = "equeue_ssl_get_mode"

22

22

 

23

 

external set_mode : Ssl.socket -> ssl_mode -> unit = "ocaml_ssl_set_mode"

 

23

external set_mode : Ssl.socket -> ssl_mode -> unit = "equeue_ssl_set_mode"

24

24

 

25

25

let single_read = Ssl.read

26

26

let single_write = Ssl.write

 

27

 

 

28

external certificate_fingerprint : Ssl.certificate -> string

 

29

  = "equeue_ssl_cert_fingerprint"

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1