XS hacking

After some stupid problems like editing one copy of SDL-perl and compiling
another I have gotten as far as having perl recognize the existence of a
glGetString() function. Huzzah!

Unfortunately, it doesn't yet DWIM.


// In OpenGL.xs:
char *
glGetString( GLenum name )

This returns undef for every 'name' like GL_RENDERER, GL_VENDOR and
GL_VERSION


// In OpenGL.xs:
char *
glGetString( name )
  GLenum name
  CODE:
    glGetString(name);

This returns a stringified value of 'name'; for GL_RENDERER, GL_VENDOR and
GL_VERSION I get 7937, 7936 and 7938 respectively.


XS has always been a mystery to me, can any of you shed some light on how to
accomplish the exotic idea of getting a \0 terminated string from C please? 

Now, I know this list is not really meant for helping perl newbies but asking
this kind of question outside the scope of SDL-perl tends to spawn all sorts
of alternate suggestions like 'use h2xs', 'use Inline::C' etc. People also
tend to point out the fact that glGetString returns GLubyte* and not char* but
I believe those are compatible?

--
Andreas Lund ([email protected])
Tel: +47 90077162
#include <disclaimer.h>
"Look at you hacker, panting and sweating as you run through my corridors.
How can you challenge a perfect immortal machine?" -- SHODAN, System Shock