bool CDecoder::ReadTables(void)
{
Byte newLevels[kMaxTableSize];
{
if (_skipByte)
m_InBitStream.DirectReadByte();
m_InBitStream.Normalize();
int blockType = (int)ReadBits(kNumBlockTypeBits);
if (blockType > kBlockTypeUncompressed)
return false;
if (_wimMode)
if (ReadBits(1) == 1)
m_UnCompressedBlockSize = (1 << 15);
else
m_UnCompressedBlockSize = ReadBits(16);
else
m_UnCompressedBlockSize = m_InBitStream.ReadBitsBig(kUncompressedBlockSizeNumBits);
m_IsUncompressedBlock = (blockType == kBlockTypeUncompressed);
_skipByte = (m_IsUncompressedBlock && ((m_UnCompressedBlockSize & 1) != 0));
if (m_IsUncompressedBlock)
{
ReadBits(16 - m_InBitStream.GetBitPosition());
if (!m_InBitStream.ReadUInt32(m_RepDistances[0]))
return false;
m_RepDistances[0]--;
for (int i = 1; i < kNumRepDistances; i++)
{
UInt32 rep = 0;
for (int j = 0; j < 4; j++)
rep |= (UInt32)m_InBitStream.DirectReadByte() << (8 * j);
m_RepDistances[i] = rep - 1;
}
return true;
}
m_AlignIsUsed = (blockType == kBlockTypeAligned);
if (m_AlignIsUsed)
{
for(int i = 0; i < kAlignTableSize; i++)
newLevels[i] = (Byte)ReadBits(kNumBitsForAlignLevel);
RIF(m_AlignDecoder.SetCodeLengths(newLevels));
}
}
RIF(ReadTable(m_LastMainLevels, newLevels, 256));
RIF(ReadTable(m_LastMainLevels + 256, newLevels + 256, m_NumPosLenSlots));
for (UInt32 i = 256 + m_NumPosLenSlots; i < kMainTableSize; i++)
newLevels[i] = 0;
RIF(m_MainDecoder.SetCodeLengths(newLevels));
RIF(ReadTable(m_LastLenLevels, newLevels, kNumLenSymbols));
return m_LenDecoder.SetCodeLengths(newLevels);
}
int
do_define(
int argc,
char **argv )
{
int i, argstart, redo;
char *name;
struct symarray *found, dummy;
if (!defInited)
def_init();
if (argc > 1 && C_PAIR(argv[1], '-', 'R'))
{
redo = 0;
argstart = 2;
}
else
{
argstart = 1;
redo = 1;
}
if ((argstart +1) >= argc)
XK_USAGE(argv[0]);
name = argv[argstart++];
dummy.str = name;
found = (struct symarray *) bsearch((char *) &dummy, Dyndef, Ndyndef,
sizeof(struct symarray), symcomp);
if (found)
{
if (!redo)
return(SH_SUCC);
i = found - Dyndef;
}
else
{
if (Sdyndef == Ndyndef)
growdef();
Ndyndef++;
if (Ndyndef > 1)
for (i = Ndyndef - 1; i > 0; i--)
{
if (strcmp(name, Dyndef[i - 1].str) >= 0)
break;
Dyndef[i] = Dyndef[i - 1];
}
else
i = 0;
Dyndef[i].str = strdup(name);
Deflist->size++;
}
RIF(xk_par_int(argv + argstart, &Dyndef[i].addr, NULL));
return(SH_SUCC);
}
bool CDecoder::ReadTables(void)
{
Byte levelLevels[kLevelTableSize];
Byte newLevels[kMaxTableSize];
m_AudioMode = (ReadBits(1) == 1);
if (ReadBits(1) == 0)
memset(m_LastLevels, 0, kMaxTableSize);
unsigned numLevels;
if (m_AudioMode)
{
m_NumChannels = ReadBits(2) + 1;
if (m_MmFilter.CurrentChannel >= m_NumChannels)
m_MmFilter.CurrentChannel = 0;
numLevels = m_NumChannels * kMMTableSize;
}
else
numLevels = kHeapTablesSizesSum;
unsigned i;
for (i = 0; i < kLevelTableSize; i++)
levelLevels[i] = (Byte)ReadBits(4);
RIF(m_LevelDecoder.SetCodeLengths(levelLevels));
i = 0;
while (i < numLevels)
{
UInt32 number = m_LevelDecoder.DecodeSymbol(&m_InBitStream);
if (number < kTableDirectLevels)
{
newLevels[i] = (Byte)((number + m_LastLevels[i]) & kLevelMask);
i++;
}
else
{
if (number == kTableLevelRepNumber)
{
unsigned t = ReadBits(2) + 3;
for (unsigned reps = t; reps > 0 && i < numLevels; reps--, i++)
newLevels[i] = newLevels[i - 1];
}
else
{
unsigned num;
if (number == kTableLevel0Number)
num = ReadBits(3) + 3;
else if (number == kTableLevel0Number2)
num = ReadBits(7) + 11;
else
return false;
for (; num > 0 && i < numLevels; num--)
newLevels[i++] = 0;
}
}
}
if (m_AudioMode)
for (i = 0; i < m_NumChannels; i++)
{
RIF(m_MMDecoders[i].SetCodeLengths(&newLevels[i * kMMTableSize]));
}
else
{
RIF(m_MainDecoder.SetCodeLengths(&newLevels[0]));
RIF(m_DistDecoder.SetCodeLengths(&newLevels[kMainTableSize]));
RIF(m_LenDecoder.SetCodeLengths(&newLevels[kMainTableSize + kDistTableSize]));
}
memcpy(m_LastLevels, newLevels, kMaxTableSize);
return true;
}
HRESULT fsPartMediaPlayer::Open(HANDLE hFile, UINT64 uMaxAvail)
{
HRESULT hr;
Close ();
m_stream.Attach (hFile, uMaxAvail);
if (m_stream.Get_MediaType () == NULL)
return E_FAIL;
m_reader.Set_MediaType (m_stream.Get_MediaType ());
RIF (CoCreateInstance (CLSID_FilterGraph, NULL, CLSCTX_INPROC,
IID_IGraphBuilder, (void**) &m_pGB));
IFilterGraph* pFG = NULL;
RIF (m_pGB->QueryInterface (IID_IFilterGraph, (void**)&pFG));
RIF (pFG->AddFilter (&m_reader, NULL));
pFG->Release ();
RIF (m_pGB->Render (m_reader.GetPin (0)));
RIF (m_pGB->QueryInterface (IID_IMediaControl, (void**)&m_pMC));
RIF (m_pGB->QueryInterface (IID_IMediaEventEx, (void**)&m_pME));
RIF (m_pGB->QueryInterface (IID_IMediaSeeking, (void**)&m_pMS));
m_pGB->QueryInterface (IID_IVideoWindow, (void**)&m_pVW);
m_pGB->QueryInterface (IID_IBasicAudio, (void**)&m_pBA);
IBasicVideo* pBV = NULL;
m_pGB->QueryInterface (IID_IBasicVideo, (void**) &pBV);
if (pBV != NULL)
{
long nW, nH;
pBV->get_VideoWidth (&nW);
pBV->get_VideoHeight (&nH);
m_fVideoRatio = (double)nW / nH;
pBV->Release ();
}
else
{
m_fVideoRatio = 1;
}
if (m_pVW)
{
if (FAILED (m_pVW->put_MessageDrain ((OAHWND)m_hOutWnd)))
{
SAFE_RELEASE (m_pVW);
}
}
RIF (m_pME->SetNotifyWindow ((OAHWND)m_hOutWnd, WM_VIDEONOTIFY, LONG(this)));
if (m_pVW)
{
m_pVW->put_Visible (OAFALSE);
m_pVW->put_WindowStyle (WS_CHILD);
m_pVW->put_Owner ((OAHWND)m_hOutWnd);
AutoSize ();
m_pVW->put_Visible (OATRUE);
m_pVW->SetWindowForeground (-1);
}
m_state = VFPS_STOPPED;
return S_OK;
}
HRESULT fsPartMediaPlayer::Open2(LPCSTR pszFile)
{
HRESULT hr;
Close ();
RIF (CoCreateInstance (CLSID_FilterGraph, NULL, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (void**) &m_pGB));
WCHAR wszFile [MAX_PATH];
MultiByteToWideChar (CP_ACP, 0, pszFile, -1, wszFile, MAX_PATH);
RIF (m_pGB->RenderFile (wszFile, NULL));
RIF (m_pGB->QueryInterface (IID_IMediaControl, (void**) &m_pMC));
RIF (m_pGB->QueryInterface (IID_IMediaEventEx, (void**) &m_pME));
RIF (m_pGB->QueryInterface (IID_IMediaSeeking, (void**) &m_pMS));
m_pGB->QueryInterface (IID_IVideoWindow, (void**) &m_pVW);
IBasicVideo* pBV = NULL;
m_pGB->QueryInterface (IID_IBasicVideo, (void**) &pBV);
if (pBV != NULL)
{
long nW, nH;
pBV->get_VideoWidth (&nW);
pBV->get_VideoHeight (&nH);
m_fVideoRatio = (double)nW / nH;
}
else
{
m_fVideoRatio = 1;
}
RIF (m_pGB->QueryInterface (IID_IBasicAudio, (void**) &m_pBA));
BOOL bAudioOnly = m_pVW == NULL || pBV == NULL;
if (pBV)
pBV->Release ();
if (bAudioOnly == FALSE)
{
long l;
if (FAILED (m_pVW->get_Visible (&l)))
bAudioOnly = TRUE;
}
if (m_pVW)
{
if (FAILED (m_pVW->put_MessageDrain ((OAHWND)m_hOutWnd)))
{
SAFE_RELEASE (m_pVW);
}
}
RIF (m_pME->SetNotifyWindow ((OAHWND)m_hOutWnd, WM_VIDEONOTIFY, LONG(this)));
if (m_pVW)
{
m_pVW->put_Visible (OAFALSE);
m_pVW->put_WindowStyle (WS_CHILD);
m_pVW->put_Owner ((OAHWND)m_hOutWnd);
AutoSize ();
m_pVW->put_Visible (OATRUE);
m_pVW->SetWindowForeground (-1);
}
m_state = VFPS_STOPPED;
return S_OK;
}
int
xk_free(
memtbl_t *tbl,
char *p,
int nptr,
int sub,
memtbl_t *(*tbl_find)() )
{
memtbl_t *ntbl;
register int i;
long val; /* used for choice selection */
char *np;
int delim = _Delim;
int (*spec_free)();
char * errmsg;
if (tbl == NULL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,26,
"xk_free: A NULL 'type' table was specified\n"));
fprintf(stderr, errmsg);
free(errmsg);
}
return(FAIL);
}
if (tbl->tname && (spec_free = find_special(SPEC_FREE, tbl->tname)))
return(spec_free(tbl, p, nptr, sub, tbl_find));
if (tbl->name && (spec_free = find_special(SPEC_FREE, tbl->name)))
return(spec_free(tbl, p, nptr, sub, tbl_find));
nptr += tbl->ptr;
if ((tbl->flags & F_TYPE_IS_PTR) || (nptr > 0)) {
for (i = Ndont - 1; i >= 0; i--) {
if (Dont[i] == ((char **) p)[0]) {
for ( ; i < Ndont - 1; i++)
Dont[i] = Dont[i + 1];
Ndont--;
return(SUCCESS);
}
}
}
if (sub > 0 && tbl->subscr > 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,27,
"xk_free: Multiple array subscripts are not handled in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
/*
* If there is exactly one pointer associated with this
* member, and no length delimiters, and no subscripts,
* or there are multiple pointers,
* then recursively call ourselves on the structure, then
* free the structure itself.
*/
if ((nptr > 1 && tbl->delim != 0) || (nptr == 1 && tbl->delim == 0 && tbl->subscr == 0)) {
if (((char **)p)[0] != NULL) {
RIF(xk_free(tbl, ((char **)p)[0], nptr-1-tbl->ptr, sub, tbl_find));
free(((char **)p)[0]);
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,28,
"xk_free: The member '%s' at location 0x%x was freed and set to NULL\n"));
fprintf(stderr, errmsg, tbl->name, ((char **)p)[0]);
free(errmsg);
}
((char **)p)[0] = NULL;
} else {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,29,
"xk_free: The member '%s' is NULL; no free occurred\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
}
return(SUCCESS);
}
/*
* If there is exactly one pointer level, or one subscripting level,
* and there is a delimiter,
* and no subscript, then we are a length delimited malloced array.
* Free each element, then free the whole array.
*/
if (tbl->delim != 0 && ((nptr == 1 && tbl->subscr == 0) ||
nptr == 0 && tbl->subscr != 0 && tbl->kind != K_STRING)) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,30,
"xk_free: The delimiter for '%s' is %d\n"));
fprintf(stderr, errmsg, tbl->name, delim);
free(errmsg);
}
if (tbl->subscr == 0)
np = ((char **)p)[0];
else
np = p;
for (i = 0; i < delim; i++) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,31,
"xk_free: Freeing array element [%d] of '%s' at address 0x%x\n"));
fprintf(stderr, errmsg, i, tbl->name, &np[i*tbl->size]);
free(errmsg);
}
RIF(xk_free(tbl, &np[i*tbl->size], nptr ? -1 : 0, 0, tbl_find));
}
if (tbl->subscr == 0) {
if (np != NULL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,32,
"xk_free: Freeing pointer to array of '%s' at location 0x%x and setting to NULL\n"));
fprintf(stderr, errmsg, tbl->name, np);
free(errmsg);
}
free(np);
if (tbl->subscr == 0)
((char **)p)[0] = NULL;
} else if (_Prdebug) {
errmsg=strdup(GETMESSAGE(8,33,
"xk_free: The pointer to array of '%s'is NULL; no free occurred\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
}
return(SUCCESS);
}
switch(tbl->kind) {
case K_DSHORT:
case K_SHORT:
case K_DINT:
case K_INT:
case K_DLONG:
case K_LONG:
break;
case K_STRING:
if (!tbl->subscr) {
if (((char **)p)[0] != NULL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,34,
"xk_free: Freeing string '%s' at location 0x%x, and setting to NULL\n"));
fprintf(stderr, errmsg, tbl->name, p);
free(errmsg);
}
free(((char **)p)[0]);
((char **)p)[0] = NULL;
} else if (_Prdebug) {
errmsg=strdup(GETMESSAGE(8,35,
"xk_free: The string '%s' is NULL; no free occurred\n"));
fprintf(stderr, errmsg, tbl->name, p);
free(errmsg);
}
}
break;
case K_TYPEDEF:
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
return(xk_free(ntbl, p, nptr, 0, tbl_find));
case K_STRUCT:
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
for (i = 0; ntbl[i].name != NULL; i++) {
if ((ntbl[i].flags & F_SIMPLE) && nptr+ntbl[i].ptr == 0) {
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_FREE_NO_MEMBER));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
continue;
}
_Delim = xk_get_delim(&ntbl[i], p);
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,36,
"xk_free: Freeing member '%s' at location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
if (xk_free(&ntbl[i], p+ntbl[i].offset, nptr, sub, tbl_find) == FAIL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,37,
"xk_free: A failure occurred while freeing the '%s' member\n"));
fprintf(stderr, errmsg, ntbl[i].name);
free(errmsg);
}
return(FAIL);
}
}
break;
case K_UNION:
if (strncmp(tbl[-1].name, "ch_", 3) != 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,38,
"xk_free: Cannot determine the choice in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
val = *((long *)(p - sizeof(long)));
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
for (i = 0; ntbl[i].name != NULL; i++) {
if (ntbl[i].choice == val) {
if ((ntbl[i].flags & F_SIMPLE) && nptr+ntbl[i].ptr == 0) {
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_FREE_NO_MEMBER));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
continue;
}
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,39,
"xk_free: Freeing union member '%s' at location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
RIF(xk_free(&ntbl[i], p, nptr, sub, tbl_find));
break;
}
}
if (ntbl[i].name == NULL && _Prdebug)
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,40,
"xk_free: There is no legal union choice for '%s' (value is 0x%x); no free occurred\n"));
fprintf(stderr, errmsg, tbl->name, val);
free(errmsg);
}
break;
default:
return(FAIL);
}
return(SUCCESS);
}
int
xk_print(
memtbl_t *tbl,
char **buf,
char *p,
int nptr,
int sub,
void *pass,
memtbl_t *(*tbl_find)() )
{
memtbl_t *ntbl;
register int i;
long val; /* used for choice selection */
char *np;
int delim = _Delim;
int (*spec_print)();
char * errmsg;
if (p == NULL) {
*buf += lsprintf(*buf, "NULL");
return(SUCCESS);
}
if (tbl == NULL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,16,
"xk_print: A NULL 'type' table was specified\n"));
fprintf(stderr, errmsg);
free(errmsg);
}
return(FAIL);
}
if (tbl->tname && (spec_print = find_special(SPEC_PRINT, tbl->tname)))
return(spec_print(tbl, buf, p, nptr, sub, pass, tbl_find));
if (tbl->name && (spec_print = find_special(SPEC_PRINT, tbl->name)))
return(spec_print(tbl, buf, p, nptr, sub, pass, tbl_find));
nptr += tbl->ptr;
if (sub > 0 && tbl->subscr > 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,17,
"xk_print: Multiple array subscripts are not handled in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
/*
* If there is exactly one pointer associated with this
* member, and no length delimiters, and no subscripts,
* or there are multiple pointers,
* then dereference the structure and call ourself
* recursively.
*/
if ((nptr > 1 && tbl->delim != 0) || (nptr == 1 && tbl->delim == 0 && tbl->subscr == 0)) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,18,
"xk_print: Dereferencing '%s' to address 0x%x\n"));
fprintf(stderr, errmsg, tbl->name, ((char **)p)[0]);
free(errmsg);
}
return(xk_print(tbl, buf, ((char **)p)[0], nptr-1-tbl->ptr, sub, pass, tbl_find));
}
/*
* If there is exactly one pointer level, or one subscripting level,
* and there is a delimiter,
* and no subscript, then we are a length delimited array.
*/
if (tbl->delim != 0 && ((nptr == 1 && tbl->subscr == 0) ||
nptr == 0 && tbl->subscr != 0 && tbl->kind != K_STRING)) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,19,
"xk_print: The delimiter for '%s' is %d\n"));
fprintf(stderr, errmsg, tbl->name, delim);
free(errmsg);
}
if (tbl->subscr == 0) {
np = ((char **)p)[0];
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,20,
"xk_print: Using the pointer 0x%x as an array\n"));
fprintf(stderr, errmsg, np);
free(errmsg);
}
} else {
np = p;
}
if (np == NULL) {
*buf += lsprintf(*buf, "NULL");
return(SUCCESS);
}
*buf += lsprintf(*buf, Str_open_curly);
for (i = 0; i < delim; i++) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,21,
"xk_print: Printing array level %d of member '%s' at location 0x%x\n"));
fprintf(stderr, errmsg, i, tbl->name, &np[i*tbl->size]);
free(errmsg);
}
if (i)
*buf += lsprintf(*buf, ", ");
RIF(xk_print(tbl, buf, &np[i*tbl->size], nptr ? -1 : 0,
0, (void *)-1, tbl_find));
}
*buf += lsprintf(*buf, Str_close_curly);
return(SUCCESS);
}
/*
* If there is no delimiter, and there are two levels of pointer,
* then we are a NULL terminated array.
*/
if (tbl->delim == 0 &&
((nptr == 2 && sub == 0) || (sub == 1 && nptr == 1))) {
*buf += lsprintf(*buf, Str_open_curly);
for (i = 0; ((char **)p)[i*tbl->size] != NULL; i++) {
if (i)
*buf += lsprintf(*buf, ", ");
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,22,
"xk_print: Printing array level %d of member '%s'\n"));
fprintf(stderr, errmsg, i, tbl->name);
free(errmsg);
}
RIF(xk_print(tbl, buf, ((char **)p)[i*tbl->size],
nptr-(!sub), 0, (void *)-1, tbl_find));
}
*buf += lsprintf(*buf, Str_close_curly);
return(SUCCESS);
}
if (!Pr_tmpnonames && (Pr_format & PRNAMES)) {
switch(tbl->kind) {
case K_CHAR:
case K_SHORT:
case K_INT:
case K_LONG:
case K_STRING:
*buf += lsprintf(*buf, "%s=", tbl->name);
}
}
switch(tbl->kind) {
case K_CHAR:
case K_SHORT:
case K_INT:
case K_LONG:
RIF(xk_prin_int(tbl, buf, (unsigned long *)p));
break;
case K_STRING:
if (delim > 0) {
if (tbl->subscr) {
RIF(xk_prin_hexstr(buf, (char *)p, delim));
} else {
RIF(xk_prin_hexstr(buf, ((char **)p)[0], delim));
}
} else {
if (tbl->subscr) {
RIF(xk_prin_nts(buf, (char *)p));
} else {
RIF(xk_prin_nts(buf, ((char **)p)[0]));
}
}
break;
case K_TYPEDEF:
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
return(xk_print(ntbl, buf, p, nptr, 0, pass, tbl_find));
case K_STRUCT:
*buf += lsprintf(*buf, Str_open_curly);
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
for (i = 0; ntbl[i].name != NULL; i++) {
_Delim = xk_get_delim(&ntbl[i], p);
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,23,
"xk_print: Printing member '%s' at location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p+ntbl[i].offset);
free(errmsg);
}
RIF(xk_print(&ntbl[i], buf, p+ntbl[i].offset, nptr, sub, pass, tbl_find));
if (ntbl[i].kind < K_DSHORT && ntbl[i+1].name != NULL)
*buf += lsprintf(*buf, ", ");
}
*buf += lsprintf(*buf, Str_close_curly);
break;
case K_UNION:
if (strncmp(tbl[-1].name, "ch_", 3) != 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,24,
"xk_print: Cannot determine the choice in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
val = *((long *)(p - sizeof(long)));
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
*buf += lsprintf(*buf, Str_open_curly);
for (i = 0; ntbl[i].name != NULL; i++) {
if (ntbl[i].choice == val) {
*buf += lsprintf(*buf, "%s ", ntbl[i].name);
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,25,
"xk_print: Printing union member '%s' into location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
RIF(xk_print(&ntbl[i], buf, p, nptr, sub, pass, tbl_find));
break;
}
}
*buf += lsprintf(*buf, Str_close_curly);
break;
case K_DSHORT:
case K_DINT:
case K_DLONG:
break;
default:
return(FAIL);
}
return(SUCCESS);
}
int
xk_parse(
memtbl_t *tbl,
char **buf,
char *p,
int nptr,
int sub,
void *pass,
memtbl_t *(*tbl_find)() )
{
memtbl_t *ntbl;
register int i = 0;
int skind, delim_type;
long val = 0; /* used for choice selection */
char *np;
int delim = _Delim;
int nmal; /* number of members malloc'ed arrays */
char *pp;
int (*spec_parse)();
char * errmsg;
if (tbl == NULL) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,1,
"xk_parse: A NULL 'type' table was specified\n"));
fprintf(stderr, errmsg);
free(errmsg);
}
return(FAIL);
}
xk_skipwhite(buf);
/*
* If this is supposed to be a pointer, and we have a string that
* starts with "P" and a number then we should take the pointer
* itself. This is done by stripping off the 'p' and parsing it as a
* unsigned long.
*
* Further, if it starts with an '&', then we want the address of
* a variable, use fsym() to find it.
*/
if (((tbl->flags & F_TYPE_IS_PTR) || ((tbl->ptr + nptr) > 0)) &&
(((UPPER((*buf)[0]) == 'P') && isdigit((*buf)[1])) || ((*buf)[0] == '&'))) {
if ((*buf)[0] == '&') {
char *start;
(*buf)++;
for (start = *buf; isvarchar(*buf[0]); (*buf)++)
;
if ((((unsigned long *) p)[0] = fsym(start, -1)) == NULL)
return(FAIL);
}
else {
(*buf)++;
RIF(xk_par_int(buf, (long *)p, pass));
}
if (Ndont == Sdont) {
if (Dont)
Dont = (char **) realloc(Dont, (Sdont + 20) * sizeof(char *));
else
Dont = (char **) malloc((Sdont + 20) * sizeof(char *));
if (!Dont) {
errmsg = strdup(GetSharedMsg(DT_ALLOC_FAILURE));
ALTPUTS(errmsg);
free(errmsg);
exit(1);
}
Sdont += 20;
}
Dont[Ndont++] = ((char **) p)[0];
return(SUCCESS);
}
if (tbl->tname && (spec_parse = find_special(SPEC_PARSE, tbl->tname)))
return(spec_parse(tbl, buf, p, nptr, sub, pass, tbl_find));
if (tbl->name && (spec_parse = find_special(SPEC_PARSE, tbl->name)))
return(spec_parse(tbl, buf, p, nptr, sub, pass, tbl_find));
nptr += tbl->ptr;
if (sub > 0 && tbl->subscr > 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,2,
"xk_parse: Multiple array subscripts are not handled in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
/*
* If there is exactly one pointer associated with this
* member, and no length delimiters, and no subscripts,
* or there are multiple pointers,
* then malloc space for the structure and call ourself
* recursively.
*/
if ((nptr > 1 && tbl->delim != 0) || (nptr == 1 && tbl->delim == 0 && tbl->subscr == 0)) {
if (PARPEEK(buf, ",") || PARPEEK(buf, Str_close_curly)) {
((char **)p)[0] = NULL;
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(DT_XK_PARSE_SET_NULL));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(SUCCESS);
}
if (xk_parpeek(buf, "NULL")) {
RIF(xk_parexpect(buf, "NULL"));
((char **)p)[0] = NULL;
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_SET_NULL));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(SUCCESS);
}
if ((((char **)p)[0] = malloc(tbl->size)) == NULL) {
return(FAIL);
}
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,3,
"xk_parse: Setting '%s' to malloc'ed address 0x%x, of size %d\n"));
fprintf(stderr,errmsg,tbl->name, ((char **)p)[0], tbl->size);
free(errmsg);
}
return(xk_parse(tbl, buf, ((char **)p)[0], nptr-1-tbl->ptr, sub, pass, tbl_find));
}
/*
* If there is exactly one pointer level, or one subscripting level,
* and there is a delimiter,
* and no subscript, then we are a length delimited malloced array.
*/
xk_skipwhite(buf);
if (tbl->delim != 0 && ((nptr == 1 && tbl->subscr == 0) ||
(nptr == 0 && tbl->subscr != 0 && tbl->kind != K_STRING))) {
if (tbl->subscr == 0) {
if (PARPEEK(buf, ",") || PARPEEK(buf, Str_close_curly)) {
((char **)p)[0] = NULL;
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,4,
"xk_parse: Setting malloc'ed array '%s' to NULL\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(SUCCESS);
}
if (xk_parpeek(buf, "NULL")) {
RIF(xk_parexpect(buf, "NULL"));
((char **)p)[0] = NULL;
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_SET_NULL));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(SUCCESS);
}
nmal = MALMEMBERS;
if ((np = malloc(nmal*tbl->size)) == NULL) {
return(FAIL);
}
((char **)p)[0] = np;
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,5,
"xk_parse: Setting member '%s' to malloc'ed pointer 0x%x, of size %d\n"));
fprintf(stderr, errmsg, tbl->name, np, 4*tbl->size);
free(errmsg);
}
} else {
np = p;
}
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_open_curly));
*buf += 1;
i = 0;
xk_skipwhite(buf);
while (PARPEEK(buf, Str_close_curly) == FALSE) {
if (tbl->subscr == 0 && i >= nmal) {
nmal += MALMEMBERS;
if((np = realloc(np, nmal*tbl->size)) == NULL) {
return(FAIL);
}
((char **)p)[0] = np;
if (_Prdebug) {
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_ARRAY_OVERFLOW));
fprintf(stderr, errmsg, tbl->name, nmal, nmal*tbl->size);
free(errmsg);
}
} else if (tbl->subscr > 0 && i > tbl->subscr) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,6,
"xk_parse: The array '%s' overflowed at element number %d\n"));
fprintf(stderr, errmsg, tbl->name, i);
free(errmsg);
}
}
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,7,
"xk_parse: Parsing array element [%d] of '%s' into address 0x%x\n"));
fprintf(stderr, errmsg, i, tbl->name, &np[i*tbl->size]);
free(errmsg);
}
if (i) {
xk_skipwhite(buf);
if (PARPEEK(buf, ",") == FALSE) {
if (PARPEEK(buf, Str_close_curly) == FALSE) {
RIF(PAREXPECT(buf, ","));
*buf += 1;
}
}
else {
RIF(PAREXPECT(buf, ","));
*buf += 1;
}
}
RIF(xk_parse(tbl, buf, &np[i*tbl->size], nptr ? -1 : 0,
0, (void *)-1, tbl_find));
i++;
struct_size = i;
xk_skipwhite(buf);
}
RIF(PAREXPECT(buf, Str_close_curly));
*buf += 1;
return(SUCCESS);
}
/*
* If there is no delimiter, and there are two levels of pointer,
* then we are a NULL terminated array of pointers
*/
if (tbl->delim == 0 &&
((nptr == 2 && sub == 0) || (sub == 1 && nptr == 1))) {
/*
* malloc a few members, realloc as needed
*/
nmal = MALMEMBERS;
if ((((char **)p)[0] = malloc(nmal*tbl->size)) == NULL) {
return(FAIL);
}
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_open_curly));
*buf += 1;
xk_skipwhite(buf);
while (PARPEEK(buf, Str_close_curly) == FALSE) {
if (i >= nmal) {
nmal += MALMEMBERS;
if ((((char **)p)[0] = realloc(((char **)p)[0], nmal*tbl->size)) == NULL) {
return(FAIL);
}
if (_Prdebug) {
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_ARRAY_OVERFLOW));
fprintf(stderr, errmsg, tbl->name, nmal, nmal*tbl->size);
free(errmsg);
}
}
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,8,
"xk_parse: Parsing array element [%d] of '%s'\n"));
fprintf(stderr, errmsg, i, tbl->name);
free(errmsg);
}
if (i) {
RIF(PAREXPECT(buf, ","));
*buf += 1;
}
RIF(xk_parse(tbl, buf, &p[i*tbl->size],
nptr == 2 ? -2 : -1, 0, (void *)-1,
tbl_find));
xk_skipwhite(buf);
}
RIF(PAREXPECT(buf, Str_close_curly));
*buf++;
((char **)p)[i*tbl->size] = NULL;
return(SUCCESS);
}
switch(tbl->kind) {
case K_CHAR:
RIF(xk_par_int(buf, &val, pass));
((unsigned char *)p)[0] = val;
break;
case K_SHORT:
RIF(xk_par_int(buf, &val, pass));
((ushort *)p)[0] = val;
break;
case K_INT:
RIF(xk_par_int(buf, &val, pass));
((int *)p)[0] = val;
break;
case K_LONG:
RIF(xk_par_int(buf, (long *)p, pass));
break;
case K_STRING:
if (tbl->subscr) {
val = tbl->subscr;
RIF(xk_par_chararr(buf, (char *)p, (int *)&val));
if (tbl->delim <= 0 && val > -1) {
p[val] = '\0';
}
} else {
val = 0;
RIF(xk_par_charstr(buf, (char **)p, (int *)&val));
/* If this is not a delimited char string,
* then it must be null terminated
*/
if (tbl->delim <= 0 && val > -1) {
((char **) p)[0][val] = '\0';
}
strglen = val;
}
break;
case K_TYPEDEF:
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
RIF(xk_parse(ntbl, buf, p, nptr, 0, pass, tbl_find));
return(SUCCESS);
case K_STRUCT:
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_open_curly));
*buf += 1;
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
pp = NULL;
for (i = 0; ntbl[i].name != NULL; i++) {
_Delim = xk_get_pardelim(&ntbl[i], p);
if (ntbl[i].kind >= K_DSHORT) {
skind = ntbl[i].kind;
pp = p + ntbl[i].offset;
struct_size = 0;
}
if (ntbl[i].delim) {
delim_type = ntbl[i].kind;
}
if (i && ntbl[i-1].kind < K_DSHORT) {
xk_skipwhite(buf);
if (PARPEEK(buf, ",") == FALSE) {
if (PARPEEK(buf, Str_close_curly) == FALSE) {
RIF(PAREXPECT(buf, ","));
*buf += 1;
}
}
else {
RIF(PAREXPECT(buf, ","));
*buf += 1;
}
}
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,9,
"xk_parse: Parsing member '%s' into location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
if (xk_parse(&ntbl[i], buf, p+ntbl[i].offset, nptr, sub, pass, tbl_find) == FAIL) {
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_ERROR));
fprintf(stderr, errmsg, ntbl[i].name);
free(errmsg);
}
return(FAIL);
}
}
if (pp != NULL) {
switch(skind) {
case K_DSHORT:
if (delim_type == K_STRING)
((short *)pp)[0] = strglen;
else
((short *)pp)[0] = struct_size;
break;
case K_DINT:
if (delim_type == K_STRING)
((int *)pp)[0] = strglen;
else
((int *)pp)[0] = struct_size;
break;
case K_DLONG:
if (delim_type == K_STRING)
((long *)pp)[0] = strglen;
else
((long *)pp)[0] = struct_size;
break;
default:
break;
}
}
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_close_curly));
*buf += 1;
break;
case K_UNION:
if (strncmp(tbl[-1].name, "ch_", 3) != 0) {
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,10,
"xk_parse: Cannot determine the choice in '%s'\n"));
fprintf(stderr, errmsg, tbl->name);
free(errmsg);
}
return(FAIL);
}
ntbl = tbl_find(tbl->tname, tbl->tbl, tbl->id);
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_open_curly));
*buf += 1;
for (i = 0; ntbl[i].name != NULL; i++) {
if (xk_parpeek(buf, ntbl[i].name) == TRUE) {
RIF(xk_parexpect(buf, ntbl[i].name));
((long *)(p - sizeof(long)))[0] = ntbl[i].choice;
if (_Prdebug)
{
errmsg=strdup(GETMESSAGE(8,11,
"xk_parse: Parsing union member '%s' into location 0x%x\n"));
fprintf(stderr, errmsg, ntbl[i].name, p + ntbl[i].offset);
free(errmsg);
}
if (xk_parse(&ntbl[i], buf, p, nptr, sub, pass, tbl_find) == FAIL) {
if (_Prdebug)
{
errmsg=strdup(GetSharedMsg(
DT_XK_PARSE_ERROR));
fprintf(stderr, errmsg, ntbl[i].name);
free(errmsg);
}
return(FAIL);
}
break;
}
}
xk_skipwhite(buf);
RIF(PAREXPECT(buf, Str_close_curly));
*buf += 1;
break;
case K_DSHORT:
case K_DINT:
case K_DLONG:
break;
default:
return(FAIL);
}
return(SUCCESS);
}
