Check-in [08fc9629ab]
Bounty program for improvements to Tcl and certain Tcl packages.
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: 08fc9629ab88b97d9060d065cfbf59cf62155740
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      1   /*
     2      2    * Copyright (C) 1997-1999 Matt Newman <[email protected]>
     3      3    *
     4         - * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.5 2000/06/06 01:04:35 stanton Exp $
            4  + * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.c,v 1.6 2000/06/06 01:34:11 welch Exp $
     5      5    *
     6      6    * TLS (aka SSL) Channel - can be layered on any bi-directional
     7      7    * Tcl_Channel (Note: Requires Trf Core Patch)
     8      8    *
     9      9    * This was built (almost) from scratch based upon observation of
    10     10    * OpenSSL 0.9.2B
    11     11    *
................................................................................
   724    724   			       (TCL_READABLE | TCL_WRITABLE), statePtr->parent);
   725    725   #else
   726    726       statePtr->self = chan;
   727    727       Tcl_StackChannel( interp, Tls_ChannelType(), (ClientData) statePtr,
   728    728   			       (TCL_READABLE | TCL_WRITABLE), chan);
   729    729   #endif
   730    730       if (statePtr->self == (Tcl_Channel) NULL) {
          731  +	/*
          732  +	 * No use of Tcl_EventuallyFree because no possible Tcl_Preserve.
          733  +	 */
   731    734   	Tls_Free((char *) statePtr);
   732    735           return TCL_ERROR;
   733    736       }
   734    737   
   735    738       /* allocate script */
   736    739       if (script) {
   737    740   	char * tmp = Tcl_GetStringFromObj(script, NULL);

Modified tlsInt.h from [a6c725bf37] to [b5b99844b7].

     1      1   /*
     2      2    * Copyright (C) 1997-2000 Matt Newman <[email protected]>
     3      3    *
     4         - * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsInt.h,v 1.4 2000/06/06 01:04:35 stanton Exp $
            4  + * $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tlsInt.h,v 1.5 2000/06/06 01:34:12 welch Exp $
     5      5    *
     6      6    * TLS (aka SSL) Channel - can be layered on any bi-directional
     7      7    * Tcl_Channel (Note: Requires Trf Core Patch)
     8      8    *
     9      9    * This was built from scratch based upon observation of OpenSSL 0.9.2B
    10     10    *
    11     11    * Addition credit is due for Andreas Kupries ([email protected]), for
................................................................................
   106    106       char *err;
   107    107   } State;
   108    108   
   109    109   /*
   110    110    * Forward declarations
   111    111    */
   112    112   
   113         -EXTERN void		Tls_Clean _ANSI_ARGS_((State *blockPtr));
   114    113   EXTERN Tcl_ChannelType *Tls_ChannelType _ANSI_ARGS_((void));
   115    114   EXTERN Tcl_Channel	Tls_GetParent _ANSI_ARGS_((State *statePtr));
   116    115   
   117    116   EXTERN Tcl_Obj*		Tls_NewX509Obj _ANSI_ARGS_ (( Tcl_Interp *interp, X509 *cert));
   118    117   EXTERN void		Tls_Error _ANSI_ARGS_ ((State *statePtr, char *msg));
   119    118   EXTERN void		Tls_Free _ANSI_ARGS_ ((char *blockPtr));
          119  +EXTERN void		Tls_Clean _ANSI_ARGS_ ((State *statePtr));
   120    120   EXTERN int		Tls_WaitForConnect _ANSI_ARGS_(( State *statePtr,
   121    121   							int *errorCodePtr));
   122    122   
   123    123   EXTERN BIO_METHOD *	BIO_s_tcl _ANSI_ARGS_((void));
   124    124   EXTERN BIO *		BIO_new_tcl _ANSI_ARGS_((State* statePtr, int flags));
   125    125   
   126    126   #endif /* _TLSINT_H */