aboutsummaryrefslogtreecommitdiff
path: root/jim-win32com.c
diff options
context:
space:
mode:
authorantirez <antirez>2005-03-04 11:54:51 +0000
committerantirez <antirez>2005-03-04 11:54:51 +0000
commitb503c0ce39965cb68fe8bbdee4f4fffe8c39b81f (patch)
tree639987e1dd074b6651f934838ea5583382c9cbb9 /jim-win32com.c
parent71b54a34aefa47861f9d82102f898a3dc18ba798 (diff)
downloadjimtcl-b503c0ce39965cb68fe8bbdee4f4fffe8c39b81f.zip
jimtcl-b503c0ce39965cb68fe8bbdee4f4fffe8c39b81f.tar.gz
jimtcl-b503c0ce39965cb68fe8bbdee4f4fffe8c39b81f.tar.bz2
Added JIM_NOTUSED macro. Macro used where appropriate.
Diffstat (limited to 'jim-win32com.c')
-rw-r--r--jim-win32com.c45
1 files changed, 27 insertions, 18 deletions
diff --git a/jim-win32com.c b/jim-win32com.c
index 6b97aaa..34ff17a 100644
--- a/jim-win32com.c
+++ b/jim-win32com.c
@@ -147,9 +147,11 @@ OLE2A(LPCOLESTR wsz)
void
UnicodeFreeInternalRep(Jim_Interp *interp, Jim_Obj *objPtr)
{
- JIM_TRACE("UnicodeFreeInternalRep 0x%08x\n", (DWORD)objPtr);
- Jim_Free(objPtr->internalRep.binaryValue.data);
- objPtr->internalRep.binaryValue.data = NULL;
+ JIM_NOTUSED(interp);
+
+ JIM_TRACE("UnicodeFreeInternalRep 0x%08x\n", (DWORD)objPtr);
+ Jim_Free(objPtr->internalRep.binaryValue.data);
+ objPtr->internalRep.binaryValue.data = NULL;
objPtr->internalRep.binaryValue.len = 0;
objPtr->typePtr = NULL;
}
@@ -247,6 +249,8 @@ Jim_ObjType ole32ObjType = {
void
Ole32FreeInternalRep(Jim_Interp *interp, Jim_Obj *objPtr)
{
+ JIM_NOTUSED(interp);
+
IDispatch *p = Ole32_DispatchPtr(objPtr);
ITypeInfo *t = Ole32_TypeInfoPtr(objPtr);
JIM_TRACE("free ole32 object 0x%08x\n", (unsigned long)p);
@@ -259,6 +263,8 @@ Ole32FreeInternalRep(Jim_Interp *interp, Jim_Obj *objPtr)
void
Ole32DupInternalRep(Jim_Interp *interp, Jim_Obj *srcPtr, Jim_Obj *dupPtr)
{
+ JIM_NOTUSED(interp);
+
IDispatch *p = Ole32_DispatchPtr(srcPtr);
JIM_TRACE("dup ole32 object 0x%08x from 0x%08x to 0x%08x\n", p, srcPtr, dupPtr);
Ole32_DispatchPtr(dupPtr) = p;
@@ -326,21 +332,24 @@ static int
Jim_GetIndexFromObj(Jim_Interp *interp, Jim_Obj *objPtr, const char **tablePtr,
const char *msg, int flags, int *indexPtr)
{
- const char **entryPtr = NULL;
- const char *p1, *p2;
- const char *key = Jim_GetString(objPtr, NULL);
- int i;
- *indexPtr = -1;
- for (entryPtr = tablePtr, i = 0; *entryPtr != NULL; entryPtr++, i++) {
- for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
- if (*p1 == '\0') {
- *indexPtr = i;
- return JIM_OK;
- }
- }
- }
- Jim_SetResultString(interp, "needs a better message", -1);
- return JIM_ERR;
+ JIM_NOTUSED(msg);
+ JIM_NOTUSED(flags);
+
+ const char **entryPtr = NULL;
+ const char *p1, *p2;
+ const char *key = Jim_GetString(objPtr, NULL);
+ int i;
+ *indexPtr = -1;
+ for (entryPtr = tablePtr, i = 0; *entryPtr != NULL; entryPtr++, i++) {
+ for (p1 = key, p2 = *entryPtr; *p1 == *p2; p1++, p2++) {
+ if (*p1 == '\0') {
+ *indexPtr = i;
+ return JIM_OK;
+ }
+ }
+ }
+ Jim_SetResultString(interp, "needs a better message", -1);
+ return JIM_ERR;
}
/* $object method|prop ?args...? */