ref: b7e50c61fac413c2e9c4d2dec9df7a8f2e0858b3
dir: /src/list.c/
#include "msghandling.h"
#include "zgl.h"
/*
static char* op_table_str[] = {
#define ADD_OP(a, b, c) "gl" #a " " #c,
#include "opinfo.h"
};
*/
//void (*op_table_func[])(GLContext*, GLParam*)
void (*op_table_func[])(GLParam*) = {
#define ADD_OP(a, b, c) glop##a,
#include "opinfo.h"
};
GLint op_table_size[] = {
#define ADD_OP(a, b, c) b + 1,
#include "opinfo.h"
};
static inline GLList* find_list(GLuint list) { return gl_get_context()->shared_state.lists[list]; }
static void delete_list( GLint list) {
GLContext* c = gl_get_context();
GLParamBuffer *pb, *pb1;
GLList* l;
l = find_list(list);
if (l == NULL) { //MARK <COST>
return;
}
//assert(l != NULL);
/* free param buffer */
pb = l->first_op_buffer;
while (pb != NULL) {
pb1 = pb->next;
gl_free(pb);
pb = pb1;
}
gl_free(l);
c->shared_state.lists[list] = NULL;
}
void glDeleteLists(GLuint list, GLuint range) {
GLuint i;
#include "error_check_no_context.h"
for (i = 0; i < list + range; i++)
glDeleteList(list + i);
}
void glDeleteList(GLuint list) {
#include "error_check_no_context.h"
delete_list( list);
}
static GLList* alloc_list( GLint list) {
GLList* l;GLParamBuffer* ob;
GLContext* c = gl_get_context();
#define RETVAL NULL
#include "error_check.h"
l = gl_zalloc(sizeof(GLList));
ob = gl_zalloc(sizeof(GLParamBuffer));
#if TGL_FEATURE_ERROR_CHECK
if(!l || !ob)
#define ERROR_FLAG GL_OUT_OF_MEMORY
#define RETVAL NULL
#include "error_check.h"
#else
//if(!l || !ob) gl_fatal_error("GL_OUT_OF_MEMORY");
//This will crash a few lines down, so, let it!
#endif
ob->next = NULL;
l->first_op_buffer = ob;
ob->ops[0].op = OP_EndList;
c->shared_state.lists[list] = l;
return l;
}
/*
void gl_print_op(FILE* f, GLParam* p) {
GLint op;
char* s;
op = p[0].op;
p++;
s = op_table_str[op];
while (*s != 0) {
if (*s == '%') {
s++;
switch (*s++) {
case 'f':
fpr_ntf(f, "%g", p[0].f);
break;
default:
fpr_ntf(f, "%d", p[0].i);
break;
}
p++;
} else {
fputc(*s, f);
s++;
}
}
tgl_warning(f, "\n");
}
*/
void glListBase(GLint n){
GLContext* c = gl_get_context();
#include "error_check.h"
c->listbase = n;
}
void glCallLists( GLsizei n,
GLenum type,
const GLuint* lists){
GLint i;
GLContext* c = gl_get_context();
//A ridiculously expensive error check.
/*
#include "error_check.h"
#if TGL_FEATURE_ERROR_CHECK == 1
if(type != GL_UNSIGNED_INT &&
type != GL_INT)
#define ERROR_FLAG GL_INVALID_ENUM
#include "error_check.h"
#endif
*/
for(i = 0; i < n; i++)
glCallList(c->listbase + lists[i]);
}
void gl_compile_op(GLParam* p) {
GLContext* c = gl_get_context();
GLint op, op_size;
GLParamBuffer *ob, *ob1;
GLint index, i;
#include "error_check.h"
op = p[0].op;
op_size = op_table_size[op];
index = c->current_op_buffer_index;
ob = c->current_op_buffer;
/* we should be able to add a NextBuffer opcode */
if ((index + op_size) > (OP_BUFFER_MAX_SIZE - 2)) {
ob1 = gl_zalloc(sizeof(GLParamBuffer));
#if TGL_FEATURE_ERROR_CHECK == 1
if(!ob1)
#define ERROR_FLAG GL_OUT_OF_MEMORY
#include "error_check.h"
#else
//if(!ob1) gl_fatal_error("GL_OUT_OF_MEMORY");
//This will crash a few lines down, so, let it!
#endif
ob1->next = NULL;
ob->next = ob1;
ob->ops[index].op = OP_NextBuffer;
ob->ops[index + 1].p = (void*)ob1;
c->current_op_buffer = ob1;
ob = ob1;
index = 0;
}
for (i = 0; i < op_size; i++) {
ob->ops[index] = p[i];
index++;
}
c->current_op_buffer_index = index;
}
/* this opcode is never called directly */
void glopEndList(GLParam* p) { exit(1); }
/* this opcode is never called directly */
void glopNextBuffer(GLParam* p) { exit(1); }
void glopCallList(GLParam* p) {
//GLContext* c = gl_get_context();
GLList* l;GLint list;
#include "error_check_no_context.h"
list = p[1].ui;
l = find_list(list);
#if TGL_FEATURE_ERROR_CHECK == 1
if (l == NULL) {gl_fatal_error("Bad list op, not defined");}
#else
//if(l == NULL)return; //MARK <COST>
#endif
p = l->first_op_buffer->ops;
while (1) {GLint op;
#include "error_check.h"
op = p[0].op;
if (op == OP_EndList)
break;
if (op == OP_NextBuffer) {
p = (GLParam*)p[1].p;
} else {
op_table_func[op](p);
p += op_table_size[op];
}
}
}
void glNewList(GLuint list, GLint mode) {
GLList* l;
GLContext* c = gl_get_context();
#include "error_check.h"
#if TGL_FEATURE_ERROR_CHECK == 1
if(!(mode == GL_COMPILE || mode == GL_COMPILE_AND_EXECUTE))
#define ERROR_FLAG GL_INVALID_ENUM
#include "error_check.h"
if(!(c->compile_flag == 0))
#define ERROR_FLAG GL_INVALID_OPERATION
#include "error_check.h"
#else
//assert(mode == GL_COMPILE || mode == GL_COMPILE_AND_EXECUTE); //MARK <COST>
//assert(c->compile_flag == 0); //MARK <COST>
#endif
l = find_list(list);
if (l != NULL) delete_list(list);
l = alloc_list(list);
#include "error_check.h"
#if TGL_FEATURE_ERROR_CHECK == 1
if(l==NULL)
#define ERROR_FLAG GL_OUT_OF_MEMORY
#include "error_check.h"
#else
//Nearly cost-free
if(l==NULL) gl_fatal_error("Could not find or allocate list.");
#endif
c->current_op_buffer = l->first_op_buffer;
c->current_op_buffer_index = 0;
c->compile_flag = 1;
c->exec_flag = (mode == GL_COMPILE_AND_EXECUTE);
}
void glEndList(void) {
GLContext* c = gl_get_context();
GLParam p[1];
#include "error_check.h"
#if TGL_FEATURE_ERROR_CHECK == 1
if(c->compile_flag != 1)
#define ERROR_FLAG GL_INVALID_OPERATION
#include "error_check.h"
#else
if(c->compile_flag != 1)
return;
#endif
/* end of list */
p[0].op = OP_EndList;
gl_compile_op(p);
c->compile_flag = 0;
c->exec_flag = 1;
}
GLint glIsList(GLuint list) {
//GLContext* c = gl_get_context();
GLList* l;
l = find_list(list);
return (l != NULL);
}
GLuint glGenLists(GLint range) {
GLint count, i, list;
GLList** lists;
GLContext* c = gl_get_context();
#define RETVAL 0
#include "error_check.h"
lists = c->shared_state.lists;
count = 0;
for (i = 0; i < MAX_DISPLAY_LISTS; i++) {
if (lists[i] == NULL) {
count++;
if (count == range) {
list = i - range + 1;
for (i = 0; i < range; i++) {
alloc_list(list + i);
}
return list;
}
} else {
count = 0;
}
}
return 0;
}