void TestChunkFileNameing(void)
{
CChunkFile cChunkFile;
int iChunkNum;
char acTwentyOne[] = {0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09};
char acTwentyTwo[] = {0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19};
char acTwentyThree[] = {0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29};
char acActual[10];
cChunkFile.Init(MemoryFile());
AssertTrue(cChunkFile.WriteOpen());
AssertTrue(cChunkFile.WriteChunkBegin());
AssertLongLongInt(1, cChunkFile.Write(acTwentyOne, 10, 1));
AssertTrue(cChunkFile.WriteChunkBegin());
AssertLongLongInt(1, cChunkFile.Write(acTwentyTwo, 10, 1));
AssertTrue(cChunkFile.WriteChunkEnd("Floopy"));
AssertTrue(cChunkFile.WriteChunkBegin());
AssertLongLongInt(1, cChunkFile.Write(acTwentyThree, 10, 1));
AssertTrue(cChunkFile.WriteChunkEnd("Floopy"));
AssertTrue(cChunkFile.WriteChunkEnd("Rise"));
AssertTrue(cChunkFile.WriteClose());
AssertTrue(cChunkFile.ReadOpen());
iChunkNum = cChunkFile.FindFirstChunkWithName("Rise");
AssertInt(0, iChunkNum);
AssertTrue(cChunkFile.ReadChunkBegin(iChunkNum));
AssertLongLongInt(1, cChunkFile.Read(acActual, 10, 1));
AssertMemory(acTwentyOne, acActual, 10);
iChunkNum = cChunkFile.FindFirstChunkWithName("Floopy");
AssertInt(0, iChunkNum);
AssertTrue(cChunkFile.ReadChunkBegin(iChunkNum));
AssertLongLongInt(1, cChunkFile.Read(acActual, 10, 1));
AssertMemory(acTwentyTwo, acActual, 10);
AssertTrue(cChunkFile.ReadChunkEnd());
iChunkNum = cChunkFile.FindNextChunkWithName();
AssertInt(1, iChunkNum);
AssertTrue(cChunkFile.ReadChunkBegin(iChunkNum));
AssertLongLongInt(1, cChunkFile.Read(acActual, 10, 1));
AssertMemory(acTwentyThree, acActual, 10);
AssertTrue(cChunkFile.ReadChunkEnd());
AssertTrue(cChunkFile.ReadChunkEnd());
AssertTrue(cChunkFile.ReadClose());
cChunkFile.Kill();
}
struct gl_list_t *FindInstancesPaths(CONST struct Instance *i,
CONST struct Name *n,
enum find_errors *errval)
{
struct gl_list_t *result;
unsigned long k, len;
PAN *p;
struct Name *n2;
*errval = impossible_instance;
if (i == NULL) return NULL;
AssertMemory(i);
assert(GetEvaluationContext()==NULL);
SetEvaluationContext(i);
*errval = correct_instance;
result = RealFindInstancesPath(i,n,errval);
SetEvaluationContext(NULL);
if (result != NULL)
{
/* convert list of pairs to list of names. */
len = gl_length(result);
for (k= 1 ; k <= len; k++) {
p = (PAN*)gl_fetch(result,k);
n2 = p->n;
gl_store(result,k,n2);
DestroyPAN(p);
}
}
return result;
}
