[58847] users/toby/objcports/MPIndex.c

[toby at macports.org]

Revision: 58847
          http://trac.macports.org/changeset/58847
Author:   toby at macports.org
Date:     2009-10-06 01:07:30 -0700 (Tue, 06 Oct 2009)
Log Message:
-----------
simplify

Modified Paths:
--------------
    users/toby/objcports/MPIndex.c

Modified: users/toby/objcports/MPIndex.c
===================================================================
--- users/toby/objcports/MPIndex.c	2009-10-06 07:53:58 UTC (rev 58846)
+++ users/toby/objcports/MPIndex.c	2009-10-06 08:07:30 UTC (rev 58847)
@@ -27,7 +27,6 @@
 		Tcl_Obj **objv;
 		CFStringRef key;
 		CFDictionaryRef value;
-		CFArrayRef info;
 		Tcl_Obj *line;
 		int len;
 
@@ -40,11 +39,9 @@
 			break;
 		}
 		Tcl_ListObjGetElements(interp, line, &objc, &objv);
-		info = CFArrayCreateWithTclObjects(NULL, objv, objc);
-		assert(CFArrayGetCount(info) == 2);
-		key = CFRetain(CFArrayGetValueAtIndex(info, 0));
-		len = CFStringGetIntValue(CFArrayGetValueAtIndex(info, 1));
-		CFRelease(info);
+		assert(objc == 2);
+		key = CFStringCreateWithTclObject(NULL, objv[0]);
+		Tcl_GetIntFromObj(interp, objv[1], &len);
 
 		/* Read dictionary. */
 		Tcl_ReadChars(chan, line, len, 0);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091006/082fdeec/attachment.html>