2000-05-28 13:40:48 +00:00
|
|
|
/*****************************************************************************/
|
|
|
|
/* */
|
2013-05-09 11:56:54 +00:00
|
|
|
/* fileio.c */
|
2000-05-28 13:40:48 +00:00
|
|
|
/* */
|
2013-05-09 11:56:54 +00:00
|
|
|
/* File I/O for the ar65 archiver */
|
2000-05-28 13:40:48 +00:00
|
|
|
/* */
|
|
|
|
/* */
|
|
|
|
/* */
|
2003-11-28 22:12:14 +00:00
|
|
|
/* (C) 1998-2003 Ullrich von Bassewitz */
|
2014-06-30 09:10:35 +00:00
|
|
|
/* Roemerstrasse 52 */
|
2003-11-28 22:12:14 +00:00
|
|
|
/* D-70794 Filderstadt */
|
|
|
|
/* EMail: uz@cc65.org */
|
2000-05-28 13:40:48 +00:00
|
|
|
/* */
|
|
|
|
/* */
|
|
|
|
/* This software is provided 'as-is', without any expressed or implied */
|
|
|
|
/* warranty. In no event will the authors be held liable for any damages */
|
|
|
|
/* arising from the use of this software. */
|
|
|
|
/* */
|
|
|
|
/* Permission is granted to anyone to use this software for any purpose, */
|
|
|
|
/* including commercial applications, and to alter it and redistribute it */
|
|
|
|
/* freely, subject to the following restrictions: */
|
|
|
|
/* */
|
|
|
|
/* 1. The origin of this software must not be misrepresented; you must not */
|
|
|
|
/* claim that you wrote the original software. If you use this software */
|
|
|
|
/* in a product, an acknowledgment in the product documentation would be */
|
|
|
|
/* appreciated but is not required. */
|
|
|
|
/* 2. Altered source versions must be plainly marked as such, and must not */
|
|
|
|
/* be misrepresented as being the original software. */
|
|
|
|
/* 3. This notice may not be removed or altered from any source */
|
|
|
|
/* distribution. */
|
|
|
|
/* */
|
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#include <string.h>
|
|
|
|
|
2000-08-02 13:23:06 +00:00
|
|
|
/* common */
|
|
|
|
#include "xmalloc.h"
|
2000-06-14 09:38:07 +00:00
|
|
|
|
2000-08-02 13:23:06 +00:00
|
|
|
/* ar65 */
|
2000-05-28 13:40:48 +00:00
|
|
|
#include "error.h"
|
|
|
|
#include "fileio.h"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
2013-05-09 11:56:54 +00:00
|
|
|
/* Code */
|
2000-05-28 13:40:48 +00:00
|
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void Write8 (FILE* F, unsigned char Val)
|
|
|
|
/* Write an 8 bit value to the file */
|
|
|
|
{
|
|
|
|
if (putc (Val, F) == EOF) {
|
2013-05-09 11:56:54 +00:00
|
|
|
Error ("Write error (disk full?)");
|
2000-05-28 13:40:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void Write16 (FILE* F, unsigned Val)
|
|
|
|
/* Write a 16 bit value to the file */
|
|
|
|
{
|
|
|
|
Write8 (F, (unsigned char) Val);
|
|
|
|
Write8 (F, (unsigned char) (Val >> 8));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void Write32 (FILE* F, unsigned long Val)
|
|
|
|
/* Write a 32 bit value to the file */
|
|
|
|
{
|
|
|
|
Write8 (F, (unsigned char) Val);
|
|
|
|
Write8 (F, (unsigned char) (Val >> 8));
|
|
|
|
Write8 (F, (unsigned char) (Val >> 16));
|
|
|
|
Write8 (F, (unsigned char) (Val >> 24));
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2000-08-02 13:23:06 +00:00
|
|
|
void WriteVar (FILE* F, unsigned long V)
|
|
|
|
/* Write a variable sized value to the file in special encoding */
|
|
|
|
{
|
|
|
|
/* We will write the value to the file in 7 bit chunks. If the 8th bit
|
2014-06-30 09:10:35 +00:00
|
|
|
** is clear, we're done, if it is set, another chunk follows. This will
|
|
|
|
** allow us to encode smaller values with less bytes, at the expense of
|
|
|
|
** needing 5 bytes if a 32 bit value is written to file.
|
|
|
|
*/
|
2000-08-02 13:23:06 +00:00
|
|
|
do {
|
2013-05-09 11:56:54 +00:00
|
|
|
unsigned char C = (V & 0x7F);
|
|
|
|
V >>= 7;
|
|
|
|
if (V) {
|
|
|
|
C |= 0x80;
|
|
|
|
}
|
|
|
|
Write8 (F, C);
|
2000-08-02 13:23:06 +00:00
|
|
|
} while (V != 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
void WriteStr (FILE* F, const char* S)
|
|
|
|
/* Write a string to the file */
|
|
|
|
{
|
|
|
|
unsigned Len = strlen (S);
|
2000-08-02 13:23:06 +00:00
|
|
|
WriteVar (F, Len);
|
2000-05-28 13:40:48 +00:00
|
|
|
WriteData (F, S, Len);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void WriteData (FILE* F, const void* Data, unsigned Size)
|
|
|
|
/* Write data to the file */
|
|
|
|
{
|
|
|
|
if (fwrite (Data, 1, Size, F) != Size) {
|
2013-05-09 11:56:54 +00:00
|
|
|
Error ("Write error (disk full?)");
|
2000-05-28 13:40:48 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
unsigned Read8 (FILE* F)
|
|
|
|
/* Read an 8 bit value from the file */
|
|
|
|
{
|
|
|
|
int C = getc (F);
|
|
|
|
if (C == EOF) {
|
2013-05-09 11:56:54 +00:00
|
|
|
Error ("Read error (file corrupt?)");
|
2000-05-28 13:40:48 +00:00
|
|
|
}
|
|
|
|
return C;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
unsigned Read16 (FILE* F)
|
|
|
|
/* Read a 16 bit value from the file */
|
|
|
|
{
|
|
|
|
unsigned Lo = Read8 (F);
|
|
|
|
unsigned Hi = Read8 (F);
|
|
|
|
return (Hi << 8) | Lo;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
unsigned long Read32 (FILE* F)
|
|
|
|
/* Read a 32 bit value from the file */
|
|
|
|
{
|
|
|
|
unsigned long Lo = Read16 (F);
|
|
|
|
unsigned long Hi = Read16 (F);
|
|
|
|
return (Hi << 16) | Lo;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2000-08-02 13:23:06 +00:00
|
|
|
unsigned long ReadVar (FILE* F)
|
|
|
|
/* Read a variable size value from the file */
|
|
|
|
{
|
|
|
|
/* The value was written to the file in 7 bit chunks LSB first. If there
|
2014-06-30 09:10:35 +00:00
|
|
|
** are more bytes, bit 8 is set, otherwise it is clear.
|
|
|
|
*/
|
2000-08-02 13:23:06 +00:00
|
|
|
unsigned char C;
|
|
|
|
unsigned long V = 0;
|
|
|
|
unsigned Shift = 0;
|
|
|
|
do {
|
2013-05-09 11:56:54 +00:00
|
|
|
/* Read one byte */
|
|
|
|
C = Read8 (F);
|
|
|
|
/* Encode it into the target value */
|
|
|
|
V |= ((unsigned long)(C & 0x7F)) << Shift;
|
|
|
|
/* Next value */
|
|
|
|
Shift += 7;
|
2000-08-02 13:23:06 +00:00
|
|
|
} while (C & 0x80);
|
|
|
|
|
|
|
|
/* Return the value read */
|
|
|
|
return V;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
char* ReadStr (FILE* F)
|
|
|
|
/* Read a string from the file (the memory will be malloc'ed) */
|
|
|
|
{
|
2000-08-02 13:23:06 +00:00
|
|
|
/* Read the length */
|
|
|
|
unsigned Len = ReadVar (F);
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
/* Allocate memory and read the string itself */
|
2000-06-14 09:38:07 +00:00
|
|
|
char* S = xmalloc (Len + 1);
|
2000-05-28 13:40:48 +00:00
|
|
|
ReadData (F, S, Len);
|
|
|
|
|
|
|
|
/* Terminate the string and return it */
|
|
|
|
S [Len] = '\0';
|
|
|
|
return S;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void* ReadData (FILE* F, void* Data, unsigned Size)
|
|
|
|
/* Read data from the file */
|
|
|
|
{
|
|
|
|
if (fread (Data, 1, Size, F) != Size) {
|
2013-05-09 11:56:54 +00:00
|
|
|
Error ("Read error (file corrupt?)");
|
2000-05-28 13:40:48 +00:00
|
|
|
}
|
|
|
|
return Data;
|
|
|
|
}
|