1
2
3
4
5
6
7
8
9
10
11
|
1
2
3
4
5
6
7
8
9
10
11
|
-
+
|
/*
* Copyright (C) 1997-2000 Matt Newman <[email protected]>
*
* $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsBIO.c,v 1.2.2.1 2000/07/11 04:58:46 hobbs Exp $
* $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsBIO.c,v 1.2.2.2 2000/07/12 01:54:26 hobbs Exp $
*
* Provides BIO layer to interface openssl to Tcl.
*/
#include "tlsInt.h"
/*
|
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
|
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
-
+
|
case BIO_CTRL_WPENDING:
ret=0;
break;
case BIO_CTRL_DUP:
break;
case BIO_CTRL_FLUSH:
dprintf(stderr, "BIO_CTRL_FLUSH\n");
if (
#ifdef TCL_CHANNEL_VERSION_2
Tcl_WriteRaw(chan, "", 0) >= 0
#else
if (Tcl_Flush( chan) == TCL_OK)
ret=1;
else
ret=-1;
Tcl_Flush( chan) == TCL_OK
#endif
) {
ret = 1;
} else {
ret = -1;
}
break;
default:
ret=0;
ret = 0;
break;
}
return(ret);
}
static int
BioNew (bio)
|