zxing_cpp 0.1.0

data/lib/zxing/ffi/luminance_source.rb

@@ -0,0 +1,18 @@
+module ZXing; end
+module ZXing::FFI; end
+
+class ZXing::FFI::LuminanceSource
+  include ZXing::LuminanceSource
+  def initialize ptr
+    super ZXing::FFI::Library::LuminanceSourcePointer.new ptr
+  end
+  def width
+    ZXing::FFI::Library.LuminanceSource_width native
+  end
+  def height
+    ZXing::FFI::Library.LuminanceSource_height native
+  end
+  def matrix
+    ZXing::FFI::Library.LuminanceSource_matrix native
+  end
+end

data/lib/zxing/ffi/multi_format_reader.rb

@@ -0,0 +1,9 @@
+module ZXing; end
+module ZXing::FFI; end
+
+class ZXing::FFI::MultiFormatReader < ZXing::FFI::Reader
+  include ZXing::MultiFormatReader
+  def initialize
+    super ZXing::FFI::Library.MultiFormatReader_new
+  end
+end

data/lib/zxing/ffi/oned.rb

@@ -0,0 +1,6 @@
+module ZXing; end
+module ZXing::FFI; end
+
+module ZXing::FFI::OneD
+  autoload :Code39Reader, 'zxing/ffi/oned/code_39_reader'
+end

data/lib/zxing/ffi/oned/code_39_reader.rb

@@ -0,0 +1,10 @@
+module ZXing; end
+module ZXing::FFI; end
+module ZXing::FFI::OneD; end
+
+class ZXing::FFI::OneD::Code39Reader < ZXing::FFI::Reader
+  include ZXing::OneD::Code39Reader
+  def initialize usingCheckDigit, extendedMode
+    super ZXing::FFI::Library.Code39Reader_new usingCheckDigit, extendedMode
+  end
+end

data/lib/zxing/ffi/qrcode.rb

@@ -0,0 +1,8 @@
+module ZXing; end
+module ZXing::FFI; end
+
+module ZXing::FFI::QRCode
+  autoload :Detector, 'zxing/ffi/qrcode/detector'
+  autoload :Decoder, 'zxing/ffi/qrcode/decoder'
+  autoload :QRCodeReader, 'zxing/ffi/qrcode/qrcode_reader'
+end

data/lib/zxing/ffi/qrcode/decoder.rb

@@ -0,0 +1,10 @@
+module ZXing; end
+module ZXing::FFI; end
+module ZXing::FFI:QRCode; end
+
+class ZXing::FFI::QRCode::Decoder < ZXing::FFI::Binarizer
+  include ZXing::QRCode::Decoder
+  def initialize luminance_source
+    super ZXing::FFI::Library.Decoder_new(luminance_source.native), luminance_source
+  end
+end

data/lib/zxing/ffi/qrcode/detector.rb

@@ -0,0 +1,10 @@
+module ZXing; end
+module ZXing::FFI; end
+module ZXing::FFI:QRCode; end
+
+class ZXing::FFI::QRCode::Detector < ZXing::FFI::Binarizer
+  include ZXing::QRCode::Detector
+  def initialize luminance_source
+    super ZXing::FFI::Library.Detector_new(luminance_source.native), luminance_source
+  end
+end

data/lib/zxing/ffi/reader.rb

@@ -0,0 +1,58 @@
+module ZXing; end
+module ZXing::FFI; end
+
+class ZXing::FFI::Reader
+  include ZXing::Reader
+  def initialize ptr
+    super ZXing::FFI::Library::ReaderPointer.new ptr
+  end
+
+  def decode bitmap, hints = nil
+    hints ||= {}
+    th = hints[:try_harder]
+    hints.delete :try_harder
+    native_hints = nil
+    if hints.empty?
+      native_hints = ZXing::FFI::Library::DecodeHintsPointer.new(ZXing::FFI::Library.DecodeHints_default)
+    else
+      native_hints = ZXing::FFI::Library::DecodeHintsPointer.new(ZXing::FFI::Library.DecodeHints_new(0))
+      hints.each do |k, v|
+        case k
+        when :possible_formats
+          v.each do |format|
+            case format 
+            when :DATA_MATRIX
+              ZXing::FFI::Library.
+                DecodeHints_setDataMatrix native_hints, true
+            else
+              raise "implement hint for #{format}"
+            end
+          end
+        else
+          raise "implement #{k} #{v}"
+        end
+      end
+    end
+    if th
+      ZXing::FFI::Library.DecodeHints_setTryHarder native_hints, th
+    end
+    # p @native, bitmap.native, native_hints
+    ptr = ZXing::FFI::Library.Reader_decode @native, bitmap.native, native_hints
+    # p ptr
+    if (ptr.address & 1) != 0
+      ptr = FFI::Pointer.new(ptr.address & ~1)
+      ptrs = ptr.read_array_of_pointer 2
+
+      className = ptrs[0].read_string.sub(%r{^zxing},"ZXing")
+      what = ptrs[1].read_string
+
+      ZXing::FFI::Library.free ptrs[1]
+      ZXing::FFI::Library.free ptr
+
+      cls = className.split("::").inject(Object) { |parent, child| parent.const_get(child) }
+
+      raise cls.new what
+    end
+    ZXing::Result.new ZXing::FFI::Library::ResultPointer.new ptr
+  end
+end

data/lib/zxing/ffi/result.rb

@@ -0,0 +1,23 @@
+module ZXing; end
+module ZXing::FFI; end
+
+class ZXing::FFI::Result
+  include ZXing::Result
+
+  def format
+    enum = ZXing::FFI::Library.Result_getBarcodeFormat @native
+    ZXing::FFI::Library.BarcodeFormat_enum_to_string enum
+  end
+
+  def text
+    s = ZXing::FFI::Library.String_string ZXing::FFI::Library::StringPointer.new(ZXing::FFI::Library.Result_getText(@native))
+    if RUBY_VERSION =~ /^1.9/
+      s.force_encoding("UTF-8")
+    end
+    s
+  end
+
+  def metadata
+  end
+
+end

data/lib/zxing/format_exception.rb

@@ -0,0 +1,4 @@
+module ZXing; end
+
+class ZXing::FormatException < Exception
+end

data/lib/zxing/illegal_argument_exception.rb

@@ -0,0 +1,4 @@
+module ZXing; end
+
+class ZXing::IllegalArgumentException < ZXing::Exception
+end

data/lib/zxing/image.rb

@@ -0,0 +1,15 @@
+module ZXing; end
+
+module ZXing::Image
+
+  def self.read *args
+    ZXing::RMagick::Image::read(*args)
+  end
+
+  attr_reader :native
+
+  def initialize native
+    @native = native
+  end
+
+end

data/lib/zxing/luminance_source.rb

@@ -0,0 +1,18 @@
+module ZXing; end
+
+module ZXing::LuminanceSource
+
+  def self.new image
+    if self == ZXing::LuminanceSource
+      image.class.const_get("LuminanceSource").new image
+    else
+      super
+    end
+  end
+
+  attr_reader :native
+
+  def initialize native
+    @native = native
+  end
+end

data/lib/zxing/multi_format_reader.rb

@@ -0,0 +1,11 @@
+module ZXing; end
+
+module ZXing::MultiFormatReader
+  def self.new *args
+    if self == ZXing::MultiFormatReader
+      ZXing::FFI::MultiFormatReader.new
+    else
+      super
+    end
+  end
+end

data/lib/zxing/not_found_exception.rb

@@ -0,0 +1,4 @@
+module ZXing; end
+
+class ZXing::NotFoundException < ZXing::Exception
+end

data/lib/zxing/oned.rb

@@ -0,0 +1,5 @@
+module ZXing; end
+
+module ZXing::OneD
+  autoload :Code39Reader, 'zxing/oned/code_39_reader'
+end

data/lib/zxing/oned/code_39_reader.rb

@@ -0,0 +1,15 @@
+module ZXing; end
+module ZXing::OneD; end
+
+module ZXing::OneD::Code39Reader
+  extend ZXing::Reader
+
+  def self.new *args
+    if self == ZXing::OneD::Code39Reader
+      ZXing::FFI::OneD::Code39Reader.new(*args)
+    else
+      super
+    end
+  end
+
+end

data/lib/zxing/qrcode.rb

@@ -0,0 +1,8 @@
+module ZXing; end
+
+module ZXing::QRCode
+  autoload :QRCodeReader, 'zxing/qrcode/qrcode_reader'
+  autoload :Detector, 'zxing/qrcode/detector'
+  autoload :Decoder, 'zxing/qrcode/decoder'
+  autoload :Encoder, 'zxing/qrcode/encoder'
+end

data/lib/zxing/qrcode/decoder.rb

@@ -0,0 +1,14 @@
+module ZXing; end
+module ZXing::QRCode; end
+
+module ZXing::QRCode::Decoder
+  include ZXing::Binarizer
+
+  def self.new *args
+    if self == ZXing::QRCode::Decoder
+      ZXing::FFI::QRCode::Decoder.new(*args)
+    else
+      super
+    end
+  end
+end

data/lib/zxing/qrcode/detector.rb

@@ -0,0 +1,14 @@
+module ZXing; end
+module ZXing::QRCode; end
+
+module ZXing::QRCode::Detector
+  include ZXing::Binarizer
+
+  def self.new *args
+    if self == ZXing::QRCode::Detector
+      ZXing::FFI::QRCode::Detector.new(*args)
+    else
+      super
+    end
+  end
+end

data/lib/zxing/qrcode/encoder.rb

@@ -0,0 +1,8 @@
+module ZXing; end
+module ZXing::QRCode; end
+
+module ZXing::QRCode::Encoder
+  autoload :Encoder, 'zxing/qrcode/encoder/encoder'
+  autoload :QRCode, 'zxing/qrcode/encoder/qrcode'
+  autoload :ByteMatrix, 'zxing/qrcode/encoder/byte_matrix'
+end

data/lib/zxing/qrcode/encoder/byte_matrix.rb

@@ -0,0 +1,18 @@
+module ZXing; end
+module ZXing::QRCode; end
+module ZXing::QRCode::Encoder; end
+
+module ZXing::QRCode::Encoder::ByteMatrix
+  def self.new *args
+    if self == ZXing::QRCode::Encoder::ByteMatrix
+      ZXing::FFI::QRCode::Encoder::ByteMatrix.new(*args)
+    else
+      super
+    end
+  end
+
+  attr_reader :native
+  def initialize native
+    @native = native
+  end
+end

data/lib/zxing/qrcode/encoder/encoder.rb

@@ -0,0 +1,9 @@
+module ZXing; end
+module ZXing::QRCode; end
+module ZXing::QRCode::Encoder; end
+
+module ZXing::QRCode::Encoder::Encoder
+  def self.encode *args
+    ZXing::FFI::QRCode::Encoder::Encoder.encode *args
+  end
+end

data/lib/zxing/qrcode/encoder/qrcode.rb

@@ -0,0 +1,18 @@
+module ZXing; end
+module ZXing::QRCode; end
+module ZXing::QRCode::Encoder; end
+
+module ZXing::QRCode::Encoder::QRCode
+  def self.new *args
+    if self == ZXing::QRCode::Encoder::QRCode
+      ZXing::FFI::QRCode::Encoder::QRCode.new(*args)
+    else
+      super
+    end
+  end
+
+  attr_reader :native
+  def initialize native
+    @native = native
+  end
+end

data/lib/zxing/reader.rb

@@ -0,0 +1,8 @@
+module ZXing; end
+
+module ZXing::Reader
+  attr_reader :native
+  def initialize native
+    @native = native
+  end
+end

data/lib/zxing/reader_exception.rb

@@ -0,0 +1,4 @@
+module ZXing; end
+
+class ZXing::ReaderException < ZXing::Exception
+end

data/lib/zxing/reed_solomon_exception.rb

@@ -0,0 +1,2 @@
+module ZXing; end
+class ZXing::ReedSolomonException < ZXing::Exception; end

data/lib/zxing/result.rb

@@ -0,0 +1,18 @@
+module ZXing; end
+
+module ZXing::Result
+  def self.new *args
+    if self == ZXing::Result
+      ZXing::FFI::Result.new(*args)
+    else
+      super
+    end
+  end
+
+  attr_reader :native
+
+  def initialize native
+    @native = native
+  end
+
+end

data/lib/zxing/rmagick.rb

@@ -0,0 +1,5 @@
+module ZXing; end
+
+module ZXing::RMagick
+  autoload :Image, 'zxing/rmagick/image'
+end

data/lib/zxing/rmagick/image.rb

@@ -0,0 +1,104 @@
+require 'RMagick'
+
+module ZXing; end
+module ZXing::RMagick; end
+
+class ZXing::RMagick::Image 
+  include ZXing::Image
+  LuminanceSource = ZXing::FFI::Common::GreyscaleLuminanceSource
+
+  def self.read argument
+    img = nil
+
+    if argument.is_a? String
+      if argument.encoding.name == Encoding.aliases['BINARY']
+        begin
+          img = Magick::Image.from_blob(argument)[0]
+        rescue Exception => e
+          # Because 'BINARY' is just an alias for ASCII-8BIT, if treating the
+          # argument as image blob failed, we should continue on and try treat
+          # the argument like a regular string.
+        end
+      end
+    end
+
+    if img.nil?
+      require 'uri'
+      require 'pathname'
+
+      uri = URI.parse(argument.respond_to?(:path) ? argument.path : argument.to_s)
+
+      if uri.scheme.nil?
+        uri.scheme = "file"
+        uri.path = Pathname.new(uri.path).realpath.to_s
+      end
+
+      begin
+        img = case uri.scheme
+                when "file"; Magick::Image.read(uri.path)[0]
+                else; Magick::Image.from_blob(fetch(uri).body)[0]
+              end
+      rescue Exception => e
+        raise ZXing::BadImageException.new e.message
+      end
+    end
+
+    # p Magick::Magick_version
+    # p img.colorspace
+    img.colorspace = Magick::RGBColorspace
+    # p img.colorspace
+
+    if false
+      (8..8).each do |j|
+        (8..8).each do |i|
+          p i,j
+          pixel = img.pixel_color(i,j)
+          r = pixel.red&0xff
+          g = pixel.green&0xff
+          b = pixel.blue&0xff
+          p ['%x'%r, '%x'%g, '%x'%b]
+          p [r, g, b]
+          p ((306 * (r) + 601 * (g) + 117 * (b) + (1 << 9)) >> 10)
+          p img.export_pixels_to_str(i, j, 1, 1, "I").ord
+          p "x"
+        end
+      end
+    end
+
+    self.new img
+  end
+
+  def rotate angle
+    self.class.new @native.rotate(angle)
+  end
+
+  def width
+    @native.columns
+  end
+
+  def height
+    @native.rows
+  end
+
+  def gray
+    @native.export_pixels_to_str(0, 0, @native.columns, @native.rows, "I")
+  end
+
+  private
+
+  def self.fetch(uri, limit = 10)
+    # You should choose better exception.
+    raise ArgumentError, 'HTTP redirect too deep' if limit == 0
+
+    require 'net/http'
+
+    response = Net::HTTP.get_response(uri)
+    case response
+    when Net::HTTPSuccess; response
+    when Net::HTTPRedirection
+      fetch(URI.parse(response['location']), limit-1)
+    else
+      response.error!
+    end
+  end
+end