opengl3 0.0.1.pre1

data/lib/opengl/debugging.rb

@@ -0,0 +1,38 @@
+module OpenGL
+  module Debugging
+    include Constants
+    
+    DEBUG_MESSAGE = Hash.new("Unknown Error")
+    DEBUG_MESSAGE[GL_NO_ERROR] = nil
+    DEBUG_MESSAGE[GL_INVALID_ENUM] = 'GL_INVALID_ENUM'
+    DEBUG_MESSAGE[GL_INVALID_VALUE] = 'GL_INVALID_VALUE'
+    DEBUG_MESSAGE[GL_INVALID_OPERATION] = 'GL_INVALID_OPERATION'
+    DEBUG_MESSAGE[GL_STACK_OVERFLOW] = 'GL_STACK_OVERFLOW'
+    DEBUG_MESSAGE[GL_STACK_UNDERFLOW] = 'GL_STACK_UNDERFLOW'
+    DEBUG_MESSAGE[GL_OUT_OF_MEMORY] = 'GL_OUT_OF_MEMORY'
+    
+    def glCheckError!(method, args)
+      unless (err = glGetError()) == GL_NO_ERROR
+        msg = DEBUG_MESSAGE[err]
+        msg = "OpenGL Error: #{msg} from #{method}(#{args.join(', ')})"
+        raise RuntimeError, msg
+      end
+    end
+    
+    def self.included(base)
+      mod = Module.new
+      base.instance_methods.select do |method_name|
+        method_name =~ /\Agl[A-Z]/ && 
+        method_name != :glGetError &&
+        method_name != :glCheckError!
+      end.each do |method_name|
+        mod.send(:define_method, method_name) do |*args, &blk|
+          result = super(*args, &blk)
+          glCheckError!(method_name, args)
+          return result
+        end
+      end
+      base.send :include, mod
+    end
+  end
+end

data/lib/opengl/gl.rb

@@ -0,0 +1,26 @@
+require_relative "constants"
+require_relative "platform"
+require_relative "type"
+require_relative "raw"
+require_relative "wrapper"
+require_relative "debugging"
+
+module OpenGL
+  module GL
+    include Constants
+    
+    def self.entrypoints
+      unless Platform.current.current_context?
+        raise RuntimeError, "OpenGL context is missing"
+      end
+      base = Module.new
+      base.send :include, Raw.generate_module()
+      base.send :include, Debugging
+      Wrapper.constants.each do |c|
+        base.send :include, Wrapper.const_get(c) if c =~ /\AGL_/
+      end
+      return base
+    end
+    
+  end
+end

data/lib/opengl/platform.rb

@@ -0,0 +1,4 @@
+require 'ffi'
+
+require_relative "platform/base"
+require_relative "platform/#{FFI::Platform::OS}"

data/lib/opengl/platform/base.rb

@@ -0,0 +1,30 @@
+require 'ffi'
+require 'yaml'
+
+module OpenGL::Platform
+  module Base
+    
+    def primitive_types
+      @primitive_types ||= begin
+        root = File.expand_path('../types', __FILE__)
+        table = YAML.load(File.read(File.join(root, 'default.yml')))
+        path = File.join(root, "#{FFI::Platform::OS}.yml")
+        table.merge! YAML.load(File.read(path)) if File.exists? path
+        table.freeze
+      end
+    end
+    
+    def calling_convention
+      :default
+    end
+    
+    def current_context?
+      raise NotImplementedError
+    end
+    
+    def find_function_address(name)
+      raise NotImplementedError
+    end
+    
+  end
+end

data/lib/opengl/platform/darwin.rb

@@ -0,0 +1,24 @@
+module OpenGL::Platform
+  module Darwin
+    extend Base
+    
+    def self.current_context?
+      not OpenGL.CGLGetCurrentContext().null?
+    end
+    
+    def self.find_function_address(name)
+      return OpenGL.lib.find_function(name.to_s)
+    end
+    
+    module OpenGL
+      extend FFI::Library
+      ffi_lib '/System/Library/Frameworks/OpenGL.framework/OpenGL'
+      def self.lib; ffi_libraries.last; end
+      attach_function :CGLGetCurrentContext, [], :pointer
+    end
+  end
+  
+  def self.current
+    Darwin
+  end
+end

data/lib/opengl/platform/linux.rb

@@ -0,0 +1,25 @@
+module OpenGL::Platform
+  module Linux
+    extend Base
+    
+    def self.current_context?
+      not GL.glXGetCurrentContext().null?
+    end
+    
+    def self.find_function_address(name)
+      return GL.glXGetProcAddressARB(name.to_s)
+    end
+    
+    module GL
+      extend FFI::Library
+      ffi_lib 'libGL.so.1'
+      callback :PROC, [], :void
+      attach_function :glXGetCurrentContext, [], :pointer
+      attach_function :glXGetProcAddressARB, [:string], :PROC
+    end
+  end
+  
+  def self.current
+    Linux
+  end
+end

data/lib/opengl/platform/types/darwin.yml

@@ -0,0 +1,2 @@
+:GLintptr:    :__darwin_ptrdiff_t
+:GLsizeiptr:  :__darwin_ptrdiff_t

data/lib/opengl/platform/types/default.yml

@@ -0,0 +1,27 @@
+---
+# platform dependent
+:GLenum:      :uint32
+:GLbitfield:  :uint32
+:GLboolean:   :uint8
+:GLintptr:    :ptrdiff_t
+:GLsizeiptr:  :ptrdiff_t
+:GLchar:      :char
+
+# fixed size
+:GLbyte:      :int8
+:GLubyte:     :uint8
+:GLshort:     :int16
+:GLushort:    :uint16
+:GLint:       :int32
+:GLuint:      :uint32
+:GLsizei:     :int32
+:GLint64:     :int64
+:GLuint64:    :uint64
+:GLfloat:     :float
+:GLclampf:    :float
+:GLdouble:    :double
+:GLclampd:    :double
+:GLvoid:      :void
+
+# GL_ARB_sync
+:GLsync:      :pointer

data/lib/opengl/platform/types/linux.yml

@@ -0,0 +1,2 @@
+:GLintptr:    :__ssize_t
+:GLsizeiptr:  :__ssize_t

data/lib/opengl/raw.rb

@@ -0,0 +1,44 @@
+require 'ffi'
+require 'yaml'
+
+module OpenGL
+  module Raw
+    ROOT = File.expand_path('../raw', __FILE__)
+    
+    def self.generate_module(*names)
+      paths = begin
+        if names.empty?
+          Dir[File.join(ROOT, "**/*.yml")]
+        else
+          p = names.map{|n| Dir[File.join(ROOT, "**/#{n}.yml")] }
+          p.reject!(&:empty?).map!(&:first)
+        end
+      end
+      
+      platform = Platform.current
+      mod = Module.new
+      
+      paths.each do |path|
+        YAML.load(File.read(path)).each do |func_name, func_info|
+          return_type = Type.find(func_info.fetch('return_type'))
+          params = func_info.fetch('parameters').map{|p| p.split.first }
+          params = params.map{|t| Type.find(t) }
+          
+          if addr = platform.find_function_address(func_name)
+            options = { :convention => platform.calling_convention }
+            func = FFI::Function.new(return_type, params, addr, options)
+            func.attach(mod, func_name.to_s)
+          else
+            mod.module_eval <<-RUBY
+              def #{func_name}
+                raise NotImplementedError, "#{func_name} is not supported"
+              end
+            RUBY
+          end
+        end
+      end
+      
+      return mod
+    end
+  end
+end

data/lib/opengl/raw/core/2_x/GL_VERSION_1_0.yml

@@ -0,0 +1,259 @@
+---
+glCullFace:
+  return_type: void
+  parameters:
+  - GLenum mode
+glFrontFace:
+  return_type: void
+  parameters:
+  - GLenum mode
+glHint:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum mode
+glLineWidth:
+  return_type: void
+  parameters:
+  - GLfloat width
+glPointSize:
+  return_type: void
+  parameters:
+  - GLfloat size
+glPolygonMode:
+  return_type: void
+  parameters:
+  - GLenum face
+  - GLenum mode
+glScissor:
+  return_type: void
+  parameters:
+  - GLint x
+  - GLint y
+  - GLsizei width
+  - GLsizei height
+glTexParameterf:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLfloat param
+glTexParameterfv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLfloat_in params
+glTexParameteri:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLint param
+glTexParameteriv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLint_in params
+glTexImage1D:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLint level
+  - GLint internalformat
+  - GLsizei width
+  - GLint border
+  - GLenum format
+  - GLenum type
+  - buffer_in pixels
+glTexImage2D:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLint level
+  - GLint internalformat
+  - GLsizei width
+  - GLsizei height
+  - GLint border
+  - GLenum format
+  - GLenum type
+  - buffer_in pixels
+glDrawBuffer:
+  return_type: void
+  parameters:
+  - GLenum mode
+glClear:
+  return_type: void
+  parameters:
+  - GLbitfield mask
+glClearColor:
+  return_type: void
+  parameters:
+  - GLfloat red
+  - GLfloat green
+  - GLfloat blue
+  - GLfloat alpha
+glClearStencil:
+  return_type: void
+  parameters:
+  - GLint s
+glClearDepth:
+  return_type: void
+  parameters:
+  - GLdouble depth
+glStencilMask:
+  return_type: void
+  parameters:
+  - GLuint mask
+glColorMask:
+  return_type: void
+  parameters:
+  - GLboolean red
+  - GLboolean green
+  - GLboolean blue
+  - GLboolean alpha
+glDepthMask:
+  return_type: void
+  parameters:
+  - GLboolean flag
+glDisable:
+  return_type: void
+  parameters:
+  - GLenum cap
+glEnable:
+  return_type: void
+  parameters:
+  - GLenum cap
+glFinish:
+  return_type: void
+  parameters: []
+glFlush:
+  return_type: void
+  parameters: []
+glBlendFunc:
+  return_type: void
+  parameters:
+  - GLenum sfactor
+  - GLenum dfactor
+glLogicOp:
+  return_type: void
+  parameters:
+  - GLenum opcode
+glStencilFunc:
+  return_type: void
+  parameters:
+  - GLenum func
+  - GLint ref
+  - GLuint mask
+glStencilOp:
+  return_type: void
+  parameters:
+  - GLenum fail
+  - GLenum zfail
+  - GLenum zpass
+glDepthFunc:
+  return_type: void
+  parameters:
+  - GLenum func
+glPixelStoref:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLfloat param
+glPixelStorei:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLint param
+glReadBuffer:
+  return_type: void
+  parameters:
+  - GLenum mode
+glReadPixels:
+  return_type: void
+  parameters:
+  - GLint x
+  - GLint y
+  - GLsizei width
+  - GLsizei height
+  - GLenum format
+  - GLenum type
+  - buffer_out pixels
+glGetBooleanv:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLboolean_out params
+glGetDoublev:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLdouble_out params
+glGetError:
+  return_type: GLenum
+  parameters: []
+glGetFloatv:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLfloat_out params
+glGetIntegerv:
+  return_type: void
+  parameters:
+  - GLenum pname
+  - GLint_out params
+glGetString:
+  return_type: string
+  parameters:
+  - GLenum name
+glGetTexImage:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLint level
+  - GLenum format
+  - GLenum type
+  - buffer_out pixels
+glGetTexParameterfv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLfloat_out params
+glGetTexParameteriv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLenum pname
+  - GLint_out params
+glGetTexLevelParameterfv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLint level
+  - GLenum pname
+  - GLfloat_out params
+glGetTexLevelParameteriv:
+  return_type: void
+  parameters:
+  - GLenum target
+  - GLint level
+  - GLenum pname
+  - GLint_out params
+glIsEnabled:
+  return_type: GLboolean
+  parameters:
+  - GLenum cap
+glDepthRange:
+  return_type: void
+  parameters:
+  - GLdouble near
+  - GLdouble far
+glViewport:
+  return_type: void
+  parameters:
+  - GLint x
+  - GLint y
+  - GLsizei width
+  - GLsizei height