<commit_before>; EXT_texture_object
;  Texture state may be stored in a GL object, for greater efficiency.
;
;  https://www.opengl.org/registry/specs/EXT/texture_object.txt
;
; Version
;  $Date: 1995/10/03 05:39:56 $ $Revision: 1.27 $
;
; Overview
;  This extension introduces named texture objects.  The only way to name
;  a texture in GL 1.0 is by defining it as a single display list.  Because
;  display lists cannot be edited, these objects are static.  Yet it is
;  important to be able to change the images and parameters of a texture.
(define-library (OpenGL EXT texture_object)

; ---------------------------------------------------------------------------
; Dependencies
;  EXT_texture3D affects the definition of this extension
   (import
      (OpenGL version-1-0))

; ---------------------------------------------------------------------------
   (export
    EXT_texture_object

; ---------------------------------------------------------------------------
; New Procedures and Functions
      glGenTextures ; void (GLsizei n, GLuint *textures)
      ;DeleteTextures
      glBindTexture ; void (GLenum target, GLuint texture)
      ;PrioritizeTextures
      ;AreTexturesResident
      ;IsTexture

; ---------------------------------------------------------------------------
; New Tokens

)

; ---------------------------------------------------------------------------
(begin
   (define EXT_texture_object (gl:ExtensionSupported? "GL_EXT_texture_object"))
   (define $ (dlopen GL_LIBRARY))

   (define glBindTexture (if EXT_texture_object
         (dlsym $ GLvoid "glBindTexture" GLenum GLuint)))
   ;WINGDIAPI void APIENTRY glDeleteTextures (GLsizei n, const GLuint *textures);
   (define glGenTextures (if EXT_texture_object
         (dlsym $ GLvoid "glGenTextures" GLsizei GLuint*)))
   ;WINGDIAPI GLboolean APIENTRY glIsTexture (GLuint texture);
))<commit_msg>change library loading into existing function<commit_after>; EXT_texture_object
;  Texture state may be stored in a GL object, for greater efficiency.
;
;  https://www.opengl.org/registry/specs/EXT/texture_object.txt
;
; Version
;  $Date: 1995/10/03 05:39:56 $ $Revision: 1.27 $
;
; Overview
;  This extension introduces named texture objects.  The only way to name
;  a texture in GL 1.0 is by defining it as a single display list.  Because
;  display lists cannot be edited, these objects are static.  Yet it is
;  important to be able to change the images and parameters of a texture.
(define-library (OpenGL EXT texture_object)

; ---------------------------------------------------------------------------
; Dependencies
;  EXT_texture3D affects the definition of this extension
   (import
      (OpenGL version-1-0))

; ---------------------------------------------------------------------------
   (export
    EXT_texture_object

; ---------------------------------------------------------------------------
; New Procedures and Functions
      glGenTextures ; void (GLsizei n, GLuint *textures)
      ;DeleteTextures
      glBindTexture ; void (GLenum target, GLuint texture)
      ;PrioritizeTextures
      ;AreTexturesResident
      ;IsTexture

; ---------------------------------------------------------------------------
; New Tokens

)

; ---------------------------------------------------------------------------
(begin
   (define EXT_texture_object (gl:ExtensionSupported? "GL_EXT_texture_object"))

   (define glBindTexture (if EXT_texture_object
         (gl:GetProcAddress GLvoid "glBindTexture" GLenum GLuint)))
   ;WINGDIAPI void APIENTRY glDeleteTextures (GLsizei n, const GLuint *textures);
   (define glGenTextures (if EXT_texture_object
         (gl:GetProcAddress GLvoid "glGenTextures" GLsizei GLuint&)))
   ;WINGDIAPI GLboolean APIENTRY glIsTexture (GLuint texture);
))
{'fraction_non_alphanumeric': 0.2629766949152542, 'fraction_numerical': 0.011652542372881356, 'mean_word_length': 1.746909090909091, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 2, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5774394', 'n_tokens_mistral': 1006, 'n_tokens_neox': 956, 'n_words': 310}