Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.

1 files changed, 305 insertions, 0 deletions

diff --git a/iup/src/mot/iupunix_info.c b/iup/src/mot/iupunix_info.c
new file mode 100755
index 0000000..b522638
--- /dev/null
+++ b/iup/src/mot/iupunix_info.c
@@ -0,0 +1,305 @@
+/** \file
+ * \brief UNIX System Information
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <stdio.h>
+#include <stdlib.h> 
+#include <string.h> 
+#include <limits.h>
+#include <sys/stat.h>
+
+/* This module should depend only on IUP core headers 
+   and UNIX system headers. NO Motif headers allowed. */
+
+#include <X11/X.h>
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#include <X11/Xatom.h>
+#include <sys/utsname.h>
+#include <unistd.h>
+#include <errno.h>
+#include <sys/stat.h>
+
+#include "iup_str.h"
+#include "iup_drvinfo.h"
+
+
+int iupdrvMakeDirectory(const char* name) 
+{
+  mode_t oldmask = umask((mode_t)0);
+  int fail =  mkdir(name, S_IRUSR | S_IWUSR | S_IXUSR | S_IRGRP |
+                          S_IWGRP | S_IXGRP | S_IROTH | S_IXOTH);
+  umask (oldmask);
+  if (fail)
+    return 0;
+  return 1;
+}
+
+int iupdrvIsFile(const char* name)
+{
+  struct stat status;
+  if (stat(name, &status) != 0)
+    return 0;
+  if (S_ISDIR(status.st_mode))
+    return 0;
+  return 1;
+}
+
+int iupdrvIsDirectory(const char* name)
+{
+  struct stat status;
+  if (stat(name, &status) != 0)
+    return 0;
+  if (S_ISDIR(status.st_mode))
+    return 1;
+  return 0;
+}            
+
+char* iupdrvGetCurrentDirectory(void)
+{
+  size_t size = 256;
+  char *buffer = (char *)malloc(size);
+
+  for (;;)
+  {
+    if (getcwd(buffer, size) != NULL)
+      return buffer;
+
+    if (errno != ERANGE)
+    {
+      free(buffer);
+      return NULL;
+    }
+
+    size += size;
+    buffer = (char *)realloc(buffer, size);
+  }
+
+  return NULL;
+}
+
+int iupdrvSetCurrentDirectory(const char* dir)
+{
+  return chdir(dir) == 0? 1: 0;
+}
+
+int iupdrvGetWindowDecor(void* wnd, int *border, int *caption)
+{
+  XWindowAttributes wa;
+  wa.x = 0; wa.y = 0;
+  XGetWindowAttributes((Display*)iupdrvGetDisplay(), (Window)wnd, &wa);
+  if (wa.x > 0 && wa.y > 0 && wa.y >= wa.x)
+  {
+    *border = wa.x;
+    *caption = wa.y - *border;
+    return 1;
+  }
+
+  *border = 0;
+  *caption = 0;
+
+  return 0;
+}
+
+static int xGetWorkAreaSize(Display* display, int screen, int *width, int *height)
+{
+  /* _NET_WORKAREA, x, y, width, height CARDINAL[][4]/32 */
+  static Atom workarea = 0;
+  Atom type;
+  long *data;
+  int format;
+  unsigned long after, ndata;
+
+  if (!workarea)
+    workarea = XInternAtom(display, "_NET_WORKAREA", False);
+
+  XGetWindowProperty(display, RootWindow(display, screen),
+                     workarea, 0, LONG_MAX, False, XA_CARDINAL, &type, &format, &ndata,
+                     &after, (unsigned char **)&data);
+  if (type != XA_CARDINAL || data == NULL)
+  {
+    if (data) XFree(data);
+    return 0;
+  }
+
+  *width = data[2];    /* get only for the first desktop */
+  *height = data[3];
+
+  XFree(data);
+  return 1;
+}
+
+void iupdrvGetScreenSize(int *width, int *height)
+{
+  Display* display = (Display*)iupdrvGetDisplay();
+  int screen = XDefaultScreen(display);
+  if (!xGetWorkAreaSize(display, screen, width, height))
+  {
+    *width = DisplayWidth(display, screen);
+    *height = DisplayHeight(display, screen);
+  }
+}
+
+void iupdrvGetFullSize(int *width, int *height)
+{
+  Display* display = (Display*)iupdrvGetDisplay();
+  int screen = XDefaultScreen(display);
+  Window root = RootWindow(display, screen);
+  XWindowAttributes wa;
+  XGetWindowAttributes(display, root, &wa);
+  *width = wa.width;
+  *height = wa.height;
+}
+
+static int xCheckVisualInfo(Display* drv_display, int bpp)
+{
+  int nitems;
+  XVisualInfo info, *ret_info;
+
+  info.depth = bpp;
+  ret_info = XGetVisualInfo(drv_display, VisualDepthMask, &info, &nitems);
+  if (ret_info != NULL)
+  {
+    XFree(ret_info);
+    return 1;
+  }
+  return 0;
+}
+
+int iupdrvGetScreenDepth(void)
+{
+  static int first = 1;
+  static int bpp;
+
+  if (first)
+  {
+    Display* drv_display = (Display*)iupdrvGetDisplay();
+
+    if (xCheckVisualInfo(drv_display, 24))
+    {
+      bpp = 24;
+      return bpp;
+    }
+
+    if (xCheckVisualInfo(drv_display, 16))
+    {
+      bpp = 16;
+      return bpp;
+    }
+
+    if (xCheckVisualInfo(drv_display, 8))
+    {
+      bpp = 8;
+      return bpp;
+    }
+
+    if (xCheckVisualInfo(drv_display, 4))
+    {
+      bpp = 4;
+      return bpp;
+    }
+
+    bpp = 2;
+
+    first = 0;
+  }
+
+  return bpp;
+}
+
+void iupdrvGetCursorPos(int *x, int *y)
+{
+  Window root, child;
+  int cx, cy;
+  unsigned int keys;
+  Display* display = (Display*)iupdrvGetDisplay();
+  int screen = XDefaultScreen(display);
+
+  XQueryPointer(display, RootWindow(display, screen),
+                &root, &child, x, y, &cx, &cy, &keys);
+}
+
+static int xCheckModifier(KeyCode* modifiermap, int max_keypermod, int index, const char* keys)
+{
+  int i;
+  for (i = 0; i < max_keypermod; i++)
+  {
+    KeyCode key = modifiermap[max_keypermod * index + i];
+    if (key)
+    {
+      int KeyIndex = key / 8;
+      int KeyMask = 1 << (key % 8);
+      if (keys[KeyIndex] & KeyMask)
+        return 1;
+    }
+  }
+  return 0;
+}
+
+void iupdrvGetKeyState(char* key)
+{
+  char keys[32];
+  Display* display = (Display*)iupdrvGetDisplay();
+  XModifierKeymap *modMap = XGetModifierMapping(display);
+  XQueryKeymap(display, keys);
+
+  if (xCheckModifier(modMap->modifiermap, modMap->max_keypermod, ShiftMapIndex, keys))
+    key[0] = 'S';
+  else
+    key[0] = ' ';
+  if (xCheckModifier(modMap->modifiermap, modMap->max_keypermod, ControlMapIndex, keys))
+    key[1] = 'C';
+  else
+    key[1] = ' ';
+  if (xCheckModifier(modMap->modifiermap, modMap->max_keypermod, Mod1MapIndex, keys) ||
+      xCheckModifier(modMap->modifiermap, modMap->max_keypermod, Mod5MapIndex, keys))
+    key[2] = 'A';
+  else
+    key[2] = ' ';
+  if (xCheckModifier(modMap->modifiermap, modMap->max_keypermod, Mod4MapIndex, keys))
+    key[3] = 'Y';
+  else
+    key[3] = ' ';
+
+  key[4] = 0;
+
+  XFreeModifiermap(modMap);
+}
+
+char *iupdrvGetSystemName(void)
+{
+  struct utsname un;
+  char *str = iupStrGetMemory(50); 
+
+  uname(&un);
+  strcpy(str, un.sysname);
+
+  return str;
+}
+
+char *iupdrvGetSystemVersion(void)
+{
+  struct utsname un;
+  char *str = iupStrGetMemory(60); 
+
+  uname(&un);
+  strcpy(str, un.release);
+  strcat(str, ".");
+  strcat(str, un.version);
+
+  return str;
+}
+
+char *iupdrvGetComputerName(void)
+{
+  char* str = iupStrGetMemory(50);
+  gethostname(str, 50);
+  return str;
+}
+
+char *iupdrvGetUserName(void)
+{
+  return (char*)getlogin();
+}