/* fileio.c : a small library to abstract file I/O for binary data. */
/* This software is PUBLIC DOMAIN as of January 2006. No copyright is claimed.
 * - Jon Mayo <jmayo@rm-f.net> */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include "byte_order.h"
#include "fileio.h"

int read_u1(FILE *f, const char *filename, size_t len, uint8_t *u1) {
	int res;	
	res=fread(u1, sizeof *u1, len, f);
	if(res<0) 
		perror(filename);
	return res==len;
}

int read_asciiz(FILE *f, const char *filename, size_t max, char *str) {
	int res;	
	int len;	
	len=0;
	do {
		res=fgetc(f);
		if(res<0) {
			perror(filename);
			return 0;
		} 
		str[len++]=res;
	} while(len<max && res);
	return res==0;
}

int read_u2le(FILE *f, const char *filename, size_t len, uint16_t *u2) {
	int res;	
	res=fread(u2, sizeof *u2, len, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u2[i]=LE16(u2[i]);
    }
	return res==len;
}

int read_u2be(FILE *f, const char *filename, size_t len, uint16_t *u2) {
	int res;	
	res=fread(u2, sizeof *u2, len, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u2[i]=BE16(u2[i]);
    }
	return res==len;
}

int read_u4le(FILE *f, const char *filename, uint32_t *u4) {
	int res;
	res=fread(u4, sizeof *u4, 1, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u4[i]=LE32(u4[i]);
    }
	return res==1;
}

int read_u4be(FILE *f, const char *filename, uint32_t *u4) {
	int res;
	res=fread(u4, sizeof *u4, 1, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u4[i]=BE32(u4[i]);
    }
	return res==1;
}

int read_u8le(FILE *f, const char *filename, uint64_t *u8) {
	int res;
	res=fread(u8, sizeof *u8, 1, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u8[i]=LE64(u8[i]);
    }
	return res==1;
}

int read_u8be(FILE *f, const char *filename, uint64_t *u8) {
	int res;
	res=fread(u8, sizeof *u8, 1, f);
	if(res<0) 
		perror(filename);
	else {
        int i;
        for(i=0;i<res;i++) 
            u8[i]=BE64(u8[i]);
    }
	return res==1;
}

/* 
#if !defined __STDC_IEC_559__ || !__STDC_IEC_559__
#error You must have __STDC_IEC_559__ for this program to work
#endif
*/
int read_fle(FILE *f, const char *filename, float *fl) {
	return read_u4le(f, filename, (uint32_t*)fl);
}

int read_dle(FILE *f, const char *filename, double *dl) {
	return read_u8le(f, filename, (uint64_t*)dl);
}
int read_fbe(FILE *f, const char *filename, float *fl) {
	return read_u4be(f, filename, (uint32_t*)fl);
}

int read_dbe(FILE *f, const char *filename, double *dl) {
	return read_u8be(f, filename, (uint64_t*)dl);
}