From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- dviware/quicspool/libtrw/getopt.c | 61 +++++++++++++++++++++++++++++++++++ dviware/quicspool/libtrw/makefile | 23 +++++++++++++ dviware/quicspool/libtrw/makefile.trw | 23 +++++++++++++ dviware/quicspool/libtrw/shift.c | 39 ++++++++++++++++++++++ 4 files changed, 146 insertions(+) create mode 100644 dviware/quicspool/libtrw/getopt.c create mode 100644 dviware/quicspool/libtrw/makefile create mode 100644 dviware/quicspool/libtrw/makefile.trw create mode 100644 dviware/quicspool/libtrw/shift.c (limited to 'dviware/quicspool/libtrw') 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 + +/* + * 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 + +/* + * 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); +} -- cgit v1.2.3