Fossil

Differences From Artifact [f60e4d5f59]:

• File src/th_lang.c — part of check-in [1b1fd23590] at 2011-11-05 03:05:55 on branch trunk — Always skip adding script commands that have a NULL name or function pointer. (user: mistachkin size: 24145) [more...]

To Artifact [18bca7c6d5]:

• File src/th_lang.c — part of check-in [11abffbb49] at 2012-07-22 17:40:20 on branch trunk — Pulled in minor memleak fix [bee0036681]. (user: stephan size: 24196) [more...]

356
357
358
359
360
361
362



363
364
365
366
367
368
369

  if( p->hasArgs ){
    char *zArgs = 0;
    int nArgs = 0;
    for(i=p->nParam+1; i<pArgs->argc; i++){
      Th_ListAppend(interp, &zArgs, &nArgs, pArgs->argv[i], pArgs->argl[i]);
    }
    Th_SetVar(interp, (const char *)"args", -1, zArgs, nArgs);



  }

  Th_SetResult(interp, 0, 0);
  return Th_Eval(interp, 0, p->zProgram, p->nProgram);
}

/*

>
>
>

356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372

  if( p->hasArgs ){
    char *zArgs = 0;
    int nArgs = 0;
    for(i=p->nParam+1; i<pArgs->argc; i++){
      Th_ListAppend(interp, &zArgs, &nArgs, pArgs->argv[i], pArgs->argl[i]);
    }
    Th_SetVar(interp, (const char *)"args", -1, zArgs, nArgs);
    if(zArgs){
      Th_Free(interp, zArgs);
    }
  }

  Th_SetResult(interp, 0, 0);
  return Th_Eval(interp, 0, p->zProgram, p->nProgram);
}

/*