aboutsummaryrefslogtreecommitdiff
path: root/src/rmt.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/rmt.c')
-rw-r--r--src/rmt.c473
1 files changed, 473 insertions, 0 deletions
diff --git a/src/rmt.c b/src/rmt.c
new file mode 100644
index 0000000..d616b9e
--- /dev/null
+++ b/src/rmt.c
@@ -0,0 +1,473 @@
+/*
+ * Copyright (c) 1983 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms are permitted
+ * provided that the above copyright notice and this paragraph are
+ * duplicated in all such forms and that any documentation,
+ * advertising materials, and other materials related to such
+ * distribution and use acknowledge that the software was developed
+ * by the University of California, Berkeley. The name of the
+ * University may not be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+ * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ */
+
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1983 Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+/*
+ * rmt
+ */
+#if defined(HAVE_CONFIG_H)
+# include <config.h>
+#endif
+
+#include <stdio.h>
+#ifndef __linux
+/* Kludge alert: We should really fix this by having configure figure
+ out if we need sgtty.h or not, so it can define HAVE_SGGTY_H and
+ also add rmt to the build targets. For now we'll just add this
+ ifndef so make rmt will work on Linux. */
+#include <sgtty.h>
+#endif
+#include <sys/types.h>
+#include <sys/socket.h>
+#ifdef HAVE_SYS_GENTAPE_H /* e.g., ISC UNIX */
+#include <sys/gentape.h>
+#else
+#ifdef M_UNIX
+#include <sys/tape.h>
+#else
+#include <sys/mtio.h>
+#endif
+#endif
+#include <errno.h>
+
+/* Debian hack: gcc has exhibited problems loading fcntl.h. Therefore,
+ I removed the preprocessor conditionals here - BEM */
+#include <fcntl.h>
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#else
+long lseek ();
+#endif
+
+#ifdef STDC_HEADERS
+#include <string.h>
+#include <stdlib.h>
+#else
+extern char *malloc ();
+#endif
+
+#include <errno.h>
+#if !HAVE_DECL_STRERROR
+extern const char *strerror (int en);
+#endif
+
+int tape = -1;
+
+char *record;
+int maxrecsize = -1;
+char *checkbuf ();
+void getstring ();
+void error ();
+
+#define SSIZE 64
+char device[SSIZE];
+char count[SSIZE], mode[SSIZE], pos[SSIZE], op[SSIZE];
+
+char resp[BUFSIZ];
+
+FILE *debug;
+#define DEBUG(f) if (debug) fprintf(debug, f)
+#define DEBUG1(f,a) if (debug) fprintf(debug, f, a)
+#define DEBUG2(f,a1,a2) if (debug) fprintf(debug, f, a1, a2)
+
+#ifdef EXTENDED_RMT_PROTOCOL
+/*
+ * Support for Sun's extended RMT protocol
+ */
+#define RMTI_VERSION -1
+#define RMT_VERSION 1
+
+/* Extended 'i' commands */
+#define RMTI_CACHE 0
+#define RMTI_NOCACHE 1
+#define RMTI_RETEN 2
+#define RMTI_ERASE 3
+#define RMTI_EOM 4
+#define RMTI_NBSF 5
+
+/* Extended 's' comands */
+#define MTS_TYPE 'T'
+#define MTS_DSREG 'D'
+#define MTS_ERREG 'E'
+#define MTS_RESID 'R'
+#define MTS_FILENO 'F'
+#define MTS_BLKNO 'B'
+#define MTS_FLAGS 'f'
+#define MTS_BF 'b'
+#endif /* EXTENDED_RMT_PROTOCOL */
+
+static struct option gnu_options[] =
+ {
+ {"version", no_argument, 0, 'v'},
+ {"help", no_argument, 0, 'h'},
+ {0, 0, 0, 0}
+ };
+
+void
+rmt_help ()
+{
+ printf ("GNU rmt: remote magtape protocol module\n");
+ printf ("usage: rmt [debug_file]\n");
+}
+
+int
+main (argc, argv)
+ int argc;
+ char **argv;
+{
+ int rval;
+ char c;
+ int n, i, cc;
+
+ while ((c = getopt_long (argc, argv, "vh", gnu_options, &n)) != EOF)
+ switch (c) {
+ case 'v':
+ printf ("rmt (%s)\n", PACKAGE_STRING);
+ return 0;
+
+ case 'h':
+ rmt_help ();
+ return 0;
+ }
+
+ argc -= optind;
+ argv += optind;
+
+ if (argc > 0)
+ {
+ debug = fopen (*argv, "w");
+ if (debug == 0)
+ exit (1);
+ (void) setbuf (debug, (char *) 0);
+ }
+top:
+ errno = 0;
+ rval = 0;
+ if (read (0, &c, 1) != 1)
+ exit (0);
+ switch (c)
+ {
+
+ case 'O':
+ if (tape >= 0)
+ (void) close (tape);
+ getstring (device);
+ getstring (mode);
+ DEBUG2 ("rmtd: O %s %s\n", device, mode);
+#if defined (i386) && defined (AIX)
+ /* This is alleged to fix a byte ordering problem. */
+ /* I'm quite suspicious if it's right. -- mib */
+ {
+ int oflag = atoi (mode);
+ int nflag = 0;
+ if ((oflag & 3) == 0)
+ nflag |= O_RDONLY;
+ if (oflag & 1)
+ nflag |= O_WRONLY;
+ if (oflag & 2)
+ nflag |= O_RDWR;
+ if (oflag & 0x0008)
+ nflag |= O_APPEND;
+ if (oflag & 0x0200)
+ nflag |= O_CREAT;
+ if (oflag & 0x0400)
+ nflag |= O_TRUNC;
+ if (oflag & 0x0800)
+ nflag |= O_EXCL;
+ tape = open (device, nflag, 0666);
+ }
+#else
+ tape = open (device, atoi (mode), 0666);
+#endif
+ if (tape < 0)
+ goto ioerror;
+ goto respond;
+
+ case 'C':
+ DEBUG ("rmtd: C\n");
+ getstring (device); /* discard */
+ if (close (tape) < 0)
+ goto ioerror;
+ tape = -1;
+ goto respond;
+
+ case 'L':
+ getstring (count);
+ getstring (pos);
+ DEBUG2 ("rmtd: L %s %s\n", count, pos);
+ rval = lseek (tape, (long) atoi (count), atoi (pos));
+ if (rval < 0)
+ goto ioerror;
+ goto respond;
+
+ case 'W':
+ getstring (count);
+ n = atoi (count);
+ DEBUG1 ("rmtd: W %s\n", count);
+ record = checkbuf (record, n);
+ for (i = 0; i < n; i += cc)
+ {
+ cc = read (0, &record[i], n - i);
+ if (cc <= 0)
+ {
+ DEBUG ("rmtd: premature eof\n");
+ exit (2);
+ }
+ }
+ rval = write (tape, record, n);
+ if (rval < 0)
+ goto ioerror;
+ goto respond;
+
+ case 'R':
+ getstring (count);
+ DEBUG1 ("rmtd: R %s\n", count);
+ n = atoi (count);
+ record = checkbuf (record, n);
+ rval = read (tape, record, n);
+ if (rval < 0)
+ goto ioerror;
+ (void) sprintf (resp, "A%d\n", rval);
+ (void) write (1, resp, strlen (resp));
+ (void) write (1, record, rval);
+ goto top;
+
+ case 'I':
+ getstring (op);
+ getstring (count);
+ DEBUG2 ("rmtd: I %s %s\n", op, count);
+#ifdef EXTENDED_RMT_PROTOCOL
+ if (atoi(op) == RMTI_VERSION)
+ {
+ rval = RMT_VERSION;
+ }
+#endif /* EXTENDED_RMT_PROTOCOL */
+#ifdef MTIOCTOP
+#ifdef EXTENDED_RMT_PROTOCOL
+ else
+#endif /* EXTENDED_RMT_PROTOCOL */
+ {
+ struct mtop mtop;
+ mtop.mt_op = atoi (op);
+ mtop.mt_count = atoi (count);
+ if (ioctl (tape, MTIOCTOP, (char *) &mtop) < 0)
+ goto ioerror;
+ rval = mtop.mt_count;
+ }
+#endif
+ goto respond;
+
+#ifdef EXTENDED_RMT_PROTOCOL
+ case 'i':
+ {
+ struct mtop mtop;
+
+ getstring (op);
+ getstring (count);
+ DEBUG2 ("rmtd: i %s %s\n", op, count);
+ switch (atoi(op))
+ {
+#ifdef MTCACHE
+ case RMTI_CACHE:
+ mtop.mt_op = MTCACHE;
+ break;
+#endif
+#ifdef MTNOCACHE
+ case RMTI_NOCACHE:
+ mtop.mt_op = MTNOCACHE;
+ break;
+#endif
+#ifdef MTRETEN
+ case RMTI_RETEN:
+ mtop.mt_op = MTRETEN;
+ break;
+#endif
+#ifdef MTERASE
+ case RMTI_ERASE:
+ mtop.mt_op = MTERASE;
+ break;
+#endif
+#ifdef MTEOM
+ case RMTI_EOM:
+ mtop.mt_op = MTEOM;
+ break;
+#endif
+#ifdef MTNBSF
+ case RMTI_NBSF:
+ mtop.mt_op = MTNBSF;
+ break;
+#endif
+ default:
+ errno = EINVAL;
+ goto ioerror;
+ }
+#ifdef MTIOCTOP
+ mtop.mt_count = atoi (count);
+ if (ioctl (tape, MTIOCTOP, (char *) &mtop) < 0)
+ goto ioerror;
+ rval = mtop.mt_count;
+ }
+#endif
+ goto respond;
+#endif /* EXTENDED_RMT_PROTOCOL */
+
+ case 'S': /* status */
+ DEBUG ("rmtd: S\n");
+ {
+#ifdef MTIOCGET
+ struct mtget mtget;
+ if (ioctl (tape, MTIOCGET, (char *) &mtget) < 0)
+ goto ioerror;
+ rval = sizeof (mtget);
+ (void) sprintf (resp, "A%d\n", rval);
+ (void) write (1, resp, strlen (resp));
+ (void) write (1, (char *) &mtget, sizeof (mtget));
+#endif
+ goto top;
+ }
+
+#ifdef EXTENDED_RMT_PROTOCOL
+ case 's':
+ {
+ char s;
+ struct mtget mtget;
+
+ if (read (0, &s, 1) != 1)
+ goto top;
+
+#ifdef MTIOCGET
+ if (ioctl (tape, MTIOCGET, (char *) &mtget) < 0)
+ goto ioerror;
+#endif
+ switch (s)
+ {
+ case MTS_TYPE:
+ rval = mtget.mt_type;
+ break;
+
+ case MTS_DSREG:
+ rval = mtget.mt_dsreg;
+ break;
+
+ case MTS_ERREG:
+ rval = mtget.mt_erreg;
+ break;
+
+ case MTS_RESID:
+ rval = mtget.mt_resid;
+ break;
+
+ case MTS_FILENO:
+ rval = mtget.mt_fileno;
+ break;
+
+ case MTS_BLKNO:
+ rval = mtget.mt_blkno;
+ break;
+
+ case MTS_FLAGS:
+ rval = mtget.mt_gstat;
+ break;
+
+ case MTS_BF:
+ rval = 0;
+ break;
+
+ default:
+ errno = EINVAL;
+ goto ioerror;
+ }
+ goto respond;
+ }
+#endif /* EXTENDED_RMT_PROTOCOL */
+
+ default:
+ DEBUG1 ("rmtd: garbage command %c\n", c);
+ exit (3);
+ }
+respond:
+ DEBUG1 ("rmtd: A %d\n", rval);
+ (void) sprintf (resp, "A%d\n", rval);
+ (void) write (1, resp, strlen (resp));
+ goto top;
+ioerror:
+ error (errno);
+ goto top;
+}
+
+void
+getstring (bp)
+ char *bp;
+{
+ int i;
+ char *cp = bp;
+
+ for (i = 0; i < SSIZE; i++)
+ {
+ if (read (0, cp + i, 1) != 1)
+ exit (0);
+ if (cp[i] == '\n')
+ break;
+ }
+ cp[i] = '\0';
+}
+
+char *
+checkbuf (record, size)
+ char *record;
+ int size;
+{
+ if (size <= maxrecsize)
+ return (record);
+ if (record != 0)
+ free (record);
+ record = malloc (size);
+ if (record == 0)
+ {
+ DEBUG ("rmtd: cannot allocate buffer space\n");
+ exit (4);
+ }
+ maxrecsize = size;
+#ifdef SO_RCVBUF
+ while (size > 1024 &&
+ setsockopt (0, SOL_SOCKET, SO_RCVBUF, (char *) &size, sizeof (size)) < 0)
+ size -= 1024;
+#else
+ size = 1 + ((size - 1) % 1024);
+#endif
+ return (record);
+}
+
+void
+error (num)
+ int num;
+{
+
+/* Debian hack: rmt has problems on systems (such as the Hurd) where
+ sys_errlist is not available therefore I borrowed some code from
+ error.c to fix this problem. This has been reported to the upstream
+ maintainers. (7/22/99) - BEM */
+ DEBUG2 ("rmtd: E %d (%s)\n", num, strerror (num));
+ (void) sprintf (resp, "E%d\n%s\n", num, strerror (num));
+ (void) write (1, resp, strlen (resp));
+}

Return to:

Send suggestions and report system problems to the System administrator.