[Tcladdressbook-commits] Source TclAddressBookUtils.c,NONE,1.1

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

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

Added Files:
	TclAddressBookUtils.c 
Log Message:
Redispatched funcs. Implements [add property]

--- NEW FILE: TclAddressBookUtils.c ---
/* 
 * File : "TclAddressBookUtils.c"
 *                        Created: 2003-12-05 10:08:03
 *              Last modification: 2003-12-05 10:27:15
 * Author: Bernard Desgraupes
 * e-mail: <bde...@ea...>
 *  
 * Utility functions called by the TclABCmd command functions
 *         
 * (c) Copyright : Bernard Desgraupes, 2003
 *         All rights reserved.
 * This software is free software with BSD licence.
 * Versions history: see the Changes.Log file.
 * 
 * $Date: 2003/12/05 20:22:42 $
 * $Revision: 1.1 $
 */


[...992 lines suppressed...]
	
    // Add the property to the Address Book
	if (kind == rec_person) {
		result = ABAddPropertiesAndTypes(ab, kABPersonRecordType, theDict);
	} else {
		result = ABAddPropertiesAndTypes(ab, kABGroupRecordType, theDict);
	}
    if ( !result ) {
		Tcl_AppendStringsToObj(resultPtr, "Couldn't add new property for ", 
							   kind ? "Person":"Group" , " records",  (char *) NULL);
		result = TCL_ERROR;
    } else {
		result = TCL_OK;
    }
    
	Tcl_DecrRefCount(objv[4]);
	CFRelease(theKey);
	CFRelease(theDict);
	return result;
}