summaryrefslogtreecommitdiff
path: root/dviware/quicspool/src/io.c
blob: b1043cda506fac77d313a6f2ba0cd3488f65d74b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
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 <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;
}