-
-static int jim_stacktrace_command(Jim_Interp *interp, int argc,
- Jim_Obj * const *argv)
-{
- if (argc != 1)
- {
- return JIM_ERR;
- }
- Jim_Obj * stacktrace = Jim_DuplicateObj(interp, interp->stackTrace);
-
- /* insert actual error site at beginning of list*/
- Jim_Obj *procname = Jim_NewStringObj(interp, "", -1); /* Uhhh... don't know this one. */
- Jim_ListInsertElements(interp, stacktrace, 0, 1, &procname);
- Jim_Obj *filename = Jim_NewStringObj(interp, interp->errorFileName, -1);
- Jim_ListInsertElements(interp, stacktrace, 1, 1, &filename);
- Jim_Obj *line = Jim_NewIntObj(interp, interp->errorLine);
- Jim_ListInsertElements(interp, stacktrace, 2, 1, &line);
-
- Jim_SetResult(interp, stacktrace);
-
- return JIM_OK;
-}
-