aboutsummaryrefslogtreecommitdiff
path: root/vendor/x11iraf/cdl/comm.c
diff options
context:
space:
mode:
Diffstat (limited to 'vendor/x11iraf/cdl/comm.c')
-rw-r--r--vendor/x11iraf/cdl/comm.c789
1 files changed, 789 insertions, 0 deletions
diff --git a/vendor/x11iraf/cdl/comm.c b/vendor/x11iraf/cdl/comm.c
new file mode 100644
index 00000000..a155bc76
--- /dev/null
+++ b/vendor/x11iraf/cdl/comm.c
@@ -0,0 +1,789 @@
+#include <stdio.h>
+#include <sys/errno.h>
+#define CDL_LIBRARY_SOURCE
+#include "cdl.h"
+
+
+/*
+ * COMMUNICATIONS INTERFACE -- The communications interface handles all the
+ * low-level communications with the server. It implements only the subset
+ * of the IIS protocol used by XImtool, SAOtng and SAOimage, not the entire
+ * IIS protocol. It may be swapped out for another protocol in the future
+ * without affecting the tasks which use it as long as the basic steps re-
+ * quired for image display are the same.
+ *
+ * com_writeData (fdout, x, y, pix, nbytes)
+ * com_readData (fdin, x, y, &pix, &bytes)
+ * com_writeSubraster (fdout, x, y, pix, nx, ny)
+ * com_readSubraster (fdin, x, y, &pix, &nx, &ny)
+ * com_readCursor (fdin, fdout, sample, &x, &y, &wcs, &key)
+ * com_setCursor (fdout, x, y, wcs)
+ * com_setFBConfig (fdout, configno)
+ * com_setFrame (fdout, frame)
+ * com_writeWCS (fdout, buffer, nbytes, version)
+ * com_readWCS (fdin, fdout, &buffer, &nbytes, &version)
+ * com_eraseFrame (fdout)
+ * com_wcsVersion (fdin, fdout)
+ *
+ * We do not actually display images here, all we do is send the individual
+ * set frame, write a data chunk, etc commands. The caller is responsible for
+ * coordinating these calls into a legal sequence for image display.
+ * All routines return 0 if successfull and 1 otherwise.
+ */
+
+/* Function prototypes */
+#ifdef __STDC__
+#include <stddef.h>
+#include <stdlib.h>
+#endif
+
+
+/* Command definitions */
+#define MEMORY 01 /* frame buffer i/o */
+#define LUT 02 /* lut i/o */
+#define FEEDBACK 05 /* used for frame clears */
+#define IMCURSOR 020 /* logical image cursor */
+#define WCS 021 /* used to set WCS */
+
+#define PACKED 0040000
+#define IMC_SAMPLE 0040000
+#define COMMAND 0100000
+#define IIS_WRITE 0400000
+#define IIS_READ 0100000
+
+
+
+/* IIS header packet structure. DO NOT CHANGE. */
+typedef struct {
+ short tid; /* transfer id */
+ short thingct; /* thing count */
+ short subunit; /* subunit */
+ short checksum; /* check sum */
+ short x, y, z, t; /* registers */
+} iis_hdr;
+
+
+static int frame = 1, fbconfig = 1;
+static int com_debug = 0;
+extern int errno;
+
+#ifdef ANSI_FUNC
+
+static int com_whdr(int fd, int tid, int subunit, int thingct, int x, int y, int z, int t);
+static int com_write(int fd, char *buf, int nbytes);
+static int com_read(int fd, char *buf, int maxbytes, int *nbytes);
+
+#else
+
+static int com_whdr(), com_write(), com_read();
+
+#endif
+
+
+
+/* COM_WRITEDATA -- Write a block of data to the display. This does not
+ * display the entire image, it just writes an array of pixels to the server.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_writeData (
+ int fd, /* connection file descriptor */
+ short x,
+ short y, /* corner of array */
+ uchar *pix, /* pixel array */
+ int nbytes /* number of bytes write */
+)
+#else
+
+int
+com_writeData (fd, x, y, pix, nbytes)
+int fd; /* connection file descriptor */
+short x, y; /* corner of array */
+uchar *pix; /* pixel array */
+int nbytes; /* number of bytes write */
+#endif
+{
+ int status = 0;
+
+ /* Send the IIS command for a data write. */
+ if (com_whdr (fd, IIS_WRITE | PACKED, MEMORY, -nbytes, x, y,
+ 1<<(frame-1), 0)) {
+ if (com_debug >= 2)
+ printf ("com_writeData: error return from header write.\n");
+ return (ERR);
+ }
+
+ /* Send the pixels. */
+ status = com_write (fd, (char *)pix, nbytes);
+ if (status && com_debug >= 2)
+ printf ("com_writeData: error return from data write.\n");
+ return (status);
+}
+
+
+/* COM_READDATA -- Read a block of data at a given location from the
+ * display.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_readData (
+ int fdin,
+ int fdout, /* connection file descriptors */
+ short x,
+ short y, /* corner of readout */
+ uchar *pix, /* output pixel array */
+ int *npix /* number of bytes read */
+)
+#else
+
+int
+com_readData (fdin, fdout, x, y, pix, npix)
+int fdin, fdout; /* connection file descriptors */
+short x, y; /* corner of readout */
+uchar *pix; /* output pixel array */
+int *npix; /* number of bytes read */
+#endif
+{
+ int status = 0, nb = 0, n = *npix;
+
+ /* Send the IIS command for a data read. */
+ if (com_whdr (fdout, IIS_READ | PACKED, MEMORY, -(*npix), x, y,
+ 1<<(frame-1), 0)) {
+ if (com_debug >= 2)
+ printf ("com_readData: error return from header read.\n");
+ return (ERR);
+ }
+
+ /* Get the pixels. */
+ if (pix == NULL)
+ pix = (uchar *) malloc ((unsigned) *npix);
+
+ while (nb < *npix) {
+ status = com_read (fdin, (char *)pix+nb, n, &n);
+ if (status && com_debug >= 2) {
+ printf ("com_readData: error return from data read.\n");
+ return (ERR);
+ }
+ nb += n;
+ n = *npix - nb;
+ }
+ return (OK);
+}
+
+
+/* COM_WRITESUBRASTER -- Write a block of data to the display. This does not
+ * display the entire image, it just writes an array of pixels to the server.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_writeSubraster (
+ int fd, /* connection file descriptor */
+ short x,
+ short y, /* corner of array */
+ uchar *pix, /* pixel array */
+ int nx, int ny /* number of bytes write at pos */
+)
+#else
+
+int
+com_writeSubraster (fd, x, y, pix, nx, ny)
+int fd; /* connection file descriptor */
+short x, y; /* corner of array */
+uchar *pix; /* pixel array */
+int nx, ny; /* number of bytes write at pos */
+#endif
+{
+ int status = 0;
+ int nbytes = (nx * ny);
+
+ /* Send the IIS command for a data write. */
+ if (com_whdr (fd, IIS_WRITE | PACKED, MEMORY, -nbytes, x, y,
+ 1<<(frame-1), nx)) {
+ if (com_debug >= 2)
+ printf ("com_writeData: error return from header write.\n");
+ return (ERR);
+ }
+
+ /* Send the pixels. */
+ status = com_write (fd, (char *)pix, nbytes);
+ if (status && com_debug >= 2)
+ printf ("com_writeData: error return from data write.\n");
+ return (status);
+}
+
+
+/* COM_READSUBRASTER -- Read a block of data at a given location from the
+ * display.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_readSubraster (
+ int fdin,
+ int fdout, /* connection file descriptors */
+ short x,
+ short y, /* corner of readout */
+ uchar *pix, /* output pixel array */
+ int nx, ny /* number of bytes read */
+)
+#else
+
+int
+com_readSubraster (fdin, fdout, x, y, pix, nx, ny)
+int fdin, fdout; /* connection file descriptors */
+short x, y; /* corner of readout */
+uchar *pix; /* output pixel array */
+int nx, ny; /* number of bytes read */
+#endif
+{
+ int status = 0, nb = 0, n, npix = (nx * ny);
+
+ /* Send the IIS command for a data read. */
+ n = npix;
+ if (com_whdr (fdout, IIS_READ | PACKED, MEMORY, -npix, x, y,
+ 1<<(frame-1), nx)) {
+ if (com_debug >= 2)
+ printf ("com_readData: error return from header read.\n");
+ return (ERR);
+ }
+
+ /* Get the pixels. */
+ if (pix == NULL)
+ pix = (uchar *) malloc ((unsigned) npix);
+
+ /*
+ */
+ while (nb < npix) {
+ status = com_read (fdin, (char *)pix+nb, n, &n);
+ if (status && com_debug >= 2) {
+ printf ("com_readData: error return from data read.\n");
+ return (ERR);
+ }
+ nb += n;
+ n = npix - nb;
+ }
+ return (OK);
+}
+
+
+
+/* COM_READCURSOR -- Read the current cursor position. If sample is set the
+ * value of the cursor is returned immediately, otherwise the read
+ * is blocked until the user hits a key.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_readCursor (
+ int fdin,
+ int fdout, /* connection file descriptors */
+ int sample, /* sample cursor or block */
+ float *x,
+ float *y, /* output cursor coords */
+ int *wcs, /* WCS of cursor read */
+ char *key /* keystroke hit */
+)
+#else
+
+int
+com_readCursor (fdin, fdout, sample, x, y, wcs, key)
+int fdin, fdout; /* connection file descriptors */
+int sample; /* sample cursor or block */
+float *x, *y; /* output cursor coords */
+int *wcs; /* WCS of cursor read */
+char *key; /* keystroke hit */
+#endif
+{
+ char buf[SZ_IMCURVAL];
+ int status = 0, n = SZ_IMCURVAL, octal = 0;
+
+ /* Send the IIS command for a cursor read. */
+ if (com_whdr (fdout, (IIS_READ | (sample ? IMC_SAMPLE : 0)), IMCURSOR,
+ 0, 0, 0, *wcs, 0)) {
+ if (com_debug >= 2)
+ printf ("com_readCursor: error return from header read.\n");
+ return (ERR);
+ }
+
+ /* Read back the ascii string and extract the cursor position. */
+ buf[0] = '\0';
+ if (com_read (fdin, buf, n, &n))
+ return (ERR);
+
+ *key = (char)NULL;
+ status = sscanf (buf, "%f %f %d %c", x, y, wcs, key);
+ if (*key == '\\') { /* fixup octal char read */
+ status = sscanf (buf, "%f %f %d \\%o", x, y, wcs, &octal);
+ *key = octal;
+ }
+
+ if (status == 0 && strncmp (buf, "EOF", 3) == 0) {
+ *x = *y = 0.0;
+ *key = EOF;
+ }
+ if ((status != 4) && com_debug >= 2) {
+ printf ("com_readCursor: error return from data read.\n");
+ return (ERR);
+ }
+ return ((int) *key);
+}
+
+
+/* COM_SETCURSOR -- Set the image cursor position.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_setCursor (
+ int fd, /* connection file descriptor */
+ int x,
+ int y, /* cursor coords */
+ int wcs /* cursor wcs */
+)
+#else
+
+int
+com_setCursor (fd, x, y, wcs)
+int fd; /* connection file descriptor */
+int x, y; /* cursor coords */
+int wcs; /* cursor wcs */
+#endif
+{
+ /* Pack up IIS command to set cursor */
+ if (com_whdr (fd, IIS_WRITE, IMCURSOR, 0, x, y, wcs, 0)) {
+ if (com_debug >= 2)
+ printf ("com_writeCursor: error return from header write.\n");
+ return (ERR);
+ }
+ return (OK);
+}
+
+
+/* COM_SETFBCONFIG -- Set the frame buffer configuration number. This is
+ * passed to the server in a WCS set command so we'll just save it for now.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_setFBConfig (
+ int fd, /* connection file descriptor */
+ int configno /* fb configuration number */
+)
+#else
+
+int
+com_setFBConfig (fd, configno)
+int fd; /* connection file descriptor */
+int configno; /* fb configuration number */
+#endif
+{
+ fbconfig = configno;
+ return (OK);
+}
+
+
+/* COM_SETFRAME -- Set the current display frame.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_setFrame (
+ int fd, /* connection file descriptor */
+ int frame_num /* frame number */
+)
+#else
+
+int
+com_setFrame (fd, frame_num)
+int fd; /* connection file descriptor */
+int frame_num; /* frame number */
+#endif
+{
+ short status = 0, fr = 0;
+
+ frame = frame_num;
+ fr = 1 << (frame_num-1);
+
+ /* Send the IIS command to select a frame. */
+ if (com_whdr (fd, IIS_WRITE, LUT | COMMAND, -1, 0, 0, 0, 0)) {
+ if (com_debug >= 2)
+ printf ("com_setFrame: error return from header write.\n");
+ return (ERR);
+ }
+
+ /* Send the frame info. */
+ status = com_write (fd, (char *)&fr, sizeof(short));
+ if (status && com_debug >= 2) {
+ printf ("com_setFrame: error return from data write.\n");
+ return (ERR);
+ }
+ return (status);
+}
+
+
+/* COM_WRITEWCS -- Send the (linear) WCS to the server.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_writeWCS (
+ int fd, /* connection file descriptor */
+ char *buffer, /* wcs buffer string */
+ int nbytes, /* nbytes to transmit */
+ int version /* iis version type */
+)
+#else
+
+int
+com_writeWCS (fd, buffer, nbytes, version)
+int fd; /* connection file descriptor */
+char *buffer; /* wcs buffer string */
+int nbytes; /* nbytes to transmit */
+int version; /* iis version type */
+#endif
+{
+ char wcs_info[SZ_WCSBUF];
+ int status = 0;
+ short x = 0, y = 0, z = (1 << (frame-1)), t = (fbconfig - 1);
+
+ /* Send the IIS header to set a WCS. */
+ if (version == 0) {
+ /* Do the old-style WCS read. Set registers and size.*/
+ x = 0, y = 0, z = (1 << (frame-1)), t = (fbconfig - 1);
+ } else {
+ /* Do the new-style WCS read. Set registers and size.*/
+ x = 1, y = 0, z = (1 << (frame-1)), t = (fbconfig - 1);
+ }
+
+ /* Send the setWcs header. */
+ if (com_whdr (fd, IIS_WRITE|PACKED, WCS, -nbytes, x, y, z, t)) {
+ if (com_debug >= 2)
+ printf ("com_writeWCS: error return from header write.\n");
+ return (ERR);
+ }
+
+ /* Send the wcs info. */
+ if (com_write (fd, buffer, nbytes)) {
+ if (com_debug >= 2)
+ printf ("com_writeWCS: error return from data write.\n");
+ return (ERR);
+ }
+ return (OK);
+}
+
+
+/* COM_READWCS -- Read the (linear) WCS from the server.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_readWCS (
+ int fdin,
+ int fdout, /* connection file descriptors */
+ char *buffer, /* wcs string buffer */
+ int *nbytes, /* length of string */
+ int wcs, /* requested WCS number */
+ int version /* iis version number */
+)
+#else
+
+int
+com_readWCS (fdin, fdout, buffer, nbytes, wcs, version)
+int fdin, fdout; /* connection file descriptors */
+char *buffer; /* wcs string buffer */
+int *nbytes; /* length of string */
+int wcs; /* requested WCS number */
+int version; /* iis version number */
+#endif
+{
+ int nread, tokens, len;
+ short x, y, z, t;
+ char wcs_info[SZ_WCSBUF];
+
+
+ /* Set registers and size. Note that 'version' and 'wcs' will
+ * be zero when using the old WCS protocols.
+ */
+ x = version;
+ y = 0;
+ z = (1 << (frame-1));
+ t = wcs;
+ len = (version == 0) ? SZ_OLD_WCSBUF : SZ_WCSBUF;
+
+ /* Send the WCS query string. */
+ if (com_whdr (fdout, IIS_READ, WCS, 0, x, y, z, t)) {
+ if (com_debug >= 2)
+ printf ("com_readWCS: error return from header read.\n");
+ return (ERR);
+ }
+
+ /* Read the reply string. */
+ if (com_read (fdin, wcs_info, len, &nread)) {
+ if (com_debug >= 2)
+ printf ("com_readWCS: error return from data read.\n");
+ return (ERR);
+ }
+
+ /* Copy the data string to the return buffer. */
+ *nbytes = nread;
+ strncpy (buffer, wcs_info, nread);
+
+ return (OK);
+}
+
+
+/* COM_ERASEFRAME -- Clear the current frame.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_eraseFrame (
+ int fd /* connection file descriptor */
+)
+#else
+
+int
+com_eraseFrame (fd)
+int fd; /* connection file descriptor */
+#endif
+{
+ /* Send IIS command to erase. */
+ if (com_whdr (fd, IIS_WRITE+(fbconfig-1), FEEDBACK, 0, 0, 0,
+ 1<<(frame-1), 0)) {
+ if (com_debug >= 2)
+ printf ("com_eraseFrame: error return from header write.\n");
+ return (ERR);
+ }
+ return (OK);
+}
+
+
+/* COM_WCSVERSION -- Determine the server WCS version.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_wcsVersion (
+ int fdin, /* connection file descriptor */
+ int fdout /* connection file descriptor */
+)
+#else
+
+int
+com_wcsVersion (fdin, fdout)
+int fdin; /* connection file descriptor */
+int fdout; /* connection file descriptor */
+#endif
+{
+ char wcstext[SZ_OLD_WCSBUF];
+ int n = SZ_OLD_WCSBUF, status = 0, version = 0;
+ short x = 1, y = 1, z = (1 << (frame-1)), t = 0;
+
+
+ /* Send IIS command to return the WCS version (subunitof getWCS) */
+ if (com_whdr (fdout, IIS_READ, WCS, 0, x, y, z, t)) {
+ if (com_debug >= 2)
+ printf ("com_eraseFrame: error return from header write.\n");
+ return (0);
+ }
+
+ /* Read the reply string. */
+ status = com_read (fdin, wcstext, SZ_OLD_WCSBUF, &n);
+ if (status && com_debug >= 2) {
+ printf ("com_wcsVersion: error return from version read.\n");
+ return (0);
+ }
+
+ /* Decode the version from the WCS text. */
+ if (strncmp (wcstext, "version=", 8) == 0) {
+ if (sscanf (wcstext, "version=%d", &version) < 1)
+ version = 0;
+ } else
+ version = 0;
+
+ return (version);
+}
+
+
+
+
+/*------------------
+ PRIVATE PROCEDURES
+ ------------------*/
+
+
+/* COM_WHDR -- Load and send the IIS header packet given the structure elements.
+ */
+
+#ifdef ANSI_FUNC
+
+static int
+com_whdr (
+ int fd, /* connection file descriptor */
+ int tid, /* thing ID */
+ int subunit, /* subunit */
+ int thingct, /* thing count */
+ int x,
+ int y,
+ int z,
+ int t /* registers */
+)
+#else
+
+static int
+com_whdr (fd, tid, subunit, thingct, x, y, z, t)
+int fd; /* connection file descriptor */
+int tid; /* thing ID */
+int subunit; /* subunit */
+int thingct; /* thing count */
+int x, y, z, t; /* registers */
+#endif
+{
+ iis_hdr iis;
+ int sum = 0;
+
+ /* Load the structure. */
+ iis.tid = (short) tid;
+ iis.subunit = (short) subunit;
+ iis.thingct = (short) thingct;
+ iis.checksum = (short) 0;
+ iis.x = (short) x;
+ iis.y = (short) y;
+ iis.z = (short) z;
+ iis.t = (short) t;
+
+ /* Compute the checksum. */
+ sum = iis.tid + iis.subunit + iis.thingct + iis.checksum +
+ iis.x + iis.y + iis.z + iis.t;
+ iis.checksum = 0177777 - sum;
+
+ if (com_debug) {
+ printf (
+ "subunit=%06o tid=%06o nbytes=%7d x=%05o y=%05o z=%05o t=%05o\n",
+ iis.subunit & 077,
+ iis.tid,
+ (!(iis.tid & PACKED) ? (-iis.thingct * 2) : (-iis.thingct)),
+ iis.x & 0177777,
+ iis.y & 0177777,
+ iis.z & 0177777,
+ iis.t & 0177777);
+ (void) fflush (stdout);
+ }
+
+ /* Send the header and return the success code. */
+ return (com_write(fd, (char *)&iis, sizeof(iis)));
+}
+
+
+/* COM_WRITE -- Asynchronous write of data to the server. Write exactly
+ * nbytes bytes from the buffer to the server.
+ */
+
+#ifdef ANSI_FUNC
+
+static int
+com_write (
+ int fd, /* connection file descriptor */
+ char *buf, /* buffer to write */
+ int nbytes /* number of bytes to write */
+)
+#else
+
+static int
+com_write (fd, buf, nbytes)
+int fd; /* connection file descriptor */
+char *buf; /* buffer to write */
+int nbytes; /* number of bytes to write */
+#endif
+{
+ int n = 0, total = 0, maxbytes = nbytes;
+ char *ip = (char *)buf;
+
+ for (total=0; total < nbytes; total += n, ip += n) {
+ n = nbytes - total;
+ if (maxbytes)
+ n = min (maxbytes, n);
+ if ((n = write (fd, ip, n)) <= 0)
+ return (ERR);
+ }
+ return (OK);
+}
+
+
+/* COM_READ -- Read data from the server. Try to read at most maxbytes bytes
+ * from the server into the buffer, return the number of bytes actually read.
+ */
+
+#ifdef ANSI_FUNC
+
+static int
+com_read (
+ int fd, /* connection file descriptor */
+ char *buf, /* buffer to write */
+ int maxbytes, /* max number of bytes to read */
+ int *nbytes /* number of bytes actually read*/
+)
+#else
+
+static int
+com_read (fd, buf, maxbytes, nbytes)
+int fd; /* connection file descriptor */
+char *buf; /* buffer to write */
+int maxbytes; /* max number of bytes to read */
+int *nbytes; /* number of bytes actually read*/
+#endif
+{
+ int nread;
+ int nleft = maxbytes;
+ char *ptr = buf;
+
+ *nbytes = 0;
+ while (nleft > 0) {
+ if ( (nread = read(fd, ptr, nleft)) < 0) {
+ if (errno == EINTR)
+ nread = 0; /* and call read() again */
+ else
+ return (ERR);
+ } else if (nread == 0)
+ break; /* EOF */
+
+ nleft -= nread;
+ ptr += nread;
+ *nbytes += nread;
+ }
+ return (OK);
+}
+
+
+/* COM_SETDEBUG -- Set the state of the debug flag.
+ */
+
+#ifdef ANSI_FUNC
+
+int
+com_setDebug (int state)
+#else
+
+int
+com_setDebug (state)
+int state;
+#endif
+{
+ com_debug = state;
+ return (OK);
+}
generated by cgit (git 2.34.1) at 2025-09-20 17:36:26 -0400