335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
|
-
+
|
return(TCL_OK);
/* NOTREACH */
clientData = clientData;
}
int Nano_Init(Tcl_Interp *interp) {
int te_ret;
int te_ret, tpp_ret;
const char nanoInitScript[] = {
#include "nano.tcl.h"
0x00
};
#ifdef USE_TCL_STUBS
const char *tclInitStubs_ret;
|
364
365
366
367
368
369
370
371
372
373
|
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
|
+
+
+
+
+
|
if (interp) {
te_ret = Tcl_Eval(interp, nanoInitScript);
if (te_ret != TCL_OK) {
return(te_ret);
}
}
tpp_ret = Tcl_PkgProvide(interp, "nano", PACKAGE_VERSION);
if (tpp_ret != TCL_OK) {
return(tpp_ret);
}
return(TCL_OK);
}
|