DataMuseum.dk

top - metrics - download

    Length: 2172 (0x87c)
    Types: TextFile
    Names: »io.c«

└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./DVIware/laser-setters/quicspool/src/io.c« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z« 
        └─⟦ca79c7339⟧ 
            └─⟦this⟧ »DVIware/laser-setters/quicspool/src/io.c« 

TextFile

#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 <stdio.h>
#include <local/standard.h>
#include <ctype.h>

/* 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;
}