Tcl Source Code

Artifact bb38dac8f6346ccc43139bed25a0f12a78266b73:

#include <tcl.h>

int main() {
  Tcl_Interp *interp = Tcl_CreateInterp();
  Tcl_Init(interp);
  Tcl_Preserve(interp);
  Tcl_MakeSafe(interp);
  int result = Tcl_Eval(interp, "clock format [clock seconds]");
  fprintf(stderr, "(%d) %s\n", result, interp->result);
  Tcl_DeleteInterp(interp);
  Tcl_Release(interp);
  return 0;
}