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