8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*
* Copyright (c) 1990-1993 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclHistory.c,v 1.4.6.2 2004/05/17 18:42:23 dgp Exp $
*/
#include "tclInt.h"
/*
*----------------------------------------------------------------------
|
|
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
*
* Copyright (c) 1990-1993 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclHistory.c,v 1.4.6.3 2004/10/28 18:46:27 dgp Exp $
*/
#include "tclInt.h"
/*
*----------------------------------------------------------------------
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags);
/*
* Move the interpreter's object result to the string result,
* then reset the object result.
*/
Tcl_SetResult(interp, TclGetString(Tcl_GetObjResult(interp)),
TCL_VOLATILE);
/*
* Discard the Tcl object created to hold the command.
*/
Tcl_DecrRefCount(cmdPtr);
} else {
|
|
<
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags);
/*
* Move the interpreter's object result to the string result,
* then reset the object result.
*/
(void) Tcl_GetStringResult(interp);
/*
* Discard the Tcl object created to hold the command.
*/
Tcl_DecrRefCount(cmdPtr);
} else {
|