src/bniutils/fileio.c

/*
    Copyright (C) 2000  Marco Ziech (mmz@gmx.net)
    Copyright (C) 2000  Ross Combs (rocombs@cs.nmsu.edu)

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/
#include "common/setup_before.h"
#include <stdio.h>
#ifdef STDC_HEADERS
# include <stdlib.h>
#else
# ifdef HAVE_MALLOC_H
#  include <malloc.h>
# endif
#endif
#include "compat/uint.h"
#include "fileio.h"
#include "common/setup_after.h"

typedef struct t_file {
        FILE *f;
        struct t_file *next;
} t_file;

static t_file *r_file = NULL;
static t_file *w_file = NULL;

/* ----------------------------------------------------------------- */

extern void file_rpush(FILE *f) {
        t_file *tf = malloc(sizeof(t_file));
        tf->next = r_file;
        tf->f = f;
        r_file = tf;
        return;
}

extern void file_rpop(void) {
        t_file *tf;
        tf = r_file;
        r_file = tf->next;
        free(tf);
        return;
}

/* ----------------------------------------------------------------- */

extern void file_wpush(FILE *f) {
        t_file *tf = malloc(sizeof(t_file));
        tf->next = w_file;
        tf->f = f;
        w_file = tf;
        return;
}

extern void file_wpop(void) {
        t_file *tf;
        tf = w_file;
        w_file = tf->next;
        free(tf);
        return;
}

/* ----------------------------------------------------------------- */

extern t_uint8 file_readb(void) {
        unsigned char buff[1];
        if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
                if (ferror(r_file->f)) perror("file_readb: fread");
                return 0;
        }
        return (((t_uint8)buff[0])    );
}


extern t_uint16 file_readw_le(void) {
        unsigned char buff[2];
        if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
                if (ferror(r_file->f)) perror("file_readw_le: fread");
                return 0;
        }
        return (((t_uint16)buff[0])    )|
               (((t_uint16)buff[1])<< 8);
}


extern t_uint16 file_readw_be(void) {
        unsigned char buff[2];
        if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
                if (ferror(r_file->f)) perror("file_readw_be: fread");
                return 0;
        }
        return (((t_uint16)buff[0])<< 8)|
               (((t_uint16)buff[1])    );
}


extern t_uint32 file_readd_le(void) {
        unsigned char buff[4];
        if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
                if (ferror(r_file->f)) perror("file_readd_le: fread");
                return 0;
        }
        return (((t_uint32)buff[0])    )|
               (((t_uint32)buff[1])<< 8)|
               (((t_uint32)buff[2])<<16)|
               (((t_uint32)buff[3])<<24);
}


extern t_uint32 file_readd_be(void) {
        unsigned char buff[4];
        if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
                if (ferror(r_file->f)) perror("file_readd_be: fread");
                return 0;
        }
        return (((t_uint32)buff[0])<<24)|
               (((t_uint32)buff[1])<<16)|
               (((t_uint32)buff[2])<< 8)|
               (((t_uint32)buff[3])    );
}


extern int file_writeb(t_uint8 u) {
        unsigned char buff[1];
        buff[0] = (u   );
        if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
                if (ferror(w_file->f)) perror("file_writeb: fwrite");
                return -1;
        }
        return 0;
}


extern int file_writew_le(t_uint16 u) {
        unsigned char buff[2];
        buff[0] = (u    );
        buff[1] = (u>> 8);
        if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
                if (ferror(w_file->f)) perror("file_writew_le: fwrite");
                return -1;
        }
        return 0;
}


extern int file_writew_be(t_uint16 u) {
        unsigned char buff[2];
        buff[0] = (u>> 8);
        buff[1] = (u    );
        if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
                if (ferror(w_file->f)) perror("file_writew_be: fwrite");
                return -1;
        }
        return 0;
}


extern int file_writed_le(t_uint32 u) {
        unsigned char buff[4];
        buff[0] = (u    );
        buff[1] = (u>> 8);
        buff[2] = (u>>16);
        buff[3] = (u>>24);
        if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
                if (ferror(w_file->f)) perror("file_writed_le: fwrite");
                return -1;
        }
        return 0;
}


extern int file_writed_be(t_uint32 u) {
        unsigned char buff[4];
        buff[0] = (u>>24);
        buff[1] = (u>>16);
        buff[2] = (u>> 8);
        buff[3] = (u    );
        if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
                if (ferror(w_file->f)) perror("file_writed_be: fwrite");
                return -1;
        }
        return 0;
}
1	sysadm	1.1	/*
2			Copyright (C) 2000 Marco Ziech (mmz@gmx.net)
3			Copyright (C) 2000 Ross Combs (rocombs@cs.nmsu.edu)
4
5			This program is free software; you can redistribute it and/or modify
6			it under the terms of the GNU General Public License as published by
7			the Free Software Foundation; either version 2 of the License, or
8			(at your option) any later version.
9
10			This program is distributed in the hope that it will be useful,
11			but WITHOUT ANY WARRANTY; without even the implied warranty of
12			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13			GNU General Public License for more details.
14
15			You should have received a copy of the GNU General Public License
16			along with this program; if not, write to the Free Software
17			Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18			*/
19			#include "common/setup_before.h"
20			#include <stdio.h>
21			#ifdef STDC_HEADERS
22			# include <stdlib.h>
23			#else
24			# ifdef HAVE_MALLOC_H
25			# include <malloc.h>
26			# endif
27			#endif
28			#include "compat/uint.h"
29			#include "fileio.h"
30			#include "common/setup_after.h"
31
32			typedef struct t_file {
33			FILE *f;
34			struct t_file *next;
35			} t_file;
36
37			static t_file *r_file = NULL;
38			static t_file *w_file = NULL;
39
40			/* ----------------------------------------------------------------- */
41
42			extern void file_rpush(FILE *f) {
43			t_file *tf = malloc(sizeof(t_file));
44			tf->next = r_file;
45			tf->f = f;
46			r_file = tf;
47			return;
48			}
49
50			extern void file_rpop(void) {
51			t_file *tf;
52			tf = r_file;
53			r_file = tf->next;
54			free(tf);
55			return;
56			}
57
58			/* ----------------------------------------------------------------- */
59
60			extern void file_wpush(FILE *f) {
61			t_file *tf = malloc(sizeof(t_file));
62			tf->next = w_file;
63			tf->f = f;
64			w_file = tf;
65			return;
66			}
67
68			extern void file_wpop(void) {
69			t_file *tf;
70			tf = w_file;
71			w_file = tf->next;
72			free(tf);
73			return;
74			}
75
76			/* ----------------------------------------------------------------- */
77
78			extern t_uint8 file_readb(void) {
79			unsigned char buff[1];
80			if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
81			if (ferror(r_file->f)) perror("file_readb: fread");
82			return 0;
83			}
84			return (((t_uint8)buff[0]) );
85			}
86
87
88			extern t_uint16 file_readw_le(void) {
89			unsigned char buff[2];
90			if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
91			if (ferror(r_file->f)) perror("file_readw_le: fread");
92			return 0;
93			}
94			return (((t_uint16)buff[0]) )\|
95			(((t_uint16)buff[1])<< 8);
96			}
97
98
99			extern t_uint16 file_readw_be(void) {
100			unsigned char buff[2];
101			if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
102			if (ferror(r_file->f)) perror("file_readw_be: fread");
103			return 0;
104			}
105			return (((t_uint16)buff[0])<< 8)\|
106			(((t_uint16)buff[1]) );
107			}
108
109
110			extern t_uint32 file_readd_le(void) {
111			unsigned char buff[4];
112			if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
113			if (ferror(r_file->f)) perror("file_readd_le: fread");
114			return 0;
115			}
116			return (((t_uint32)buff[0]) )\|
117			(((t_uint32)buff[1])<< 8)\|
118			(((t_uint32)buff[2])<<16)\|
119			(((t_uint32)buff[3])<<24);
120			}
121
122
123			extern t_uint32 file_readd_be(void) {
124			unsigned char buff[4];
125			if (fread(buff,1,sizeof(buff),r_file->f) < sizeof(buff)) {
126			if (ferror(r_file->f)) perror("file_readd_be: fread");
127			return 0;
128			}
129			return (((t_uint32)buff[0])<<24)\|
130			(((t_uint32)buff[1])<<16)\|
131			(((t_uint32)buff[2])<< 8)\|
132			(((t_uint32)buff[3]) );
133			}
134
135
136			extern int file_writeb(t_uint8 u) {
137			unsigned char buff[1];
138			buff[0] = (u );
139			if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
140			if (ferror(w_file->f)) perror("file_writeb: fwrite");
141			return -1;
142			}
143			return 0;
144			}
145
146
147			extern int file_writew_le(t_uint16 u) {
148			unsigned char buff[2];
149			buff[0] = (u );
150			buff[1] = (u>> 8);
151			if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
152			if (ferror(w_file->f)) perror("file_writew_le: fwrite");
153			return -1;
154			}
155			return 0;
156			}
157
158
159			extern int file_writew_be(t_uint16 u) {
160			unsigned char buff[2];
161			buff[0] = (u>> 8);
162			buff[1] = (u );
163			if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
164			if (ferror(w_file->f)) perror("file_writew_be: fwrite");
165			return -1;
166			}
167			return 0;
168			}
169
170
171			extern int file_writed_le(t_uint32 u) {
172			unsigned char buff[4];
173			buff[0] = (u );
174			buff[1] = (u>> 8);
175			buff[2] = (u>>16);
176			buff[3] = (u>>24);
177			if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
178			if (ferror(w_file->f)) perror("file_writed_le: fwrite");
179			return -1;
180			}
181			return 0;
182			}
183
184
185			extern int file_writed_be(t_uint32 u) {
186			unsigned char buff[4];
187			buff[0] = (u>>24);
188			buff[1] = (u>>16);
189			buff[2] = (u>> 8);
190			buff[3] = (u );
191			if (fwrite(buff,1,sizeof(buff),w_file->f) < sizeof(buff)) {
192			if (ferror(w_file->f)) perror("file_writed_be: fwrite");
193			return -1;
194			}
195			return 0;
196			}
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1