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

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;
    void *ctx = aCommand[i].pContext;
    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;
}