switch build system to Tup

git-svn-id: svn://kolibrios.org@5098 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/TinyGL/src/list.c

@@ -0,0 +1,251 @@
+#include "zgl.h"
+
+static char *op_table_str[]=
+{
+#define ADD_OP(a,b,c) "gl" #a " " #c,
+
+#include "opinfo.h"
+};
+
+static void (*op_table_func[])(GLContext *,GLParam *)=
+{
+#define ADD_OP(a,b,c) glop ## a ,
+
+#include "opinfo.h"
+};
+
+static int op_table_size[]=
+{
+#define ADD_OP(a,b,c) b + 1 ,
+
+#include "opinfo.h"
+};
+
+
+
+static GLList *find_list(GLContext *c,unsigned int list)
+{
+  return c->shared_state.lists[list];
+}
+
+static void delete_list(GLContext *c,int list)
+{
+  GLParamBuffer *pb,*pb1;
+  GLList *l;
+
+  l=find_list(c,list);
+  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;
+}
+
+static GLList *alloc_list(GLContext *c,int list)
+{
+  GLList *l;
+  GLParamBuffer *ob;
+
+  l=gl_zalloc(sizeof(GLList));
+  ob=gl_zalloc(sizeof(GLParamBuffer));
+
+  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)
+{
+  int op;
+  char *s;
+
+  op=p[0].op;
+  p++;
+  s=op_table_str[op];
+  while (*s != 0) {
+    if (*s == '%') {
+      s++;
+      switch (*s++) {
+      case 'f':
+	fprintf(f,"%g",p[0].f);
+	break;
+      default:
+	fprintf(f,"%d",p[0].i);
+	break;
+      }
+      p++;
+    } else {
+      fputc(*s,f);
+      s++;
+    }
+  }
+  fprintf(f,"\n");
+}
+
+
+void gl_compile_op(GLContext *c,GLParam *p)
+{
+  int op,op_size;
+  GLParamBuffer *ob,*ob1;
+  int index,i;
+
+  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));
+    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;
+}
+
+void gl_add_op(GLParam *p)
+{
+  GLContext *c=gl_get_context();
+  int op;
+
+  op=p[0].op;
+  if (c->exec_flag) {
+    op_table_func[op](c,p);
+  }
+  if (c->compile_flag) {
+    gl_compile_op(c,p);
+  }
+  if (c->print_flag) {
+    gl_print_op(stderr,p);
+  }
+}
+
+/* this opcode is never called directly */
+void glopEndList(GLContext *c,GLParam *p)
+{
+  assert(0);
+}
+
+/* this opcode is never called directly */
+void glopNextBuffer(GLContext *c,GLParam *p)
+{
+  assert(0);
+}
+
+
+void glopCallList(GLContext *c,GLParam *p)
+{
+  GLList *l;
+  int list,op;
+
+  list=p[1].ui;
+  l=find_list(c,list);
+  if (l == NULL) gl_fatal_error("list %d not defined",list);
+  p=l->first_op_buffer->ops;
+
+  while (1) {
+    op=p[0].op;
+    if (op == OP_EndList) break;
+    if (op == OP_NextBuffer) {
+      p=(GLParam *)p[1].p;
+    } else {
+      op_table_func[op](c,p);
+      p+=op_table_size[op];
+    }
+  }
+}
+
+
+
+void glNewList(unsigned int list,int mode)
+{
+  GLList *l;
+  GLContext *c=gl_get_context();
+
+  assert(mode == GL_COMPILE || mode == GL_COMPILE_AND_EXECUTE);
+  assert(c->compile_flag == 0);
+
+  l=find_list(c,list);
+  if (l!=NULL) delete_list(c,list);
+  l=alloc_list(c,list);
+
+  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];
+
+  assert(c->compile_flag == 1);
+  
+  /* end of list */
+  p[0].op=OP_EndList;
+  gl_compile_op(c,p);
+  
+  c->compile_flag=0;
+  c->exec_flag=1;
+}
+
+int glIsList(unsigned int list)
+{
+  GLContext *c=gl_get_context();
+  GLList *l;
+  l=find_list(c,list);
+  return (l != NULL);
+}
+
+unsigned int glGenLists(int range)
+{
+  GLContext *c=gl_get_context();
+  int count,i,list;
+  GLList **lists;
+
+  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(c,list+i);
+	}
+	return list;
+      }
+    } else {
+      count=0;
+    }
+  }
+  return 0;
+}
+