Changeset 503 for trunk/gui/src

Timestamp:

Aug 7, 2006, 1:11:38 PM (18 years ago)

Author:

nkissebe

Message:

Converted to Tcl Extension Architecture (TEA) v3.5 for base Windows support. Added Windows ports of getrlimit, getrusage, gettimeofday, setrlimit functions.

Location:

trunk/gui/src

Files:

• RpInit.c (modified) (1 diff)
• RpRlimit.c (modified) (1 diff)
• RpRusage.c (modified) (2 diffs)
• RpSignal.c (modified) (1 diff)
• RpWinResource.c (added)
• RpWinResource.h (added)

trunk/gui/src/RpInit.c

@@ -17 +17 @@
 int RpRlimit_Init _ANSI_ARGS_((Tcl_Interp *interp));
 
+#ifdef BUILD_Rappture
+__declspec( dllexport )
+#endif
 int
-Rappturegui_Init(interp)
-    Tcl_Interp *interp;  /* interpreter being initialized */
+Rappturegui_Init(Tcl_Interp *interp)   /* interpreter being initialized */
 {
+#ifdef _WIN32
+    rpWinInitJob();
+#endif
+    if (Tcl_InitStubs(interp, "8.4", 0) == NULL) {
+        return TCL_ERROR;
+    }
+    if (Tcl_PkgProvide(interp, "RapptureGUI", PACKAGE_VERSION) != TCL_OK) {
+        return TCL_ERROR;
+    }
     if (RpRlimit_Init(interp) != TCL_OK) {
         return TCL_ERROR;

trunk/gui/src/RpRlimit.c

@@ -16 +16 @@
  */
 #include <tcl.h>
+#ifndef _WIN32
 #include <sys/time.h>
 #include <sys/resource.h>
+#else
+#include "RpWinResource.h"
+#endif
 
 #include "bltInt.h"

trunk/gui/src/RpRusage.c

@@ -16 +16 @@
  */
 #include <tcl.h>
+#ifndef WIN32
 #include <sys/time.h>
 #include <sys/resource.h>
+#else
+#include "RpWinResource.h"
+#endif
 
 #include "bltInt.h"
@@ -252 +256 @@
     return tval;
 }
+

trunk/gui/src/RpSignal.c

@@ -42 +42 @@
     int signum;
 } RpSignalNames;
+
+#ifdef _WIN32
+#define SIGHUP -1
+#define SIGQUIT -1
+#define SIGKILL -1
+#define SIGPIPE -1
+#define SIGALRM -1
+#define SIGUSR1 -1
+#define SIGUSR2 -1
+#define SIGCHLD -1
+#define SIGCONT -1
+#define SIGSTOP -1
+#define SIGTSTP -1
+#define SIGTTIN -1
+#define SIGTTOU -1
+#endif
 
 static RpSignalNames signalNames[] = {