(module epoxy *
(import scheme
        (chicken base)
        (chicken foreign)
        (chicken platform)
        bind)

(foreign-declare "#include <epoxy/gl.h>")

#>
#include <stdio.h>
void stub() { return; }

epoxy_resolver_stub_t
resolve_failure(const char* name) {
    // TODO find a way to throw exceptions without safe-lambda for every procedure
    printf("Epoxy warning: '%s' symbol could not be found.\n", name);
    return stub;
}
<#

(foreign-code "epoxy_set_resolver_failure_handler(resolve_failure);")

(bind-rename/pattern "^GL_([A-Z_].+)$" "+\\1+")
(bind-rename/pattern "([^_])([123])D" "\\1-\\2d")
(bind-rename/pattern "^gl" "")
(bind-rename/pattern "^Begin$" "gl-begin") ;; to avoid clash with scheme#begin
(bind-rename/pattern "^IsList$" "gl-list?") ;; to avoid clash with scheme#list?
(bind-rename/pattern "^Is(.*)$" "\\1?")

(bind-options default-renaming: ""
              export-constants: #t)

(bind-file "gl.h")

(define has-gl-extension?
  (foreign-lambda bool "epoxy_has_gl_extension" c-string))

(define is-supported? has-gl-extension?) ;; compatibility with the opengl-glew egg

(define is-desktop-gl?
  (foreign-lambda bool "epoxy_is_desktop_gl"))

(define gl-version
  (foreign-lambda int "epoxy_gl_version"))

(define glsl-version
  (foreign-lambda int "epoxy_glsl_version"))

(let ((pointer->string (foreign-lambda* c-string ((c-pointer p))
                         "C_return((char*) p);"))
      (%get-string get-string)
      (%get-stringi get-stringi))
  (set! get-string
    (lambda (n) (pointer->string (%get-string n))))
  (set! get-stringi
    (lambda (n i) (pointer->string (%get-stringi n i)))))

) ; module end