[Tcladdressbook-commits] Source TclAddressBook.c,1.7,1.8

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

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv22505/Source

Modified Files:
	TclAddressBook.c 
Log Message:
Split file.

Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- TclAddressBook.c	5 Dec 2003 09:14:12 -0000	1.7
+++ TclAddressBook.c	5 Dec 2003 20:21:30 -0000	1.8
@@ -1,7 +1,7 @@
 /* 
  * File : "TclAddressBook.c"
  *                        Created: 2003-11-26 12:54:15
- *              Last modification: 2003-12-04 18:03:13
+ *              Last modification: 2003-12-05 10:26:56
  * Author: Bernard Desgraupes
  * e-mail: <bde...@ea...>
  *  
@@ -18,18 +18,8 @@
  */
 
[...1116 lines suppressed...]
-	// Find the record corresponding to the UID
-	*outGroupRef = ABCopyRecordForUniqueId(ab, groupCFStr);
-	CFRelease(groupCFStr);
-	if (!*outGroupRef) {
-		Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "Unrecognized record ID in ", option, 
-							   " argument", (char *) NULL);
-		result = false;
-	} else {
-		// Is it really a group?
-		kind = TclAB_TypeFromRecord(ab, *outGroupRef);
-		if (kind != rec_group) {
-			Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "Not a group ID in ", option, 
-								   " argument", (char *) NULL);
-			CFRelease(groupCFStr);
-			result = false;
-		} 
-	}
-	
-	return result;
-}