[66805] trunk/base/src/pextlib1.0/tracelib.c

[raimue at macports.org]

Revision: 66805
          http://trac.macports.org/changeset/66805
Author:   raimue at macports.org
Date:     2010-04-22 19:32:26 -0700 (Thu, 22 Apr 2010)
Log Message:
-----------
tracelib: Move socket initialization from 'tracelib run' into 'tracelib opensocket'

Modified Paths:
--------------
    trunk/base/src/pextlib1.0/tracelib.c

Modified: trunk/base/src/pextlib1.0/tracelib.c
===================================================================
--- trunk/base/src/pextlib1.0/tracelib.c	2010-04-23 02:08:25 UTC (rev 66804)
+++ trunk/base/src/pextlib1.0/tracelib.c	2010-04-23 02:32:26 UTC (rev 66805)
@@ -394,12 +394,9 @@
 	va_end(va);
 }
 
-static int TracelibRunCmd(Tcl_Interp * in)
+static int TracelibOpenSocketCmd(Tcl_Interp * in)
 {
 	struct sockaddr_un sun;
-	fd_set fdr;
-	int i;
-	int max_fd, max_used, socks[MAX_SOCKETS];
 	struct rlimit rl;
 	
 	pthread_mutex_lock(&sock_mutex);
@@ -446,6 +443,17 @@
 		Tcl_AppendResult(interp, "listen: ", (char *) Tcl_PosixError(interp), NULL);
 		return TCL_ERROR;
 	}
+
+        return TCL_OK;
+}
+
+
+static int TracelibRunCmd(Tcl_Interp * in UNUSED)
+{
+	int max_fd, max_used, socks[MAX_SOCKETS];
+	fd_set fdr;
+	int i;
+
 	max_used=0;
 	max_fd=sock;
 	
@@ -607,10 +615,11 @@
 int TracelibCmd(ClientData clientData UNUSED, Tcl_Interp* interp, int objc, Tcl_Obj* CONST objv[])
 {
 	int result=TCL_OK;
-	static const char * options[]={"setname", "run", "clean", "setsandbox", "closesocket", "setdeps", "enablefence", 0};
+	static const char * options[]={"setname", "opensocket", "run", "clean", "setsandbox", "closesocket", "setdeps", "enablefence", 0};
 	typedef enum 
 	{
 		kSetName,
+		kOpenSocket,
 		kRun,
 		kClean,
 		kSetSandbox,
@@ -635,6 +644,9 @@
 		case kSetName:
 			result=TracelibSetNameCmd(interp, objc, objv);
 			break;
+		case kOpenSocket:
+			result=TracelibOpenSocketCmd(interp);
+			break;
 		case kRun:
 			result=TracelibRunCmd(interp);
 			break;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100422/0748be95/attachment.html>