[Tcladdressbook-commits] Source TclAddressBook.c,1.30,1.31

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

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31246/Source

Modified Files:
	TclAddressBook.c 
Log Message:
[identifier index] command

Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- TclAddressBook.c	30 Jul 2004 13:05:46 -0000	1.30
+++ TclAddressBook.c	30 Jul 2004 21:29:05 -0000	1.31
@@ -789,7 +789,8 @@
  * Syntax:
  *  addressbook identifier count personID propName
  *  addressbook identifier get personID propName index
- *  addressbook identifier primary personID propName
+ *  addressbook identifier index personID propName identifier
+ *  addressbook identifier primary personID propName ?identifier?
  *  addressbook identifier set groupID personID propName ?identifier?
  *  
  *  
@@ -810,19 +811,19 @@
     Tcl_Obj *CONST objv[],			/* Argument values. */
     Tcl_Obj *resultPtr)				/* Pointer to store the result. */
 {
-	int		result = TCL_ERROR, index, kind;
+	int		result = TCL_ERROR, index;
 	
 	static CONST char *identSubcmdSwitches[] = {
-		"count", "get", "primary", "set", (char *) NULL
+		"count", "get", "index", "primary", "set", (char *) NULL
 	};
 	
 	enum {
-		TCLAB_IDENTIFIER_COUNT, TCLAB_IDENTIFIER_GET, 
+		TCLAB_IDENTIFIER_COUNT, TCLAB_IDENTIFIER_GET, TCLAB_IDENTIFIER_INDEX, 
 		TCLAB_IDENTIFIER_PRIMARY, TCLAB_IDENTIFIER_SET
 	};
 		
 	if (objc < 5) {
-		Tcl_WrongNumArgs(interp, 2, objv, "(count|get|set) ?args?");
+		Tcl_WrongNumArgs(interp, 2, objv, "(count|get|index|primary|set) ?args?");
 		return TCL_ERROR;
 	}
 	
@@ -840,6 +841,10 @@
 		result = TclAB_IdentifierGet(interp, objc, objv, resultPtr);
 		break;
 		
+		case TCLAB_IDENTIFIER_INDEX:		
+		result = TclAB_IdentifierIndex(interp, objc, objv, resultPtr);
+		break;
+		
 		case TCLAB_IDENTIFIER_PRIMARY:		
 		result = TclAB_IdentifierPrimary(interp, objc, objv, resultPtr);
 		break;