| | @@ -19,10 +19,15 @@ |
| 19 | 19 | ** (an independent project) and fossil. |
| 20 | 20 | */ |
| 21 | 21 | #include "config.h" |
| 22 | 22 | #include "th_main.h" |
| 23 | 23 | |
| 24 | +/* |
| 25 | +** Interfaces to register the scripting language extensions. |
| 26 | +*/ |
| 27 | +int register_tcl(Jim_Interp *interp, void *pContext); /* th_tcl.c */ |
| 28 | + |
| 24 | 29 | /* |
| 25 | 30 | ** Generate a TH1 trace message if debugging is enabled. |
| 26 | 31 | */ |
| 27 | 32 | void Th_Trace(const char *zFormat, ...){ |
| 28 | 33 | va_list ap; |
| | @@ -231,16 +236,12 @@ |
| 231 | 236 | Jim_WrongNumArgs(interp, 1, argv, "NAME TEXT-LIST NUMLINES"); |
| 232 | 237 | return JIM_ERR; |
| 233 | 238 | } |
| 234 | 239 | if( enableOutput ){ |
| 235 | 240 | long height; |
| 236 | | - int nValue; |
| 237 | | - const char *zValue; |
| 238 | 241 | char *z, *zH; |
| 239 | 242 | int nElem; |
| 240 | | - int *aszElem; |
| 241 | | - char **azElem; |
| 242 | 243 | int i; |
| 243 | 244 | Jim_Obj *objPtr; |
| 244 | 245 | Jim_Obj *varObjPtr; |
| 245 | 246 | |
| 246 | 247 | if( Jim_GetLong(interp, argv[3], &height) ) return JIM_ERR; |
| 247 | 248 | |