49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetIntFromObj(interp, &obj, intPtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
return code;
}
/*
*----------------------------------------------------------------------
*
* TclGetLong --
|
>
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetIntFromObj(interp, &obj, intPtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
TclFreeIntRep(&obj);
return code;
}
/*
*----------------------------------------------------------------------
*
* TclGetLong --
|
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetLongFromObj(interp, &obj, longPtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
return code;
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetDouble --
|
>
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetLongFromObj(interp, &obj, longPtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
TclFreeIntRep(&obj);
return code;
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetDouble --
|
137
138
139
140
141
142
143
144
145
146
147
148
149
150
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetDoubleFromObj(interp, &obj, doublePtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
return code;
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetBoolean --
|
>
|
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
obj.length = strlen(src);
obj.typePtr = NULL;
code = Tcl_GetDoubleFromObj(interp, &obj, doublePtr);
if (obj.refCount > 1) {
Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
}
TclFreeIntRep(&obj);
return code;
}
/*
*----------------------------------------------------------------------
*
* Tcl_GetBoolean --
|