Overview
| Comment: | Merging with similar changes by Scott S. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
08fc9629ab88b97d9060d065cfbf59cf |
| User & Date: | welch on 2000-06-06 01:34:11 |
| Other Links: | manifest | tags |
Context
|
2000-06-06
| ||
| 01:34 | Fixed use of remoteServerPort environment variable check-in: f81ece270a user: welch tags: trunk | |
| 01:34 | Merging with similar changes by Scott S. check-in: 08fc9629ab user: welch tags: trunk | |
| 01:26 | Copy tls.tcl to the build directory so that "make test" can find it with "package require tls" check-in: 9c5c58d41c user: wart tags: trunk | |
Changes
Modified tls.c
from [caad573382]
to [1fe77384fc].
1 2 3 | /* * Copyright (C) 1997-1999 Matt Newman <matt@novadigm.com> * | | | 1 2 3 4 5 6 7 8 9 10 11 | /* * Copyright (C) 1997-1999 Matt Newman <matt@novadigm.com> * * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.6 2000/06/06 01:34:11 welch Exp $ * * TLS (aka SSL) Channel - can be layered on any bi-directional * Tcl_Channel (Note: Requires Trf Core Patch) * * This was built (almost) from scratch based upon observation of * OpenSSL 0.9.2B * |
| ︙ | ︙ | |||
724 725 726 727 728 729 730 731 732 733 734 735 736 737 |
(TCL_READABLE | TCL_WRITABLE), statePtr->parent);
#else
statePtr->self = chan;
Tcl_StackChannel( interp, Tls_ChannelType(), (ClientData) statePtr,
(TCL_READABLE | TCL_WRITABLE), chan);
#endif
if (statePtr->self == (Tcl_Channel) NULL) {
Tls_Free((char *) statePtr);
return TCL_ERROR;
}
/* allocate script */
if (script) {
char * tmp = Tcl_GetStringFromObj(script, NULL);
| > > > | 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 |
(TCL_READABLE | TCL_WRITABLE), statePtr->parent);
#else
statePtr->self = chan;
Tcl_StackChannel( interp, Tls_ChannelType(), (ClientData) statePtr,
(TCL_READABLE | TCL_WRITABLE), chan);
#endif
if (statePtr->self == (Tcl_Channel) NULL) {
/*
* No use of Tcl_EventuallyFree because no possible Tcl_Preserve.
*/
Tls_Free((char *) statePtr);
return TCL_ERROR;
}
/* allocate script */
if (script) {
char * tmp = Tcl_GetStringFromObj(script, NULL);
|
| ︙ | ︙ |
Modified tlsInt.h
from [a6c725bf37]
to [b5b99844b7].
1 2 3 | /* * Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> * | | | 1 2 3 4 5 6 7 8 9 10 11 | /* * Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> * * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsInt.h,v 1.5 2000/06/06 01:34:12 welch Exp $ * * TLS (aka SSL) Channel - can be layered on any bi-directional * Tcl_Channel (Note: Requires Trf Core Patch) * * This was built from scratch based upon observation of OpenSSL 0.9.2B * * Addition credit is due for Andreas Kupries (a.kupries@westend.com), for |
| ︙ | ︙ | |||
106 107 108 109 110 111 112 |
char *err;
} State;
/*
* Forward declarations
*/
| < > | 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 |
char *err;
} State;
/*
* Forward declarations
*/
EXTERN Tcl_ChannelType *Tls_ChannelType _ANSI_ARGS_((void));
EXTERN Tcl_Channel Tls_GetParent _ANSI_ARGS_((State *statePtr));
EXTERN Tcl_Obj* Tls_NewX509Obj _ANSI_ARGS_ (( Tcl_Interp *interp, X509 *cert));
EXTERN void Tls_Error _ANSI_ARGS_ ((State *statePtr, char *msg));
EXTERN void Tls_Free _ANSI_ARGS_ ((char *blockPtr));
EXTERN void Tls_Clean _ANSI_ARGS_ ((State *statePtr));
EXTERN int Tls_WaitForConnect _ANSI_ARGS_(( State *statePtr,
int *errorCodePtr));
EXTERN BIO_METHOD * BIO_s_tcl _ANSI_ARGS_((void));
EXTERN BIO * BIO_new_tcl _ANSI_ARGS_((State* statePtr, int flags));
#endif /* _TLSINT_H */
|