New upstream version 3.1.1

[xfishtank.git] / src / utils.c

diff --git a/src/utils.c b/src/utils.c
new file mode 100644 (file)
index 0000000..2260b79
--- /dev/null
+++ b/src/utils.c
@@ -0,0 +1,201 @@
+/* -copyright-
+#-# Copyright © 2021 Eric Bina, Dave Black, TJ Phan, 
+#-#    Vincent Renardias, Willem Vermin
+#-# 
+#-# Permission is hereby granted, free of charge, to any person 
+#-# obtaining a copy of this software and associated documentation 
+#-# files (the “Software”), to deal in the Software without 
+#-# restriction, including without limitation the rights to use, 
+#-# copy, modify, merge, publish, distribute, sublicense, and/or 
+#-# sell copies of the Software, and to permit persons to whom 
+#-# the Software is furnished to do so, subject to the following 
+#-# conditions:
+#-# 
+#-# The above copyright notice and this permission notice shall 
+#-# be included in all copies or substantial portions of the Software.
+#-# 
+#-# THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND, 
+#-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 
+#-# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 
+#-# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 
+#-# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, 
+#-# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING 
+#-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR 
+#-# OTHER DEALINGS IN THE SOFTWARE.
+#-# 
+*/
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+#include <stdio.h>
+#include <string.h>
+#include <gtk/gtk.h>
+#include <stdlib.h>
+#include <X11/Intrinsic.h>
+#include "utils.h"
+#include "debug.h"
+#include "xfishtank.h"
+
+
+Pixel Black, White;
+
+ssize_t mywrite(int fd, const void *buf, size_t count)
+{
+   const size_t m = 4096; // max per write
+   size_t w       = 0;    // # written chars           
+   char *b        = (char *)buf;
+
+   while (w < count)
+   {
+      size_t l = count - w;
+      if (l > m)
+        l = m;
+      ssize_t x = write(fd, b+w, l);
+      if (x < 0)
+        return -1;
+      w += x;
+   }
+   return 0;
+}
+
+FILE *HomeOpen(const char *file,const char *mode, char **path)
+{
+   char *h = getenv("HOME");
+   if (h == NULL)
+      return NULL;
+   char *home = strdup(h);
+   (*path) = (char *) malloc((strlen(home)+strlen(file)+2)*sizeof(char));
+   strcpy(*path,home);
+   strcat(*path,"/");
+   strcat(*path,file);
+   FILE *f = fopen(*path,mode);
+   free(home);
+   return f;
+}
+
+
+float sq3(float x, float y, float z)
+{
+   return x*x + y*y + z*z;
+}
+
+float sq2(float x, float y)
+{
+   return x*x + y*y;
+}
+
+float fsgnf(float x)
+{
+   if (x>0) return 1.0f;
+   if (x<0) return -1.0f;
+   return 0.0f;
+}
+
+int sgnf(float x)
+{
+   if (x > 0) return 1;
+   if (x < 0) return -1;
+   return 0;
+}
+
+
+int RandInt(int m)
+{
+   if (m <=0 )
+      return 0;
+   return drand48()*m;
+}
+
+int is_little_endian(void)
+{
+   int endiantest = 1;
+   return (*(char *)&endiantest) == 1;
+}
+
+void my_cairo_paint_with_alpha(cairo_t *cr, double alpha)
+{
+   if (alpha > 0.9)
+      cairo_paint(cr);
+   else
+      cairo_paint_with_alpha(cr,alpha);
+   P("%d alpha %f\n",counter++,alpha);
+}
+
+/* from 'dsimple.c'
+ * Window_With_Name: routine to locate a window with a given name on a display.
+ *                   If no window with the given name is found, 0 is returned.
+ *                   If more than one window has the given name, the first
+ *                   one found will be returned.  Only top and its subwindows
+ *                   are looked at.  Normally, top should be the RootWindow.
+ */
+Window Window_With_Name( Display *dpy, Window top, const char *name)
+{
+   Window *children, dummy;
+   unsigned int nchildren;
+   int i;
+   Window w=0;
+   char *window_name;
+
+   // this leaks memory:
+   //if (XFetchName(dpy, top, &window_name) && !strcmp(window_name, name))
+   //  return(top);
+   //  therefore:
+   if (XFetchName(dpy, top, &window_name) && !strcmp(window_name, name))
+   {
+      XFree(window_name);
+      return(top);
+   }
+   XFree(window_name);
+
+   if (!XQueryTree(dpy, top, &dummy, &dummy, &children, &nchildren))
+   {
+      return(0);
+   }
+
+   for (i=0; (unsigned int)i<nchildren; i++) {
+      w = Window_With_Name(dpy, children[i], name);
+      if (w)
+        break;
+   }
+   if (children) XFree ((char *)children);
+   return(w);
+}
+
+
+double wallcl() 
+{ 
+   return (double)g_get_real_time()*1.0e-6;
+}
+
+double wallclock()
+{
+   return (double)g_get_monotonic_time()*1.0e-6;
+}
+
+
+// usage of strncpy gives useless warning "-Wstringop-truncation",
+// so here is a local version:
+void mystrncpy(char *dest, const char *src, size_t n)
+{
+   // see if there is a null-byte within src. In that case we do a strcpy:
+   size_t i;
+   for (i = 0; i<n; i++)
+   {
+      if (src[i] == '\0')
+      {
+        strcpy(dest, src);
+        P("strcpy\n");
+        return;
+      }
+   }
+   // simply copy n chars:
+   P("memcpy\n");
+   memcpy(dest,src,n*sizeof(char));
+}
+
+void rgba2color(GdkRGBA *c, char **s)
+{
+   *s = (char *)malloc(8);
+   sprintf(*s,"#%02lx%02lx%02lx",lrint(c->red*255),lrint(c->green*255),lrint(c->blue*255));
+}
+