Overview
| Comment: | Tcl_GetStringFromObj() -> Tcl_GetString(). Update ChangeLog/README.txt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tls-1.7 |
| Files: | files | file ages | folders |
| SHA3-256: |
663996a17b9692e3afaaa07676a4be41 |
| User & Date: | jan.nijtmans on 2024-02-12 10:22:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-16
| ||
| 13:53 | Remove all end-of-line spacing check-in: 9345b54eaa user: jan.nijtmans tags: tls-1.7 | |
|
2024-02-12
| ||
| 10:32 | Merge 1.7. Forget about Tcl < 8.6 for this branch check-in: 01caf8a372 user: jan.nijtmans tags: nijtmans | |
| 10:22 | Tcl_GetStringFromObj() -> Tcl_GetString(). Update ChangeLog/README.txt check-in: 663996a17b user: jan.nijtmans tags: tls-1.7 | |
|
2024-01-25
| ||
| 22:22 | Somewhat better TEA support, not complete yet. Make this the continuation of the tls-1.7 branch. main/trunk will continue with 1.8.0 check-in: b7b0bd5a8f user: jan.nijtmans tags: tls-1.7 | |
Changes
Modified ChangeLog
from [7400a29b58]
to [03077231f7].
1 2 3 4 5 6 7 | 2015-05-01 Andreas Kupries <andreask@activestate.com> * configure.in: Bump to version 1.6.5. * win/makefile.vc: * configure: regen with ac-2.59 * tls.c: Accepted SF TLS [bug/patch #57](https://sourceforge.net/p/tls/bugs/57/). * tlsIO.c: Accepted core Tcl patch in [ticket](http://core.tcl.tk/tcl/tktview/0f94f855cafed92d0e174b7d835453a02831b4dd). | > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | TclTLS 1.7.22 ========== Release Date: Mon Oct 12 15:40:16 CDT 2020 https://tcltls.rkeene.org/ 2015-05-01 Andreas Kupries <andreask@activestate.com> * configure.in: Bump to version 1.6.5. * win/makefile.vc: * configure: regen with ac-2.59 * tls.c: Accepted SF TLS [bug/patch #57](https://sourceforge.net/p/tls/bugs/57/). * tlsIO.c: Accepted core Tcl patch in [ticket](http://core.tcl.tk/tcl/tktview/0f94f855cafed92d0e174b7d835453a02831b4dd). |
| ︙ | ︙ |
Modified README.txt
from [4d858d5c33]
to [3dc72eec51].
1 2 3 4 5 6 7 |
Original TLS Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
TLS 1.4.1 Copyright (C) 2000 Ajuba Solutions
TLS 1.6 Copyright (C) 2008 ActiveState Software Inc.
TLS 1.7 Copyright (C) 2016 Matt Newman, Ajuba Solutions, ActiveState
Software Inc, Roy Keene <tcltls@rkeene.org>
TLS (aka SSL) Channel - can be layered on any bi-directional Tcl_Channel.
| > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
TclTLS 1.7.22
==========
Release Date: Mon Oct 12 15:40:16 CDT 2020
https://tcltls.rkeene.org/
Original TLS Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
TLS 1.4.1 Copyright (C) 2000 Ajuba Solutions
TLS 1.6 Copyright (C) 2008 ActiveState Software Inc.
TLS 1.7 Copyright (C) 2016 Matt Newman, Ajuba Solutions, ActiveState
Software Inc, Roy Keene <tcltls@rkeene.org>
TLS (aka SSL) Channel - can be layered on any bi-directional Tcl_Channel.
|
| ︙ | ︙ |
Modified tclOpts.h
from [1a6cf1121d]
to [f9620d33de].
| ︙ | ︙ | |||
22 23 24 25 26 27 28 |
#define OPTOBJ(option, var) \
OPT_PROLOG(option) \
var = objv[idx]; \
OPT_POSTLOG()
#define OPTSTR(option, var) \
OPT_PROLOG(option) \
| | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
#define OPTOBJ(option, var) \
OPT_PROLOG(option) \
var = objv[idx]; \
OPT_POSTLOG()
#define OPTSTR(option, var) \
OPT_PROLOG(option) \
var = Tcl_GetString(objv[idx]);\
OPT_POSTLOG()
#define OPTINT(option, var) \
OPT_PROLOG(option) \
if (Tcl_GetIntFromObj(interp, objv[idx], \
&(var)) != TCL_OK) { \
return TCL_ERROR; \
|
| ︙ | ︙ |
Modified tls.c
from [b7a88587d1]
to [490c867d5b].
| ︙ | ︙ | |||
365 366 367 368 369 370 371 |
Tcl_Obj *cmdPtr;
dprintf("Called");
if (msg && *msg) {
Tcl_SetErrorCode(statePtr->interp, "SSL", msg, (char *)NULL);
} else {
| | | 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 |
Tcl_Obj *cmdPtr;
dprintf("Called");
if (msg && *msg) {
Tcl_SetErrorCode(statePtr->interp, "SSL", msg, (char *)NULL);
} else {
msg = Tcl_GetString(Tcl_GetObjResult(statePtr->interp));
}
statePtr->err = msg;
if (statePtr->callback == (Tcl_Obj*)NULL) {
char buf[BUFSIZ];
sprintf(buf, "SSL channel \"%s\": error: %s",
Tcl_GetChannelName(statePtr->self), msg);
|
| ︙ | ︙ | |||
647 648 649 650 651 652 653 |
dprintf("Called");
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "channel");
return(TCL_ERROR);
}
| | | 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 |
dprintf("Called");
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "channel");
return(TCL_ERROR);
}
chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), NULL);
if (chan == (Tcl_Channel) NULL) {
return(TCL_ERROR);
}
/*
* Make sure to operate on the topmost channel
*/
|
| ︙ | ︙ | |||
778 779 780 781 782 783 784 |
#endif
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "channel ?options?");
return TCL_ERROR;
}
| | | | 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 |
#endif
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "channel ?options?");
return TCL_ERROR;
}
chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), NULL);
if (chan == (Tcl_Channel) NULL) {
return TCL_ERROR;
}
/*
* Make sure to operate on the topmost channel
*/
chan = Tcl_GetTopChannel(chan);
for (idx = 2; idx < objc; idx++) {
char *opt = Tcl_GetString(objv[idx]);
if (opt[0] != '-')
break;
OPTSTR( "-cadir", CAdir);
OPTSTR( "-cafile", CAfile);
OPTSTR( "-certfile", certfile);
|
| ︙ | ︙ | |||
1412 1413 1414 1415 1416 1417 1418 |
char *channelName, *ciphers;
int mode;
dprintf("Called");
switch (objc) {
case 2:
| | | | 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 |
char *channelName, *ciphers;
int mode;
dprintf("Called");
switch (objc) {
case 2:
channelName = Tcl_GetString(objv[1]);
break;
case 3:
if (!strcmp (Tcl_GetString (objv[1]), "-local")) {
channelName = Tcl_GetString(objv[2]);
break;
}
/* else fall... */
default:
Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
return TCL_ERROR;
}
|
| ︙ | ︙ |