[48233] branches/release_1_7

[blb at macports.org]

Revision: 48233
          http://trac.macports.org/changeset/48233
Author:   blb at macports.org
Date:     2009-03-17 01:18:45 -0700 (Tue, 17 Mar 2009)
Log Message:
-----------
Merge r43902 from trunk: pextlib1.0/Pextlib.c - Added mkdtemp. (Addresses Ticket #17181)

Modified Paths:
--------------
    branches/release_1_7/base/src/pextlib1.0/Pextlib.c

Property Changed:
----------------
    branches/release_1_7/
    branches/release_1_7/base/


Property changes on: branches/release_1_7
___________________________________________________________________
Modified: svn:mergeinfo
   - /trunk:42683,42697,42734,42747,42760,42845-42847,42865,42962,42978,43001,43080,43083,43097,43140,43153,43194,43216-43217,43229,43704-43705,43733,43946,43954,43960,44363,45161,45201,46146,46983,47034,47776,47782,48230
/trunk/base:45161
   + /trunk:42683,42697,42734,42747,42760,42845-42847,42865,42962,42978,43001,43080,43083,43097,43140,43153,43194,43216-43217,43229,43704-43705,43733,43902,43946,43954,43960,44363,45161,45201,46146,46983,47034,47776,47782,48230
/trunk/base:45161


Property changes on: branches/release_1_7/base
___________________________________________________________________
Modified: svn:mergeinfo
   - /trunk/base:42683,42697,42734,42747,42760,42845-42847,42865,42962,42978,43001,43080,43083,43097,43140,43153,43194,43216-43217,43229,43704-43705,43733,43946,43954,43960,44363,45161,45201,46146,46622-46623,46810,46983,47034,47776,47782,47848,48083,48230
/trunk/base/base:45161,48083
   + /trunk/base:42683,42697,42734,42747,42760,42845-42847,42865,42962,42978,43001,43080,43083,43097,43140,43153,43194,43216-43217,43229,43704-43705,43733,43902,43946,43954,43960,44363,45161,45201,46146,46622-46623,46810,46983,47034,47776,47782,47848,48083,48230
/trunk/base/base:45161,48083

Modified: branches/release_1_7/base/src/pextlib1.0/Pextlib.c
===================================================================
--- branches/release_1_7/base/src/pextlib1.0/Pextlib.c	2009-03-17 08:12:13 UTC (rev 48232)
+++ branches/release_1_7/base/src/pextlib1.0/Pextlib.c	2009-03-17 08:18:45 UTC (rev 48233)
@@ -798,6 +798,32 @@
 	return TCL_OK;
 }
 
+int MkdtempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
+{
+	char *template, *sp;
+	Tcl_Obj *tcl_result;
+
+	if (objc != 2) {
+		Tcl_WrongNumArgs(interp, 1, objv, "template");
+		return TCL_ERROR;
+	}
+
+	template = strdup(Tcl_GetString(objv[1]));
+	if (template == NULL)
+		return TCL_ERROR;
+
+	if ((sp = mkdtemp(template)) == NULL) {
+		Tcl_AppendResult(interp, "mkdtemp failed: ", strerror(errno), NULL);
+		free(template);
+		return TCL_ERROR;
+	}
+
+	tcl_result = Tcl_NewStringObj(sp, -1);
+	Tcl_SetObjResult(interp, tcl_result);
+	free(template);
+	return TCL_OK;
+}
+
 int MktempCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	char *template, *sp;
@@ -1210,6 +1236,7 @@
 	Tcl_CreateObjCommand(interp, "strsed", StrsedCmd, NULL, NULL);
 	Tcl_CreateObjCommand(interp, "mkstemp", MkstempCmd, NULL, NULL);
 	Tcl_CreateObjCommand(interp, "mktemp", MktempCmd, NULL, NULL);
+	Tcl_CreateObjCommand(interp, "mkdtemp", MkdtempCmd, NULL, NULL);
 	Tcl_CreateObjCommand(interp, "existsuser", ExistsuserCmd, NULL, NULL);
 	Tcl_CreateObjCommand(interp, "existsgroup", ExistsgroupCmd, NULL, NULL);
 	Tcl_CreateObjCommand(interp, "nextuid", NextuidCmd, NULL, NULL);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090317/25c037e0/attachment.html>