projects / mesa.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
mesa: add extension table entry for GL_EXT_gpu_shader4
[mesa.git] / src / mesa / main / extensions.c
1 /*
2 * Mesa 3-D graphics library
3 * Version: 7.6
4 *
5 * Copyright (C) 1999-2008 Brian Paul All Rights Reserved.
6 * Copyright (C) 2009 VMware, Inc. All Rights Reserved.
7 *
8 * Permission is hereby granted, free of charge, to any person obtaining a
9 * copy of this software and associated documentation files (the "Software"),
10 * to deal in the Software without restriction, including without limitation
11 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12 * and/or sell copies of the Software, and to permit persons to whom the
13 * Software is furnished to do so, subject to the following conditions:
14 *
15 * The above copyright notice and this permission notice shall be included
16 * in all copies or substantial portions of the Software.
17 *
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
21 * BRIAN PAUL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
22 * AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
23 * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
24 */
25
26
27 #include "glheader.h"
28 #include "imports.h"
29 #include "context.h"
30 #include "extensions.h"
31 #include "mtypes.h"
32
33
34 #define F(x) offsetof(struct gl_extensions, x)
35 #define ON GL_TRUE
36 #define OFF GL_FALSE
37
38
39 /*
40 * Note: The GL_MESAX_* extensions are placeholders for future ARB extensions.
41 */
42 static const struct {
43 GLboolean enabled;
44 const char *name;
45 int flag_offset;
46 } default_extensions[] = {
47 { OFF, "GL_ARB_blend_func_extended", F(ARB_blend_func_extended) },
48 { ON, "GL_ARB_copy_buffer", F(ARB_copy_buffer) },
49 { OFF, "GL_ARB_depth_buffer_float", F(ARB_depth_buffer_float) },
50 { OFF, "GL_ARB_depth_clamp", F(ARB_depth_clamp) },
51 { OFF, "GL_ARB_depth_texture", F(ARB_depth_texture) },
52 { ON, "GL_ARB_draw_buffers", F(ARB_draw_buffers) },
53 { OFF, "GL_ARB_draw_elements_base_vertex", F(ARB_draw_elements_base_vertex) },
54 { OFF, "GL_ARB_draw_instanced", F(ARB_draw_instanced) },
55 { OFF, "GL_ARB_explicit_attrib_location", F(ARB_explicit_attrib_location) },
56 { OFF, "GL_ARB_fragment_coord_conventions", F(ARB_fragment_coord_conventions) },
57 { OFF, "GL_ARB_fragment_program", F(ARB_fragment_program) },
58 { OFF, "GL_ARB_fragment_program_shadow", F(ARB_fragment_program_shadow) },
59 { OFF, "GL_ARB_fragment_shader", F(ARB_fragment_shader) },
60 { OFF, "GL_ARB_framebuffer_object", F(ARB_framebuffer_object) },
61 /* TODO: reenable this when the new GLSL compiler actually supports them */
62 /* { OFF, "GL_ARB_geometry_shader4", F(ARB_geometry_shader4) }, */
63 { OFF, "GL_ARB_half_float_pixel", F(ARB_half_float_pixel) },
64 { OFF, "GL_ARB_half_float_vertex", F(ARB_half_float_vertex) },
65 { OFF, "GL_ARB_instanced_arrays", F(ARB_instanced_arrays) },
66 { OFF, "GL_ARB_map_buffer_range", F(ARB_map_buffer_range) },
67 { ON, "GL_ARB_multisample", F(ARB_multisample) },
68 { OFF, "GL_ARB_multitexture", F(ARB_multitexture) },
69 { OFF, "GL_ARB_occlusion_query", F(ARB_occlusion_query) },
70 { OFF, "GL_ARB_occlusion_query2", F(ARB_occlusion_query2) },
71 { OFF, "GL_ARB_pixel_buffer_object", F(EXT_pixel_buffer_object) },
72 { OFF, "GL_ARB_point_parameters", F(EXT_point_parameters) },
73 { OFF, "GL_ARB_point_sprite", F(ARB_point_sprite) },
74 { OFF, "GL_ARB_provoking_vertex", F(EXT_provoking_vertex) },
75 { OFF, "GL_ARB_sampler_objects", F(ARB_sampler_objects) },
76 { OFF, "GL_ARB_seamless_cube_map", F(ARB_seamless_cube_map) },
77 { OFF, "GL_ARB_shader_objects", F(ARB_shader_objects) },
78 { OFF, "GL_ARB_shader_stencil_export", F(ARB_shader_stencil_export) },
79 { OFF, "GL_ARB_shading_language_100", F(ARB_shading_language_100) },
80 { OFF, "GL_ARB_shadow", F(ARB_shadow) },
81 { OFF, "GL_ARB_shadow_ambient", F(ARB_shadow_ambient) },
82 { OFF, "GL_ARB_sync", F(ARB_sync) },
83 { OFF, "GL_ARB_texture_border_clamp", F(ARB_texture_border_clamp) },
84 { OFF, "GL_ARB_texture_buffer_object", F(ARB_texture_buffer_object) },
85 { ON, "GL_ARB_texture_compression", F(ARB_texture_compression) },
86 { OFF, "GL_ARB_texture_compression_rgtc", F(ARB_texture_compression_rgtc) },
87 { OFF, "GL_ARB_texture_cube_map", F(ARB_texture_cube_map) },
88 { OFF, "GL_ARB_texture_env_add", F(EXT_texture_env_add) },
89 { OFF, "GL_ARB_texture_env_combine", F(ARB_texture_env_combine) },
90 { OFF, "GL_ARB_texture_env_crossbar", F(ARB_texture_env_crossbar) },
91 { OFF, "GL_ARB_texture_env_dot3", F(ARB_texture_env_dot3) },
92 { OFF, "GL_MESAX_texture_float", F(ARB_texture_float) },
93 { OFF, "GL_ARB_texture_mirrored_repeat", F(ARB_texture_mirrored_repeat)},
94 { OFF, "GL_ARB_texture_multisample", F(ARB_texture_multisample) },
95 { OFF, "GL_ARB_texture_non_power_of_two", F(ARB_texture_non_power_of_two)},
96 { OFF, "GL_ARB_texture_rectangle", F(NV_texture_rectangle) },
97 { OFF, "GL_ARB_texture_rg", F(ARB_texture_rg) },
98 { OFF, "GL_ARB_texture_rgb10_a2ui", F(ARB_texture_rgb10_a2ui) },
99 { OFF, "GL_ARB_texture_swizzle", F(EXT_texture_swizzle) },
100 { ON, "GL_ARB_transpose_matrix", F(ARB_transpose_matrix) },
101 { OFF, "GL_ARB_transform_feedback2", F(ARB_transform_feedback2) },
102 { OFF, "GL_ARB_uniform_buffer_object", F(ARB_uniform_buffer_object) },
103 { OFF, "GL_ARB_vertex_array_bgra", F(EXT_vertex_array_bgra) },
104 { OFF, "GL_ARB_vertex_array_object", F(ARB_vertex_array_object) },
105 { ON, "GL_ARB_vertex_buffer_object", F(ARB_vertex_buffer_object) },
106 { OFF, "GL_ARB_vertex_program", F(ARB_vertex_program) },
107 { OFF, "GL_ARB_vertex_shader", F(ARB_vertex_shader) },
108 { OFF, "GL_ARB_vertex_type_2_10_10_10_rev", F(ARB_vertex_type_2_10_10_10_rev) },
109 { ON, "GL_ARB_window_pos", F(ARB_window_pos) },
110 { ON, "GL_EXT_abgr", F(EXT_abgr) },
111 { ON, "GL_EXT_bgra", F(EXT_bgra) },
112 { OFF, "GL_EXT_blend_color", F(EXT_blend_color) },
113 { OFF, "GL_EXT_blend_equation_separate", F(EXT_blend_equation_separate) },
114 { OFF, "GL_EXT_blend_func_separate", F(EXT_blend_func_separate) },
115 { OFF, "GL_EXT_blend_logic_op", F(EXT_blend_logic_op) },
116 { OFF, "GL_EXT_blend_minmax", F(EXT_blend_minmax) },
117 { OFF, "GL_EXT_blend_subtract", F(EXT_blend_subtract) },
118 { OFF, "GL_EXT_clip_volume_hint", F(EXT_clip_volume_hint) },
119 { ON, "GL_EXT_compiled_vertex_array", F(EXT_compiled_vertex_array) },
120 { ON, "GL_EXT_copy_texture", F(EXT_copy_texture) },
121 { OFF, "GL_EXT_depth_bounds_test", F(EXT_depth_bounds_test) },
122 { OFF, "GL_EXT_draw_buffers2", F(EXT_draw_buffers2) },
123 { OFF, "GL_EXT_draw_instanced", F(ARB_draw_instanced) },
124 { ON, "GL_EXT_draw_range_elements", F(EXT_draw_range_elements) },
125 { OFF, "GL_EXT_framebuffer_blit", F(EXT_framebuffer_blit) },
126 { OFF, "GL_EXT_framebuffer_multisample", F(EXT_framebuffer_multisample) },
127 { OFF, "GL_EXT_framebuffer_object", F(EXT_framebuffer_object) },
128 { OFF, "GL_EXT_framebuffer_sRGB", F(EXT_framebuffer_sRGB) },
129 { OFF, "GL_EXT_fog_coord", F(EXT_fog_coord) },
130 { OFF, "GL_EXT_gpu_program_parameters", F(EXT_gpu_program_parameters) },
131 { OFF, "GL_EXT_gpu_shader4", F(EXT_gpu_shader4) },
132 { ON, "GL_EXT_multi_draw_arrays", F(EXT_multi_draw_arrays) },
133 { OFF, "GL_EXT_packed_depth_stencil", F(EXT_packed_depth_stencil) },
134 { OFF, "GL_EXT_packed_float", F(EXT_packed_float) },
135 { ON, "GL_EXT_packed_pixels", F(EXT_packed_pixels) },
136 { OFF, "GL_EXT_paletted_texture", F(EXT_paletted_texture) },
137 { OFF, "GL_EXT_pixel_buffer_object", F(EXT_pixel_buffer_object) },
138 { OFF, "GL_EXT_point_parameters", F(EXT_point_parameters) },
139 { ON, "GL_EXT_polygon_offset", F(EXT_polygon_offset) },
140 { OFF, "GL_EXT_provoking_vertex", F(EXT_provoking_vertex) },
141 { ON, "GL_EXT_rescale_normal", F(EXT_rescale_normal) },
142 { OFF, "GL_EXT_secondary_color", F(EXT_secondary_color) },
143 { OFF, "GL_EXT_separate_shader_objects", F(EXT_separate_shader_objects) },
144 { ON, "GL_EXT_separate_specular_color", F(EXT_separate_specular_color) },
145 { OFF, "GL_EXT_shadow_funcs", F(EXT_shadow_funcs) },
146 { OFF, "GL_EXT_shared_texture_palette", F(EXT_shared_texture_palette) },
147 { OFF, "GL_EXT_stencil_two_side", F(EXT_stencil_two_side) },
148 { OFF, "GL_EXT_stencil_wrap", F(EXT_stencil_wrap) },
149 { ON, "GL_EXT_subtexture", F(EXT_subtexture) },
150 { ON, "GL_EXT_texture", F(EXT_texture) },
151 { ON, "GL_EXT_texture3D", F(EXT_texture3D) },
152 { OFF, "GL_EXT_texture_array", F(EXT_texture_array) },
153 { OFF, "GL_EXT_texture_compression_s3tc", F(EXT_texture_compression_s3tc) },
154 { OFF, "GL_EXT_texture_compression_rgtc", F(ARB_texture_compression_rgtc) },
155 { OFF, "GL_EXT_texture_cube_map", F(ARB_texture_cube_map) },
156 { ON, "GL_EXT_texture_edge_clamp", F(SGIS_texture_edge_clamp) },
157 { OFF, "GL_EXT_texture_env_add", F(EXT_texture_env_add) },
158 { OFF, "GL_EXT_texture_env_combine", F(EXT_texture_env_combine) },
159 { OFF, "GL_EXT_texture_env_dot3", F(EXT_texture_env_dot3) },
160 { OFF, "GL_EXT_texture_filter_anisotropic", F(EXT_texture_filter_anisotropic) },
161 { OFF, "GL_EXT_texture_integer", F(EXT_texture_integer) },
162 { OFF, "GL_EXT_texture_lod_bias", F(EXT_texture_lod_bias) },
163 { OFF, "GL_EXT_texture_mirror_clamp", F(EXT_texture_mirror_clamp) },
164 { ON, "GL_EXT_texture_object", F(EXT_texture_object) },
165 { OFF, "GL_EXT_texture_rectangle", F(NV_texture_rectangle) },
166 { OFF, "GL_EXT_texture_shared_exponent", F(EXT_texture_shared_exponent) },
167 { OFF, "GL_EXT_texture_sRGB", F(EXT_texture_sRGB) },
168 { OFF, "GL_EXT_texture_swizzle", F(EXT_texture_swizzle) },
169 { OFF, "GL_EXT_timer_query", F(EXT_timer_query) },
170 { OFF, "GL_EXT_transform_feedback", F(EXT_transform_feedback) },
171 { ON, "GL_EXT_vertex_array", F(EXT_vertex_array) },
172 { OFF, "GL_EXT_vertex_array_bgra", F(EXT_vertex_array_bgra) },
173 { OFF, "GL_EXT_vertex_array_set", F(EXT_vertex_array_set) },
174 { OFF, "GL_3DFX_texture_compression_FXT1", F(TDFX_texture_compression_FXT1) },
175 { OFF, "GL_APPLE_client_storage", F(APPLE_client_storage) },
176 { ON, "GL_APPLE_packed_pixels", F(APPLE_packed_pixels) },
177 { OFF, "GL_APPLE_vertex_array_object", F(APPLE_vertex_array_object) },
178 { OFF, "GL_APPLE_object_purgeable", F(APPLE_object_purgeable) },
179 { OFF, "GL_ATI_blend_equation_separate", F(EXT_blend_equation_separate) },
180 { OFF, "GL_ATI_envmap_bumpmap", F(ATI_envmap_bumpmap) },
181 { OFF, "GL_ATI_texture_env_combine3", F(ATI_texture_env_combine3)},
182 { OFF, "GL_ATI_texture_mirror_once", F(ATI_texture_mirror_once)},
183 { OFF, "GL_ATI_fragment_shader", F(ATI_fragment_shader)},
184 { OFF, "GL_ATI_separate_stencil", F(ATI_separate_stencil)},
185 { ON, "GL_IBM_multimode_draw_arrays", F(IBM_multimode_draw_arrays) },
186 { ON, "GL_IBM_rasterpos_clip", F(IBM_rasterpos_clip) },
187 { OFF, "GL_IBM_texture_mirrored_repeat", F(ARB_texture_mirrored_repeat)},
188 { OFF, "GL_INGR_blend_func_separate", F(EXT_blend_func_separate) },
189 { OFF, "GL_MESA_pack_invert", F(MESA_pack_invert) },
190 { OFF, "GL_MESA_resize_buffers", F(MESA_resize_buffers) },
191 { OFF, "GL_MESA_texture_array", F(MESA_texture_array) },
192 { OFF, "GL_MESA_texture_signed_rgba", F(MESA_texture_signed_rgba) },
193 { OFF, "GL_MESA_ycbcr_texture", F(MESA_ycbcr_texture) },
194 { ON, "GL_MESA_window_pos", F(ARB_window_pos) },
195 { OFF, "GL_NV_blend_square", F(NV_blend_square) },
196 { OFF, "GL_NV_conditional_render", F(NV_conditional_render) },
197 { OFF, "GL_NV_depth_clamp", F(ARB_depth_clamp) },
198 { OFF, "GL_NV_fragment_program", F(NV_fragment_program) },
199 { OFF, "GL_NV_fragment_program_option", F(NV_fragment_program_option) },
200 { ON, "GL_NV_light_max_exponent", F(NV_light_max_exponent) },
201 { OFF, "GL_NV_packed_depth_stencil", F(EXT_packed_depth_stencil) },
202 { OFF, "GL_NV_point_sprite", F(NV_point_sprite) },
203 { OFF, "GL_NV_primitive_restart", F(NV_primitive_restart) },
204 { ON, "GL_NV_texgen_reflection", F(NV_texgen_reflection) },
205 { OFF, "GL_NV_texture_env_combine4", F(NV_texture_env_combine4) },
206 { OFF, "GL_NV_texture_rectangle", F(NV_texture_rectangle) },
207 { OFF, "GL_NV_vertex_program", F(NV_vertex_program) },
208 { OFF, "GL_NV_vertex_program1_1", F(NV_vertex_program1_1) },
209 { ON, "GL_OES_read_format", F(OES_read_format) },
210 { OFF, "GL_SGI_texture_color_table", F(SGI_texture_color_table) },
211 { ON, "GL_SGIS_generate_mipmap", F(SGIS_generate_mipmap) },
212 { OFF, "GL_SGIS_texture_border_clamp", F(ARB_texture_border_clamp) },
213 { ON, "GL_SGIS_texture_edge_clamp", F(SGIS_texture_edge_clamp) },
214 { ON, "GL_SGIS_texture_lod", F(SGIS_texture_lod) },
215 { ON, "GL_SUN_multi_draw_arrays", F(EXT_multi_draw_arrays) },
216 { OFF, "GL_S3_s3tc", F(S3_s3tc) },
217 { OFF, "GL_EXT_texture_format_BGRA8888", F(EXT_texture_format_BGRA8888) },
218 #if FEATURE_OES_EGL_image
219 { OFF, "GL_OES_EGL_image", F(OES_EGL_image) },
220 #endif
221 #if FEATURE_OES_draw_texture
222 { OFF, "GL_OES_draw_texture", F(OES_draw_texture) },
223 #endif /* FEATURE_OES_draw_texture */
224 };
225
226
227
228 /**
229 * Enable all extensions suitable for a software-only renderer.
230 * This is a convenience function used by the XMesa, OSMesa, GGI drivers, etc.
231 */
232 void
233 _mesa_enable_sw_extensions(struct gl_context *ctx)
234 {
235 /*ctx->Extensions.ARB_copy_buffer = GL_TRUE;*/
236 ctx->Extensions.ARB_depth_clamp = GL_TRUE;
237 ctx->Extensions.ARB_depth_texture = GL_TRUE;
238 /*ctx->Extensions.ARB_draw_buffers = GL_TRUE;*/
239 ctx->Extensions.ARB_draw_elements_base_vertex = GL_TRUE;
240 ctx->Extensions.ARB_explicit_attrib_location = GL_TRUE;
241 ctx->Extensions.ARB_fragment_coord_conventions = GL_TRUE;
242 #if FEATURE_ARB_fragment_program
243 ctx->Extensions.ARB_fragment_program = GL_TRUE;
244 ctx->Extensions.ARB_fragment_program_shadow = GL_TRUE;
245 #endif
246 #if FEATURE_ARB_fragment_shader
247 ctx->Extensions.ARB_fragment_shader = GL_TRUE;
248 #endif
249 #if FEATURE_ARB_framebuffer_object
250 ctx->Extensions.ARB_framebuffer_object = GL_TRUE;
251 #endif
252 #if FEATURE_ARB_geometry_shader4
253 ctx->Extensions.ARB_geometry_shader4 = GL_TRUE;
254 #endif
255 ctx->Extensions.ARB_half_float_pixel = GL_TRUE;
256 ctx->Extensions.ARB_half_float_vertex = GL_TRUE;
257 ctx->Extensions.ARB_map_buffer_range = GL_TRUE;
258 ctx->Extensions.ARB_multitexture = GL_TRUE;
259 #if FEATURE_queryobj
260 ctx->Extensions.ARB_occlusion_query = GL_TRUE;
261 #endif
262 ctx->Extensions.ARB_point_sprite = GL_TRUE;
263 #if FEATURE_ARB_shader_objects
264 ctx->Extensions.ARB_shader_objects = GL_TRUE;
265 ctx->Extensions.EXT_separate_shader_objects = GL_TRUE;
266 #endif
267 #if FEATURE_ARB_shading_language_100
268 ctx->Extensions.ARB_shading_language_100 = GL_TRUE;
269 #endif
270 ctx->Extensions.ARB_shadow = GL_TRUE;
271 ctx->Extensions.ARB_shadow_ambient = GL_TRUE;
272 ctx->Extensions.ARB_texture_border_clamp = GL_TRUE;
273 ctx->Extensions.ARB_texture_cube_map = GL_TRUE;
274 ctx->Extensions.ARB_texture_env_combine = GL_TRUE;
275 ctx->Extensions.ARB_texture_env_crossbar = GL_TRUE;
276 ctx->Extensions.ARB_texture_env_dot3 = GL_TRUE;
277 /*ctx->Extensions.ARB_texture_float = GL_TRUE;*/
278 ctx->Extensions.ARB_texture_mirrored_repeat = GL_TRUE;
279 ctx->Extensions.ARB_texture_non_power_of_two = GL_TRUE;
280 ctx->Extensions.ARB_texture_rg = GL_TRUE;
281 ctx->Extensions.ARB_vertex_array_object = GL_TRUE;
282 #if FEATURE_ARB_vertex_program
283 ctx->Extensions.ARB_vertex_program = GL_TRUE;
284 #endif
285 #if FEATURE_ARB_vertex_shader
286 ctx->Extensions.ARB_vertex_shader = GL_TRUE;
287 #endif
288 #if FEATURE_ARB_vertex_buffer_object
289 /*ctx->Extensions.ARB_vertex_buffer_object = GL_TRUE;*/
290 #endif
291 #if FEATURE_ARB_sync
292 ctx->Extensions.ARB_sync = GL_TRUE;
293 #endif
294 ctx->Extensions.APPLE_vertex_array_object = GL_TRUE;
295 #if FEATURE_APPLE_object_purgeable
296 ctx->Extensions.APPLE_object_purgeable = GL_TRUE;
297 #endif
298 ctx->Extensions.ATI_envmap_bumpmap = GL_TRUE;
299 #if FEATURE_ATI_fragment_shader
300 ctx->Extensions.ATI_fragment_shader = GL_TRUE;
301 #endif
302 ctx->Extensions.ATI_texture_env_combine3 = GL_TRUE;
303 ctx->Extensions.ATI_texture_mirror_once = GL_TRUE;
304 ctx->Extensions.ATI_separate_stencil = GL_TRUE;
305 ctx->Extensions.EXT_blend_color = GL_TRUE;
306 ctx->Extensions.EXT_blend_equation_separate = GL_TRUE;
307 ctx->Extensions.EXT_blend_func_separate = GL_TRUE;
308 ctx->Extensions.EXT_blend_logic_op = GL_TRUE;
309 ctx->Extensions.EXT_blend_minmax = GL_TRUE;
310 ctx->Extensions.EXT_blend_subtract = GL_TRUE;
311 ctx->Extensions.EXT_depth_bounds_test = GL_TRUE;
312 ctx->Extensions.EXT_draw_buffers2 = GL_TRUE;
313 ctx->Extensions.EXT_fog_coord = GL_TRUE;
314 #if FEATURE_EXT_framebuffer_object
315 ctx->Extensions.EXT_framebuffer_object = GL_TRUE;
316 #endif
317 #if FEATURE_EXT_framebuffer_blit
318 ctx->Extensions.EXT_framebuffer_blit = GL_TRUE;
319 #endif
320 #if FEATURE_ARB_framebuffer_object
321 ctx->Extensions.EXT_framebuffer_multisample = GL_TRUE;
322 #endif
323 /*ctx->Extensions.EXT_multi_draw_arrays = GL_TRUE;*/
324 ctx->Extensions.EXT_packed_depth_stencil = GL_TRUE;
325 ctx->Extensions.EXT_paletted_texture = GL_TRUE;
326 #if FEATURE_EXT_pixel_buffer_object
327 ctx->Extensions.EXT_pixel_buffer_object = GL_TRUE;
328 #endif
329 ctx->Extensions.EXT_point_parameters = GL_TRUE;
330 ctx->Extensions.EXT_provoking_vertex = GL_TRUE;
331 ctx->Extensions.EXT_shadow_funcs = GL_TRUE;
332 ctx->Extensions.EXT_secondary_color = GL_TRUE;
333 ctx->Extensions.EXT_shared_texture_palette = GL_TRUE;
334 ctx->Extensions.EXT_stencil_wrap = GL_TRUE;
335 ctx->Extensions.EXT_stencil_two_side = GL_TRUE;
336 ctx->Extensions.EXT_texture_array = GL_TRUE;
337 ctx->Extensions.EXT_texture_env_add = GL_TRUE;
338 ctx->Extensions.EXT_texture_env_combine = GL_TRUE;
339 ctx->Extensions.EXT_texture_env_dot3 = GL_TRUE;
340 ctx->Extensions.EXT_texture_mirror_clamp = GL_TRUE;
341 ctx->Extensions.EXT_texture_lod_bias = GL_TRUE;
342 #if FEATURE_EXT_texture_sRGB
343 ctx->Extensions.EXT_texture_sRGB = GL_TRUE;
344 #endif
345 ctx->Extensions.EXT_texture_swizzle = GL_TRUE;
346 #if FEATURE_EXT_transform_feedback
347 /*ctx->Extensions.EXT_transform_feedback = GL_TRUE;*/
348 #endif
349 ctx->Extensions.EXT_vertex_array_bgra = GL_TRUE;
350 /*ctx->Extensions.IBM_multimode_draw_arrays = GL_TRUE;*/
351 ctx->Extensions.MESA_pack_invert = GL_TRUE;
352 ctx->Extensions.MESA_resize_buffers = GL_TRUE;
353 ctx->Extensions.MESA_texture_array = GL_TRUE;
354 ctx->Extensions.MESA_ycbcr_texture = GL_TRUE;
355 ctx->Extensions.NV_blend_square = GL_TRUE;
356 ctx->Extensions.NV_conditional_render = GL_TRUE;
357 /*ctx->Extensions.NV_light_max_exponent = GL_TRUE;*/
358 ctx->Extensions.NV_point_sprite = GL_TRUE;
359 ctx->Extensions.NV_texture_env_combine4 = GL_TRUE;
360 ctx->Extensions.NV_texture_rectangle = GL_TRUE;
361 /*ctx->Extensions.NV_texgen_reflection = GL_TRUE;*/
362 #if FEATURE_NV_vertex_program
363 ctx->Extensions.NV_vertex_program = GL_TRUE;
364 ctx->Extensions.NV_vertex_program1_1 = GL_TRUE;
365 #endif
366 #if FEATURE_NV_fragment_program
367 ctx->Extensions.NV_fragment_program = GL_TRUE;
368 #endif
369 #if FEATURE_NV_fragment_program && FEATURE_ARB_fragment_program
370 ctx->Extensions.NV_fragment_program_option = GL_TRUE;
371 #endif
372 ctx->Extensions.SGI_texture_color_table = GL_TRUE;
373 /*ctx->Extensions.SGIS_generate_mipmap = GL_TRUE;*/
374 ctx->Extensions.SGIS_texture_edge_clamp = GL_TRUE;
375 #if FEATURE_ARB_vertex_program || FEATURE_ARB_fragment_program
376 ctx->Extensions.EXT_gpu_program_parameters = GL_TRUE;
377 #endif
378 #if FEATURE_texture_fxt1
379 _mesa_enable_extension(ctx, "GL_3DFX_texture_compression_FXT1");
380 #endif
381 #if FEATURE_texture_s3tc
382 if (ctx->Mesa_DXTn) {
383 _mesa_enable_extension(ctx, "GL_EXT_texture_compression_s3tc");
384 _mesa_enable_extension(ctx, "GL_S3_s3tc");
385 }
386 #endif
387 }
388
389
390 /**
391 * Enable common EXT extensions in the ARB_imaging subset.
392 */
393 void
394 _mesa_enable_imaging_extensions(struct gl_context *ctx)
395 {
396 ctx->Extensions.EXT_blend_color = GL_TRUE;
397 ctx->Extensions.EXT_blend_logic_op = GL_TRUE;
398 ctx->Extensions.EXT_blend_minmax = GL_TRUE;
399 ctx->Extensions.EXT_blend_subtract = GL_TRUE;
400 }
401
402
403
404 /**
405 * Enable all OpenGL 1.3 features and extensions.
406 * A convenience function to be called by drivers.
407 */
408 void
409 _mesa_enable_1_3_extensions(struct gl_context *ctx)
410 {
411 /*ctx->Extensions.ARB_multisample = GL_TRUE;*/
412 ctx->Extensions.ARB_multitexture = GL_TRUE;
413 ctx->Extensions.ARB_texture_border_clamp = GL_TRUE;
414 /*ctx->Extensions.ARB_texture_compression = GL_TRUE;*/
415 ctx->Extensions.ARB_texture_cube_map = GL_TRUE;
416 ctx->Extensions.ARB_texture_env_combine = GL_TRUE;
417 ctx->Extensions.ARB_texture_env_dot3 = GL_TRUE;
418 ctx->Extensions.EXT_texture_env_add = GL_TRUE;
419 /*ctx->Extensions.ARB_transpose_matrix = GL_TRUE;*/
420 }
421
422
423
424 /**
425 * Enable all OpenGL 1.4 features and extensions.
426 * A convenience function to be called by drivers.
427 */
428 void
429 _mesa_enable_1_4_extensions(struct gl_context *ctx)
430 {
431 ctx->Extensions.ARB_depth_texture = GL_TRUE;
432 ctx->Extensions.ARB_shadow = GL_TRUE;
433 ctx->Extensions.ARB_texture_env_crossbar = GL_TRUE;
434 ctx->Extensions.ARB_texture_mirrored_repeat = GL_TRUE;
435 ctx->Extensions.ARB_window_pos = GL_TRUE;
436 ctx->Extensions.EXT_blend_color = GL_TRUE;
437 ctx->Extensions.EXT_blend_func_separate = GL_TRUE;
438 ctx->Extensions.EXT_blend_minmax = GL_TRUE;
439 ctx->Extensions.EXT_blend_subtract = GL_TRUE;
440 ctx->Extensions.EXT_fog_coord = GL_TRUE;
441 /*ctx->Extensions.EXT_multi_draw_arrays = GL_TRUE;*/
442 ctx->Extensions.EXT_point_parameters = GL_TRUE;
443 ctx->Extensions.EXT_secondary_color = GL_TRUE;
444 ctx->Extensions.EXT_stencil_wrap = GL_TRUE;
445 ctx->Extensions.EXT_texture_lod_bias = GL_TRUE;
446 /*ctx->Extensions.SGIS_generate_mipmap = GL_TRUE;*/
447 }
448
449
450 /**
451 * Enable all OpenGL 1.5 features and extensions.
452 * A convenience function to be called by drivers.
453 */
454 void
455 _mesa_enable_1_5_extensions(struct gl_context *ctx)
456 {
457 ctx->Extensions.ARB_occlusion_query = GL_TRUE;
458 /*ctx->Extensions.ARB_vertex_buffer_object = GL_TRUE;*/
459 ctx->Extensions.EXT_shadow_funcs = GL_TRUE;
460 }
461
462
463 /**
464 * Enable all OpenGL 2.0 features and extensions.
465 * A convenience function to be called by drivers.
466 */
467 void
468 _mesa_enable_2_0_extensions(struct gl_context *ctx)
469 {
470 /*ctx->Extensions.ARB_draw_buffers = GL_TRUE;*/
471 #if FEATURE_ARB_fragment_shader
472 ctx->Extensions.ARB_fragment_shader = GL_TRUE;
473 #endif
474 ctx->Extensions.ARB_point_sprite = GL_TRUE;
475 ctx->Extensions.EXT_blend_equation_separate = GL_TRUE;
476 ctx->Extensions.ARB_texture_non_power_of_two = GL_TRUE;
477 #if FEATURE_ARB_shader_objects
478 ctx->Extensions.ARB_shader_objects = GL_TRUE;
479 #endif
480 #if FEATURE_ARB_shading_language_100
481 ctx->Extensions.ARB_shading_language_100 = GL_TRUE;
482 #endif
483 ctx->Extensions.EXT_stencil_two_side = GL_TRUE;
484 #if FEATURE_ARB_vertex_shader
485 ctx->Extensions.ARB_vertex_shader = GL_TRUE;
486 #endif
487 }
488
489
490 /**
491 * Enable all OpenGL 2.1 features and extensions.
492 * A convenience function to be called by drivers.
493 */
494 void
495 _mesa_enable_2_1_extensions(struct gl_context *ctx)
496 {
497 #if FEATURE_EXT_pixel_buffer_object
498 ctx->Extensions.EXT_pixel_buffer_object = GL_TRUE;
499 #endif
500 #if FEATURE_EXT_texture_sRGB
501 ctx->Extensions.EXT_texture_sRGB = GL_TRUE;
502 #endif
503 }
504
505
506 /**
507 * Either enable or disable the named extension.
508 * \return GL_TRUE for success, GL_FALSE if invalid extension name
509 */
510 static GLboolean
511 set_extension( struct gl_context *ctx, const char *name, GLboolean state )
512 {
513 GLboolean *base = (GLboolean *) &ctx->Extensions;
514 GLuint i;
515
516 if (ctx->Extensions.String) {
517 /* The string was already queried - can't change it now! */
518 _mesa_problem(ctx, "Trying to enable/disable extension after glGetString(GL_EXTENSIONS): %s", name);
519 return GL_FALSE;
520 }
521
522 for (i = 0 ; i < Elements(default_extensions) ; i++) {
523 if (strcmp(default_extensions[i].name, name) == 0) {
524 if (default_extensions[i].flag_offset) {
525 GLboolean *enabled = base + default_extensions[i].flag_offset;
526 *enabled = state;
527 }
528 return GL_TRUE;
529 }
530 }
531 return GL_FALSE;
532 }
533
534
535 /**
536 * Enable the named extension.
537 * Typically called by drivers.
538 */
539 void
540 _mesa_enable_extension( struct gl_context *ctx, const char *name )
541 {
542 if (!set_extension(ctx, name, GL_TRUE))
543 _mesa_problem(ctx, "Trying to enable unknown extension: %s", name);
544 }
545
546
547 /**
548 * Disable the named extension.
549 * XXX is this really needed???
550 */
551 void
552 _mesa_disable_extension( struct gl_context *ctx, const char *name )
553 {
554 if (!set_extension(ctx, name, GL_FALSE))
555 _mesa_problem(ctx, "Trying to disable unknown extension: %s", name);
556 }
557
558
559 /**
560 * Check if the i-th extension is enabled.
561 */
562 static GLboolean
563 extension_enabled(struct gl_context *ctx, GLuint index)
564 {
565 const GLboolean *base = (const GLboolean *) &ctx->Extensions;
566 if (!default_extensions[index].flag_offset ||
567 *(base + default_extensions[index].flag_offset)) {
568 return GL_TRUE;
569 }
570 else {
571 return GL_FALSE;
572 }
573 }
574
575
576 /**
577 * Test if the named extension is enabled in this context.
578 */
579 GLboolean
580 _mesa_extension_is_enabled( struct gl_context *ctx, const char *name )
581 {
582 GLuint i;
583
584 for (i = 0 ; i < Elements(default_extensions) ; i++) {
585 if (strcmp(default_extensions[i].name, name) == 0) {
586 return extension_enabled(ctx, i);
587 }
588 }
589 return GL_FALSE;
590 }
591
592
593 /**
594 * Append string 'b' onto string 'a'. Free 'a' and return new string.
595 */
596 static char *
597 append(const char *a, const char *b)
598 {
599 const GLuint aLen = a ? strlen(a) : 0;
600 const GLuint bLen = b ? strlen(b) : 0;
601 char *s = calloc(1, aLen + bLen + 1);
602 if (s) {
603 if (a)
604 memcpy(s, a, aLen);
605 if (b)
606 memcpy(s + aLen, b, bLen);
607 s[aLen + bLen] = '\0';
608 }
609 if (a)
610 free((void *) a);
611 return s;
612 }
613
614
615 /**
616 * Check the MESA_EXTENSION_OVERRIDE env var.
617 * For extension names that are recognized, turn them on. For extension
618 * names that are recognized and prefixed with '-', turn them off.
619 * Return a string of the unknown/leftover names.
620 */
621 static const char *
622 get_extension_override( struct gl_context *ctx )
623 {
624 const char *envExt = _mesa_getenv("MESA_EXTENSION_OVERRIDE");
625 char *extraExt = NULL;
626 char ext[1000];
627 GLuint extLen = 0;
628 GLuint i;
629 GLboolean disableExt = GL_FALSE;
630
631 if (!envExt)
632 return NULL;
633
634 for (i = 0; ; i++) {
635 if (envExt[i] == '\0' || envExt[i] == ' ') {
636 /* terminate/process 'ext' if extLen > 0 */
637 if (extLen > 0) {
638 assert(extLen < sizeof(ext));
639 /* enable extension named by 'ext' */
640 ext[extLen] = 0;
641 if (!set_extension(ctx, ext, !disableExt)) {
642 /* unknown extension name, append it to extraExt */
643 if (extraExt) {
644 extraExt = append(extraExt, " ");
645 }
646 extraExt = append(extraExt, ext);
647 }
648 extLen = 0;
649 disableExt = GL_FALSE;
650 }
651 if (envExt[i] == '\0')
652 break;
653 }
654 else if (envExt[i] == '-') {
655 disableExt = GL_TRUE;
656 }
657 else {
658 /* accumulate this non-space character */
659 ext[extLen++] = envExt[i];
660 }
661 }
662
663 return extraExt;
664 }
665
666
667 /**
668 * Run through the default_extensions array above and set the
669 * ctx->Extensions.ARB/EXT_* flags accordingly.
670 * To be called during context initialization.
671 */
672 void
673 _mesa_init_extensions( struct gl_context *ctx )
674 {
675 GLboolean *base = (GLboolean *) &ctx->Extensions;
676 GLuint i;
677
678 for (i = 0 ; i < Elements(default_extensions) ; i++) {
679 if (default_extensions[i].enabled &&
680 default_extensions[i].flag_offset) {
681 *(base + default_extensions[i].flag_offset) = GL_TRUE;
682 }
683 }
684 }
685
686
687 /**
688 * Construct the GL_EXTENSIONS string. Called the first time that
689 * glGetString(GL_EXTENSIONS) is called.
690 */
691 static GLubyte *
692 compute_extensions( struct gl_context *ctx )
693 {
694 const char *extraExt = get_extension_override(ctx);
695 GLuint extStrLen = 0;
696 char *s;
697 GLuint i;
698
699 /* first, compute length of the extension string */
700 for (i = 0 ; i < Elements(default_extensions) ; i++) {
701 if (extension_enabled(ctx, i)) {
702 extStrLen += (GLuint) strlen(default_extensions[i].name) + 1;
703 }
704 }
705
706 if (extraExt)
707 extStrLen += strlen(extraExt) + 1; /* +1 for space */
708
709 /* allocate the extension string */
710 s = (char *) malloc(extStrLen);
711 if (!s)
712 return NULL;
713
714 /* second, build the extension string */
715 extStrLen = 0;
716 for (i = 0 ; i < Elements(default_extensions) ; i++) {
717 if (extension_enabled(ctx, i)) {
718 GLuint len = (GLuint) strlen(default_extensions[i].name);
719 memcpy(s + extStrLen, default_extensions[i].name, len);
720 extStrLen += len;
721 s[extStrLen] = ' ';
722 extStrLen++;
723 }
724 }
725 ASSERT(extStrLen > 0);
726
727 s[extStrLen - 1] = 0; /* -1 to overwrite trailing the ' ' */
728
729 if (extraExt) {
730 s = append(s, " ");
731 s = append(s, extraExt);
732 }
733
734 return (GLubyte *) s;
735 }
736
737 static size_t
738 append_extension(GLubyte **str, const char *ext)
739 {
740 GLubyte *s = *str;
741 size_t len = strlen(ext);
742
743 if (s) {
744 memcpy(s, ext, len);
745 s[len++] = ' ';
746 s[len] = '\0';
747
748 *str += len;
749 }
750 else {
751 len++;
752 }
753
754 return len;
755 }
756
757
758 static size_t
759 make_extension_string_es1(const struct gl_context *ctx, GLubyte *str)
760 {
761 size_t len = 0;
762
763 /* Core additions */
764 len += append_extension(&str, "GL_OES_byte_coordinates");
765 len += append_extension(&str, "GL_OES_fixed_point");
766 len += append_extension(&str, "GL_OES_single_precision");
767 len += append_extension(&str, "GL_OES_matrix_get");
768
769 /* 1.1 required extensions */
770 len += append_extension(&str, "GL_OES_read_format");
771 len += append_extension(&str, "GL_OES_compressed_paletted_texture");
772 len += append_extension(&str, "GL_OES_point_size_array");
773 len += append_extension(&str, "GL_OES_point_sprite");
774
775 /* 1.1 deprecated extensions */
776 len += append_extension(&str, "GL_OES_query_matrix");
777
778 #if FEATURE_OES_draw_texture
779 if (ctx->Extensions.OES_draw_texture)
780 len += append_extension(&str, "GL_OES_draw_texture");
781 #endif
782
783 if (ctx->Extensions.EXT_blend_equation_separate)
784 len += append_extension(&str, "GL_OES_blend_equation_separate");
785 if (ctx->Extensions.EXT_blend_func_separate)
786 len += append_extension(&str, "GL_OES_blend_func_separate");
787 if (ctx->Extensions.EXT_blend_subtract)
788 len += append_extension(&str, "GL_OES_blend_subtract");
789
790 if (ctx->Extensions.EXT_stencil_wrap)
791 len += append_extension(&str, "GL_OES_stencil_wrap");
792
793 if (ctx->Extensions.ARB_texture_cube_map)
794 len += append_extension(&str, "GL_OES_texture_cube_map");
795 if (ctx->Extensions.ARB_texture_env_crossbar)
796 len += append_extension(&str, "GL_OES_texture_env_crossbar");
797 if (ctx->Extensions.ARB_texture_mirrored_repeat)
798 len += append_extension(&str, "GL_OES_texture_mirrored_repeat");
799
800 if (ctx->Extensions.ARB_framebuffer_object) {
801 len += append_extension(&str, "GL_OES_framebuffer_object");
802 len += append_extension(&str, "GL_OES_depth24");
803 len += append_extension(&str, "GL_OES_depth32");
804 len += append_extension(&str, "GL_OES_fbo_render_mipmap");
805 len += append_extension(&str, "GL_OES_rgb8_rgba8");
806 len += append_extension(&str, "GL_OES_stencil1");
807 len += append_extension(&str, "GL_OES_stencil4");
808 len += append_extension(&str, "GL_OES_stencil8");
809 }
810
811 if (ctx->Extensions.EXT_vertex_array)
812 len += append_extension(&str, "GL_OES_element_index_uint");
813 if (ctx->Extensions.ARB_vertex_buffer_object)
814 len += append_extension(&str, "GL_OES_mapbuffer");
815 if (ctx->Extensions.EXT_texture_filter_anisotropic)
816 len += append_extension(&str, "GL_EXT_texture_filter_anisotropic");
817
818 /* some applications check this for NPOT support */
819 if (ctx->Extensions.ARB_texture_non_power_of_two)
820 len += append_extension(&str, "GL_ARB_texture_non_power_of_two");
821
822 if (ctx->Extensions.EXT_texture_compression_s3tc)
823 len += append_extension(&str, "GL_EXT_texture_compression_dxt1");
824 if (ctx->Extensions.EXT_texture_lod_bias)
825 len += append_extension(&str, "GL_EXT_texture_lod_bias");
826 if (ctx->Extensions.EXT_blend_minmax)
827 len += append_extension(&str, "GL_EXT_blend_minmax");
828 if (ctx->Extensions.EXT_multi_draw_arrays)
829 len += append_extension(&str, "GL_EXT_multi_draw_arrays");
830
831 #if FEATURE_OES_EGL_image
832 if (ctx->Extensions.OES_EGL_image)
833 len += append_extension(&str, "GL_OES_EGL_image");
834 #endif
835
836 return len;
837 }
838
839
840 static GLubyte *
841 compute_extensions_es1(const struct gl_context *ctx)
842 {
843 GLubyte *s;
844 unsigned int len;
845
846 len = make_extension_string_es1(ctx, NULL);
847 s = malloc(len + 1);
848 if (!s)
849 return NULL;
850 make_extension_string_es1(ctx, s);
851
852 return s;
853 }
854
855 static size_t
856 make_extension_string_es2(const struct gl_context *ctx, GLubyte *str)
857 {
858 size_t len = 0;
859
860 len += append_extension(&str, "GL_OES_compressed_paletted_texture");
861
862 if (ctx->Extensions.ARB_framebuffer_object) {
863 len += append_extension(&str, "GL_OES_depth24");
864 len += append_extension(&str, "GL_OES_depth32");
865 len += append_extension(&str, "GL_OES_fbo_render_mipmap");
866 len += append_extension(&str, "GL_OES_rgb8_rgba8");
867 len += append_extension(&str, "GL_OES_stencil1");
868 len += append_extension(&str, "GL_OES_stencil4");
869 }
870
871 if (ctx->Extensions.EXT_vertex_array)
872 len += append_extension(&str, "GL_OES_element_index_uint");
873 if (ctx->Extensions.ARB_vertex_buffer_object)
874 len += append_extension(&str, "GL_OES_mapbuffer");
875
876 if (ctx->Extensions.EXT_texture3D)
877 len += append_extension(&str, "GL_OES_texture_3D");
878 if (ctx->Extensions.ARB_texture_non_power_of_two)
879 len += append_extension(&str, "GL_OES_texture_npot");
880 if (ctx->Extensions.EXT_texture_filter_anisotropic)
881 len += append_extension(&str, "GL_EXT_texture_filter_anisotropic");
882
883 len += append_extension(&str, "GL_EXT_texture_type_2_10_10_10_REV");
884 if (ctx->Extensions.ARB_depth_texture)
885 len += append_extension(&str, "GL_OES_depth_texture");
886 if (ctx->Extensions.EXT_packed_depth_stencil)
887 len += append_extension(&str, "GL_OES_packed_depth_stencil");
888 if (ctx->Extensions.ARB_fragment_shader)
889 len += append_extension(&str, "GL_OES_standard_derivatives");
890
891 if (ctx->Extensions.EXT_texture_compression_s3tc)
892 len += append_extension(&str, "GL_EXT_texture_compression_dxt1");
893 if (ctx->Extensions.EXT_blend_minmax)
894 len += append_extension(&str, "GL_EXT_blend_minmax");
895 if (ctx->Extensions.EXT_multi_draw_arrays)
896 len += append_extension(&str, "GL_EXT_multi_draw_arrays");
897
898 #if FEATURE_OES_EGL_image
899 if (ctx->Extensions.OES_EGL_image)
900 len += append_extension(&str, "GL_OES_EGL_image");
901 #endif
902
903 if (ctx->Extensions.EXT_texture_format_BGRA8888)
904 len += append_extension(&str, "GL_EXT_texture_format_BGRA8888");
905
906 return len;
907 }
908
909 static GLubyte *
910 compute_extensions_es2(struct gl_context *ctx)
911 {
912 GLubyte *s;
913 unsigned int len;
914
915 len = make_extension_string_es2(ctx, NULL);
916 s = malloc(len + 1);
917 if (!s)
918 return NULL;
919 make_extension_string_es2(ctx, s);
920
921 return s;
922 }
923
924
925 GLubyte *
926 _mesa_make_extension_string(struct gl_context *ctx)
927 {
928 switch (ctx->API) {
929 case API_OPENGL:
930 return compute_extensions(ctx);
931 case API_OPENGLES2:
932 return compute_extensions_es2(ctx);
933 case API_OPENGLES:
934 return compute_extensions_es1(ctx);
935 default:
936 assert(0);
937 return NULL;
938 }
939 }
940
941 /**
942 * Return number of enabled extensions.
943 */
944 GLuint
945 _mesa_get_extension_count(struct gl_context *ctx)
946 {
947 GLuint i;
948
949 /* only count once */
950 if (!ctx->Extensions.Count) {
951 for (i = 0; i < Elements(default_extensions); i++) {
952 if (extension_enabled(ctx, i)) {
953 ctx->Extensions.Count++;
954 }
955 }
956 }
957
958 if (0)
959 _mesa_debug(ctx, "%u of %d extensions enabled\n", ctx->Extensions.Count,
960 (int) Elements(default_extensions));
961
962 return ctx->Extensions.Count;
963 }
964
965
966 /**
967 * Return name of i-th enabled extension
968 */
969 const GLubyte *
970 _mesa_get_enabled_extension(struct gl_context *ctx, GLuint index)
971 {
972 GLuint i;
973
974 for (i = 0; i < Elements(default_extensions); i++) {
975 if (extension_enabled(ctx, i)) {
976 if (index == 0)
977 return (const GLubyte *) default_extensions[i].name;
978 index--;
979 }
980 }
981
982 return NULL;
983 }