Differences From Artifact [c3469c18b2]:

• File src/th_tcl.c — part of check-in [bf1ebbe1f6] at 2011-11-04 20:05:32 on branch trunk — Add the BSD copyright notice to the top of the th_tcl.c source file. (user: drh size: 11452)

To Artifact [356133defb]:

• File src/th_tcl.c — part of check-in [d6c6a433e7] at 2011-11-05 02:54:33 on branch trunk — Cherrypick the changes [389f9fca5d] and [d0233e1792] to skip adding script commands that have a NULL name or function pointer. (user: mistachkin size: 11523) [more...]

421
422
423
424
425
426
427


428
429
430
431
432
433
434
435

int th_register_tcl(
  Th_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to TH1. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){


    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;
}

>
>
|

421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437

int th_register_tcl(
  Th_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to TH1. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){
    void *ctx;
    if ( !aCommand[i].zName || !aCommand[i].xProc ) continue;
    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;
}