mirror of
https://github.com/reactos/wine.git
synced 2024-11-29 22:50:43 +00:00
1483 lines
36 KiB
C
1483 lines
36 KiB
C
/*
|
|
* X Files parsing
|
|
*
|
|
* Copyright 2008 Christian Costa
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include "wine/debug.h"
|
|
|
|
#define COBJMACROS
|
|
|
|
#include "winbase.h"
|
|
#include "wingdi.h"
|
|
|
|
#include "d3dxof_private.h"
|
|
#include "dxfile.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(d3dxof_parsing);
|
|
|
|
#define MAKEFOUR(a,b,c,d) ((DWORD)a + ((DWORD)b << 8) + ((DWORD)c << 16) + ((DWORD)d << 24))
|
|
#define XOFFILE_FORMAT_MAGIC MAKEFOUR('x','o','f',' ')
|
|
#define XOFFILE_FORMAT_VERSION_302 MAKEFOUR('0','3','0','2')
|
|
#define XOFFILE_FORMAT_VERSION_303 MAKEFOUR('0','3','0','3')
|
|
#define XOFFILE_FORMAT_BINARY MAKEFOUR('b','i','n',' ')
|
|
#define XOFFILE_FORMAT_TEXT MAKEFOUR('t','x','t',' ')
|
|
#define XOFFILE_FORMAT_BINARY_MSZIP MAKEFOUR('b','z','i','p')
|
|
#define XOFFILE_FORMAT_TEXT_MSZIP MAKEFOUR('t','z','i','p')
|
|
#define XOFFILE_FORMAT_COMPRESSED MAKEFOUR('c','m','p',' ')
|
|
#define XOFFILE_FORMAT_FLOAT_BITS_32 MAKEFOUR('0','0','3','2')
|
|
#define XOFFILE_FORMAT_FLOAT_BITS_64 MAKEFOUR('0','0','6','4')
|
|
|
|
#define TOKEN_NAME 1
|
|
#define TOKEN_STRING 2
|
|
#define TOKEN_INTEGER 3
|
|
#define TOKEN_GUID 5
|
|
#define TOKEN_INTEGER_LIST 6
|
|
#define TOKEN_FLOAT_LIST 7
|
|
#define TOKEN_OBRACE 10
|
|
#define TOKEN_CBRACE 11
|
|
#define TOKEN_OPAREN 12
|
|
#define TOKEN_CPAREN 13
|
|
#define TOKEN_OBRACKET 14
|
|
#define TOKEN_CBRACKET 15
|
|
#define TOKEN_OANGLE 16
|
|
#define TOKEN_CANGLE 17
|
|
#define TOKEN_DOT 18
|
|
#define TOKEN_COMMA 19
|
|
#define TOKEN_SEMICOLON 20
|
|
#define TOKEN_TEMPLATE 31
|
|
#define TOKEN_WORD 40
|
|
#define TOKEN_DWORD 41
|
|
#define TOKEN_FLOAT 42
|
|
#define TOKEN_DOUBLE 43
|
|
#define TOKEN_CHAR 44
|
|
#define TOKEN_UCHAR 45
|
|
#define TOKEN_SWORD 46
|
|
#define TOKEN_SDWORD 47
|
|
#define TOKEN_VOID 48
|
|
#define TOKEN_LPSTR 49
|
|
#define TOKEN_UNICODE 50
|
|
#define TOKEN_CSTRING 51
|
|
#define TOKEN_ARRAY 52
|
|
|
|
#define CLSIDFMT "<%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X>"
|
|
|
|
/* FOURCC to string conversion for debug messages */
|
|
static const char *debugstr_fourcc(DWORD fourcc)
|
|
{
|
|
if (!fourcc) return "'null'";
|
|
return wine_dbg_sprintf ("\'%c%c%c%c\'",
|
|
(char)(fourcc), (char)(fourcc >> 8),
|
|
(char)(fourcc >> 16), (char)(fourcc >> 24));
|
|
}
|
|
|
|
static const char* get_primitive_string(WORD token)
|
|
{
|
|
switch(token)
|
|
{
|
|
case TOKEN_WORD:
|
|
return "WORD";
|
|
case TOKEN_DWORD:
|
|
return "DWORD";
|
|
case TOKEN_FLOAT:
|
|
return "FLOAT";
|
|
case TOKEN_DOUBLE:
|
|
return "DOUBLE";
|
|
case TOKEN_CHAR:
|
|
return "CHAR";
|
|
case TOKEN_UCHAR:
|
|
return "UCHAR";
|
|
case TOKEN_SWORD:
|
|
return "SWORD";
|
|
case TOKEN_SDWORD:
|
|
return "SDWORD";
|
|
case TOKEN_VOID:
|
|
return "VOID";
|
|
case TOKEN_LPSTR:
|
|
return "STRING";
|
|
case TOKEN_UNICODE:
|
|
return "UNICODE";
|
|
case TOKEN_CSTRING:
|
|
return "CSTRING ";
|
|
default:
|
|
break;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
static void dump_template(xtemplate* templates_array, xtemplate* ptemplate)
|
|
{
|
|
ULONG j, k;
|
|
GUID* clsid;
|
|
|
|
clsid = &ptemplate->class_id;
|
|
|
|
DPRINTF("template %s\n", ptemplate->name);
|
|
DPRINTF("{\n");
|
|
DPRINTF(CLSIDFMT "\n", clsid->Data1, clsid->Data2, clsid->Data3, clsid->Data4[0],
|
|
clsid->Data4[1], clsid->Data4[2], clsid->Data4[3], clsid->Data4[4], clsid->Data4[5], clsid->Data4[6], clsid->Data4[7]);
|
|
for (j = 0; j < ptemplate->nb_members; j++)
|
|
{
|
|
if (ptemplate->members[j].nb_dims)
|
|
DPRINTF("array ");
|
|
if (ptemplate->members[j].type == TOKEN_NAME)
|
|
DPRINTF("%s ", templates_array[ptemplate->members[j].idx_template].name);
|
|
else
|
|
DPRINTF("%s ", get_primitive_string(ptemplate->members[j].type));
|
|
DPRINTF("%s", ptemplate->members[j].name);
|
|
for (k = 0; k < ptemplate->members[j].nb_dims; k++)
|
|
{
|
|
if (ptemplate->members[j].dim_fixed[k])
|
|
DPRINTF("[%d]", ptemplate->members[j].dim_value[k]);
|
|
else
|
|
DPRINTF("[%s]", ptemplate->members[ptemplate->members[j].dim_value[k]].name);
|
|
}
|
|
DPRINTF(";\n");
|
|
}
|
|
if (ptemplate->open)
|
|
DPRINTF("[...]\n");
|
|
else if (ptemplate->nb_children)
|
|
{
|
|
DPRINTF("[%s", ptemplate->children[0]);
|
|
for (j = 1; j < ptemplate->nb_children; j++)
|
|
DPRINTF(",%s", ptemplate->children[j]);
|
|
DPRINTF("]\n");
|
|
}
|
|
DPRINTF("}\n");
|
|
}
|
|
|
|
static BOOL read_bytes(parse_buffer * buf, LPVOID data, DWORD size)
|
|
{
|
|
if (buf->rem_bytes < size)
|
|
return FALSE;
|
|
memcpy(data, buf->buffer, size);
|
|
buf->buffer += size;
|
|
buf->rem_bytes -= size;
|
|
return TRUE;
|
|
}
|
|
|
|
static void rewind_bytes(parse_buffer * buf, DWORD size)
|
|
{
|
|
buf->buffer -= size;
|
|
buf->rem_bytes += size;
|
|
}
|
|
|
|
HRESULT parse_header(parse_buffer * buf, BYTE ** decomp_buffer_ptr)
|
|
{
|
|
/* X File common header:
|
|
* 0-3 -> Magic Number (format identifier)
|
|
* 4-7 -> Format Version
|
|
* 8-11 -> Format Type (text or binary, decompressed or compressed)
|
|
* 12-15 -> Float Size (32 or 64 bits) */
|
|
DWORD header[4];
|
|
|
|
if (!read_bytes(buf, header, sizeof(header)))
|
|
return DXFILEERR_BADFILETYPE;
|
|
|
|
if (TRACE_ON(d3dxof_parsing))
|
|
{
|
|
char string[17];
|
|
memcpy(string, header, 16);
|
|
string[16] = 0;
|
|
TRACE("header = '%s'\n", string);
|
|
}
|
|
|
|
if (header[0] != XOFFILE_FORMAT_MAGIC)
|
|
return DXFILEERR_BADFILETYPE;
|
|
|
|
if (header[1] != XOFFILE_FORMAT_VERSION_302 && header[1] != XOFFILE_FORMAT_VERSION_303)
|
|
return DXFILEERR_BADFILEVERSION;
|
|
|
|
if (header[2] != XOFFILE_FORMAT_BINARY && header[2] != XOFFILE_FORMAT_TEXT &&
|
|
header[2] != XOFFILE_FORMAT_BINARY_MSZIP && header[2] != XOFFILE_FORMAT_TEXT_MSZIP)
|
|
{
|
|
WARN("File type %s unknown\n", debugstr_fourcc(header[2]));
|
|
return DXFILEERR_BADFILETYPE;
|
|
}
|
|
|
|
if (header[3] != XOFFILE_FORMAT_FLOAT_BITS_32 && header[3] != XOFFILE_FORMAT_FLOAT_BITS_64)
|
|
return DXFILEERR_BADFILEFLOATSIZE;
|
|
|
|
buf->txt = header[2] == XOFFILE_FORMAT_TEXT || header[2] == XOFFILE_FORMAT_TEXT_MSZIP;
|
|
|
|
if (header[2] == XOFFILE_FORMAT_BINARY_MSZIP || header[2] == XOFFILE_FORMAT_TEXT_MSZIP)
|
|
{
|
|
/* Extended header for compressed data:
|
|
* 16-19 -> size of decompressed file including xof header,
|
|
* 20-21 -> size of first decompressed MSZIP chunk, 22-23 -> size of first compressed MSZIP chunk
|
|
* 24-xx -> compressed MSZIP data chunk
|
|
* xx-xx -> size of next decompressed MSZIP chunk, xx-xx -> size of next compressed MSZIP chunk
|
|
* xx-xx -> compressed MSZIP data chunk
|
|
* .............................................................................................. */
|
|
int err;
|
|
DWORD decomp_file_size;
|
|
WORD decomp_chunk_size;
|
|
WORD comp_chunk_size;
|
|
LPBYTE decomp_buffer;
|
|
|
|
if (!read_bytes(buf, &decomp_file_size, sizeof(decomp_file_size)))
|
|
return DXFILEERR_BADFILETYPE;
|
|
|
|
TRACE("Compressed format %s detected: decompressed file size with xof header = %d\n",
|
|
debugstr_fourcc(header[2]), decomp_file_size);
|
|
|
|
/* Does not take xof header into account */
|
|
decomp_file_size -= 16;
|
|
|
|
decomp_buffer = HeapAlloc(GetProcessHeap(), 0, decomp_file_size);
|
|
if (!decomp_buffer)
|
|
{
|
|
ERR("Out of memory\n");
|
|
return DXFILEERR_BADALLOC;
|
|
}
|
|
*decomp_buffer_ptr = decomp_buffer;
|
|
|
|
while (buf->rem_bytes)
|
|
{
|
|
if (!read_bytes(buf, &decomp_chunk_size, sizeof(decomp_chunk_size)))
|
|
return DXFILEERR_BADFILETYPE;
|
|
if (!read_bytes(buf, &comp_chunk_size, sizeof(comp_chunk_size)))
|
|
return DXFILEERR_BADFILETYPE;
|
|
|
|
TRACE("Process chunk: compressed_size = %d, decompressed_size = %d\n",
|
|
comp_chunk_size, decomp_chunk_size);
|
|
|
|
err = mszip_decompress(comp_chunk_size, decomp_chunk_size, (char*)buf->buffer, (char*)decomp_buffer);
|
|
if (err)
|
|
{
|
|
WARN("Error while decompressing MSZIP chunk %d\n", err);
|
|
HeapFree(GetProcessHeap(), 0, decomp_buffer);
|
|
return DXFILEERR_BADALLOC;
|
|
}
|
|
buf->rem_bytes -= comp_chunk_size;
|
|
buf->buffer += comp_chunk_size;
|
|
decomp_buffer += decomp_chunk_size;
|
|
}
|
|
|
|
if ((decomp_buffer - *decomp_buffer_ptr) != decomp_file_size)
|
|
ERR("Size of all decompressed chunks (%u) does not match decompressed file size (%u)\n",
|
|
(DWORD)(decomp_buffer - *decomp_buffer_ptr), decomp_file_size);
|
|
|
|
/* Use decompressed data */
|
|
buf->buffer = *decomp_buffer_ptr;
|
|
buf->rem_bytes = decomp_file_size;
|
|
}
|
|
|
|
TRACE("Header is correct\n");
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static void dump_TOKEN(WORD token)
|
|
{
|
|
#define DUMP_TOKEN(t) case t: TRACE(#t "\n"); break
|
|
switch(token)
|
|
{
|
|
DUMP_TOKEN(TOKEN_NAME);
|
|
DUMP_TOKEN(TOKEN_STRING);
|
|
DUMP_TOKEN(TOKEN_INTEGER);
|
|
DUMP_TOKEN(TOKEN_GUID);
|
|
DUMP_TOKEN(TOKEN_INTEGER_LIST);
|
|
DUMP_TOKEN(TOKEN_FLOAT_LIST);
|
|
DUMP_TOKEN(TOKEN_OBRACE);
|
|
DUMP_TOKEN(TOKEN_CBRACE);
|
|
DUMP_TOKEN(TOKEN_OPAREN);
|
|
DUMP_TOKEN(TOKEN_CPAREN);
|
|
DUMP_TOKEN(TOKEN_OBRACKET);
|
|
DUMP_TOKEN(TOKEN_CBRACKET);
|
|
DUMP_TOKEN(TOKEN_OANGLE);
|
|
DUMP_TOKEN(TOKEN_CANGLE);
|
|
DUMP_TOKEN(TOKEN_DOT);
|
|
DUMP_TOKEN(TOKEN_COMMA);
|
|
DUMP_TOKEN(TOKEN_SEMICOLON);
|
|
DUMP_TOKEN(TOKEN_TEMPLATE);
|
|
DUMP_TOKEN(TOKEN_WORD);
|
|
DUMP_TOKEN(TOKEN_DWORD);
|
|
DUMP_TOKEN(TOKEN_FLOAT);
|
|
DUMP_TOKEN(TOKEN_DOUBLE);
|
|
DUMP_TOKEN(TOKEN_CHAR);
|
|
DUMP_TOKEN(TOKEN_UCHAR);
|
|
DUMP_TOKEN(TOKEN_SWORD);
|
|
DUMP_TOKEN(TOKEN_SDWORD);
|
|
DUMP_TOKEN(TOKEN_VOID);
|
|
DUMP_TOKEN(TOKEN_LPSTR);
|
|
DUMP_TOKEN(TOKEN_UNICODE);
|
|
DUMP_TOKEN(TOKEN_CSTRING);
|
|
DUMP_TOKEN(TOKEN_ARRAY);
|
|
default:
|
|
if (0)
|
|
TRACE("Unknown token %d\n", token);
|
|
break;
|
|
}
|
|
#undef DUMP_TOKEN
|
|
}
|
|
|
|
static BOOL is_space(char c)
|
|
{
|
|
switch (c)
|
|
{
|
|
case 0x00:
|
|
case 0x0D:
|
|
case 0x0A:
|
|
case ' ':
|
|
case '\t':
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
static BOOL is_operator(char c)
|
|
{
|
|
switch(c)
|
|
{
|
|
case '{':
|
|
case '}':
|
|
case '[':
|
|
case ']':
|
|
case '(':
|
|
case ')':
|
|
case '<':
|
|
case '>':
|
|
case ',':
|
|
case ';':
|
|
return TRUE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
static inline BOOL is_separator(char c)
|
|
{
|
|
return is_space(c) || is_operator(c);
|
|
}
|
|
|
|
static WORD get_operator_token(char c)
|
|
{
|
|
switch(c)
|
|
{
|
|
case '{':
|
|
return TOKEN_OBRACE;
|
|
case '}':
|
|
return TOKEN_CBRACE;
|
|
case '[':
|
|
return TOKEN_OBRACKET;
|
|
case ']':
|
|
return TOKEN_CBRACKET;
|
|
case '(':
|
|
return TOKEN_OPAREN;
|
|
case ')':
|
|
return TOKEN_CPAREN;
|
|
case '<':
|
|
return TOKEN_OANGLE;
|
|
case '>':
|
|
return TOKEN_CANGLE;
|
|
case ',':
|
|
return TOKEN_COMMA;
|
|
case ';':
|
|
return TOKEN_SEMICOLON;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static BOOL is_keyword(parse_buffer* buf, const char* keyword)
|
|
{
|
|
char tmp[8]; /* longest keyword size (template) */
|
|
DWORD len = strlen(keyword);
|
|
|
|
if (!read_bytes(buf, tmp, len))
|
|
return FALSE;
|
|
if (strncasecmp(tmp, keyword, len))
|
|
{
|
|
rewind_bytes(buf, len);
|
|
return FALSE;
|
|
}
|
|
|
|
if (!read_bytes(buf, tmp, 1))
|
|
return TRUE;
|
|
if (is_separator(tmp[0]))
|
|
{
|
|
rewind_bytes(buf, 1);
|
|
return TRUE;
|
|
}
|
|
rewind_bytes(buf, len+1);
|
|
return FALSE;
|
|
}
|
|
|
|
static WORD get_keyword_token(parse_buffer* buf)
|
|
{
|
|
if (is_keyword(buf, "template"))
|
|
return TOKEN_TEMPLATE;
|
|
if (is_keyword(buf, "WORD"))
|
|
return TOKEN_WORD;
|
|
if (is_keyword(buf, "DWORD"))
|
|
return TOKEN_DWORD;
|
|
if (is_keyword(buf, "FLOAT"))
|
|
return TOKEN_FLOAT;
|
|
if (is_keyword(buf, "DOUBLE"))
|
|
return TOKEN_DOUBLE;
|
|
if (is_keyword(buf, "CHAR"))
|
|
return TOKEN_CHAR;
|
|
if (is_keyword(buf, "UCHAR"))
|
|
return TOKEN_UCHAR;
|
|
if (is_keyword(buf, "SWORD"))
|
|
return TOKEN_SWORD;
|
|
if (is_keyword(buf, "SDWORD"))
|
|
return TOKEN_SDWORD;
|
|
if (is_keyword(buf, "VOID"))
|
|
return TOKEN_VOID;
|
|
if (is_keyword(buf, "STRING"))
|
|
return TOKEN_LPSTR;
|
|
if (is_keyword(buf, "UNICODE"))
|
|
return TOKEN_UNICODE;
|
|
if (is_keyword(buf, "CSTRING"))
|
|
return TOKEN_CSTRING;
|
|
if (is_keyword(buf, "array"))
|
|
return TOKEN_ARRAY;
|
|
|
|
return 0;
|
|
}
|
|
|
|
static BOOL is_guid(parse_buffer* buf)
|
|
{
|
|
char tmp[50];
|
|
DWORD pos = 1;
|
|
GUID class_id;
|
|
DWORD tab[10];
|
|
int ret;
|
|
|
|
if (buf->rem_bytes < 38 || *buf->buffer != '<')
|
|
return FALSE;
|
|
tmp[0] = '<';
|
|
while (pos < sizeof(tmp) - 2 && *(buf->buffer+pos) != '>')
|
|
{
|
|
tmp[pos] = *(buf->buffer+pos);
|
|
pos++;
|
|
}
|
|
tmp[pos++] = '>';
|
|
tmp[pos] = 0;
|
|
if (pos != 38 /* <+36+> */)
|
|
{
|
|
TRACE("Wrong guid %s (%d)\n", tmp, pos);
|
|
return FALSE;
|
|
}
|
|
buf->buffer += pos;
|
|
buf->rem_bytes -= pos;
|
|
|
|
ret = sscanf(tmp, CLSIDFMT, &class_id.Data1, tab, tab+1, tab+2, tab+3, tab+4, tab+5, tab+6, tab+7, tab+8, tab+9);
|
|
if (ret != 11)
|
|
{
|
|
TRACE("Wrong guid %s (%d)\n", tmp, pos);
|
|
return FALSE;
|
|
}
|
|
TRACE("Found guid %s (%d)\n", tmp, pos);
|
|
|
|
class_id.Data2 = tab[0];
|
|
class_id.Data3 = tab[1];
|
|
class_id.Data4[0] = tab[2];
|
|
class_id.Data4[1] = tab[3];
|
|
class_id.Data4[2] = tab[4];
|
|
class_id.Data4[3] = tab[5];
|
|
class_id.Data4[4] = tab[6];
|
|
class_id.Data4[5] = tab[7];
|
|
class_id.Data4[6] = tab[8];
|
|
class_id.Data4[7] = tab[9];
|
|
|
|
*(GUID*)buf->value = class_id;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL is_name(parse_buffer* buf)
|
|
{
|
|
char tmp[512];
|
|
DWORD pos = 0;
|
|
char c;
|
|
BOOL error = 0;
|
|
while (pos < buf->rem_bytes && !is_separator(c = *(buf->buffer+pos)))
|
|
{
|
|
if (!(((c >= 'a') && (c <= 'z')) || ((c >= 'A') && (c <= 'Z')) || ((c >= '0') && (c <= '9')) || (c == '_') || (c == '-')))
|
|
error = 1;
|
|
if (pos < sizeof(tmp))
|
|
tmp[pos] = c;
|
|
pos++;
|
|
}
|
|
tmp[min(pos, sizeof(tmp) - 1)] = 0;
|
|
|
|
if (error)
|
|
{
|
|
TRACE("Wrong name %s\n", tmp);
|
|
return FALSE;
|
|
}
|
|
|
|
buf->buffer += pos;
|
|
buf->rem_bytes -= pos;
|
|
|
|
TRACE("Found name %s\n", tmp);
|
|
strcpy((char*)buf->value, tmp);
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL is_float(parse_buffer* buf)
|
|
{
|
|
char tmp[512];
|
|
DWORD pos = 0;
|
|
char c;
|
|
float decimal;
|
|
BOOL dot = 0;
|
|
|
|
while (pos < buf->rem_bytes && !is_separator(c = *(buf->buffer+pos)))
|
|
{
|
|
if (!((!pos && (c == '-')) || ((c >= '0') && (c <= '9')) || (!dot && (c == '.'))))
|
|
return FALSE;
|
|
if (c == '.')
|
|
dot = TRUE;
|
|
if (pos < sizeof(tmp))
|
|
tmp[pos] = c;
|
|
pos++;
|
|
}
|
|
tmp[min(pos, sizeof(tmp) - 1)] = 0;
|
|
|
|
buf->buffer += pos;
|
|
buf->rem_bytes -= pos;
|
|
|
|
sscanf(tmp, "%f", &decimal);
|
|
|
|
TRACE("Found float %s - %f\n", tmp, decimal);
|
|
|
|
*(float*)buf->value = decimal;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL is_integer(parse_buffer* buf)
|
|
{
|
|
char tmp[512];
|
|
DWORD pos = 0;
|
|
char c;
|
|
DWORD integer;
|
|
|
|
while (pos < buf->rem_bytes && !is_separator(c = *(buf->buffer+pos)))
|
|
{
|
|
if (!((c >= '0') && (c <= '9')))
|
|
return FALSE;
|
|
if (pos < sizeof(tmp))
|
|
tmp[pos] = c;
|
|
pos++;
|
|
}
|
|
tmp[min(pos, sizeof(tmp) - 1)] = 0;
|
|
|
|
buf->buffer += pos;
|
|
buf->rem_bytes -= pos;
|
|
|
|
sscanf(tmp, "%d", &integer);
|
|
|
|
TRACE("Found integer %s - %d\n", tmp, integer);
|
|
|
|
*(DWORD*)buf->value = integer;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL is_string(parse_buffer* buf)
|
|
{
|
|
char tmp[512];
|
|
DWORD pos = 0;
|
|
char c;
|
|
BOOL ok = 0;
|
|
|
|
if (*buf->buffer != '"')
|
|
return FALSE;
|
|
|
|
while ((pos+1) < buf->rem_bytes)
|
|
{
|
|
c = *(buf->buffer+pos+1);
|
|
if (c == '"')
|
|
{
|
|
ok = 1;
|
|
break;
|
|
}
|
|
if (pos < sizeof(tmp))
|
|
tmp[pos] = c;
|
|
pos++;
|
|
}
|
|
tmp[min(pos, sizeof(tmp) - 1)] = 0;
|
|
|
|
if (!ok)
|
|
{
|
|
TRACE("Wrong string %s\n", tmp);
|
|
return FALSE;
|
|
}
|
|
|
|
buf->buffer += pos + 2;
|
|
buf->rem_bytes -= pos + 2;
|
|
|
|
TRACE("Found string %s\n", tmp);
|
|
strcpy((char*)buf->value, tmp);
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static WORD parse_TOKEN(parse_buffer * buf)
|
|
{
|
|
WORD token;
|
|
|
|
if (buf->txt)
|
|
{
|
|
while(1)
|
|
{
|
|
char c;
|
|
if (!read_bytes(buf, &c, 1))
|
|
return 0;
|
|
/*TRACE("char = '%c'\n", is_space(c) ? ' ' : c);*/
|
|
if ((c == '#') || (c == '/'))
|
|
{
|
|
/* Handle comment (# or //) */
|
|
if (c == '/')
|
|
{
|
|
if (!read_bytes(buf, &c, 1))
|
|
return 0;
|
|
if (c != '/')
|
|
return 0;
|
|
}
|
|
c = 0;
|
|
while (c != 0x0A)
|
|
{
|
|
if (!read_bytes(buf, &c, 1))
|
|
return 0;
|
|
}
|
|
continue;
|
|
}
|
|
if (is_space(c))
|
|
continue;
|
|
if (is_operator(c) && (c != '<'))
|
|
{
|
|
token = get_operator_token(c);
|
|
break;
|
|
}
|
|
else if (c == '.')
|
|
{
|
|
token = TOKEN_DOT;
|
|
break;
|
|
}
|
|
else
|
|
{
|
|
rewind_bytes(buf, 1);
|
|
|
|
if ((token = get_keyword_token(buf)))
|
|
break;
|
|
|
|
if (is_guid(buf))
|
|
{
|
|
token = TOKEN_GUID;
|
|
break;
|
|
}
|
|
if (is_integer(buf))
|
|
{
|
|
token = TOKEN_INTEGER;
|
|
break;
|
|
}
|
|
if (is_float(buf))
|
|
{
|
|
token = TOKEN_FLOAT;
|
|
break;
|
|
}
|
|
if (is_string(buf))
|
|
{
|
|
token = TOKEN_LPSTR;
|
|
break;
|
|
}
|
|
if (is_name(buf))
|
|
{
|
|
token = TOKEN_NAME;
|
|
break;
|
|
}
|
|
|
|
FIXME("Unrecognize element\n");
|
|
return 0;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
static int nb_elem;
|
|
static int is_float;
|
|
|
|
if (!nb_elem)
|
|
{
|
|
if (!read_bytes(buf, &token, 2))
|
|
return 0;
|
|
|
|
/* Convert integer and float list into separate elements */
|
|
if (token == TOKEN_INTEGER_LIST)
|
|
{
|
|
if (!read_bytes(buf, &nb_elem, 4))
|
|
return 0;
|
|
token = TOKEN_INTEGER;
|
|
is_float = FALSE;
|
|
TRACE("Integer list (TOKEN_INTEGER_LIST) of size %d\n", nb_elem);
|
|
}
|
|
else if (token == TOKEN_FLOAT_LIST)
|
|
{
|
|
if (!read_bytes(buf, &nb_elem, 4))
|
|
return 0;
|
|
token = TOKEN_FLOAT;
|
|
is_float = TRUE;
|
|
TRACE("Float list (TOKEN_FLOAT_LIST) of size %d\n", nb_elem);
|
|
}
|
|
}
|
|
|
|
if (nb_elem)
|
|
{
|
|
token = is_float ? TOKEN_FLOAT : TOKEN_INTEGER;
|
|
nb_elem--;
|
|
{
|
|
DWORD integer;
|
|
|
|
if (!read_bytes(buf, &integer, 4))
|
|
return 0;
|
|
|
|
*(DWORD*)buf->value = integer;
|
|
}
|
|
dump_TOKEN(token);
|
|
return token;
|
|
}
|
|
|
|
switch (token)
|
|
{
|
|
case TOKEN_NAME:
|
|
{
|
|
DWORD count;
|
|
char strname[100];
|
|
|
|
if (!read_bytes(buf, &count, 4))
|
|
return 0;
|
|
if (!read_bytes(buf, strname, count))
|
|
return 0;
|
|
strname[count] = 0;
|
|
/*TRACE("name = %s\n", strname);*/
|
|
|
|
strcpy((char*)buf->value, strname);
|
|
}
|
|
break;
|
|
case TOKEN_INTEGER:
|
|
{
|
|
DWORD integer;
|
|
|
|
if (!read_bytes(buf, &integer, 4))
|
|
return 0;
|
|
/*TRACE("integer = %ld\n", integer);*/
|
|
|
|
*(DWORD*)buf->value = integer;
|
|
}
|
|
break;
|
|
case TOKEN_GUID:
|
|
{
|
|
char strguid[39];
|
|
GUID class_id;
|
|
|
|
if (!read_bytes(buf, &class_id, 16))
|
|
return 0;
|
|
sprintf(strguid, CLSIDFMT, class_id.Data1, class_id.Data2, class_id.Data3, class_id.Data4[0],
|
|
class_id.Data4[1], class_id.Data4[2], class_id.Data4[3], class_id.Data4[4], class_id.Data4[5],
|
|
class_id.Data4[6], class_id.Data4[7]);
|
|
/*TRACE("guid = {%s}\n", strguid);*/
|
|
|
|
*(GUID*)buf->value = class_id;
|
|
}
|
|
break;
|
|
case TOKEN_STRING:
|
|
{
|
|
DWORD count;
|
|
WORD tmp_token;
|
|
char strname[100];
|
|
if (!read_bytes(buf, &count, 4))
|
|
return 0;
|
|
if (!read_bytes(buf, strname, count))
|
|
return 0;
|
|
strname[count] = 0;
|
|
if (!read_bytes(buf, &tmp_token, 2))
|
|
return 0;
|
|
if ((tmp_token != TOKEN_COMMA) && (tmp_token != TOKEN_SEMICOLON))
|
|
ERR("No comma or semicolon (got %d)\n", tmp_token);
|
|
/*TRACE("name = %s\n", strname);*/
|
|
|
|
strcpy((char*)buf->value, strname);
|
|
token = TOKEN_LPSTR;
|
|
}
|
|
break;
|
|
case TOKEN_OBRACE:
|
|
case TOKEN_CBRACE:
|
|
case TOKEN_OPAREN:
|
|
case TOKEN_CPAREN:
|
|
case TOKEN_OBRACKET:
|
|
case TOKEN_CBRACKET:
|
|
case TOKEN_OANGLE:
|
|
case TOKEN_CANGLE:
|
|
case TOKEN_DOT:
|
|
case TOKEN_COMMA:
|
|
case TOKEN_SEMICOLON:
|
|
case TOKEN_TEMPLATE:
|
|
case TOKEN_WORD:
|
|
case TOKEN_DWORD:
|
|
case TOKEN_FLOAT:
|
|
case TOKEN_DOUBLE:
|
|
case TOKEN_CHAR:
|
|
case TOKEN_UCHAR:
|
|
case TOKEN_SWORD:
|
|
case TOKEN_SDWORD:
|
|
case TOKEN_VOID:
|
|
case TOKEN_LPSTR:
|
|
case TOKEN_UNICODE:
|
|
case TOKEN_CSTRING:
|
|
case TOKEN_ARRAY:
|
|
break;
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
dump_TOKEN(token);
|
|
|
|
return token;
|
|
}
|
|
|
|
static WORD get_TOKEN(parse_buffer * buf)
|
|
{
|
|
if (buf->token_present)
|
|
{
|
|
buf->token_present = FALSE;
|
|
return buf->current_token;
|
|
}
|
|
|
|
buf->current_token = parse_TOKEN(buf);
|
|
|
|
return buf->current_token;
|
|
}
|
|
|
|
static WORD check_TOKEN(parse_buffer * buf)
|
|
{
|
|
if (buf->token_present)
|
|
return buf->current_token;
|
|
|
|
buf->current_token = parse_TOKEN(buf);
|
|
buf->token_present = TRUE;
|
|
|
|
return buf->current_token;
|
|
}
|
|
|
|
static BOOL is_template_available(parse_buffer * buf)
|
|
{
|
|
return check_TOKEN(buf) == TOKEN_TEMPLATE;
|
|
}
|
|
|
|
static inline BOOL is_primitive_type(WORD token)
|
|
{
|
|
BOOL ret;
|
|
switch(token)
|
|
{
|
|
case TOKEN_WORD:
|
|
case TOKEN_DWORD:
|
|
case TOKEN_FLOAT:
|
|
case TOKEN_DOUBLE:
|
|
case TOKEN_CHAR:
|
|
case TOKEN_UCHAR:
|
|
case TOKEN_SWORD:
|
|
case TOKEN_SDWORD:
|
|
case TOKEN_LPSTR:
|
|
case TOKEN_UNICODE:
|
|
case TOKEN_CSTRING:
|
|
ret = 1;
|
|
break;
|
|
default:
|
|
ret = 0;
|
|
break;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
static BOOL parse_template_option_info(parse_buffer * buf)
|
|
{
|
|
xtemplate* cur_template = &buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates];
|
|
|
|
if (check_TOKEN(buf) == TOKEN_DOT)
|
|
{
|
|
get_TOKEN(buf);
|
|
if (get_TOKEN(buf) != TOKEN_DOT)
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_DOT)
|
|
return FALSE;
|
|
cur_template->open = TRUE;
|
|
}
|
|
else
|
|
{
|
|
while (1)
|
|
{
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
strcpy(cur_template->children[cur_template->nb_children], (char*)buf->value);
|
|
if (check_TOKEN(buf) == TOKEN_GUID)
|
|
get_TOKEN(buf);
|
|
cur_template->nb_children++;
|
|
if (check_TOKEN(buf) != TOKEN_COMMA)
|
|
break;
|
|
get_TOKEN(buf);
|
|
}
|
|
cur_template->open = FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL parse_template_members_list(parse_buffer * buf)
|
|
{
|
|
int idx_member = 0;
|
|
member* cur_member;
|
|
|
|
while (1)
|
|
{
|
|
BOOL array = 0;
|
|
int nb_dims = 0;
|
|
cur_member = &buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[idx_member];
|
|
|
|
if (check_TOKEN(buf) == TOKEN_ARRAY)
|
|
{
|
|
get_TOKEN(buf);
|
|
array = 1;
|
|
}
|
|
|
|
if (check_TOKEN(buf) == TOKEN_NAME)
|
|
{
|
|
cur_member->type = get_TOKEN(buf);
|
|
cur_member->idx_template = 0;
|
|
while (cur_member->idx_template < buf->pdxf->nb_xtemplates)
|
|
{
|
|
if (!strcasecmp((char*)buf->value, buf->pdxf->xtemplates[cur_member->idx_template].name))
|
|
break;
|
|
cur_member->idx_template++;
|
|
}
|
|
if (cur_member->idx_template == buf->pdxf->nb_xtemplates)
|
|
{
|
|
ERR("Reference to a nonexistent template '%s'\n", (char*)buf->value);
|
|
return FALSE;
|
|
}
|
|
}
|
|
else if (is_primitive_type(check_TOKEN(buf)))
|
|
cur_member->type = get_TOKEN(buf);
|
|
else
|
|
break;
|
|
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
strcpy(cur_member->name, (char*)buf->value);
|
|
|
|
if (array)
|
|
{
|
|
while (check_TOKEN(buf) == TOKEN_OBRACKET)
|
|
{
|
|
if (nb_dims >= MAX_ARRAY_DIM)
|
|
{
|
|
FIXME("Too many dimensions (%d) for multi-dimensional array\n", nb_dims + 1);
|
|
return FALSE;
|
|
}
|
|
get_TOKEN(buf);
|
|
if (check_TOKEN(buf) == TOKEN_INTEGER)
|
|
{
|
|
get_TOKEN(buf);
|
|
cur_member->dim_fixed[nb_dims] = TRUE;
|
|
cur_member->dim_value[nb_dims] = *(DWORD*)buf->value;
|
|
}
|
|
else
|
|
{
|
|
int i;
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
for (i = 0; i < idx_member; i++)
|
|
{
|
|
if (!strcmp((char*)buf->value, buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].name))
|
|
{
|
|
if (buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].nb_dims)
|
|
{
|
|
ERR("Array cannot be used to specify variable array size\n");
|
|
return FALSE;
|
|
}
|
|
if (buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].members[i].type != TOKEN_DWORD)
|
|
{
|
|
FIXME("Only DWORD supported to specify variable array size\n");
|
|
return FALSE;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
if (i == idx_member)
|
|
{
|
|
ERR("Reference to unknown member %s\n", (char*)buf->value);
|
|
return FALSE;
|
|
}
|
|
cur_member->dim_fixed[nb_dims] = FALSE;
|
|
cur_member->dim_value[nb_dims] = i;
|
|
}
|
|
if (get_TOKEN(buf) != TOKEN_CBRACKET)
|
|
return FALSE;
|
|
nb_dims++;
|
|
}
|
|
if (!nb_dims)
|
|
return FALSE;
|
|
cur_member->nb_dims = nb_dims;
|
|
}
|
|
if (get_TOKEN(buf) != TOKEN_SEMICOLON)
|
|
return FALSE;
|
|
|
|
idx_member++;
|
|
}
|
|
|
|
buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].nb_members = idx_member;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL parse_template_parts(parse_buffer * buf)
|
|
{
|
|
if (!parse_template_members_list(buf))
|
|
return FALSE;
|
|
if (check_TOKEN(buf) == TOKEN_OBRACKET)
|
|
{
|
|
get_TOKEN(buf);
|
|
if (!parse_template_option_info(buf))
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_CBRACKET)
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static void go_to_next_definition(parse_buffer * buf)
|
|
{
|
|
char c;
|
|
while (buf->rem_bytes)
|
|
{
|
|
if (!read_bytes(buf, &c, 1))
|
|
return;
|
|
if ((c == '#') || (c == '/'))
|
|
{
|
|
/* Handle comment (# or //) */
|
|
if (c == '/')
|
|
{
|
|
if (!read_bytes(buf, &c, 1))
|
|
return;
|
|
if (c != '/')
|
|
return;
|
|
}
|
|
c = 0;
|
|
while (c != 0x0A)
|
|
{
|
|
if (!read_bytes(buf, &c, 1))
|
|
return;
|
|
}
|
|
continue;
|
|
}
|
|
else if (!is_space(c))
|
|
{
|
|
rewind_bytes(buf, 1);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
static BOOL parse_template(parse_buffer * buf)
|
|
{
|
|
if (get_TOKEN(buf) != TOKEN_TEMPLATE)
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
strcpy(buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].name, (char*)buf->value);
|
|
if (get_TOKEN(buf) != TOKEN_OBRACE)
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_GUID)
|
|
return FALSE;
|
|
buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].class_id = *(GUID*)buf->value;
|
|
if (!parse_template_parts(buf))
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_CBRACE)
|
|
return FALSE;
|
|
if (buf->txt)
|
|
{
|
|
/* Go to the next template */
|
|
go_to_next_definition(buf);
|
|
}
|
|
|
|
TRACE("%d - %s - %s\n", buf->pdxf->nb_xtemplates, buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].name, debugstr_guid(&buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates].class_id));
|
|
buf->pdxf->nb_xtemplates++;
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL parse_templates(parse_buffer * buf)
|
|
{
|
|
while (buf->rem_bytes && is_template_available(buf))
|
|
{
|
|
if (!parse_template(buf))
|
|
{
|
|
WARN("Template is not correct\n");
|
|
return FALSE;
|
|
}
|
|
else
|
|
{
|
|
TRACE("Template successfully parsed:\n");
|
|
if (TRACE_ON(d3dxof_parsing))
|
|
dump_template(buf->pdxf->xtemplates, &buf->pdxf->xtemplates[buf->pdxf->nb_xtemplates - 1]);
|
|
}
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL check_buffer(parse_buffer * buf, ULONG size)
|
|
{
|
|
if ((buf->cur_pos_data + size) > buf->capacity)
|
|
{
|
|
LPBYTE pdata;
|
|
ULONG new_capacity = buf->capacity ? 2 * buf->capacity : 100000;
|
|
|
|
pdata = HeapAlloc(GetProcessHeap(), 0, new_capacity);
|
|
if (!pdata)
|
|
return FALSE;
|
|
memcpy(pdata, buf->pdata, buf->cur_pos_data);
|
|
HeapFree(GetProcessHeap(), 0, buf->pdata);
|
|
buf->capacity = new_capacity;
|
|
buf->pdata = pdata;
|
|
buf->pxo->root->pdata = pdata;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL parse_object_parts(parse_buffer * buf, BOOL allow_optional);
|
|
static BOOL parse_object_members_list(parse_buffer * buf)
|
|
{
|
|
DWORD token;
|
|
ULONG i;
|
|
xtemplate* pt = buf->pxt[buf->level];
|
|
|
|
buf->pxo->nb_members = pt->nb_members;
|
|
|
|
for (i = 0; i < pt->nb_members; i++)
|
|
{
|
|
ULONG k;
|
|
ULONG nb_elems = 1;
|
|
|
|
buf->pxo->members[i].name = pt->members[i].name;
|
|
buf->pxo->members[i].start = buf->cur_pos_data;
|
|
|
|
for (k = 0; k < pt->members[i].nb_dims; k++)
|
|
{
|
|
if (pt->members[i].dim_fixed[k])
|
|
nb_elems *= pt->members[i].dim_value[k];
|
|
else
|
|
nb_elems *= *(DWORD*)(buf->pxo->root->pdata + buf->pxo->members[pt->members[i].dim_value[k]].start);
|
|
}
|
|
|
|
TRACE("Elements to consider: %u\n", nb_elems);
|
|
|
|
for (k = 0; k < nb_elems; k++)
|
|
{
|
|
if (buf->txt && k)
|
|
{
|
|
token = check_TOKEN(buf);
|
|
if (token == TOKEN_COMMA)
|
|
{
|
|
get_TOKEN(buf);
|
|
}
|
|
else
|
|
{
|
|
/* Allow comma omission */
|
|
if (!((token == TOKEN_FLOAT) || (token == TOKEN_INTEGER)))
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
if (pt->members[i].type == TOKEN_NAME)
|
|
{
|
|
ULONG j;
|
|
|
|
TRACE("Found sub-object %s\n", buf->pdxf->xtemplates[pt->members[i].idx_template].name);
|
|
buf->level++;
|
|
/* To do template lookup */
|
|
for (j = 0; j < buf->pdxf->nb_xtemplates; j++)
|
|
{
|
|
if (!strcasecmp(buf->pdxf->xtemplates[pt->members[i].idx_template].name, buf->pdxf->xtemplates[j].name))
|
|
{
|
|
buf->pxt[buf->level] = &buf->pdxf->xtemplates[j];
|
|
break;
|
|
}
|
|
}
|
|
if (j == buf->pdxf->nb_xtemplates)
|
|
{
|
|
ERR("Unknown template %s\n", (char*)buf->value);
|
|
buf->level--;
|
|
return FALSE;
|
|
}
|
|
TRACE("Enter %s\n", buf->pdxf->xtemplates[pt->members[i].idx_template].name);
|
|
if (!parse_object_parts(buf, FALSE))
|
|
{
|
|
buf->level--;
|
|
return FALSE;
|
|
}
|
|
buf->level--;
|
|
}
|
|
else
|
|
{
|
|
token = check_TOKEN(buf);
|
|
if (token == TOKEN_INTEGER)
|
|
{
|
|
get_TOKEN(buf);
|
|
TRACE("%s = %d\n", pt->members[i].name, *(DWORD*)buf->value);
|
|
/* Assume larger size */
|
|
if (!check_buffer(buf, 4))
|
|
return FALSE;
|
|
if (pt->members[i].type == TOKEN_WORD)
|
|
{
|
|
*(((WORD*)(buf->pdata + buf->cur_pos_data))) = (WORD)(*(DWORD*)buf->value);
|
|
buf->cur_pos_data += 2;
|
|
}
|
|
else if (pt->members[i].type == TOKEN_DWORD)
|
|
{
|
|
*(((DWORD*)(buf->pdata + buf->cur_pos_data))) = (DWORD)(*(DWORD*)buf->value);
|
|
buf->cur_pos_data += 4;
|
|
}
|
|
else
|
|
{
|
|
FIXME("Token %d not supported\n", pt->members[i].type);
|
|
return FALSE;
|
|
}
|
|
}
|
|
else if (token == TOKEN_FLOAT)
|
|
{
|
|
get_TOKEN(buf);
|
|
TRACE("%s = %f\n", pt->members[i].name, *(float*)buf->value);
|
|
if (!check_buffer(buf, 4))
|
|
return FALSE;
|
|
if (pt->members[i].type == TOKEN_FLOAT)
|
|
{
|
|
*(((float*)(buf->pdata + buf->cur_pos_data))) = (float)(*(float*)buf->value);
|
|
buf->cur_pos_data += 4;
|
|
}
|
|
else
|
|
{
|
|
FIXME("Token %d not supported\n", pt->members[i].type);
|
|
return FALSE;
|
|
}
|
|
}
|
|
else if (token == TOKEN_LPSTR)
|
|
{
|
|
get_TOKEN(buf);
|
|
TRACE("%s = %s\n", pt->members[i].name, (char*)buf->value);
|
|
if (!check_buffer(buf, sizeof(LPSTR)))
|
|
return FALSE;
|
|
if (pt->members[i].type == TOKEN_LPSTR)
|
|
{
|
|
int len = strlen((char*)buf->value) + 1;
|
|
if ((buf->cur_pstrings - buf->pstrings + len) > MAX_STRINGS_BUFFER)
|
|
{
|
|
FIXME("Buffer too small %p %p %d\n", buf->cur_pstrings, buf->pstrings, len);
|
|
return FALSE;
|
|
}
|
|
strcpy((char*)buf->cur_pstrings, (char*)buf->value);
|
|
*(((LPCSTR*)(buf->pdata + buf->cur_pos_data))) = (char*)buf->cur_pstrings;
|
|
buf->cur_pstrings += len;
|
|
buf->cur_pos_data += sizeof(LPSTR);
|
|
}
|
|
else
|
|
{
|
|
FIXME("Token %d not supported\n", pt->members[i].type);
|
|
return FALSE;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
FIXME("Unexpected token %d\n", token);
|
|
return FALSE;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* Empty arrays can have the semicolon at the end or not so remove it if any and skip next check */
|
|
if (!nb_elems && (check_TOKEN(buf) == TOKEN_SEMICOLON))
|
|
get_TOKEN(buf);
|
|
|
|
if (nb_elems && buf->txt && (check_TOKEN(buf) != TOKEN_CBRACE) && (check_TOKEN(buf) != TOKEN_NAME))
|
|
{
|
|
token = get_TOKEN(buf);
|
|
if ((token != TOKEN_SEMICOLON) && (token != TOKEN_COMMA))
|
|
return FALSE;
|
|
}
|
|
buf->pxo->members[i].size = buf->cur_pos_data - buf->pxo->members[i].start;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
static BOOL parse_object_parts(parse_buffer * buf, BOOL allow_optional)
|
|
{
|
|
buf->pxo->nb_children = 0;
|
|
|
|
if (!parse_object_members_list(buf))
|
|
return FALSE;
|
|
|
|
if (allow_optional)
|
|
{
|
|
buf->pxo->size = buf->cur_pos_data - buf->pxo->pos_data;
|
|
|
|
/* Skip trailing semicolon */
|
|
while (check_TOKEN(buf) == TOKEN_SEMICOLON)
|
|
get_TOKEN(buf);
|
|
|
|
while (1)
|
|
{
|
|
if (check_TOKEN(buf) == TOKEN_OBRACE)
|
|
{
|
|
ULONG i, j;
|
|
get_TOKEN(buf);
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_CBRACE)
|
|
return FALSE;
|
|
TRACE("Found optional reference %s\n", (char*)buf->value);
|
|
for (i = 0; i < (buf->nb_pxo_globals+1); i++)
|
|
{
|
|
for (j = 0; j < (buf->pxo_globals[i])[0].nb_subobjects; j++)
|
|
{
|
|
if (!strcmp((buf->pxo_globals[i])[j].name, (char*)buf->value))
|
|
goto _exit;
|
|
}
|
|
}
|
|
_exit:
|
|
if (i == (buf->nb_pxo_globals+1))
|
|
{
|
|
ERR("Reference to unknown object %s\n", (char*)buf->value);
|
|
return FALSE;
|
|
}
|
|
|
|
if (buf->pxo->root->nb_subobjects >= MAX_SUBOBJECTS)
|
|
{
|
|
FIXME("Too many sub-objects\n");
|
|
return FALSE;
|
|
}
|
|
|
|
buf->pxo->children[buf->pxo->nb_children] = &buf->pxo_tab[buf->pxo->root->nb_subobjects++];
|
|
buf->pxo->children[buf->pxo->nb_children]->ptarget = &(buf->pxo_globals[i])[j];
|
|
buf->pxo->children[buf->pxo->nb_children]->binary = FALSE;
|
|
buf->pxo->nb_children++;
|
|
}
|
|
else if (check_TOKEN(buf) == TOKEN_NAME)
|
|
{
|
|
xobject* pxo = buf->pxo;
|
|
|
|
if (buf->pxo->root->nb_subobjects >= MAX_SUBOBJECTS)
|
|
{
|
|
FIXME("Too many sub-objects\n");
|
|
return FALSE;
|
|
}
|
|
|
|
buf->pxo = buf->pxo->children[buf->pxo->nb_children] = &buf->pxo_tab[buf->pxo->root->nb_subobjects++];
|
|
|
|
TRACE("Enter optional %s\n", (char*)buf->value);
|
|
buf->level++;
|
|
if (!parse_object(buf))
|
|
{
|
|
buf->level--;
|
|
return FALSE;
|
|
}
|
|
buf->level--;
|
|
buf->pxo = pxo;
|
|
buf->pxo->nb_children++;
|
|
}
|
|
else
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (buf->pxo->nb_children > MAX_CHILDREN)
|
|
{
|
|
FIXME("Too many children %d\n", buf->pxo->nb_children);
|
|
return FALSE;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
BOOL parse_object(parse_buffer * buf)
|
|
{
|
|
ULONG i;
|
|
|
|
buf->pxo->pos_data = buf->cur_pos_data;
|
|
buf->pxo->ptarget = NULL;
|
|
buf->pxo->binary = FALSE;
|
|
buf->pxo->root = buf->pxo_tab;
|
|
|
|
if (get_TOKEN(buf) != TOKEN_NAME)
|
|
return FALSE;
|
|
|
|
/* To do template lookup */
|
|
for (i = 0; i < buf->pdxf->nb_xtemplates; i++)
|
|
{
|
|
if (!strcasecmp((char*)buf->value, buf->pdxf->xtemplates[i].name))
|
|
{
|
|
buf->pxt[buf->level] = &buf->pdxf->xtemplates[i];
|
|
memcpy(&buf->pxo->type, &buf->pdxf->xtemplates[i].class_id, 16);
|
|
break;
|
|
}
|
|
}
|
|
if (i == buf->pdxf->nb_xtemplates)
|
|
{
|
|
ERR("Unknown template %s\n", (char*)buf->value);
|
|
return FALSE;
|
|
}
|
|
|
|
if (check_TOKEN(buf) == TOKEN_NAME)
|
|
{
|
|
get_TOKEN(buf);
|
|
strcpy(buf->pxo->name, (char*)buf->value);
|
|
}
|
|
else
|
|
buf->pxo->name[0] = 0;
|
|
|
|
if (get_TOKEN(buf) != TOKEN_OBRACE)
|
|
return FALSE;
|
|
if (check_TOKEN(buf) == TOKEN_GUID)
|
|
{
|
|
get_TOKEN(buf);
|
|
memcpy(&buf->pxo->class_id, buf->value, 16);
|
|
}
|
|
else
|
|
memset(&buf->pxo->class_id, 0, 16);
|
|
|
|
if (!parse_object_parts(buf, TRUE))
|
|
return FALSE;
|
|
if (get_TOKEN(buf) != TOKEN_CBRACE)
|
|
return FALSE;
|
|
|
|
if (buf->txt)
|
|
{
|
|
/* Go to the next object */
|
|
go_to_next_definition(buf);
|
|
}
|
|
|
|
return TRUE;
|
|
}
|