Fossil

Check-in [389f9fca5d]
Login

Check-in [389f9fca5d]

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

Overview
Comment:Skip over Jim commands to create if they have a NULL name or function pointer.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | jimtcl
Files: files | file ages | folders
SHA1: 389f9fca5d2ffb9a102857522aeaf554c69b134b
User & Date: mistachkin 2011-11-05 00:01:42.804
References
2011-11-05
02:54
Cherrypick the changes [389f9fca5d] and [d0233e1792] to skip adding script commands that have a NULL name or function pointer. ... (check-in: d6c6a433e7 user: mistachkin tags: trunk)
Context
2011-11-05
00:03
Add missing Jim Tcl headers ... (check-in: dc45d71bfe user: steveb tags: jimtcl)
00:01
Skip over Jim commands to create if they have a NULL name or function pointer. ... (check-in: 389f9fca5d user: mistachkin tags: jimtcl)
2011-11-04
23:34
Cleanup style and use Jim_Obj APIs when bridging commands from Tcl to Jim. ... (check-in: d87454917c user: mistachkin tags: jimtcl)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/th_tcl.c.
433
434
435
436
437
438
439

440
441
442
443
444
445
446
int register_tcl(
  Jim_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to Jim. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){

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







>







433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
int register_tcl(
  Jim_Interp *interp,
  void *pContext
){
  int i;
  /* Add the Tcl integration commands to Jim. */
  for(i=0; i<(sizeof(aCommand)/sizeof(aCommand[0])); i++){
    if ( !aCommand[i].zName || !aCommand[i].xProc ) continue;
    void *ctx = aCommand[i].pContext;
    /* Use Tcl interpreter for context? */
    if( !ctx ) ctx = pContext;
    Jim_CreateCommand(interp, aCommand[i].zName, aCommand[i].xProc, ctx, NULL);
  }
  return JIM_OK;
}