src/common/portio.c

#ifndef lint
static const char       RCSid[] = "$Id: portio.c,v 2.10 2003/12/09 15:51:42 greg Exp $";
#endif
/*
 * Portable i/o for binary files
 *
 * External symbols declared in standard.h
 */

#include "copyright.h"

#include <stdio.h>

#include "rtio.h"

#include <math.h>

#ifdef getc_unlocked            /* avoid horrendous overhead of flockfile */
#undef getc
#undef putc
#define getc    getc_unlocked
#define putc    putc_unlocked
#endif


void
putstr(s, fp)                   /* write null-terminated string to fp */
register char  *s;
register FILE  *fp;
{
        do
                putc(*s, fp);
        while (*s++);
}


void
putint(i, siz, fp)              /* write a siz-byte integer to fp */
long  i;
register int  siz;
register FILE  *fp;
{
        while (siz--)
                putc((int)(i>>(siz<<3) & 0xff), fp);
}


void
putflt(f, fp)                   /* put out floating point number */
double  f;
FILE  *fp;
{
        int  e;

        putint((long)(frexp(f,&e)*0x7fffffff), 4, fp);
        putint((long)e, 1, fp);
}


char *
getstr(s, fp)                   /* get null-terminated string */
char  *s;
register FILE  *fp;
{
        register char  *cp;
        register int  c;

        cp = s;
        while ((c = getc(fp)) != EOF)
                if ((*cp++ = c) == '\0')
                        return(s);
                
        return(NULL);
}


long
getint(siz, fp)                 /* get a siz-byte integer */
int  siz;
register FILE  *fp;
{
        register int  c;
        register long  r;

        if ((c = getc(fp)) == EOF)
                return(EOF);
        r = 0x80&c ? -1<<8|c : c;               /* sign extend */
        while (--siz > 0) {
                if ((c = getc(fp)) == EOF)
                        return(EOF);
                r <<= 8;
                r |= c;
        }
        return(r);
}


double
getflt(fp)                      /* get a floating point number */
FILE  *fp;
{
        long    l;
        double  d;

        l = getint(4, fp);
        d = (l + (l > 0 ? .5 : -.5)) * (1./0x7fffffff);
        return(ldexp(d, (int)getint(1, fp)));
}
Revision:	2.11
Committed:	Tue Sep 14 02:53:50 2004 UTC (21 years, 1 month ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R6, rad3R6P1
Changes since 2.10:	+3 -1 lines
Log Message:	Added #undef for getc/putc where they were being replaced
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.11	static const char RCSid[] = "$Id: portio.c,v 2.10 2003/12/09 15:51:42 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Portable i/o for binary files
6	greg	2.6	*
7			* External symbols declared in standard.h
8			*/
9
10	greg	2.7	#include "copyright.h"
11	greg	2.1
12			#include <stdio.h>
13	schorsch	2.8
14			#include "rtio.h"
15	greg	2.1
16	greg	2.9	#include <math.h>
17	greg	2.10
18			#ifdef getc_unlocked /* avoid horrendous overhead of flockfile */
19	greg	2.11	#undef getc
20			#undef putc
21	greg	2.10	#define getc getc_unlocked
22			#define putc putc_unlocked
23			#endif
24	greg	2.1
25	greg	2.3
26	greg	2.6	void
27	greg	2.1	putstr(s, fp) /* write null-terminated string to fp */
28			register char *s;
29			register FILE *fp;
30			{
31			do
32			putc(*s, fp);
33			while (*s++);
34			}
35
36
37	greg	2.6	void
38	greg	2.1	putint(i, siz, fp) /* write a siz-byte integer to fp */
39			long i;
40			register int siz;
41			register FILE *fp;
42			{
43			while (siz--)
44	greg	2.2	putc((int)(i>>(siz<<3) & 0xff), fp);
45	greg	2.1	}
46
47
48	greg	2.6	void
49	greg	2.1	putflt(f, fp) /* put out floating point number */
50	greg	2.2	double f;
51			FILE *fp;
52	greg	2.1	{
53			int e;
54
55			putint((long)(frexp(f,&e)*0x7fffffff), 4, fp);
56			putint((long)e, 1, fp);
57			}
58
59
60			char *
61			getstr(s, fp) /* get null-terminated string */
62			char *s;
63			register FILE *fp;
64			{
65			register char *cp;
66			register int c;
67
68			cp = s;
69			while ((c = getc(fp)) != EOF)
70			if ((*cp++ = c) == '\0')
71			return(s);
72
73			return(NULL);
74			}
75
76
77			long
78			getint(siz, fp) /* get a siz-byte integer */
79			int siz;
80			register FILE *fp;
81			{
82			register int c;
83			register long r;
84
85			if ((c = getc(fp)) == EOF)
86			return(EOF);
87			r = 0x80&c ? -1<<8\|c : c; /* sign extend */
88			while (--siz > 0) {
89			if ((c = getc(fp)) == EOF)
90			return(EOF);
91			r <<= 8;
92			r \|= c;
93			}
94			return(r);
95			}
96
97
98			double
99			getflt(fp) /* get a floating point number */
100			FILE *fp;
101			{
102	greg	2.5	long l;
103	greg	2.2	double d;
104	greg	2.1
105	greg	2.5	l = getint(4, fp);
106			d = (l + (l > 0 ? .5 : -.5)) * (1./0x7fffffff);
107	greg	2.1	return(ldexp(d, (int)getint(1, fp)));
108			}