Windows2003-3790/multimedia/opengl/gls/lib/glsutil.c

1701 lines
52 KiB
C
Raw Permalink Normal View History

2001-01-01 00:00:00 +01:00
/*
** Copyright 1995-2095, Silicon Graphics, Inc.
** All Rights Reserved.
**
** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
** the contents of this file may not be disclosed to third parties, copied or
** duplicated in any form, in whole or in part, without the prior written
** permission of Silicon Graphics, Inc.
**
** RESTRICTED RIGHTS LEGEND:
** Use, duplication or disclosure by the Government is subject to restrictions
** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
** rights reserved under the Copyright Laws of the United States.
*/
#include "glslib.h"
#include <stdlib.h>
#include <string.h>
/******************************************************************************
Array
******************************************************************************/
void __glsArray_final(__GLSarray *inoutArray) {
free(inoutArray->base);
__glsArray_init(inoutArray);
}
void __glsArray_init(__GLSarray *outArray) {
outArray->base = GLS_NONE;
outArray->bufCount = outArray->count = 0;
}
void __glsArray_compact(__GLSarray *inoutArray, size_t inElemSize) {
if (inoutArray->bufCount == inoutArray->count) return;
if (inoutArray->count) {
GLvoid *const newBase = realloc(
inoutArray->base, inoutArray->count * inElemSize
);
if (newBase) {
inoutArray->base = newBase;
inoutArray->bufCount = inoutArray->count;
}
} else {
__glsArray_final(inoutArray);
}
}
void __glsArray_delete(
__GLSarray *inoutArray,
size_t inIndex,
size_t inCount,
size_t inElemSize
) {
if (inIndex >= inoutArray->count) return;
if (inIndex + inCount >= inoutArray->count) {
inoutArray->count = inIndex;
} else {
GLubyte *const p = (GLubyte *)inoutArray->base + inIndex * inElemSize;
memmove(
p,
p + inCount * inElemSize,
(inoutArray->count - (inIndex + inCount)) * inElemSize
);
inoutArray->count -= inCount;
}
}
GLboolean __glsArray_insert(
__GLSarray *inoutArray,
size_t inIndex,
size_t inCount,
GLboolean inInit,
size_t inElemSize
) {
const size_t newCount = inoutArray->count + inCount;
if (newCount > inoutArray->bufCount) {
size_t newBufCount = __glsCeilBase2(newCount);
GLvoid *buf = malloc(newBufCount * inElemSize);
if (!buf) {
newBufCount = newCount;
buf = __glsMalloc(newBufCount * inElemSize);
if (!buf) return GL_FALSE;
}
memmove(buf, inoutArray->base, inoutArray->count);
free(inoutArray->base);
inoutArray->base = buf;
inoutArray->bufCount = newBufCount;
}
if (inIndex < inoutArray->count) {
GLubyte *const p = (GLubyte *)inoutArray->base + inIndex * inElemSize;
memmove(
p + inCount * inElemSize,
p,
(inoutArray->count - inIndex) * inElemSize
);
} else {
inIndex = inoutArray->count;
}
if (inInit) {
memset(
(GLubyte *)inoutArray->base + inIndex * inElemSize,
0,
inCount * inElemSize
);
}
inoutArray->count = newCount;
return GL_TRUE;
}
/******************************************************************************
Checksum
******************************************************************************/
#define __GLS_CRC32_POLY 0x04c11db7 /* AUTODIN II, Ethernet, & FDDI */
#if __GLS_UNUSED
static void __glsCRC32tableInit(void) {
GLuint c, i, j;
for (i = 0; i < 256; ++i) {
for (c = i << 24, j = 8; j ; --j) {
c = c & 0x80000000 ? (c << 1) ^ __GLS_CRC32_POLY : (c << 1);
}
__glsCRC32table[i] = c;
}
}
#endif /* __GLS_UNUSED */
const GLuint __glsCRC32table[256] = {
0x00000000, 0x04c11db7, 0x09823b6e, 0x0d4326d9,
0x130476dc, 0x17c56b6b, 0x1a864db2, 0x1e475005,
0x2608edb8, 0x22c9f00f, 0x2f8ad6d6, 0x2b4bcb61,
0x350c9b64, 0x31cd86d3, 0x3c8ea00a, 0x384fbdbd,
0x4c11db70, 0x48d0c6c7, 0x4593e01e, 0x4152fda9,
0x5f15adac, 0x5bd4b01b, 0x569796c2, 0x52568b75,
0x6a1936c8, 0x6ed82b7f, 0x639b0da6, 0x675a1011,
0x791d4014, 0x7ddc5da3, 0x709f7b7a, 0x745e66cd,
0x9823b6e0, 0x9ce2ab57, 0x91a18d8e, 0x95609039,
0x8b27c03c, 0x8fe6dd8b, 0x82a5fb52, 0x8664e6e5,
0xbe2b5b58, 0xbaea46ef, 0xb7a96036, 0xb3687d81,
0xad2f2d84, 0xa9ee3033, 0xa4ad16ea, 0xa06c0b5d,
0xd4326d90, 0xd0f37027, 0xddb056fe, 0xd9714b49,
0xc7361b4c, 0xc3f706fb, 0xceb42022, 0xca753d95,
0xf23a8028, 0xf6fb9d9f, 0xfbb8bb46, 0xff79a6f1,
0xe13ef6f4, 0xe5ffeb43, 0xe8bccd9a, 0xec7dd02d,
0x34867077, 0x30476dc0, 0x3d044b19, 0x39c556ae,
0x278206ab, 0x23431b1c, 0x2e003dc5, 0x2ac12072,
0x128e9dcf, 0x164f8078, 0x1b0ca6a1, 0x1fcdbb16,
0x018aeb13, 0x054bf6a4, 0x0808d07d, 0x0cc9cdca,
0x7897ab07, 0x7c56b6b0, 0x71159069, 0x75d48dde,
0x6b93dddb, 0x6f52c06c, 0x6211e6b5, 0x66d0fb02,
0x5e9f46bf, 0x5a5e5b08, 0x571d7dd1, 0x53dc6066,
0x4d9b3063, 0x495a2dd4, 0x44190b0d, 0x40d816ba,
0xaca5c697, 0xa864db20, 0xa527fdf9, 0xa1e6e04e,
0xbfa1b04b, 0xbb60adfc, 0xb6238b25, 0xb2e29692,
0x8aad2b2f, 0x8e6c3698, 0x832f1041, 0x87ee0df6,
0x99a95df3, 0x9d684044, 0x902b669d, 0x94ea7b2a,
0xe0b41de7, 0xe4750050, 0xe9362689, 0xedf73b3e,
0xf3b06b3b, 0xf771768c, 0xfa325055, 0xfef34de2,
0xc6bcf05f, 0xc27dede8, 0xcf3ecb31, 0xcbffd686,
0xd5b88683, 0xd1799b34, 0xdc3abded, 0xd8fba05a,
0x690ce0ee, 0x6dcdfd59, 0x608edb80, 0x644fc637,
0x7a089632, 0x7ec98b85, 0x738aad5c, 0x774bb0eb,
0x4f040d56, 0x4bc510e1, 0x46863638, 0x42472b8f,
0x5c007b8a, 0x58c1663d, 0x558240e4, 0x51435d53,
0x251d3b9e, 0x21dc2629, 0x2c9f00f0, 0x285e1d47,
0x36194d42, 0x32d850f5, 0x3f9b762c, 0x3b5a6b9b,
0x0315d626, 0x07d4cb91, 0x0a97ed48, 0x0e56f0ff,
0x1011a0fa, 0x14d0bd4d, 0x19939b94, 0x1d528623,
0xf12f560e, 0xf5ee4bb9, 0xf8ad6d60, 0xfc6c70d7,
0xe22b20d2, 0xe6ea3d65, 0xeba91bbc, 0xef68060b,
0xd727bbb6, 0xd3e6a601, 0xdea580d8, 0xda649d6f,
0xc423cd6a, 0xc0e2d0dd, 0xcda1f604, 0xc960ebb3,
0xbd3e8d7e, 0xb9ff90c9, 0xb4bcb610, 0xb07daba7,
0xae3afba2, 0xaafbe615, 0xa7b8c0cc, 0xa379dd7b,
0x9b3660c6, 0x9ff77d71, 0x92b45ba8, 0x9675461f,
0x8832161a, 0x8cf30bad, 0x81b02d74, 0x857130c3,
0x5d8a9099, 0x594b8d2e, 0x5408abf7, 0x50c9b640,
0x4e8ee645, 0x4a4ffbf2, 0x470cdd2b, 0x43cdc09c,
0x7b827d21, 0x7f436096, 0x7200464f, 0x76c15bf8,
0x68860bfd, 0x6c47164a, 0x61043093, 0x65c52d24,
0x119b4be9, 0x155a565e, 0x18197087, 0x1cd86d30,
0x029f3d35, 0x065e2082, 0x0b1d065b, 0x0fdc1bec,
0x3793a651, 0x3352bbe6, 0x3e119d3f, 0x3ad08088,
0x2497d08d, 0x2056cd3a, 0x2d15ebe3, 0x29d4f654,
0xc5a92679, 0xc1683bce, 0xcc2b1d17, 0xc8ea00a0,
0xd6ad50a5, 0xd26c4d12, 0xdf2f6bcb, 0xdbee767c,
0xe3a1cbc1, 0xe760d676, 0xea23f0af, 0xeee2ed18,
0xf0a5bd1d, 0xf464a0aa, 0xf9278673, 0xfde69bc4,
0x89b8fd09, 0x8d79e0be, 0x803ac667, 0x84fbdbd0,
0x9abc8bd5, 0x9e7d9662, 0x933eb0bb, 0x97ffad0c,
0xafb010b1, 0xab710d06, 0xa6322bdf, 0xa2f33668,
0xbcb4666d, 0xb8757bda, 0xb5365d03, 0xb1f740b4,
};
/******************************************************************************
Dict
******************************************************************************/
typedef struct {
__GLS_LIST_ELEM;
union {
GLint intKey;
const GLubyte *strKey;
} key;
union {
GLint intVal;
GLvoid *ptrVal;
} val;
} __GLSdictEntry;
typedef __GLS_LIST(__GLSdictEntry) __GLSdictEntryList;
typedef __GLS_LIST_ITER(__GLSdictEntry) __GLSdictEntryIter;
struct __GLSdict{
size_t count;
__GLSdictEntryList *table;
size_t tableMax;
GLboolean staticKeys;
};
static __GLSdict* __glsDict_create(
size_t inTableCount, GLboolean inStaticKeys
) {
__GLSdict *outDict;
if (inTableCount < 1) return GLS_NONE;
outDict = __glsCalloc(1, sizeof(__GLSdict));
if (!outDict) return GLS_NONE;
outDict->staticKeys = inStaticKeys;
inTableCount = __glsCeilBase2(inTableCount);
outDict->table = __glsCalloc(inTableCount, sizeof(__GLSdictEntryList));
if (!outDict->table) return __glsStrDict_destroy(outDict);
outDict->tableMax = inTableCount - 1;
return outDict;
}
__GLS_FORWARD static __GLSdictEntry* __glsIntDictEntry_destroy(
__GLSdictEntry *inEntry
);
static __GLSdictEntry* __glsIntDictEntry_create(GLint inKey) {
__GLSdictEntry *const outEntry = __glsCalloc(1, sizeof(__GLSdictEntry));
if (!outEntry) return GLS_NONE;
outEntry->key.intKey = inKey;
return outEntry;
}
static __GLSdictEntry* __glsIntDictEntry_destroy(__GLSdictEntry *inEntry) {
free(inEntry);
return GLS_NONE;
}
static size_t __glsIntHash(const __GLSdict *inDict, GLint inKey) {
return inKey & inDict->tableMax;
}
static GLboolean __glsIntDict_add(
__GLSdict *inoutDict, GLint inKey, __GLSdictEntry *inEntry
) {
if (inoutDict->count++ > inoutDict->tableMax) {
const size_t newTableSize = (inoutDict->tableMax + 1) * 2;
__GLSdictEntryList *const newTable = (
__glsCalloc(newTableSize, sizeof(__GLSdictEntryList))
);
if (newTable) {
size_t i = inoutDict->tableMax;
inoutDict->tableMax = newTableSize - 1;
for ( ; i != (size_t)-1; --i) {
__GLSdictEntry *oldEntry;
while (oldEntry = inoutDict->table[i].head) {
__GLS_LIST_REMOVE(inoutDict->table + i, oldEntry);
__GLS_LIST_APPEND(
newTable + __glsIntHash(inoutDict, oldEntry->key.intKey),
oldEntry
);
}
}
free(inoutDict->table);
inoutDict->table = newTable;
}
}
__GLS_LIST_PREPEND(
inoutDict->table + __glsIntHash(inoutDict, inKey), inEntry
);
return GL_TRUE;
}
__GLSdict* __glsIntDict_create(size_t inTableCount) {
return __glsDict_create(inTableCount, GL_FALSE);
}
__GLSdict* __glsIntDict_destroy(__GLSdict *inDict) {
size_t i;
if (!inDict) return GLS_NONE;
if (inDict->table) for (i = inDict->tableMax ; i != (size_t)-1; --i) {
__GLS_LIST_CLEAR_DESTROY(inDict->table + i, __glsIntDictEntry_destroy);
}
free(inDict->table);
free(inDict);
return GLS_NONE;
}
void __glsIntDict_print(__GLSdict *inoutDict, const GLubyte *inName) {
size_t i;
fprintf(stdout, "%s(\n", inName);
for (i = 0 ; i <= inoutDict->tableMax ; ++i) {
__GLSdictEntryIter iter;
__GLS_LIST_FIRST(inoutDict->table + i, &iter);
if (iter.elem) {
fprintf(stdout, " ");
while (iter.elem) {
fprintf(stdout, " %d", iter.elem->key.intKey);
__GLS_LIST_NEXT(inoutDict->table + i, &iter);
}
fprintf(stdout, "\n");
}
}
fprintf(stdout, ")\n");
}
void __glsIntDict_remove(__GLSdict *inoutDict, GLint inKey) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsIntHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (inKey == iter.elem->key.intKey) {
__GLS_LIST_REMOVE_DESTROY(
list, iter.elem, __glsIntDictEntry_destroy
);
--inoutDict->count;
return;
}
__GLS_LIST_NEXT(list, &iter);
}
}
GLboolean __glsInt2IntDict_add(
__GLSdict *inoutDict, GLint inKey, GLint inVal
) {
__GLSdictEntry *entry;
if (__glsInt2IntDict_find(inoutDict, inKey, GLS_NONE)) return GL_FALSE;
entry = __glsIntDictEntry_create(inKey);
if (!entry) return GL_FALSE;
entry->val.intVal = inVal;
return __glsIntDict_add(inoutDict, inKey, entry);
}
GLboolean __glsInt2PtrDict_add(
__GLSdict *inoutDict, GLint inKey, GLvoid *inVal
) {
__GLSdictEntry *entry;
if (__glsInt2PtrDict_find(inoutDict, inKey)) return GL_FALSE;
entry = __glsIntDictEntry_create(inKey);
if (!entry) return GL_FALSE;
entry->val.ptrVal = inVal;
return __glsIntDict_add(inoutDict, inKey, entry);
}
GLboolean __glsInt2IntDict_find(
const __GLSdict *inDict, GLint inKey, GLint *optoutVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inDict->table + __glsIntHash(inDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (inKey == iter.elem->key.intKey) {
if (optoutVal) *optoutVal = iter.elem->val.intVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
GLvoid* __glsInt2PtrDict_find(const __GLSdict *inDict, GLint inKey) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inDict->table + __glsIntHash(inDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (inKey == iter.elem->key.intKey) {
return iter.elem->val.ptrVal;
}
__GLS_LIST_NEXT(list, &iter);
}
return GLS_NONE;
}
GLboolean __glsInt2IntDict_replace(
__GLSdict *inoutDict, GLint inKey, GLint inVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsIntHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (inKey == iter.elem->key.intKey) {
iter.elem->val.intVal = inVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
GLboolean __glsInt2PtrDict_replace(
__GLSdict *inoutDict, GLint inKey, GLvoid *inVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsIntHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (inKey == iter.elem->key.intKey) {
iter.elem->val.ptrVal = inVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
__GLS_FORWARD static __GLSdictEntry* __glsStrDictEntry_destroy(
__GLSdictEntry *inEntry, GLboolean inStaticKey
);
static __GLSdictEntry* __glsStrDictEntry_create(
const GLubyte *inKey, GLboolean inStaticKey
) {
__GLSdictEntry *const outEntry = __glsCalloc(1, sizeof(__GLSdictEntry));
if (!outEntry) return GLS_NONE;
if (inStaticKey) {
outEntry->key.strKey = inKey;
} else {
GLubyte *const buf = __glsMalloc(strlen((const char *)inKey) + 1);
if (!buf) {
return __glsStrDictEntry_destroy(outEntry, GL_FALSE);
}
strcpy((char *)buf, (const char *)inKey);
outEntry->key.strKey = buf;
}
return outEntry;
}
static __GLSdictEntry* __glsStrDictEntry_destroy(
__GLSdictEntry *inEntry, GLboolean inStaticKey
) {
if (!inEntry) return GLS_NONE;
if (!inStaticKey) free((GLvoid *)inEntry->key.strKey);
free(inEntry);
return GLS_NONE;
}
static size_t __glsStrHash(const __GLSdict *inDict, const GLubyte *inKey) {
GLubyte charVal;
size_t outHash = 0;
while (charVal = *inKey++) outHash += charVal;
return outHash & inDict->tableMax;
}
static GLboolean __glsStrDict_add(
__GLSdict *inoutDict, const GLubyte *inKey, __GLSdictEntry *inEntry
) {
if (inoutDict->count++ > inoutDict->tableMax) {
const size_t newTableSize = (inoutDict->tableMax + 1) * 2;
__GLSdictEntryList *const newTable = (
__glsCalloc(newTableSize, sizeof(__GLSdictEntryList))
);
if (newTable) {
size_t i = inoutDict->tableMax;
inoutDict->tableMax = newTableSize - 1;
for ( ; i != (size_t)-1; --i) {
__GLSdictEntry *oldEntry;
while (oldEntry = inoutDict->table[i].head) {
__GLS_LIST_REMOVE(inoutDict->table + i, oldEntry);
__GLS_LIST_APPEND(
newTable + __glsStrHash(inoutDict, oldEntry->key.strKey),
oldEntry
);
}
}
free(inoutDict->table);
inoutDict->table = newTable;
}
}
__GLS_LIST_PREPEND(
inoutDict->table + __glsStrHash(inoutDict, inKey), inEntry
);
return GL_TRUE;
}
__GLSdict* __glsStrDict_create(size_t inTableCount, GLboolean inStaticKeys) {
return __glsDict_create(inTableCount, inStaticKeys);
}
__GLSdict* __glsStrDict_destroy(__GLSdict *inDict) {
size_t i;
if (!inDict) return GLS_NONE;
if (inDict->table) for (i = inDict->tableMax ; i != (size_t)-1; --i) {
__GLSdictEntry *entry;
while (entry = inDict->table[i].head) {
__GLS_LIST_REMOVE(inDict->table + i, entry);
__glsStrDictEntry_destroy(entry, inDict->staticKeys);
}
}
free(inDict->table);
free(inDict);
return GLS_NONE;
}
void __glsStrDict_print(__GLSdict *inoutDict, const GLubyte *inName) {
size_t i;
fprintf(stdout, "%s(\n", inName);
for (i = 0 ; i <= inoutDict->tableMax ; ++i) {
__GLSdictEntryIter iter;
__GLS_LIST_FIRST(inoutDict->table + i, &iter);
if (iter.elem) {
fprintf(stdout, " ");
while (iter.elem) {
fprintf(stdout, " %s", iter.elem->key.strKey);
__GLS_LIST_NEXT(inoutDict->table + i, &iter);
}
fprintf(stdout, "\n");
}
}
fprintf(stdout, ")\n");
}
void __glsStrDict_remove(__GLSdict *inoutDict, const GLubyte *inKey) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsStrHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (
!strcmp((const char *)inKey, (const char *)iter.elem->key.strKey)
) {
__GLS_LIST_REMOVE(list, iter.elem);
__glsStrDictEntry_destroy(iter.elem, inoutDict->staticKeys);
--inoutDict->count;
return;
}
__GLS_LIST_NEXT(list, &iter);
}
}
GLboolean __glsStr2IntDict_add(
__GLSdict *inoutDict, const GLubyte *inKey, GLint inVal
) {
__GLSdictEntry *entry;
if (__glsStr2IntDict_find(inoutDict, inKey, GLS_NONE)) return GL_FALSE;
entry = __glsStrDictEntry_create(inKey, inoutDict->staticKeys);
if (!entry) return GL_FALSE;
entry->val.intVal = inVal;
return __glsStrDict_add(inoutDict, inKey, entry);
}
GLboolean __glsStr2PtrDict_add(
__GLSdict *inoutDict, const GLubyte *inKey, GLvoid *inVal
) {
__GLSdictEntry *entry;
if (__glsStr2PtrDict_find(inoutDict, inKey)) return GL_FALSE;
entry = __glsStrDictEntry_create(inKey, inoutDict->staticKeys);
if (!entry) return GL_FALSE;
entry->val.ptrVal = inVal;
return __glsStrDict_add(inoutDict, inKey, entry);
}
GLboolean __glsStr2IntDict_find(
const __GLSdict *inDict, const GLubyte *inKey, GLint *optoutVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inDict->table + __glsStrHash(inDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (
!strcmp((const char *)inKey, (const char *)iter.elem->key.strKey)
) {
if (optoutVal) *optoutVal = iter.elem->val.intVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
GLvoid* __glsStr2PtrDict_find(const __GLSdict *inDict, const GLubyte *inKey) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inDict->table + __glsStrHash(inDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (
!strcmp((const char *)inKey, (const char *)iter.elem->key.strKey)
) {
return iter.elem->val.ptrVal;
}
__GLS_LIST_NEXT(list, &iter);
}
return GLS_NONE;
}
GLboolean __glsStr2IntDict_replace(
__GLSdict *inoutDict, const GLubyte *inKey, GLint inVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsStrHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (
!strcmp((const char *)inKey, (const char *)iter.elem->key.strKey)
) {
iter.elem->val.intVal = inVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
GLboolean __glsStr2PtrDict_replace(
__GLSdict *inoutDict, const GLubyte *inKey, GLvoid *inVal
) {
__GLSdictEntryIter iter;
__GLSdictEntryList *const list = (
inoutDict->table + __glsStrHash(inoutDict, inKey)
);
__GLS_LIST_FIRST(list, &iter);
while (iter.elem) {
if (
!strcmp((const char *)inKey, (const char *)iter.elem->key.strKey)
) {
iter.elem->val.ptrVal = inVal;
return GL_TRUE;
}
__GLS_LIST_NEXT(list, &iter);
}
return GL_FALSE;
}
/******************************************************************************
List
******************************************************************************/
void __glsListAppend(__GLSlist *inoutList, __GLSlistElem *inoutElem) {
if (inoutList->head) {
inoutList->head->prev->next = inoutElem;
inoutElem->prev = inoutList->head->prev;
inoutElem->next = inoutList->head;
inoutList->head->prev = inoutElem;
} else {
inoutList->head = inoutElem;
inoutElem->prev = inoutElem->next = inoutElem;
}
}
void __glsListClearDestroy(
__GLSlist *inoutList, __GLSlistElemDestructor inDestructor
) {
while (inoutList->head) {
__glsListRemoveDestroy(inoutList, inoutList->head, inDestructor);
}
}
void __glsListFirst(__GLSlist *inList, __GLSlistIter *inoutIter) {
inoutIter->elem = inList->head;
}
void __glsListLast(__GLSlist *inList, __GLSlistIter *inoutIter) {
inoutIter->elem = inList->head ? inList->head->prev : GLS_NONE;
}
void __glsListNext(__GLSlist *inList, __GLSlistIter *inoutIter) {
if (inoutIter->elem) {
inoutIter->elem = inoutIter->elem->next;
if (inoutIter->elem == inList->head) inoutIter->elem = GLS_NONE;
}
}
void __glsListPrepend(__GLSlist *inoutList, __GLSlistElem *inoutElem) {
if (inoutList->head) {
inoutList->head->prev->next = inoutElem;
inoutElem->prev = inoutList->head->prev;
inoutElem->next = inoutList->head;
inoutList->head->prev = inoutElem;
inoutList->head = inoutElem;
} else {
inoutList->head = inoutElem;
inoutElem->prev = inoutElem->next = inoutElem;
}
}
void __glsListPrev(__GLSlist *inList, __GLSlistIter *inoutIter) {
if (inoutIter->elem) {
inoutIter->elem = (
(inoutIter->elem == inList->head) ?
GLS_NONE :
inoutIter->elem->prev
);
}
}
void __glsListRemove(__GLSlist *inoutList, __GLSlistElem *inoutElem) {
if (inoutList->head == inoutList->head->next) {
inoutList->head = GLS_NONE;
} else {
inoutElem->next->prev = inoutElem->prev;
inoutElem->prev->next = inoutElem->next;
if (inoutList->head == inoutElem) {
inoutList->head = inoutList->head->next;
}
}
}
void __glsListRemoveDestroy(
__GLSlist *inoutList,
__GLSlistElem *inElem,
__GLSlistElemDestructor inDestructor
) {
__glsListRemove(inoutList, inElem);
inDestructor(inElem);
}
/******************************************************************************
IterList
******************************************************************************/
void __glsIterListAppend(__GLSiterList *inoutList, __GLSlistElem *inoutElem) {
__glsListAppend((__GLSlist *)&inoutList->head, inoutElem);
++inoutList->count;
}
void __glsIterListClearDestroy(
__GLSiterList *inoutList, __GLSlistElemDestructor inDestructor
) {
__glsListClearDestroy((__GLSlist *)&inoutList->head, inDestructor);
inoutList->iterElem = GLS_NONE;
inoutList->count = inoutList->iterIndex = 0;
}
void __glsIterListFirst(__GLSiterList *inoutList) {
__glsListFirst(
(__GLSlist *)&inoutList->head, (__GLSlistIter *)&inoutList->iterElem
);
inoutList->iterIndex = 0;
}
void __glsIterListLast(__GLSiterList *inoutList) {
__glsListLast(
(__GLSlist *)&inoutList->head, (__GLSlistIter *)&inoutList->iterElem
);
inoutList->iterIndex = inoutList->iterElem ? inoutList->count - 1 : 0;
}
void __glsIterListNext(__GLSiterList *inoutList) {
__glsListNext(
(__GLSlist *)&inoutList->head, (__GLSlistIter *)&inoutList->iterElem
);
inoutList->iterIndex = inoutList->iterElem ? inoutList->iterIndex + 1 : 0;
}
void __glsIterListPrepend(__GLSiterList *inoutList, __GLSlistElem *inoutElem) {
__glsListPrepend((__GLSlist *)&inoutList->head, inoutElem);
++inoutList->count;
if (inoutList->iterElem) ++inoutList->iterIndex;
}
void __glsIterListPrev(__GLSiterList *inoutList) {
__glsListPrev(
(__GLSlist *)&inoutList->head, (__GLSlistIter *)&inoutList->iterElem
);
inoutList->iterIndex = inoutList->iterElem ? inoutList->iterIndex - 1 : 0;
}
void __glsIterListRemove(__GLSiterList *inoutList, __GLSlistElem *inoutElem) {
__glsListRemove((__GLSlist *)&inoutList->head, inoutElem);
inoutList->iterElem = GLS_NONE;
--inoutList->count;
inoutList->iterIndex = 0;
}
void __glsIterListRemoveDestroy(
__GLSiterList *inoutList,
__GLSlistElem *inElem,
__GLSlistElemDestructor inDestructor
) {
__glsListRemoveDestroy(
(__GLSlist *)&inoutList->head, inElem, inDestructor
);
inoutList->iterElem = GLS_NONE;
--inoutList->count;
inoutList->iterIndex = 0;
}
void __glsIterListSeek(__GLSiterList *inoutList, size_t inIndex) {
if (inIndex < inoutList->count) {
if (!inoutList->iterElem) inoutList->iterElem = inoutList->head;
while (inoutList->iterIndex < inIndex) __glsIterListNext(inoutList);
while (inoutList->iterIndex > inIndex) __glsIterListPrev(inoutList);
}
}
/******************************************************************************
Memory
******************************************************************************/
GLvoid* __glsCalloc(size_t inCount, size_t inSize) {
GLvoid *outAddr;
if (!inCount) inCount = 1;
if (!inSize) inSize = 1;
outAddr = calloc(inCount, inSize);
if (!outAddr) __GLS_RAISE_ERROR(GLS_OUT_OF_MEMORY);
return outAddr;
}
GLvoid* __glsMalloc(size_t inSize) {
GLvoid *outAddr;
if (!inSize) inSize = 1;
outAddr = malloc(inSize);
if (!outAddr) __GLS_RAISE_ERROR(GLS_OUT_OF_MEMORY);
return outAddr;
}
/******************************************************************************
Nop
******************************************************************************/
void __glsNop(void) {}
/******************************************************************************
Number
******************************************************************************/
const GLubyte __glsBitReverse[256] = {
0x00, 0x80, 0x40, 0xc0, 0x20, 0xa0, 0x60, 0xe0,
0x10, 0x90, 0x50, 0xd0, 0x30, 0xb0, 0x70, 0xf0,
0x08, 0x88, 0x48, 0xc8, 0x28, 0xa8, 0x68, 0xe8,
0x18, 0x98, 0x58, 0xd8, 0x38, 0xb8, 0x78, 0xf8,
0x04, 0x84, 0x44, 0xc4, 0x24, 0xa4, 0x64, 0xe4,
0x14, 0x94, 0x54, 0xd4, 0x34, 0xb4, 0x74, 0xf4,
0x0c, 0x8c, 0x4c, 0xcc, 0x2c, 0xac, 0x6c, 0xec,
0x1c, 0x9c, 0x5c, 0xdc, 0x3c, 0xbc, 0x7c, 0xfc,
0x02, 0x82, 0x42, 0xc2, 0x22, 0xa2, 0x62, 0xe2,
0x12, 0x92, 0x52, 0xd2, 0x32, 0xb2, 0x72, 0xf2,
0x0a, 0x8a, 0x4a, 0xca, 0x2a, 0xaa, 0x6a, 0xea,
0x1a, 0x9a, 0x5a, 0xda, 0x3a, 0xba, 0x7a, 0xfa,
0x06, 0x86, 0x46, 0xc6, 0x26, 0xa6, 0x66, 0xe6,
0x16, 0x96, 0x56, 0xd6, 0x36, 0xb6, 0x76, 0xf6,
0x0e, 0x8e, 0x4e, 0xce, 0x2e, 0xae, 0x6e, 0xee,
0x1e, 0x9e, 0x5e, 0xde, 0x3e, 0xbe, 0x7e, 0xfe,
0x01, 0x81, 0x41, 0xc1, 0x21, 0xa1, 0x61, 0xe1,
0x11, 0x91, 0x51, 0xd1, 0x31, 0xb1, 0x71, 0xf1,
0x09, 0x89, 0x49, 0xc9, 0x29, 0xa9, 0x69, 0xe9,
0x19, 0x99, 0x59, 0xd9, 0x39, 0xb9, 0x79, 0xf9,
0x05, 0x85, 0x45, 0xc5, 0x25, 0xa5, 0x65, 0xe5,
0x15, 0x95, 0x55, 0xd5, 0x35, 0xb5, 0x75, 0xf5,
0x0d, 0x8d, 0x4d, 0xcd, 0x2d, 0xad, 0x6d, 0xed,
0x1d, 0x9d, 0x5d, 0xdd, 0x3d, 0xbd, 0x7d, 0xfd,
0x03, 0x83, 0x43, 0xc3, 0x23, 0xa3, 0x63, 0xe3,
0x13, 0x93, 0x53, 0xd3, 0x33, 0xb3, 0x73, 0xf3,
0x0b, 0x8b, 0x4b, 0xcb, 0x2b, 0xab, 0x6b, 0xeb,
0x1b, 0x9b, 0x5b, 0xdb, 0x3b, 0xbb, 0x7b, 0xfb,
0x07, 0x87, 0x47, 0xc7, 0x27, 0xa7, 0x67, 0xe7,
0x17, 0x97, 0x57, 0xd7, 0x37, 0xb7, 0x77, 0xf7,
0x0f, 0x8f, 0x4f, 0xcf, 0x2f, 0xaf, 0x6f, 0xef,
0x1f, 0x9f, 0x5f, 0xdf, 0x3f, 0xbf, 0x7f, 0xff,
};
const GLubyte __glsQuietNaN[8] = {
0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
};
size_t __glsCeilBase2(size_t inVal) {
const size_t outVal = 1 << __glsLogBase2(inVal);
return outVal < inVal ? outVal << 1 : outVal;
}
size_t __glsLogBase2(size_t inVal) {
size_t outLog = 0;
while (inVal >>= 1) ++outLog;
return outLog;
}
GLulong __glsPtrToULong(const GLvoid *inPtr) {
#if __GLS_INT64
return (GLulong)(SIZE_T)inPtr;
#else /* !__GLS_INT64 */
return glsULong(0, (GLuint)inPtr);
#endif /* __GLS_INT64 */
}
GLlong __glsSizeToLong(size_t inSize) {
#if __GLS_INT64
return (GLlong)inSize;
#else /* !__GLS_INT64 */
if (sizeof(GLuint) >= sizeof(size_t)) {
return glsLong(0, inSize);
} else {
return glsLong(inSize >> 32, inSize & 0xffffffff);
}
#endif /* __GLS_INT64 */
}
void __glsSwap2(GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
__GLS_SWAP2(inoutVec);
}
void __glsSwap2v(size_t inCount, GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
GLubyte *ptr = (GLubyte *)inoutVec;
while (inCount--) {
__GLS_SWAP2(ptr);
ptr += 2;
}
}
void __glsSwap4(GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
__GLS_SWAP4(inoutVec);
}
void __glsSwap4v(size_t inCount, GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
GLubyte *ptr = (GLubyte *)inoutVec;
while (inCount--) {
__GLS_SWAP4(ptr);
ptr += 4;
}
}
void __glsSwap8(GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
__GLS_SWAP8(inoutVec);
}
void __glsSwap8v(size_t inCount, GLvoid *inoutVec) {
__GLS_SWAP_DECLARE;
GLubyte *ptr = (GLubyte *)inoutVec;
while (inCount-- > 0) {
__GLS_SWAP8(ptr);
ptr += 8;
}
}
GLint __glsSwapi(GLint inVal) {
__GLS_SWAP_DECLARE;
__GLS_SWAP4(&inVal);
return inVal;
}
GLshort __glsSwaps(GLshort inVal) {
__GLS_SWAP_DECLARE;
__GLS_SWAP2(&inVal);
return inVal;
}
void __glsSwapv(GLenum inType, size_t inBytes, GLvoid *inoutVec) {
switch (inType) {
case GL_FLOAT:
case GL_INT:
case GL_UNSIGNED_INT:
#if __GL_EXT_packed_pixels
case GL_UNSIGNED_INT_8_8_8_8_EXT:
case GL_UNSIGNED_INT_10_10_10_2_EXT:
#endif /* __GL_EXT_packed_pixels */
__glsSwap4v(inBytes / 4, (GLubyte *)inoutVec);
break;
case GL_SHORT:
case GL_UNSIGNED_SHORT:
#if __GL_EXT_packed_pixels
case GL_UNSIGNED_SHORT_4_4_4_4_EXT:
case GL_UNSIGNED_SHORT_5_5_5_1_EXT:
#endif /* __GL_EXT_packed_pixels */
__glsSwap2v(inBytes / 2, (GLubyte *)inoutVec);
break;
#if __GL_EXT_vertex_array
case GL_DOUBLE_EXT:
__glsSwap8v(inBytes / 8, (GLubyte *)inoutVec);
break;
#endif /* __GL_EXT_vertex_array */
}
}
/******************************************************************************
String
******************************************************************************/
static GLboolean __glsString_addRoom(
__GLSstring *inoutString, size_t inCount
) {
const size_t newSize = __glsCeilBase2(
(size_t)((ULONG_PTR)(inoutString->bufTail - inoutString->head) + 1 + inCount)
);
GLubyte *buf = __glsMalloc(newSize);
if (!buf) return GL_FALSE;
strcpy((char *)buf, (const char *)inoutString->head);
inoutString->tail = buf + (inoutString->tail - inoutString->head);
if (inoutString->head != inoutString->buf) free(inoutString->head);
inoutString->head = buf;
inoutString->bufTail = buf + newSize - 1;
return GL_TRUE;
}
GLboolean __glsString_append(
__GLSstring *inoutString, const GLubyte* inAppend
) {
const size_t count = strlen((const char *)inAppend);
if (
inoutString->tail + count > inoutString->bufTail &&
!__glsString_addRoom(inoutString, count)
) {
return GL_FALSE;
}
strcpy((char *)inoutString->tail, (const char *)inAppend);
inoutString->tail += count;
return GL_TRUE;
}
GLboolean __glsString_appendChar(
__GLSstring *inoutString, GLubyte inAppend
) {
*inoutString->tail++ = inAppend;
if (inoutString->tail > inoutString->bufTail) {
*--inoutString->tail = 0;
if (!__glsString_addRoom(inoutString, 1)) return GL_FALSE;
*inoutString->tail++ = inAppend;
}
*inoutString->tail = 0;
return GL_TRUE;
}
GLboolean __glsString_appendCounted(
__GLSstring *inoutString, const GLubyte* inAppend, size_t inCount
) {
if (
inoutString->tail + inCount > inoutString->bufTail &&
!__glsString_addRoom(inoutString, inCount)
) {
return GL_FALSE;
}
strncpy((char *)inoutString->tail, (const char *)inAppend, inCount);
inoutString->tail += inCount;
*inoutString->tail = 0;
return GL_TRUE;
}
GLboolean __glsString_appendInt(
__GLSstring *inoutString, const GLubyte* inFormat, GLint inVal
) {
__GLSstringBuf buf;
size_t count;
if (sprintf((char *)buf, (const char *)inFormat, inVal) < 0) {
fprintf(stderr, "GLS fatal: sprintf failed\n");
exit(EXIT_FAILURE);
}
count = strlen((const char *)buf);
if (
inoutString->tail + count > inoutString->bufTail &&
!__glsString_addRoom(inoutString, count)
) {
return GL_FALSE;
}
strcpy((char *)inoutString->tail, (const char *)buf);
inoutString->tail += count;
return GL_TRUE;
}
GLboolean __glsString_assign(
__GLSstring *inoutString, const GLubyte *inAssign
) {
inoutString->tail = inoutString->head;
return __glsString_append(inoutString, inAssign);
}
GLboolean __glsString_assignCounted(
__GLSstring *inoutString, const GLubyte *inAssign, size_t inCount
) {
inoutString->tail = inoutString->head;
return __glsString_appendCounted(inoutString, inAssign, inCount);
}
void __glsString_final(__GLSstring *inoutString) {
if (inoutString->head != inoutString->buf) {
free(inoutString->head);
inoutString->head = inoutString->buf;
}
}
void __glsString_init(__GLSstring *outString) {
outString->head = outString->tail = outString->buf;
outString->bufTail = outString->buf + __GLS_STRING_BUF_BYTES - 1;
outString->buf[0] = 0;
}
size_t __glsString_length(const __GLSstring *inString) {
return (size_t)((ULONG_PTR)(inString->tail - inString->head));
}
void __glsString_reset(__GLSstring *inoutString) {
__glsString_final(inoutString);
__glsString_init(inoutString);
}
const GLubyte* __glsUCS1String(const GLubyte *inUTF8String) {
GLuint b;
const GLubyte *cp = inUTF8String;
GLubyte *outVal, *p;
while (b = *cp++) if (b & 0x80) break;
if (!b) return inUTF8String;
p = outVal = (GLubyte *)__glsMalloc(strlen((const char *)inUTF8String));
if (!p) return GLS_NONE;
while (*inUTF8String) {
const GLint n = glsUTF8toUCS4(inUTF8String, &b);
if (n && b <= 0xff) {
inUTF8String += n;
*p++ = (GLubyte)b;
} else {
free(outVal);
if (!n) __GLS_RAISE_ERROR(GLS_INVALID_STRING);
return GLS_NONE;
}
}
*p = 0;
return outVal;
}
GLboolean __glsValidateString(const GLubyte *inString) {
if (!glsIsUTF8String(inString)) {
__GLS_RAISE_ERROR(GLS_INVALID_STRING);
return GL_FALSE;
}
return GL_TRUE;
}
/******************************************************************************
Vertex array
******************************************************************************/
void __glsGetArrayState(__GLScontext *ctx, __GLSarrayState *arrayState)
{
__GLS_BEGIN_CAPTURE_EXEC(ctx, GLS_OP_glIsEnabled);
__GLS_BEGIN_CAPTURE_EXEC(ctx, GLS_OP_glGetIntegerv);
__GLS_BEGIN_CAPTURE_EXEC(ctx, GLS_OP_glGetPointerv);
arrayState->enabled = 0;
if (glIsEnabled(GL_VERTEX_ARRAY))
{
arrayState->enabled |= __GLS_VERTEX_ARRAY_ENABLE;
glGetIntegerv(GL_VERTEX_ARRAY_SIZE, &arrayState->vertex.size);
glGetIntegerv(GL_VERTEX_ARRAY_TYPE, &arrayState->vertex.type);
glGetIntegerv(GL_VERTEX_ARRAY_STRIDE, &arrayState->vertex.stride);
glGetPointerv(GL_VERTEX_ARRAY_POINTER,
(GLvoid **)&arrayState->vertex.data);
}
if (glIsEnabled(GL_NORMAL_ARRAY))
{
arrayState->enabled |= __GLS_NORMAL_ARRAY_ENABLE;
arrayState->normal.size = 3;
glGetIntegerv(GL_NORMAL_ARRAY_TYPE, &arrayState->normal.type);
glGetIntegerv(GL_NORMAL_ARRAY_STRIDE, &arrayState->normal.stride);
glGetPointerv(GL_NORMAL_ARRAY_POINTER,
(GLvoid **)&arrayState->normal.data);
}
if (glIsEnabled(GL_COLOR_ARRAY))
{
arrayState->enabled |= __GLS_COLOR_ARRAY_ENABLE;
glGetIntegerv(GL_COLOR_ARRAY_SIZE, &arrayState->color.size);
glGetIntegerv(GL_COLOR_ARRAY_TYPE, &arrayState->color.type);
glGetIntegerv(GL_COLOR_ARRAY_STRIDE, &arrayState->color.stride);
glGetPointerv(GL_COLOR_ARRAY_POINTER,
(GLvoid **)&arrayState->color.data);
}
if (glIsEnabled(GL_INDEX_ARRAY))
{
arrayState->enabled |= __GLS_INDEX_ARRAY_ENABLE;
arrayState->index.size = 1;
glGetIntegerv(GL_INDEX_ARRAY_TYPE, &arrayState->index.type);
glGetIntegerv(GL_INDEX_ARRAY_STRIDE, &arrayState->index.stride);
glGetPointerv(GL_INDEX_ARRAY_POINTER,
(GLvoid **)&arrayState->index.data);
}
if (glIsEnabled(GL_TEXTURE_COORD_ARRAY))
{
arrayState->enabled |= __GLS_TEXTURE_COORD_ARRAY_ENABLE;
glGetIntegerv(GL_TEXTURE_COORD_ARRAY_SIZE,
&arrayState->textureCoord.size);
glGetIntegerv(GL_TEXTURE_COORD_ARRAY_TYPE,
&arrayState->textureCoord.type);
glGetIntegerv(GL_TEXTURE_COORD_ARRAY_STRIDE,
&arrayState->textureCoord.stride);
glGetPointerv(GL_TEXTURE_COORD_ARRAY_POINTER,
(GLvoid **)&arrayState->textureCoord.data);
}
if (glIsEnabled(GL_EDGE_FLAG_ARRAY))
{
arrayState->enabled |= __GLS_EDGE_FLAG_ARRAY_ENABLE;
arrayState->edgeFlag.size = 1;
arrayState->edgeFlag.type = __GLS_BOOLEAN;
glGetIntegerv(GL_EDGE_FLAG_ARRAY_STRIDE, &arrayState->edgeFlag.stride);
glGetPointerv(GL_EDGE_FLAG_ARRAY_POINTER,
(GLvoid **)&arrayState->edgeFlag.data);
}
__GLS_END_CAPTURE_EXEC(ctx, GLS_OP_glIsEnabled);
__GLS_END_CAPTURE_EXEC(ctx, GLS_OP_glGetIntegerv);
__GLS_END_CAPTURE_EXEC(ctx, GLS_OP_glGetPointerv);
}
GLint __glsArrayDataSize(GLsizei count, __GLSarrayState *arrayState)
{
GLint size;
GLint i;
__GLSsingleArrayState *array;
GLuint arrayBit;
/* Start with space for the data size, count and enables */
size = 12;
/* Every array stores its size and type fields even
for the cases where size and type are fixed. This
allows one piece of code to handle any array */
array = &arrayState->vertex;
arrayBit = __GLS_VERTEX_ARRAY_ENABLE;
for (i = 0; i < __GLS_ARRAY_COUNT; i++)
{
if (arrayState->enabled & arrayBit)
{
size += 8 + __GLS_ARRAY_SIZE(count, array->size, array->type);
}
array++;
arrayBit <<= 1;
}
return size;
}
typedef struct _DeHashEntry
{
GLuint original;
struct _DeHashEntry *next;
} DeHashEntry;
typedef GLubyte DeHashIndex;
#define DE_HASH_SIZE 256
#define DE_HASH(ui) ((DeHashIndex)(ui))
GLint __glsDrawElementsDataSize(GLsizei count, GLenum type,
const GLvoid *indices,
__GLSarrayState *arrayState,
__GLSdrawElementsState *deState)
{
GLubyte *allData;
DeHashEntry *hashTable[DE_HASH_SIZE];
GLint vtxCount;
GLint i;
GLubyte *idxData;
GLuint idx;
DeHashEntry *hashEntries;
GLuint *outIndices;
DeHashEntry *ent;
DeHashIndex hash;
// Determine the set of unique vertex indices by hashing
// all the input indices and checking for duplicates
// There can't be more unique indices than input indices
// so count is an upper bound for our allocations
allData = __glsMalloc(count * (sizeof(GLuint)+sizeof(DeHashEntry)));
if (allData == NULL)
{
return -1;
}
deState->freePtr = allData;
outIndices = (GLuint *)allData;
deState->indices = outIndices;
hashEntries = (DeHashEntry *)(outIndices+count);
memset(hashTable, 0, DE_HASH_SIZE*sizeof(DeHashEntry *));
vtxCount = 0;
idxData = (GLubyte *)indices;
for (i = 0; i < count; i++)
{
// Get incoming index
switch(type)
{
case GL_UNSIGNED_BYTE:
idx = *idxData++;
break;
case GL_UNSIGNED_SHORT:
idx = *(GLushort *)idxData;
idxData += sizeof(GLushort);
break;
case GL_UNSIGNED_INT:
idx = *(GLuint *)idxData;
idxData += sizeof(GLuint);
break;
}
// Look for a matching index in the hash table
hash = DE_HASH(idx);
ent = hashTable[hash];
while (ent != NULL && ent->original != idx)
{
ent = ent->next;
}
// If we didn't find a match, add a new vertex
// reference
if (ent == NULL)
{
ent = &hashEntries[vtxCount++];
ent->original = idx;
ent->next = hashTable[hash];
hashTable[hash] = ent;
}
// Create index into unique vertex set
*outIndices++ = (GLuint)((ULONG_PTR)(ent-hashEntries));
}
// Overwrite hash entries with just the vertex mappings for return
outIndices = (GLuint *)hashEntries;
deState->vertices = outIndices;
deState->vtxCount = vtxCount;
for (i = 0; i < vtxCount; i++)
{
*outIndices++ = hashEntries->original;
hashEntries++;
}
// Return the combined size of the unique vertex data and
// the new element indices
return __glsArrayDataSize(vtxCount, arrayState) + count*sizeof(GLuint);
}
void __glsWriteArrayValues(__GLSwriter *writer, GLint first,
GLsizei count, __GLSsingleArrayState *array)
{
GLint elStep;
const GLvoid *data;
if (array->stride > 0)
{
elStep = array->stride;
}
else
{
elStep = array->size * __glsTypeSize(array->type);
}
data = (const GLvoid *)((GLubyte *)array->data + first*elStep);
__glsWriter_putVertexv(writer, array->size, array->type, array->stride,
count, data);
}
// This routine must be called with an odd writer alignment
void __glsWriteArrayData(__GLSwriter *writer, GLint size,
GLint first, GLsizei count,
GLenum type, const GLvoid *indices,
__GLSarrayState *arrayState)
{
GLint i, el;
__GLSsingleArrayState *array;
GLuint arrayBit;
GLubyte *ubIndices;
GLushort *usIndices;
GLuint *uiIndices;
writer->putGLint(writer, size);
writer->putGLint(writer, count);
writer->putGLuint(writer, arrayState->enabled);
array = &arrayState->vertex;
arrayBit = __GLS_VERTEX_ARRAY_ENABLE;
for (i = 0; i < __GLS_ARRAY_COUNT; i++)
{
if (arrayState->enabled & arrayBit)
{
writer->putGLint(writer, array->size);
writer->putGLint(writer, array->type);
if (indices != NULL)
{
switch(type)
{
case GL_UNSIGNED_BYTE:
ubIndices = (GLubyte *)indices;
for (el = 0; el < count; el++)
{
__glsWriteArrayValues(writer, ubIndices[el], 1, array);
}
break;
case GL_UNSIGNED_SHORT:
usIndices = (GLshort *)indices;
for (el = 0; el < count; el++)
{
__glsWriteArrayValues(writer, usIndices[el], 1, array);
}
break;
case GL_UNSIGNED_INT:
uiIndices = (GLuint *)indices;
for (el = 0; el < count; el++)
{
__glsWriteArrayValues(writer, uiIndices[el], 1, array);
}
break;
}
}
else
{
__glsWriteArrayValues(writer, first, count, array);
}
// Pad data out to an eight-byte boundary
if (writer->type != GLS_TEXT)
{
GLint pad;
double padValue = 0.0;
pad = 8 - (__GLS_EXACT_ARRAY_SIZE(count, array->size,
array->type) & 7);
if (pad < 8)
{
writer->putGLubytev(writer, pad,
(const GLubyte *)&padValue);
}
}
}
array++;
arrayBit <<= 1;
}
}
// This routine must be called with an odd writer alignment
void __glsWriteDrawElementsData(__GLSwriter *writer, GLint size,
GLsizei count, __GLSarrayState *arrayState,
__GLSdrawElementsState *deState)
{
__glsWriteArrayData(writer, size, 0, deState->vtxCount, GL_UNSIGNED_INT,
deState->vertices, arrayState);
writer->putGLuintv(writer, count, deState->indices);
free(deState->freePtr);
}
typedef void (*__GLSdispatchVertexPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid *pointer);
typedef void (*__GLSdispatchColorPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid *pointer);
typedef void (*__GLSdispatchEdgeFlagPointer)(GLsizei stride, const GLvoid *pointer);
typedef void (*__GLSdispatchIndexPointer)(GLenum type, GLsizei stride, const GLvoid *pointer);
typedef void (*__GLSdispatchNormalPointer)(GLenum type, GLsizei stride, const GLvoid *pointer);
typedef void (*__GLSdispatchTexCoordPointer)(GLint size, GLenum type, GLsizei stride, const GLvoid *pointer);
void __glsSetArrayState(__GLScontext *ctx, GLubyte *data)
{
GLsizei count;
GLuint enabled;
count = *(GLsizei *)(data+4);
enabled = *(GLuint *)(data+8);
data += 12;
// Enable/DisableClientState produce their own records so
// the current enable state should be correct
if (enabled & __GLS_VERTEX_ARRAY_ENABLE)
{
((__GLSdispatchVertexPointer)ctx->dispatchCall[385])
(*(GLint *)(data+0),
*(GLenum *)(data+4),
0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, *(GLint *)(data+0),
*(GLenum *)(data+4));
}
if (enabled & __GLS_NORMAL_ARRAY_ENABLE)
{
((__GLSdispatchNormalPointer)ctx->dispatchCall[382])
(*(GLenum *)(data+4),
0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, 3, *(GLenum *)(data+4));
}
if (enabled & __GLS_COLOR_ARRAY_ENABLE)
{
((__GLSdispatchColorPointer)ctx->dispatchCall[372])
(*(GLint *)(data+0),
*(GLenum *)(data+4),
0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, *(GLint *)(data+0),
*(GLenum *)(data+4));
}
if (enabled & __GLS_INDEX_ARRAY_ENABLE)
{
((__GLSdispatchIndexPointer)ctx->dispatchCall[378])
(*(GLenum *)(data+4),
0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, 1, *(GLenum *)(data+4));
}
if (enabled & __GLS_TEXTURE_COORD_ARRAY_ENABLE)
{
((__GLSdispatchTexCoordPointer)ctx->dispatchCall[384])
(*(GLint *)(data+0),
*(GLenum *)(data+4),
0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, *(GLint *)(data+0),
*(GLenum *)(data+4));
}
if (enabled & __GLS_EDGE_FLAG_ARRAY_ENABLE)
{
((__GLSdispatchEdgeFlagPointer)ctx->dispatchCall[376])
(0,
data+8);
data += 8 + __GLS_ARRAY_SIZE(count, 1, __GLS_BOOLEAN);
}
}
GLvoid *__glsSetArrayStateText(__GLScontext *ctx, __GLSreader *reader,
GLuint *enabled, GLsizei *count)
{
GLint size;
GLubyte *ptr;
int i;
GLuint arrayBit;
GLvoid *data = GLS_NONE;
__glsReader_getGLint_text(reader, &size);
__glsReader_getGLint_text(reader, count);
__glsReader_getGLuint_text(reader, enabled);
data = __glsMalloc(size);
if (!data) goto end;
ptr = (GLubyte *)data;
*(GLint *)(ptr+0) = size;
*(GLsizei *)(ptr+4) = *count;
*(GLuint *)(ptr+8) = *enabled;
ptr += 12;
arrayBit = __GLS_VERTEX_ARRAY_ENABLE;
for (i = 0; i < __GLS_ARRAY_COUNT; i++)
{
if (*enabled & arrayBit)
{
__glsReader_getGLint_text(reader, (GLint *)(ptr+0));
__glsReader_getGLenum_text(reader, (GLenum *)(ptr+4));
size = __GLS_EXACT_ARRAY_SIZE(*count, *(GLint *)(ptr+0),
*(GLenum *)(ptr+4));
__glsReader_getGLcompv_text(reader, *(GLenum *)(ptr+4),
size, ptr+8);
ptr += 8 + __GLS_PAD_EIGHT(size);
}
arrayBit <<= 1;
}
if (reader->error)
{
free(data);
data = NULL;
goto end;
}
__glsSetArrayState(ctx, data);
end:
return data;
}
void __glsDisableArrayState(__GLScontext *ctx, GLuint enabled)
{
// Doesn't currently need to do anything because
// enable/disable are handled by their own records
}
void __glsSwapArrayData(GLubyte *data)
{
int i;
GLuint arrayBit;
GLsizei count;
GLuint enabled;
GLint size;
__glsSwap4(data+0);
__glsSwap4(data+4);
count = *(GLsizei *)(data+4);
__glsSwap4(data+8);
enabled = *(GLuint *)(data+8);
data += 12;
arrayBit = __GLS_VERTEX_ARRAY_ENABLE;
for (i = 0; i < __GLS_ARRAY_COUNT; i++)
{
if (enabled & arrayBit)
{
__glsSwap4(data+0);
__glsSwap4(data+4);
size = __GLS_EXACT_ARRAY_SIZE(count, *(GLint *)(data+0),
*(GLenum *)(data+4));
__glsSwapv(*(GLenum *)(data+4), size, data+8);
data += 8 + __GLS_PAD_EIGHT(size);
}
arrayBit <<= 1;
}
}