src/glx/apple/gen_types.tcl

   1
   2 proc main {argc argv} {
   3     if {1 != $argc} {
   4         puts stderr "syntax is: [info script] output.h"
   5         exit 1
   6     }
   7
   8     set fd [open [lindex $argv 0] w]
   9     puts $fd "
  10 /*OpenGL primitive typedefs*/
  11 typedef unsigned int GLenum;
  12 typedef unsigned char GLboolean;
  13 typedef unsigned int GLbitfield;
  14 typedef signed char GLbyte;
  15 typedef short GLshort;
  16 typedef int GLint;
  17 typedef int GLsizei;
  18 typedef unsigned char GLubyte;
  19 typedef unsigned short GLushort;
  20 typedef unsigned int GLuint;
  21 typedef float GLfloat;
  22 typedef float GLclampf;
  23 typedef double GLdouble;
  24 typedef double GLclampd;
  25 typedef void GLvoid;
  26
  27 typedef long GLintptr;
  28 typedef long GLsizeiptr;
  29 "
  30
  31 }
  32 main $::argc $::argv