eglfunc.c
Go to the documentation of this file.
00001 /* $Header$ */
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 }


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 6 2019 18:05:53