Fossil

Differences From Artifact [a5ae2dd419]:

• File src/th_tcl.c — part of check-in [e49581506a] at 2011-10-26 14:57:30 on branch tcl-integration — Perform lazy setup of the Tcl integration subsystem when it is actually enabled. (user: mistachkin size: 10930)

To Artifact [c2aa6f2487]:

• File src/th_tcl.c — part of check-in [5ffb7d71d3] at 2011-10-27 13:45:24 on branch tcl-integration — Enable building with Tcl integration enabled using autosetup and/or makemake.tcl. Patch provided by Steve Bennett. (user: mistachkin size: 10989) [more...]

1
2
3
4
5



6
7
8
9
10
11
12

/*
** This file contains code used to bridge the TH1 and Tcl scripting languages.
*/

#include "config.h"



#include "th.h"
#include "tcl.h"

/*
** Are we being compiled against Tcl 8.6 or higher?
 */
#if (TCL_MAJOR_VERSION > 8) || \

>
>
>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

/*
** This file contains code used to bridge the TH1 and Tcl scripting languages.
*/

#include "config.h"

#ifdef FOSSIL_ENABLE_TCL

#include "th.h"
#include "tcl.h"

/*
** Are we being compiled against Tcl 8.6 or higher?
 */
#if (TCL_MAJOR_VERSION > 8) || \

416
417
418
419
420
421
422

    void *ctx = aCommand[i].pContext;
    /* Use Tcl interpreter for context? */
    if( !ctx ) ctx = pContext;
    Th_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, 0);
  }
  return TH_OK;
}

>
>

419
420
421
422
423
424
425
426
427

    void *ctx = aCommand[i].pContext;
    /* Use Tcl interpreter for context? */
    if( !ctx ) ctx = pContext;
    Th_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, 0);
  }
  return TH_OK;
}

#endif /* FOSSIL_ENABLE_TCL */