Add new program `xwarpptr'.

[xtoys] / xwarpptr.c

diff --git a/xwarpptr.c b/xwarpptr.c
new file mode 100644 (file)
index 0000000..92cd5c6
--- /dev/null
+++ b/xwarpptr.c
@@ -0,0 +1,173 @@
+/* -*-c-*-
+ *
+ * Warp pointer to a specific location
+ *
+ * (c) 2022 Straylight/Edgeware
+ */
+
+/*----- Licensing notice --------------------------------------------------*
+ *
+ * This file is part of the Edgeware X tools collection.
+ *
+ * X tools is free software: you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.
+ *
+ * X tools is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with X tools.  If not, write to the Free Software Foundation,
+ * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+/*----- Header files ------------------------------------------------------*/
+
+#include <errno.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <X11/Xlib.h>
+
+#include <mLib/alloc.h>
+#include <mLib/macros.h>
+#include <mLib/mdwopt.h>
+#include <mLib/quis.h>
+#include <mLib/report.h>
+
+/*----- Help and version information --------------------------------------*/
+
+static void version(void)
+  { pquis(stdout, "$ version " VERSION "\n"); }
+
+static void usage(FILE *fp)
+  { pquis(fp, "Usage: $ [-d DISPLAY] X Y\n"); }
+
+static void help(void)
+{
+  version(); putchar('\n');
+  usage(stdout);
+  fputs("\n\
+Warp mouse pointer to position X, Y on the screen.\n\
+\n\
+Command-line options:\n\
+\n\
+-h, --help                     Display this help.\n\
+-v, --version                  Display program's version number.\n\
+-u, --usage                    Display short usage summary.\n\
+\n\
+-d, --display=DISPLAY          Connect to X DISPLAY.\n",
+       stdout);
+}
+
+/*----- Main program ------------------------------------------------------*/
+
+static int parse_int(const char *p)
+{
+  char *q;
+  int err;
+  long i;
+
+  err = errno; errno = 0;
+  if (!*p || ISSPACE(*p)) goto bad;
+  i = strtol(p, &q, 0);
+  if (err || *q || i < INT_MIN || i > INT_MAX) goto bad;
+  return ((int)i);
+
+bad:
+  die(1, "bad integer `%s'", p);
+}
+
+int main(int argc, char *argv[])
+{
+  const char *display = 0;
+  Display *dpy = 0;
+  int sc;
+  Window w;
+  char **fixups; int nfixups, i;
+  int x, y, xmin, xmax, ymin, ymax, wd, ht;
+
+  unsigned f = 0;
+#define f_bogus 1u
+#define f_relative 2u
+#define f_neg 4u
+
+  ego(argv[0]);
+
+  /* An initial pass over the argument vector.
+   *
+   * Negative numbers look like options, but we don't want them treated that
+   * way.  So we're going to hide them from the option parser for a bit.
+   */
+  fixups = xmalloc(argc*sizeof(char *));
+  for (i = 0, nfixups = 0; i < argc; i++)
+    if (argv[i][0] == '-' && ISDIGIT(argv[i][1]))
+      { fixups[nfixups++] = argv[i]; argv[i][0] = '?'; }
+
+  /* Parse arguments. */
+  for (;;) {
+    static struct option opt[] = {
+      { "help",                0,                      0,      'h' },
+      { "usage",       0,                      0,      'u' },
+      { "version",     0,                      0,      'v' },
+      { "display",     OPTF_ARGREQ,            0,      'd' },
+      { "relative",    0,                      0,      'r' },
+      {        0,              0,                      0,      0 }
+    };
+
+    i = mdwopt(argc, argv, "huvd:r", opt, 0, 0, 0); if (i < 0) break;
+    switch (i) {
+      case 'h': help(); exit(0);
+      case 'u': usage(stdout); exit(0);
+      case 'v': version(); exit(0);
+      case 'd': display = optarg; break;
+      case 'r': f |= f_relative; break;
+      default: f |= f_bogus; break;
+    }
+  }
+  if ((f&f_bogus) || argc - optind != 2) {
+    usage(stderr);
+    exit(EXIT_FAILURE);
+  }
+
+  /* Undo the fixups and fish out the numbers. */
+  for (i = 0; i < nfixups; i++) *fixups[i] = '-';
+  x = parse_int(argv[optind]);
+  y = parse_int(argv[optind + 1]);
+
+  /* Open the display and the screen size. */
+  if ((dpy = XOpenDisplay(display)) == 0)
+    die(EXIT_FAILURE, "couldn't open display");
+  sc = DefaultScreen(dpy);
+  wd = DisplayWidth(dpy, sc);
+  ht = DisplayHeight(dpy, sc);
+
+  /* Interpret the coordinates and check that they're in range. */
+  if (f&f_relative) {
+    w = None;
+    xmin = -wd + 1; ymin = -ht + 1; xmax = wd - 1; ymax = ht - 1;
+  } else {
+    if (x < 0) x += wd;
+    if (y < 0) y += ht;
+    w = RootWindow(dpy, sc);
+    xmin = ymin = 0; xmax = wd - 1; ymax = ht - 1;
+  }
+  if (x < xmin || x > xmax || y < ymin || y > ymax)
+    die(1, "coordinates out of range");
+
+  /* Do the work. */
+  XWarpPointer(dpy, None, w, 0, 0, 0, 0, x, y);
+
+  /* Done. */
+  XCloseDisplay(dpy);
+  return (0);
+
+#undef f_bogus
+#undef f_relative
+}
+
+/*----- That's all, folks -------------------------------------------------*/