1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
/* -----------------------------------------------------------------------------
*
* Module : Macros for basic GL types to get better Haddock documentation
* Copyright : (c) Sven Panne 2002-2004
* License : BSD-style (see the file libraries/OpenGL/LICENSE)
*
* Maintainer : sven.panne@aedion.de
* Stability : provisional
* Portability : portable
*
* This header should only define preprocessor macros!
*
* -------------------------------------------------------------------------- */
#ifndef HSOPENGLTYPES_H
#define HSOPENGLTYPES_H
#include "config.h"
/* Using a type synonym in an instance head is not Haskell98, but it is much
better for a useful documentation. */
#ifdef __HADDOCK__
#define GLbyte_ GLbyte
#define GLdouble_ GLdouble
#define GLfloat_ GLfloat
#define GLint_ GLint
#define GLshort_ GLshort
#define GLubyte_ GLubyte
#define GLuint_ GLuint
#define GLushort_ GLushort
#else
#define GLbyte_ HTYPE_GLBYTE
#define GLdouble_ HTYPE_GLDOUBLE
#define GLfloat_ HTYPE_GLFLOAT
#define GLint_ HTYPE_GLINT
#define GLshort_ HTYPE_GLSHORT
#define GLubyte_ HTYPE_GLUBYTE
#define GLuint_ HTYPE_GLUINT
#define GLushort_ HTYPE_GLUSHORT
#endif
#endif
|
