fix: some file didn't have the svn:eol-style native yet
This commit is contained in:
erwin.coumans
@@ -1,233 +1,233 @@
|
||||
/*---------------------------------------------------------------------*
|
||||
* IFFCheck.C Print out the structure of an IFF-85 file, 11/19/85
|
||||
* checking for structural errors.
|
||||
*
|
||||
* DO NOT USE THIS AS A SKELETAL PROGRAM FOR AN IFF READER!
|
||||
* See ShowILBM.C for a skeletal example.
|
||||
*
|
||||
* Original version was for the Commodore-Amiga computer.
|
||||
/* This version is compatible with PC, OSX, PS3, Wii, iPhone. 10/26/2008
|
||||
*----------------------------------------------------------------------*/
|
||||
|
||||
#include "iff.h"
|
||||
#include "stdlib.h" //for exit
|
||||
|
||||
/* ---------- IFFCheck -------------------------------------------------*/
|
||||
/* [TBD] More extensive checking could be done on the IDs encountered in the
|
||||
* file. Check that the reserved IDs "FOR1".."FOR9", "LIS1".."LIS9", and
|
||||
* "CAT1".."CAT9" aren't used. Check that reserved IDs aren't used as Form
|
||||
* types. Check that all IDs are made of 4 printable characters (trailing
|
||||
* spaces ok). */
|
||||
|
||||
typedef struct {
|
||||
ClientFrame clientFrame;
|
||||
int levels; /* # groups currently nested within.*/
|
||||
} Frame;
|
||||
|
||||
char MsgOkay[] = { "----- (IFF_OKAY) A good IFF file." };
|
||||
char MsgEndMark[] = {"----- (END_MARK) How did you get this message??" };
|
||||
char MsgDone[] = { "----- (IFF_DONE) How did you get this message??" };
|
||||
char MsgDos[] = { "----- (DOS_ERROR) The DOS gave back an error." };
|
||||
char MsgNot[] = { "----- (NOT_IFF) not an IFF file." };
|
||||
char MsgNoFile[] = { "----- (NO_FILE) no such file found." };
|
||||
char MsgClientError[] = {"----- (CLIENT_ERROR) IFF Checker bug."};
|
||||
char MsgForm[] = { "----- (BAD_FORM) How did you get this message??" };
|
||||
char MsgShort[] = { "----- (SHORT_CHUNK) How did you get this message??" };
|
||||
char MsgBad[] = { "----- (BAD_IFF) a mangled IFF file." };
|
||||
|
||||
/* MUST GET THESE IN RIGHT ORDER!!*/
|
||||
char *IFFPMessages[-LAST_ERROR+1] = {
|
||||
/*IFF_OKAY*/ MsgOkay,
|
||||
/*END_MARK*/ MsgEndMark,
|
||||
/*IFF_DONE*/ MsgDone,
|
||||
/*DOS_ERROR*/ MsgDos,
|
||||
/*NOT_IFF*/ MsgNot,
|
||||
/*NO_FILE*/ MsgNoFile,
|
||||
/*CLIENT_ERROR*/ MsgClientError,
|
||||
/*BAD_FORM*/ MsgForm,
|
||||
/*SHORT_CHUNK*/ MsgShort,
|
||||
/*BAD_IFF*/ MsgBad
|
||||
};
|
||||
|
||||
/* FORWARD REFERENCES */
|
||||
extern IFFP GetList(GroupContext*);
|
||||
extern IFFP GetForm(GroupContext*);
|
||||
extern IFFP GetProp(GroupContext*);
|
||||
extern IFFP GetCat (GroupContext*);
|
||||
|
||||
void IFFCheck(char *name)
|
||||
{
|
||||
IFFP iffp;
|
||||
BPTR file = fopen(name,"rb");//Open(name, MODE_OLDFILE);
|
||||
Frame frame;
|
||||
|
||||
frame.levels = 0;
|
||||
frame.clientFrame.getList = GetList;
|
||||
frame.clientFrame.getForm = GetForm;
|
||||
frame.clientFrame.getProp = GetProp;
|
||||
frame.clientFrame.getCat = GetCat ;
|
||||
|
||||
printf("----- Checking file '%s' -----\n", name);
|
||||
if (file == 0)
|
||||
iffp = NO_FILE;
|
||||
else
|
||||
iffp = ReadIFF(file, (ClientFrame *)&frame);
|
||||
|
||||
fclose(file);
|
||||
printf("%s\n", IFFPMessages[-iffp]);
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
if (argc != 1+1) {
|
||||
printf("Usage: 'iffcheck filename'\n");
|
||||
exit(0);
|
||||
}
|
||||
IFFCheck(argv[1]);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* ---------- Put... ---------------------------------------------------*/
|
||||
|
||||
void PutLevels(int count)
|
||||
{
|
||||
for ( ; count > 0; --count) {
|
||||
printf(".");
|
||||
}
|
||||
}
|
||||
|
||||
void PutID(int id)
|
||||
{
|
||||
long int i = 1;
|
||||
const char *p = (const char *) &i;
|
||||
if (p[0] == 1) // Lowest address contains the least significant byte
|
||||
{
|
||||
//little endian machine
|
||||
printf("%c%c%c%c ", (char)(id&0x7f) , (char)(id>>8)&0x7f,
|
||||
(char)(id>>16)&0x7f, (char)(id>>24)&0x7f);
|
||||
} else
|
||||
{
|
||||
//big endian machine
|
||||
printf("%c%c%c%c ", (char)(id>>24)&0x7f, (char)(id>>16)&0x7f,
|
||||
(char)(id>>8)&0x7f, (char)(id&0x7f));
|
||||
}
|
||||
/* printf("id = %lx", id); */
|
||||
}
|
||||
|
||||
void PutN(long n)
|
||||
{
|
||||
printf(" %ld ", n);
|
||||
}
|
||||
|
||||
/* Put something like "...BMHD 14" or "...LIST 14 PLBM". */
|
||||
void PutHdr(GroupContext *context)
|
||||
{
|
||||
PutLevels( ((Frame *)context->clientFrame)->levels );
|
||||
PutID(context->ckHdr.ckID);
|
||||
PutN(context->ckHdr.ckSize);
|
||||
|
||||
if (context->subtype != NULL_CHUNK)
|
||||
PutID(context->subtype);
|
||||
|
||||
printf("\n");
|
||||
}
|
||||
|
||||
/* ---------- AtLeaf ---------------------------------------------------*/
|
||||
|
||||
/* At Leaf chunk. That is, a chunk which does NOT contain other chunks.
|
||||
* Print "int size".*/
|
||||
IFFP AtLeaf(GroupContext *context)
|
||||
{
|
||||
|
||||
PutHdr(context);
|
||||
/* A typical reader would read the chunk's contents, using the "Frame"
|
||||
* for local data, esp. shared property settings (PROP).*/
|
||||
/* IFFReadBytes(context, ...buffer, context->ckHdr->ckSize); */
|
||||
return(IFF_OKAY);
|
||||
}
|
||||
|
||||
/* ---------- GetList --------------------------------------------------*/
|
||||
/* Handle a LIST chunk. Print "LIST size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetList(GroupContext *parent)
|
||||
{
|
||||
Frame newFrame;
|
||||
|
||||
newFrame = *(Frame *)parent->clientFrame; /* copy parent's frame*/
|
||||
newFrame.levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
return( ReadIList(parent, (ClientFrame *)&newFrame) );
|
||||
}
|
||||
|
||||
/* ---------- GetForm --------------------------------------------------*/
|
||||
/* Handle a FORM chunk. Print "FORM size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetForm(GroupContext *parent)
|
||||
{
|
||||
/*CompilerBug register*/ IFFP iffp;
|
||||
GroupContext newptr;
|
||||
Frame newFrame;
|
||||
|
||||
newFrame = *(Frame *)parent->clientFrame; /* copy parent's frame*/
|
||||
newFrame.levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
iffp = OpenRGroup(parent, &newptr);
|
||||
CheckIFFP();
|
||||
newptr.clientFrame = (ClientFrame *)&newFrame;
|
||||
|
||||
/* FORM reader for Checker. */
|
||||
/* LIST, FORM, PROP, CAT already handled by GetF1ChunkHdr. */
|
||||
do {if ( (iffp = GetF1ChunkHdr(&newptr)) > 0 )
|
||||
iffp = AtLeaf(&newptr);
|
||||
} while (iffp >= IFF_OKAY);
|
||||
|
||||
CloseRGroup(&newptr);
|
||||
return(iffp == END_MARK ? IFF_OKAY : iffp);
|
||||
}
|
||||
|
||||
/* ---------- GetProp --------------------------------------------------*/
|
||||
/* Handle a PROP chunk. Print "PROP size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetProp(GroupContext *listContext)
|
||||
{
|
||||
/*CompilerBug register*/ IFFP iffp;
|
||||
GroupContext newptr;
|
||||
|
||||
PutHdr(listContext);
|
||||
|
||||
iffp = OpenRGroup(listContext, &newptr);
|
||||
CheckIFFP();
|
||||
|
||||
/* PROP reader for Checker. */
|
||||
((Frame *)listContext->clientFrame)->levels++;
|
||||
|
||||
do {if ( (iffp = GetPChunkHdr(&newptr)) > 0 )
|
||||
iffp = AtLeaf(&newptr);
|
||||
} while (iffp >= IFF_OKAY);
|
||||
|
||||
((Frame *)listContext->clientFrame)->levels--;
|
||||
|
||||
CloseRGroup(&newptr);
|
||||
return(iffp == END_MARK ? IFF_OKAY : iffp);
|
||||
}
|
||||
|
||||
/* ---------- GetCat ---------------------------------------------------*/
|
||||
/* Handle a CAT chunk. Print "CAT size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetCat(GroupContext *parent)
|
||||
{
|
||||
IFFP iffp;
|
||||
|
||||
((Frame *)parent->clientFrame)->levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
iffp = ReadICat(parent);
|
||||
|
||||
((Frame *)parent->clientFrame)->levels--;
|
||||
return(iffp);
|
||||
}
|
||||
/*---------------------------------------------------------------------*
|
||||
* IFFCheck.C Print out the structure of an IFF-85 file, 11/19/85
|
||||
* checking for structural errors.
|
||||
*
|
||||
* DO NOT USE THIS AS A SKELETAL PROGRAM FOR AN IFF READER!
|
||||
* See ShowILBM.C for a skeletal example.
|
||||
*
|
||||
* Original version was for the Commodore-Amiga computer.
|
||||
/* This version is compatible with PC, OSX, PS3, Wii, iPhone. 10/26/2008
|
||||
*----------------------------------------------------------------------*/
|
||||
|
||||
#include "iff.h"
|
||||
#include "stdlib.h" //for exit
|
||||
|
||||
/* ---------- IFFCheck -------------------------------------------------*/
|
||||
/* [TBD] More extensive checking could be done on the IDs encountered in the
|
||||
* file. Check that the reserved IDs "FOR1".."FOR9", "LIS1".."LIS9", and
|
||||
* "CAT1".."CAT9" aren't used. Check that reserved IDs aren't used as Form
|
||||
* types. Check that all IDs are made of 4 printable characters (trailing
|
||||
* spaces ok). */
|
||||
|
||||
typedef struct {
|
||||
ClientFrame clientFrame;
|
||||
int levels; /* # groups currently nested within.*/
|
||||
} Frame;
|
||||
|
||||
char MsgOkay[] = { "----- (IFF_OKAY) A good IFF file." };
|
||||
char MsgEndMark[] = {"----- (END_MARK) How did you get this message??" };
|
||||
char MsgDone[] = { "----- (IFF_DONE) How did you get this message??" };
|
||||
char MsgDos[] = { "----- (DOS_ERROR) The DOS gave back an error." };
|
||||
char MsgNot[] = { "----- (NOT_IFF) not an IFF file." };
|
||||
char MsgNoFile[] = { "----- (NO_FILE) no such file found." };
|
||||
char MsgClientError[] = {"----- (CLIENT_ERROR) IFF Checker bug."};
|
||||
char MsgForm[] = { "----- (BAD_FORM) How did you get this message??" };
|
||||
char MsgShort[] = { "----- (SHORT_CHUNK) How did you get this message??" };
|
||||
char MsgBad[] = { "----- (BAD_IFF) a mangled IFF file." };
|
||||
|
||||
/* MUST GET THESE IN RIGHT ORDER!!*/
|
||||
char *IFFPMessages[-LAST_ERROR+1] = {
|
||||
/*IFF_OKAY*/ MsgOkay,
|
||||
/*END_MARK*/ MsgEndMark,
|
||||
/*IFF_DONE*/ MsgDone,
|
||||
/*DOS_ERROR*/ MsgDos,
|
||||
/*NOT_IFF*/ MsgNot,
|
||||
/*NO_FILE*/ MsgNoFile,
|
||||
/*CLIENT_ERROR*/ MsgClientError,
|
||||
/*BAD_FORM*/ MsgForm,
|
||||
/*SHORT_CHUNK*/ MsgShort,
|
||||
/*BAD_IFF*/ MsgBad
|
||||
};
|
||||
|
||||
/* FORWARD REFERENCES */
|
||||
extern IFFP GetList(GroupContext*);
|
||||
extern IFFP GetForm(GroupContext*);
|
||||
extern IFFP GetProp(GroupContext*);
|
||||
extern IFFP GetCat (GroupContext*);
|
||||
|
||||
void IFFCheck(char *name)
|
||||
{
|
||||
IFFP iffp;
|
||||
BPTR file = fopen(name,"rb");//Open(name, MODE_OLDFILE);
|
||||
Frame frame;
|
||||
|
||||
frame.levels = 0;
|
||||
frame.clientFrame.getList = GetList;
|
||||
frame.clientFrame.getForm = GetForm;
|
||||
frame.clientFrame.getProp = GetProp;
|
||||
frame.clientFrame.getCat = GetCat ;
|
||||
|
||||
printf("----- Checking file '%s' -----\n", name);
|
||||
if (file == 0)
|
||||
iffp = NO_FILE;
|
||||
else
|
||||
iffp = ReadIFF(file, (ClientFrame *)&frame);
|
||||
|
||||
fclose(file);
|
||||
printf("%s\n", IFFPMessages[-iffp]);
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
if (argc != 1+1) {
|
||||
printf("Usage: 'iffcheck filename'\n");
|
||||
exit(0);
|
||||
}
|
||||
IFFCheck(argv[1]);
|
||||
return 0;
|
||||
}
|
||||
|
||||
/* ---------- Put... ---------------------------------------------------*/
|
||||
|
||||
void PutLevels(int count)
|
||||
{
|
||||
for ( ; count > 0; --count) {
|
||||
printf(".");
|
||||
}
|
||||
}
|
||||
|
||||
void PutID(int id)
|
||||
{
|
||||
long int i = 1;
|
||||
const char *p = (const char *) &i;
|
||||
if (p[0] == 1) // Lowest address contains the least significant byte
|
||||
{
|
||||
//little endian machine
|
||||
printf("%c%c%c%c ", (char)(id&0x7f) , (char)(id>>8)&0x7f,
|
||||
(char)(id>>16)&0x7f, (char)(id>>24)&0x7f);
|
||||
} else
|
||||
{
|
||||
//big endian machine
|
||||
printf("%c%c%c%c ", (char)(id>>24)&0x7f, (char)(id>>16)&0x7f,
|
||||
(char)(id>>8)&0x7f, (char)(id&0x7f));
|
||||
}
|
||||
/* printf("id = %lx", id); */
|
||||
}
|
||||
|
||||
void PutN(long n)
|
||||
{
|
||||
printf(" %ld ", n);
|
||||
}
|
||||
|
||||
/* Put something like "...BMHD 14" or "...LIST 14 PLBM". */
|
||||
void PutHdr(GroupContext *context)
|
||||
{
|
||||
PutLevels( ((Frame *)context->clientFrame)->levels );
|
||||
PutID(context->ckHdr.ckID);
|
||||
PutN(context->ckHdr.ckSize);
|
||||
|
||||
if (context->subtype != NULL_CHUNK)
|
||||
PutID(context->subtype);
|
||||
|
||||
printf("\n");
|
||||
}
|
||||
|
||||
/* ---------- AtLeaf ---------------------------------------------------*/
|
||||
|
||||
/* At Leaf chunk. That is, a chunk which does NOT contain other chunks.
|
||||
* Print "int size".*/
|
||||
IFFP AtLeaf(GroupContext *context)
|
||||
{
|
||||
|
||||
PutHdr(context);
|
||||
/* A typical reader would read the chunk's contents, using the "Frame"
|
||||
* for local data, esp. shared property settings (PROP).*/
|
||||
/* IFFReadBytes(context, ...buffer, context->ckHdr->ckSize); */
|
||||
return(IFF_OKAY);
|
||||
}
|
||||
|
||||
/* ---------- GetList --------------------------------------------------*/
|
||||
/* Handle a LIST chunk. Print "LIST size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetList(GroupContext *parent)
|
||||
{
|
||||
Frame newFrame;
|
||||
|
||||
newFrame = *(Frame *)parent->clientFrame; /* copy parent's frame*/
|
||||
newFrame.levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
return( ReadIList(parent, (ClientFrame *)&newFrame) );
|
||||
}
|
||||
|
||||
/* ---------- GetForm --------------------------------------------------*/
|
||||
/* Handle a FORM chunk. Print "FORM size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetForm(GroupContext *parent)
|
||||
{
|
||||
/*CompilerBug register*/ IFFP iffp;
|
||||
GroupContext newptr;
|
||||
Frame newFrame;
|
||||
|
||||
newFrame = *(Frame *)parent->clientFrame; /* copy parent's frame*/
|
||||
newFrame.levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
iffp = OpenRGroup(parent, &newptr);
|
||||
CheckIFFP();
|
||||
newptr.clientFrame = (ClientFrame *)&newFrame;
|
||||
|
||||
/* FORM reader for Checker. */
|
||||
/* LIST, FORM, PROP, CAT already handled by GetF1ChunkHdr. */
|
||||
do {if ( (iffp = GetF1ChunkHdr(&newptr)) > 0 )
|
||||
iffp = AtLeaf(&newptr);
|
||||
} while (iffp >= IFF_OKAY);
|
||||
|
||||
CloseRGroup(&newptr);
|
||||
return(iffp == END_MARK ? IFF_OKAY : iffp);
|
||||
}
|
||||
|
||||
/* ---------- GetProp --------------------------------------------------*/
|
||||
/* Handle a PROP chunk. Print "PROP size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetProp(GroupContext *listContext)
|
||||
{
|
||||
/*CompilerBug register*/ IFFP iffp;
|
||||
GroupContext newptr;
|
||||
|
||||
PutHdr(listContext);
|
||||
|
||||
iffp = OpenRGroup(listContext, &newptr);
|
||||
CheckIFFP();
|
||||
|
||||
/* PROP reader for Checker. */
|
||||
((Frame *)listContext->clientFrame)->levels++;
|
||||
|
||||
do {if ( (iffp = GetPChunkHdr(&newptr)) > 0 )
|
||||
iffp = AtLeaf(&newptr);
|
||||
} while (iffp >= IFF_OKAY);
|
||||
|
||||
((Frame *)listContext->clientFrame)->levels--;
|
||||
|
||||
CloseRGroup(&newptr);
|
||||
return(iffp == END_MARK ? IFF_OKAY : iffp);
|
||||
}
|
||||
|
||||
/* ---------- GetCat ---------------------------------------------------*/
|
||||
/* Handle a CAT chunk. Print "CAT size subTypeID".
|
||||
* Then dive into it.*/
|
||||
IFFP GetCat(GroupContext *parent)
|
||||
{
|
||||
IFFP iffp;
|
||||
|
||||
((Frame *)parent->clientFrame)->levels++;
|
||||
|
||||
PutHdr(parent);
|
||||
|
||||
iffp = ReadICat(parent);
|
||||
|
||||
((Frame *)parent->clientFrame)->levels--;
|
||||
return(iffp);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user