[Tcladdressbook-commits] Source TclAddressBook.c,1.14,1.15

[<bde...@us...>]

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;