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/src/io.c | 104 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100644 dviware/quicspool/src/io.c (limited to 'dviware/quicspool/src/io.c') diff --git a/dviware/quicspool/src/io.c b/dviware/quicspool/src/io.c new file mode 100644 index 0000000000..b1043cda50 --- /dev/null +++ b/dviware/quicspool/src/io.c @@ -0,0 +1,104 @@ +#ifndef lint +static char *rcs = "$Header: io.c,v 1.1 88/01/15 13:04:20 simpson Rel $"; +#endif +/* +$Log: io.c,v $ + * Revision 1.1 88/01/15 13:04:20 simpson + * initial release + * + * Revision 0.1 87/12/11 18:30:59 simpson + * beta test + * +*/ +/* General I/O routines */ + +#include +#include +#include + +/* Reads n bytes from file f into an unsigned long. The cgetc() routine is used + * so an appropriate error routine will need to be selected. */ +unsigned long uinteger(f, bytes) +FILE *f; +int bytes; +{ + int i; + long n = 0; + + for (i = 0; i < bytes; i++) + n = n << 8 | cgetc(f); + return n; +} + +/* Reads n bytes from file f into a long. The cgetc() routine is used so + * an appropriate error routine will need to be selected. */ +long integer(f, bytes) +FILE *f; +int bytes; +{ + int i; + long n = 0; + + for (i = 0; i < bytes; i++) { + n = n << 8 | cgetc(f); + if (i == 0 && n & 0x80) + n = n | ~0x7f; + } + return n; +} + +/* Gets the next character from the input that is not a space character. + * It calls cgetc() on EOF so the EOF function should be set appropriately. + */ +int getnonblank(f) +FILE *f; +{ + int c; + + while (isspace(c = cgetc(f))) + ; + return c; +} + +/* Gets the next integer from the input and returns its value. It calls + * cgetc() on EOF so the EOF function should be set appropriately. + */ +int getinteger(f) +FILE *f; +{ + int c, i = 0; + Boolean negative = FALSE; + + while (isspace(c = cgetc(f))) + ; + if (c == '-') { + negative = TRUE; + c = cgetc(f); + } + while ('0' <= c && c <= '9') { + i = i * 10 + c - '0'; + c = cgetc(f); + } + (void)ungetc(c, f); + if (negative) + i = -i; + return i; +} + +/* Reads the next blank delineated string from the file. It calls cgetc() + * so an EOF function should be set appropriately. The return value is static + * and is overwritten with each call. + */ +char *getstring(f) +FILE *f; +{ + static char buf[81]; + int c; + + c = getnonblank(f); + buf[0] = c, buf[1] = '\0'; + while (!isspace(c = cgetc(f))) + buf[strlen(buf)+1] = '\0', buf[strlen(buf)] = c; + (void)ungetc(c, f); + return buf; +} -- cgit v1.2.3