summaryrefslogtreecommitdiff
path: root/dviware/quicspool/libtrw
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/quicspool/libtrw
Initial commit
Diffstat (limited to 'dviware/quicspool/libtrw')
-rw-r--r--dviware/quicspool/libtrw/getopt.c61
-rw-r--r--dviware/quicspool/libtrw/makefile23
-rw-r--r--dviware/quicspool/libtrw/makefile.trw23
-rw-r--r--dviware/quicspool/libtrw/shift.c39
4 files changed, 146 insertions, 0 deletions
diff --git a/dviware/quicspool/libtrw/getopt.c b/dviware/quicspool/libtrw/getopt.c
new file mode 100644
index 0000000000..b81dc931c3
--- /dev/null
+++ b/dviware/quicspool/libtrw/getopt.c
@@ -0,0 +1,61 @@
+static char *rcs = "$Header: getopt.c,v 1.1 88/01/15 12:56:30 simpson Rel $";
+/*
+$Log: getopt.c,v $
+ * Revision 1.1 88/01/15 12:56:30 simpson
+ * initial release
+ *
+ * Revision 0.1 87/12/11 17:14:09 simpson
+ * beta test
+ *
+*/
+#include <stdio.h>
+
+/*
+ * get option letter from argument vector
+ */
+int opterr = 1, /* useless, never set or used */
+ optind = 1, /* index into parent argv vector */
+ optopt; /* character checked for validity */
+char *optarg; /* argument associated with option */
+
+#define BADCH (int)'?'
+#define EMSG ""
+#define tell(s) fputs(*nargv,stderr);fputs(s,stderr); \
+ fputc(optopt,stderr);fputc('\n',stderr);return(BADCH);
+
+getopt(nargc,nargv,ostr)
+int nargc;
+char **nargv,
+ *ostr;
+{
+ static char *place = EMSG; /* option letter processing */
+ register char *oli; /* option letter list index */
+ char *index();
+
+ if(!*place) { /* update scanning pointer */
+ if(optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) return(EOF);
+ if (*place == '-') { /* found "--" */
+ ++optind;
+ return(EOF);
+ }
+ } /* option letter okay? */
+ if ((optopt = (int)*place++) == (int)':' || !(oli = index(ostr,optopt))) {
+ if(!*place) ++optind;
+ tell(": illegal option -- ");
+ }
+ if (*++oli != ':') { /* don't need argument */
+ optarg = NULL;
+ if (!*place) ++optind;
+ }
+ else { /* need an argument */
+ if (*place) optarg = place; /* no white space */
+ else if (nargc <= ++optind) { /* no arg */
+ place = EMSG;
+ tell(": option requires an argument -- ");
+ }
+ else optarg = nargv[optind]; /* white space */
+ place = EMSG;
+ ++optind;
+ }
+ return(optopt); /* dump back option letter */
+}
diff --git a/dviware/quicspool/libtrw/makefile b/dviware/quicspool/libtrw/makefile
new file mode 100644
index 0000000000..9ae6b43e4c
--- /dev/null
+++ b/dviware/quicspool/libtrw/makefile
@@ -0,0 +1,23 @@
+# $Header: Makefile,v 1.1 88/01/15 12:56:26 simpson Rel $
+# $Log: Makefile,v $
+#Revision 1.1 88/01/15 12:56:26 simpson
+#initial release
+#
+#Revision 0.1 87/12/11 17:24:03 simpson
+#beta test
+#
+LIB=/usr/local/lib
+
+all: libtrw.a
+
+configure:
+
+libtrw.a: shift.o getopt.o
+ ar cr libtrw.a shift.o getopt.o
+ ranlib libtrw.a
+
+clean:
+ -rm -f *.o libtrw.a
+
+install: all
+ install -m 644 libtrw.a $(LIB)
diff --git a/dviware/quicspool/libtrw/makefile.trw b/dviware/quicspool/libtrw/makefile.trw
new file mode 100644
index 0000000000..2d6cf74f34
--- /dev/null
+++ b/dviware/quicspool/libtrw/makefile.trw
@@ -0,0 +1,23 @@
+# $Header: Makefile.TRW,v 1.1 88/01/15 12:56:29 simpson Rel $
+# $Log: Makefile.TRW,v $
+#Revision 1.1 88/01/15 12:56:29 simpson
+#initial release
+#
+#Revision 0.1 87/12/11 17:24:04 simpson
+#beta test
+#
+LIB=/usr/local/lib
+
+all: libtrw.a
+
+configure:
+
+libtrw.a: shift.o getopt.o
+ ar cr libtrw.a shift.o getopt.o
+ ranlib libtrw.a
+
+clean:
+ -rm -f *.o libtrw.a
+
+install: all
+ install -m 644 libtrw.a $(LIB)
diff --git a/dviware/quicspool/libtrw/shift.c b/dviware/quicspool/libtrw/shift.c
new file mode 100644
index 0000000000..71372f55d0
--- /dev/null
+++ b/dviware/quicspool/libtrw/shift.c
@@ -0,0 +1,39 @@
+static char *rcs = "$Header: shift.c,v 1.1 88/01/15 12:56:32 simpson Rel $";
+/*
+$Log: shift.c,v $
+ * Revision 1.1 88/01/15 12:56:32 simpson
+ * initial release
+ *
+ * Revision 0.1 87/12/11 17:14:10 simpson
+ * beta test
+ *
+*/
+#include <ctype.h>
+
+/*
+ * Downshifts a string in place.
+ */
+char *string_downshift(s)
+char *s;
+{
+
+ register char *x = s;
+ for (; *x; x++)
+ if (isupper(*x))
+ *x = tolower(*x);
+ return(s);
+}
+
+/*
+ * Upshifts a string in place.
+ */
+char *string_upshift(s)
+char *s;
+{
+
+ register char *x = s;
+ for (; *x; x++)
+ if (islower(*x))
+ *x = toupper(*x);
+ return(s);
+}