Tcl package Thread source code

Check-in [ac0330f6e6]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Two C++-isms
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | thread-2-8-branch
Files: files | file ages | folders
SHA3-256: ac0330f6e61eee56d2d01b71b5061fb314ad720d8952dede4d357c17d97d0a34
User & Date: jan.nijtmans 2020-03-06 19:28:36
Context
2020-04-15
17:15
Update to latest TEA. Add double-quotes, in case DESTDIR contains spaces check-in: 467f1eb865 user: jan.nijtmans tags: thread-2-8-branch
2020-03-06
19:29
Merge 2.8 check-in: 369127062c user: jan.nijtmans tags: thread-2-branch
19:28
Two C++-isms check-in: ac0330f6e6 user: jan.nijtmans tags: thread-2-8-branch
2020-02-12
12:52
TEA update check-in: 7b2eedb786 user: jan.nijtmans tags: thread-2-8-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclXkeylist.c.

551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
static int
FindKeyedListEntry(
    keylIntObj_t *keylIntPtr,
    const char   *key,
    size_t       *keyLenPtr,
    const char   **nextSubKeyPtr
) {
    char *keySeparPtr;
    size_t keyLen;
    int findIdx;

    keySeparPtr = strchr (key, '.');
    if (keySeparPtr != NULL) {
        keyLen = keySeparPtr - key;
    } else {
        keyLen = strlen (key);
    }

    for (findIdx = 0; findIdx < keylIntPtr->numEntries; findIdx++) {







|



|







551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
static int
FindKeyedListEntry(
    keylIntObj_t *keylIntPtr,
    const char   *key,
    size_t       *keyLenPtr,
    const char   **nextSubKeyPtr
) {
    const char *keySeparPtr;
    size_t keyLen;
    int findIdx;

    keySeparPtr = strchr(key, '.');
    if (keySeparPtr != NULL) {
        keyLen = keySeparPtr - key;
    } else {
        keyLen = strlen (key);
    }

    for (findIdx = 0; findIdx < keylIntPtr->numEntries; findIdx++) {

Changes to generic/threadSvCmd.c.

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
 */

static PsStore*
GetPsStore(const char *handle)
{
    int i;
    const char *type = handle;
    char *addr, *delimiter = strchr(handle, ':');
    PsStore *tmpPtr, *psPtr = NULL;

    /*
     * Expect the handle in the following format: <type>:<address>
     * where "type" must match one of the registered presistent store
     * types (gdbm, tcl, whatever) and <address> is what is passed to
     * the open procedure of the registered store.







|







410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
 */

static PsStore*
GetPsStore(const char *handle)
{
    int i;
    const char *type = handle;
    char *addr, *delimiter = (char *)strchr(handle, ':');
    PsStore *tmpPtr, *psPtr = NULL;

    /*
     * Expect the handle in the following format: <type>:<address>
     * where "type" must match one of the registered presistent store
     * types (gdbm, tcl, whatever) and <address> is what is passed to
     * the open procedure of the registered store.