Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv16187/Source
Modified Files:
TclAddressBook.c
Log Message:
Local vars cleanup
Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- TclAddressBook.c 9 Dec 2003 08:08:12 -0000 1.14
+++ TclAddressBook.c 9 Dec 2003 09:06:27 -0000 1.15
@@ -1,7 +1,7 @@
/*
* File : "TclAddressBook.c"
* Created: 2003-11-26 12:54:15
- * Last modification: 2003-12-07 16:51:26
+ * Last modification: 2003-12-09 09:19:10
* Author: Bernard Desgraupes
* e-mail: <bde...@ea...>
*
@@ -251,7 +251,7 @@
Tcl_Obj *CONST objv[], /* Argument values. */
Tcl_Obj *resultPtr) /* Pointer to store the result. */
{
- int index, result;
+ int index;
static CONST char *createSubcmds[] = {
"group", "person", (char *) NULL
@@ -692,7 +692,6 @@
CFIndex theCount;
char theUID[256];
int i, length, result;
- Tcl_Obj * objPtr;
unsigned char * theBytes;
Tcl_ResetResult(interp);
@@ -805,10 +804,6 @@
"-ids", (char *) NULL
};
- enum {
- TCLAB_PARENTS_IDS
- };
-
if (objc != 3 && objc != 4) {
Tcl_WrongNumArgs(interp, 2, objv, "?-ids? recordID");
return TCL_ERROR;
@@ -1237,7 +1232,6 @@
ABSearchComparison comparison;
ABPropertyType thePropType;
CONST84 char * theProperty;
- CONST84 char * theOp;
CONST84 char * theValue;
CFStringRef propertyRef, valueRef;
CFArrayRef foundItemsRef;
|
