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 eglfunc(ctx, n, argv) 00026 register context *ctx; 00027 int n; 00028 pointer argv[]; 00029 { 00030 defun(ctx, "EGLGETSTRING", argv[0], EGLGETSTRING); 00031 } 00032 00033 static init_object_module() 00034 { 00035 add_module_initializer("eglfunc", eglfunc); 00036 }