eglfunc.c
Go to the documentation of this file.
1 /* $Header$ */
2 
3 #include "eus.h"
4 
5 #include <GL/gl.h>
6 
7 #pragma init (init_object_module)
8 
9 pointer EGLGETSTRING(ctx, n, argv)
10  register context *ctx;
11  int n;
12  pointer *argv;
13 {
14  char *str;
15  eusinteger_t i;
16  ckarg(1);
17  i = ckintval(argv[0]);
18  str = (char *) glGetString(i);
19  if (str)
20  return(makestring(str, strlen(str)));
21  else
22  return(NIL);
23 }
24 
25 pointer eglfunc(ctx, n, argv)
26  register context *ctx;
27  int n;
28  pointer argv[];
29 {
30  defun(ctx, "EGLGETSTRING", argv[0], EGLGETSTRING,NULL);
31 }
32 
33 static void init_object_module()
34 {
35  add_module_initializer("eglfunc", eglfunc);
36 }
NIL
pointer NIL
Definition: eus.c:110
init_object_module
static void init_object_module()
Definition: eglfunc.c:33
defun
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
eglfunc
pointer eglfunc(context *ctx, int n, argv)
Definition: eglfunc.c:25
context
Definition: eus.h:524
add_module_initializer
void add_module_initializer(char *, pointer(*)())
Definition: loadelf.c:86
eus.h
makestring
pointer makestring(char *, int)
Definition: makes.c:147
NULL
#define NULL
Definition: transargv.c:8
cell
Definition: eus.h:381
eusinteger_t
long eusinteger_t
Definition: eus.h:19
EGLGETSTRING
pointer EGLGETSTRING(context *ctx, int n, pointer *argv)
Definition: eglfunc.c:9
n
GLfloat n[6][3]
Definition: cube.c:15
ckarg
ckarg(2)


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:43