Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | CONST -> const |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8897edb7e13c84436d6ae20240e065dc |
| User & Date: | jan.nijtmans 2013-09-13 12:15:25.289 |
Context
|
2013-09-14
| ||
| 21:59 | When building the new OpenSSL target in the MinGW makefile, build only what is necessary to actually compile and use Fossil. check-in: a5073b3ae9 user: mistachkin tags: trunk | |
|
2013-09-13
| ||
| 12:15 | CONST -> const check-in: 8897edb7e1 user: jan.nijtmans tags: trunk | |
|
2013-09-12
| ||
| 22:47 | implement undocumented "mionly" option in JSON timeline, just as in the normal timeline page. check-in: 0bcb7707ce user: jan.nijtmans tags: trunk | |
Changes
Changes to src/th_tcl.c.
| ︙ | ︙ | |||
126 127 128 129 130 131 132 | /* ** The function types for Tcl_FindExecutable and Tcl_CreateInterp are needed ** when the Tcl library is being loaded dynamically by a stubs-enabled ** application (i.e. the inverse of using a stubs-enabled package). These are ** the only Tcl API functions that MUST be called prior to being able to call ** Tcl_InitStubs (i.e. because it requires a Tcl interpreter). */ | | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | /* ** The function types for Tcl_FindExecutable and Tcl_CreateInterp are needed ** when the Tcl library is being loaded dynamically by a stubs-enabled ** application (i.e. the inverse of using a stubs-enabled package). These are ** the only Tcl API functions that MUST be called prior to being able to call ** Tcl_InitStubs (i.e. because it requires a Tcl interpreter). */ typedef void (tcl_FindExecutableProc) (const char * argv0); typedef Tcl_Interp *(tcl_CreateInterpProc) (void); /* ** The function types for the "hook" functions to be called before and after a ** TH1 command makes a call to evaluate a Tcl script. If the "pre" function ** returns anything but TH_OK, then evaluation of the Tcl script is skipped and ** that value is used as the return code. If the "post" function returns |
| ︙ | ︙ | |||
426 427 428 429 430 431 432 | ** ** th1Eval arg */ static int Th1EvalObjCmd( ClientData clientData, Tcl_Interp *interp, int objc, | | | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 |
**
** th1Eval arg
*/
static int Th1EvalObjCmd(
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[]
){
Th_Interp *th1Interp;
int nArg;
const char *arg;
int rc;
if( objc!=2 ){
|
| ︙ | ︙ | |||
458 459 460 461 462 463 464 | ** ** th1Expr arg */ static int Th1ExprObjCmd( ClientData clientData, Tcl_Interp *interp, int objc, | | | 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 |
**
** th1Expr arg
*/
static int Th1ExprObjCmd(
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[]
){
Th_Interp *th1Interp;
int nArg;
const char *arg;
int rc;
if( objc!=2 ){
|
| ︙ | ︙ |