virtualbox-com 0.9.6

data/lib/virtualbox/com/xpcomc-ffi/xpcomc-vbox.rb

@@ -0,0 +1,54 @@
+module VirtualBox
+module COM
+
+module XPCOMC
+    extend ::FFI::Library
+
+    # Constant used to initialize the XPCOM C interface
+    VERSION = 0x00020000
+
+
+    # Callback types for VBOX XPCOMC
+    callback :pfnGetVersion,      [],                                  :uint
+    callback :pfnComInitialize,   [:string,:pointer,:string,:pointer], :void
+    callback :pfnComUninitialize, [],                                  :void
+    callback :pfnComUnallocMem,   [:pointer],                          :void
+    callback :pfnUtf16Free,       [:pointer],                          :void
+    callback :pfnUtf8Free,        [:string ],                          :void
+    callback :pfnUtf16ToUtf8,     [:pointer, :pointer],                :int
+    callback :pfnUtf8ToUtf16,     [:string,  :pointer],                :int
+    callback :pfnGetEventQueue,   [:pointer],                          :void
+
+    class VBox < ::FFI::Struct
+        layout  :cb,                 :uint,
+                :uVersion,           :uint,
+                :pfnGetVersion,      :pfnGetVersion,
+                :pfnComInitialize,   :pfnComInitialize,
+                :pfnComUninitialize, :pfnComUninitialize,
+                :pfnComUnallocMem,   :pfnComUnallocMem,
+                :pfnUtf16Free,       :pfnUtf16Free,
+                :pfnUtf8Free,        :pfnUtf8Free,
+                :pfnUtf16ToUtf8,     :pfnUtf16ToUtf8,
+                :pfnUtf8ToUtf16,     :pfnUtf8ToUtf16,
+                :pfnGetEventQueue,   :pfnGetEventQueue,
+                :uEndVersion,        :uint
+
+        def string_to_utf16(string)
+            return nil if string.nil?
+            ptr = ::FFI::MemoryPointer.new(:pointer)
+            self[:pfnUtf8ToUtf16].call(string.dup, ptr)
+            ptr.read_pointer()
+        end
+        
+        def utf16_to_string(pointer)
+            return nil if pointer.null?
+            result_pointer = ::FFI::MemoryPointer.new(:pointer)
+            self[:pfnUtf16ToUtf8].call(pointer, result_pointer)
+            self[:pfnUtf16Free].call(pointer)
+            result_pointer.read_pointer().read_string()
+        end
+    end
+end
+
+end
+end

data/scripts/xidl-conv.rb

@@ -0,0 +1,124 @@
+require 'bundler/setup'
+require 'nokogiri'
+require 'virtualbox/com/util'
+
+XIDL = Nokogiri::XML(File.new("../VirtualBox.xidl"))
+LIB  = XIDL.root.xpath('library')
+
+
+
+io = $stdout
+
+io << <<-EOT
+#
+# This file has been automatically generated from the VirtualBox.xidl
+#
+
+EOT
+
+io << "module VirtualBox\n"
+io << "module COM\n"
+io << "module Model\n"
+io << "\n"
+
+io << "VERSION = \"4.2\"\n"
+io << "\n"
+
+io << <<-EOT
+class NSISupports < AbstractInterface
+  iid      "00000000-0000-0000-c000-000000000046"
+  function :QueryInterface, :pointer, [ :pointer ], :hide => true
+  function :AddRef,  nil, [],                       :hide => true
+  function :Release, nil, [],                       :hide => true
+end
+
+EOT
+
+
+def uncamelize(string)
+    VirtualBox::COM::Util.uncamelize(string)
+end
+
+def cnv_type(name, array=nil, ptr=nil) 
+    return ':pointer' if ptr
+    t = case name
+        when 'boolean'            then 'BOOL'
+        when 'octet'              then 'UINT8'
+        when 'short'              then 'INT16'
+        when 'unsigned short'     then 'UINT16'
+        when 'long'               then 'INT32'
+        when 'long long'          then 'INT64'
+        when 'unsigned long'      then 'UINT32'
+        when 'unsigned long long' then 'UINT64'
+        when 'uuid'               then 'WSTRING'
+        when 'wstring'            then 'WSTRING'
+        when '$unknown'           then ':NSISupports'
+        else ':'+ name.gsub(/^I/, '')
+        end
+    t = '[' + t + ']' if array
+    t
+end
+
+
+# Enumeration
+for enum in LIB.xpath('enum')
+    io << "class #{enum[:name]} < AbstractEnum\n"
+    io << "  iid \"#{enum[:uuid]}\"\n"
+    io << "  map({\n"    
+    enum.xpath('const').each {|c|
+        io << "    :%-40s => %s,\n" % [ uncamelize(c[:name]), c[:value] ] }
+    io << "  })\n"
+    io << "  setup\n"
+    io << "end\n"
+    io << "\n"
+end
+
+# Interface
+for interface in LIB.xpath('interface')
+    io << "class #{interface[:name][1..-1]} < AbstractInterface\n"
+    io << "  iid      \"#{interface[:uuid]}\"\n"
+
+    case e=interface[:extends]
+    when nil
+    when '$errorinfo'
+    when '$unknown'   then io << "  extends  :NSISupports\n"
+    when /^I/         then io << "  extends  :#{e[1..-1]}\n"
+    else raise "Unkown extension"
+    end
+
+
+    interface.xpath('attribute').each {|a|
+        name = ':' + uncamelize(a[:name])
+        type = cnv_type(a[:type], a[:safearray])
+        opts = [ ':readonly => true' ] if a[:readonly]
+        args = [ name, type ]
+        args << opts if opts && !opts.empty?
+
+        io << "  property " << args.join(', ') << "\n"
+    }
+    interface.xpath('method').each {|m|
+        name = ':' + uncamelize(m[:name])
+        ret  = if ret = m.xpath("param[@dir = 'return']")[0]
+                   cnv_type(ret[:type], ret[:safearray], ret[:mod] == 'ptr')
+               else 'nil'
+               end
+        param = '[' + m.xpath("param[@dir = 'in' or @dir = 'out']").map {|p|
+            t = cnv_type(p[:type], p[:safearray], p[:mod] == 'ptr')
+            t = '[:out, ' + t + ']' if p[:dir] == 'out'
+            t
+        }.join(', ') + ']'
+
+        io << "  function " << [name, ret, param].join(', ') << "\n"
+    }
+
+    io << "  setup\n"
+    io << "end\n"
+    io << "\n"
+end
+
+
+io << "end\n"
+io << "end\n"
+io << "end\n"
+
+io.flush

data/virtualbox-com.gemspec

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+$:.unshift File.expand_path("../lib", __FILE__)
+require "virtualbox/com/version"
+
+Gem::Specification.new do |s|
+  s.name          = "virtualbox-com"
+  s.version       = VirtualBox::COM::VERSION
+  s.platform      = Gem::Platform::RUBY
+  s.authors       = ["Mitchell Hashimoto"]
+  s.email         = ["mitchell.hashimoto@gmail.com"]
+  s.homepage      = "http://github.com/sdalu/virtualbox-com"
+  s.summary       = "Low level VirtualBox interraction using pure ruby"
+  s.description   = "Low level VirtualBox interraction using pure ruby"
+
+  s.required_rubygems_version = ">= 1.3.6"
+  s.rubyforge_project         = "virtualbox-com"
+
+  s.add_dependency "ffi"
+  s.add_development_dependency "rake"
+  s.add_development_dependency "nokogiri"
+  
+
+  s.files         = `git ls-files`.split("\n")
+  s.executables   = `git ls-files`.split("\n").map{|f| f =~ /^bin\/(.*)/ ? $1 : nil}.compact
+  s.require_path  = 'lib'
+end
+

metadata

@@ -0,0 +1,123 @@
+--- !ruby/object:Gem::Specification
+name: virtualbox-com
+version: !ruby/object:Gem::Version
+  version: 0.9.6
+  prerelease: 
+platform: ruby
+authors:
+- Mitchell Hashimoto
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-06-10 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ffi
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: nokogiri
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Low level VirtualBox interraction using pure ruby
+email:
+- mitchell.hashimoto@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE
+- Rakefile
+- Readme.md
+- examples/simple.rb
+- lib/virtualbox-com.rb
+- lib/virtualbox/com.rb
+- lib/virtualbox/com/abstract_enum.rb
+- lib/virtualbox/com/abstract_interface.rb
+- lib/virtualbox/com/abstract_model.rb
+- lib/virtualbox/com/exceptions.rb
+- lib/virtualbox/com/iid.rb
+- lib/virtualbox/com/model/4.2-gen.rb
+- lib/virtualbox/com/model/4.2.rb
+- lib/virtualbox/com/util.rb
+- lib/virtualbox/com/version.rb
+- lib/virtualbox/com/xpcomc-ffi.rb
+- lib/virtualbox/com/xpcomc-ffi/binding.rb
+- lib/virtualbox/com/xpcomc-ffi/implementer.rb
+- lib/virtualbox/com/xpcomc-ffi/lib.rb
+- lib/virtualbox/com/xpcomc-ffi/model-types.rb
+- lib/virtualbox/com/xpcomc-ffi/sig.rb
+- lib/virtualbox/com/xpcomc-ffi/spec.rb
+- lib/virtualbox/com/xpcomc-ffi/xpcomc-vbox.rb
+- scripts/xidl-conv.rb
+- virtualbox-com.gemspec
+homepage: http://github.com/sdalu/virtualbox-com
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 435323636523311339
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: 1.3.6
+requirements: []
+rubyforge_project: virtualbox-com
+rubygems_version: 1.8.25
+signing_key: 
+specification_version: 3
+summary: Low level VirtualBox interraction using pure ruby
+test_files: []