Lines Matching refs:interp
299 static int md5_cmd(void*cd, Tcl_Interp *interp, int argc, const char **argv){
304 Tcl_AppendResult(interp,"wrong # args: should be \"", argv[0],
311 DigestToBase16(digest, interp->result);
319 static int md5file_cmd(void*cd, Tcl_Interp*interp, int argc, const char **argv){
326 Tcl_AppendResult(interp,"wrong # args: should be \"", argv[0],
332 Tcl_AppendResult(interp,"unable to open file \"", argv[1],
345 DigestToBase16(digest, interp->result);
352 int Md5_Init(Tcl_Interp *interp){
353 Tcl_CreateCommand(interp, "md5", (Tcl_CmdProc*)md5_cmd, 0, 0);
354 Tcl_CreateCommand(interp, "md5file", (Tcl_CmdProc*)md5file_cmd, 0, 0);