Tcl Library Source Code

Check-in [59ef0e2775]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Merge RC with latest fixes
Timelines: family | ancestors | descendants | both | tcllib-1-16-rc
Files: files | file ages | folders
SHA1: 59ef0e2775461cc84ecef94e273a5844d8ecee34
User & Date: andreask 2014-01-29 21:12:53
Context
2014-01-31
06:12
Merge RC with latest fixes. check-in: adb569bb63 user: aku tags: tcllib-1-16-rc
2014-01-29
21:12
Merge RC with latest fixes check-in: 59ef0e2775 user: andreask tags: tcllib-1-16-rc
19:29
Ticket [f58015fbd0]: ftp - DisplayMsg - Removed bogus use of ::errorInfo. Simplified the code a bit. check-in: 3b14767f50 user: andreask tags: trunk
2014-01-24
07:56
Modified sak release utility methods (review, readme) to pull the set of modified modules and commit messages directly out of the repository instead of scraping the ChangeLog. This is based on the presence of a tag "release" to stop the search. check-in: 251a312c0a user: aku tags: tcllib-1-16-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/ftp/ftp.tcl.

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
    #              tcllib, which is much easier to customize for the
    #              needs of any application using the ftp module. The
    #              variable VERBOSE is still relevant as it controls
    #              whether this procedure is called or not.

    global errorInfo
    switch -exact -- $state {
        data    {log::log debug "$state | $msg"}
        control {log::log debug "$state | $msg"}
        error   {log::log error "$state | E: $msg:\n$errorInfo"}
        default {log::log debug "$state | $msg"}
    }
    return
}

#############################################################################
#






<
<
|







97
98
99
100
101
102
103


104
105
106
107
108
109
110
111
    #              tcllib, which is much easier to customize for the
    #              needs of any application using the ftp module. The
    #              variable VERBOSE is still relevant as it controls
    #              whether this procedure is called or not.

    global errorInfo
    switch -exact -- $state {


        error   {log::log error "$state | $msg"}
        default {log::log debug "$state | $msg"}
    }
    return
}

#############################################################################
#

Changes to modules/struct/graph/filter.c.

1059
1060
1061
1062
1063
1064
1065
1066


1067
1068
1069
1070
1071
1072
1073
    int       i;

    if (Tcl_ListObjGetElements (interp, cmd, &cmdc, &cmdv) != TCL_OK) {
	return TCL_ERROR;
    }

    /* Skip the step if there is nothing which can be filtered.  */
    if (l->c == 0) return;



    /* -------------------- */
    /* Set up the command vector for the callback. Two placeholders for graph
     * and node/arc arguments.
     */

    ec = cmdc + 2;






|
>
>







1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
    int       i;

    if (Tcl_ListObjGetElements (interp, cmd, &cmdc, &cmdv) != TCL_OK) {
	return TCL_ERROR;
    }

    /* Skip the step if there is nothing which can be filtered.  */
    if (l->c == 0) {
	return TCL_OK;
    }

    /* -------------------- */
    /* Set up the command vector for the callback. Two placeholders for graph
     * and node/arc arguments.
     */

    ec = cmdc + 2;