Go to the documentation of this file.00001
00002
00003 #include "eus.h"
00004
00005 #include <GL/gl.h>
00006
00007 #pragma init (init_object_module)
00008
00009 pointer EGLGETSTRING(ctx, n, argv)
00010 register context *ctx;
00011 int n;
00012 pointer *argv;
00013 {
00014 char *str;
00015 eusinteger_t i;
00016 ckarg(1);
00017 i = ckintval(argv[0]);
00018 str = (char *) glGetString(i);
00019 if (str)
00020 return(makestring(str, strlen(str)));
00021 else
00022 return(NIL);
00023 }
00024
00025 pointer eglfunc(ctx, n, argv)
00026 register context *ctx;
00027 int n;
00028 pointer argv[];
00029 {
00030 defun(ctx, "EGLGETSTRING", argv[0], EGLGETSTRING,NULL);
00031 }
00032
00033 static void init_object_module()
00034 {
00035 add_module_initializer("eglfunc", eglfunc);
00036 }