qrest 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 28f37a9b5e5fb20a07f781323ce9f2381ecadd873bec290b5b65811849adb563
+  data.tar.gz: 7ba9b8e971a1e76bb5869455a15f0973f29575a82a11d671656070a16ae1cfe0
+SHA512:
+  metadata.gz: 5d592804716c69561ceb2cd556c7581302a485c7925c6908d956ebeeb7277011da21cf07867af837942813073d7e0307b7af27e74f7911180b8bbf1a8c11ff23
+  data.tar.gz: 72830cd5baadaefc25cade7df5a7a82af010a79ecb78f54e576c90551b09a2e072f943c42306f31e8fd873befaba0d63fdb495b26cb4188f9cbca3234b8c0e30

data/lib/qrest/base.rb

@@ -0,0 +1,13 @@
+#
+#  qrest/base.rb  --  Basic definitions
+#
+
+require "qrest/foreign/supplement"
+
+
+module QRest
+
+  class Error < RuntimeError ; end
+
+end
+

data/lib/qrest/bch.rb

@@ -0,0 +1,57 @@
+#
+#  qrest/bch.rb  --  Bose–Chaudhuri–Hocquenghem codes
+#
+
+require "qrest/base"
+
+
+module QRest
+
+  module Bch
+
+    class <<self
+
+      private
+
+      def digit data
+        n = 0
+        while data != 0 do
+          data >>= 1
+          n += 1
+        end
+        n
+      end
+
+    end
+
+    G15      = 0b000010100110111
+    G15_MASK = 0b101010000010010
+    G18      = 0b001111100100101
+
+    G15D = digit G15
+    G18D = digit G18
+
+    class <<self
+
+      def format_info data
+        d = data << 10
+        until (m = (digit d) - G15D) < 0 do
+          d ^= G15 << m
+        end
+        ((data << 10) | d) ^ G15_MASK
+      end
+
+      def version data
+        d = data << 12
+        until (m = (digit d) - G18D) < 0 do
+          d ^= G18 << m
+        end
+        (data << 12) | d
+      end
+
+    end
+
+  end
+
+end
+

data/lib/qrest/bitbuffer.rb

@@ -0,0 +1,85 @@
+#
+#  qrest/bitbuffer.rb  --  Bit buffer
+#
+
+require "qrest/base"
+
+
+module QRest
+
+  class BitBuffer
+
+    class <<self
+      def build max
+        i = new
+        yield i
+        i.finish max
+        i.cont
+      end
+    end
+
+    attr_reader :cont
+
+    def initialize
+      @cont, @rem = [], 0
+    end
+
+    # You want to see an example for premature optimization
+    # turning into weird code? Okay, here we go.
+
+    def put num, length
+      n = []
+      l = length - @rem
+      if l > 0 then
+        if (r = l % 8).zero? then
+          prem = 0
+        else
+          prem = 8 - r
+          n.unshift num << prem
+          num >>= r
+          length -= r
+        end
+        while length >= 8 do
+          n.unshift num
+          num >>= 8
+          length -= 8
+        end
+      else
+        prem = -l
+        num <<= prem
+      end
+      @cont.last |= num if length > 0
+      @cont.concat n.map { |b| b & 0xff }
+      @rem = prem
+      nil
+    end
+
+    def put_bit bit
+      if @rem.zero? then
+        @rem = 7
+        @mask = 1 << @rem
+        @cont.push 0
+      else
+        @mask >>= 1
+        @rem -= 1
+      end
+      @cont.last |= @mask if bit
+      nil
+    end
+
+    PAD = [ 0xec, 0x11, ]
+
+    def finish max
+      @cont.length <= max or raise Error, "Code length overflow: #{length}>#{max}"
+      @cont.push 0 if @rem < 4 and @cont.length < max
+      @rem = nil
+      pad = max - @cont.length
+      ps = PAD * (pad/2+1)
+      ps.pop if pad.odd?
+      @cont.concat ps
+    end
+
+  end
+
+end
+

data/lib/qrest/bitstream.rb

@@ -0,0 +1,27 @@
+#
+#  qrest/bitstream.rb  --  Bit Stream
+#
+
+require "qrest/base"
+
+
+module QRest
+
+  class BitStream
+
+    def initialize data
+      @cur, @data = [], data.dup
+    end
+
+    def get
+      if @cur.empty? and not @data.empty? then
+        n = @data.shift
+        8.times { @cur.push n.odd? ; n >>= 1 }
+      end
+      @cur.pop
+    end
+
+  end
+
+end
+

data/lib/qrest/demerits.rb

@@ -0,0 +1,118 @@
+#
+#  qrest/demerits.rb  --  Compute demerits
+#
+
+require "qrest/base"
+
+
+module QRest
+
+  class Demerits
+
+    def initialize fields
+      @fields = fields
+    end
+
+    def total **weigths
+      weigths.inject 0 do |sum,(k,v)|
+        e = ([*(send k)].zip [*v]).inject 0 do |s,(r,f)| s += r*f end
+        sum += e.round
+      end
+    end
+
+    private
+
+    def same_color
+      points, add = 0, 0
+      each_pixel do |row,col|
+        same = 0
+        dark = @fields[row][col]
+        each_around row, col do |d|
+          same += 1 if dark == d
+        end
+        a = same - 5
+        if a > 0 then
+          points += 1
+          add    += a
+        end
+      end
+      [ points, add]
+    end
+
+    def each_pixel
+      @fields.size.times do |row|
+        @fields.size.times do |col|
+          yield row, col
+        end
+      end
+    end
+
+    def same_region i
+      n = i+1
+      (i == 0 ? 0 : -1)..(n >= @fields.size ? 0 : 1)
+    end
+
+    def each_around row, col
+      (same_region row).each do |r|
+        rn = row + r
+        (same_region col).each do |c|
+          next if r == 0 && c == 0
+          cn = col + c
+          yield @fields[rn][cn]
+        end
+      end
+    end
+
+
+    def full_blocks
+      points = 0
+      each_block do |b|
+        b.uniq!
+        points += 1 unless b.length > 1
+      end
+      points
+    end
+
+    def each_block
+      sp = @fields.size - 1
+      sp.times do |ri|
+        rn = ri + 1
+        sp.times do |ci|
+          cn = ci + 1
+          yield [ @fields[ri][ci], @fields[rn][ci], @fields[ri][cn], @fields[rn][cn], ]
+        end
+      end
+    end
+
+
+    def dangerous
+      points = 0
+      @fields.each do |rs|
+        rs.each_cons 7 do |fs|
+          points += 1 if is_probe? fs
+        end
+      end
+      @fields.each_cons 7 do |rs|
+        @fields.size.times do |c|
+          points += 1 if is_probe? rs.map { |r| r[c] }
+        end
+      end
+      points
+    end
+
+    def is_probe? fields
+      f0, f1, f2, f3, f4, f5, f6 = fields
+      f0 && !f1 && f2 && f3 && f4 && !f5 && f6
+    end
+
+
+    def dark_ratio
+      dark = @fields.sum do |col| col.count true end
+      all  = @fields.size*@fields.size
+      (dark.to_f / all - 0.5).abs * 100
+    end
+
+  end
+
+end
+

data/lib/qrest/foreign/supplement.rb

@@ -0,0 +1,51 @@
+#
+#  qrest/foreign/supplement.rb  --  Additional useful Ruby functions
+#
+
+# The purpose of this is simply to reduce dependencies.
+
+begin
+  require "supplement"
+rescue LoadError
+  class NilClass ; def notempty? ;                      end ; end
+  class String   ; def notempty? ; self unless empty? ; end ; end
+  class Array    ; def notempty? ; self unless empty? ; end ; end
+  class Array    ; def first= val ; self[ 0] = val ; end ; end
+  class Array    ; def last=  val ; self[-1] = val ;
+                    rescue IndexError ; a.push val ; end ; end
+  class NilClass   ; def to_bool ; false ; end ; end
+  class FalseClass ; def to_bool ; false ; end ; end
+  class Object     ; def to_bool ; true  ; end ; end
+  class <<Struct ; alias [] new ; end
+  class Module
+    def plain_name
+      sep = "::"
+      n = name.dup
+      i = n.rindex sep
+      n.slice! 0, i+sep.length if i
+      n
+    end
+  end
+  class String
+    def axe n
+      if n < length then
+        e = "..."
+        l = e.length
+        if n > l then
+          n -= l
+        else
+          l = 0
+        end
+        (slice 0, n) << "..."[0,l]
+      else
+        self
+      end
+    end
+    def starts_with? oth ; o = oth.to_str ; o.length          if start_with? o ; end
+    def ends_with?   oth ; o = oth.to_str ; length - o.length if end_with?   o ; end
+    alias starts_with starts_with?
+    alias ends_with   ends_with?
+  end
+  class Dir ; def entries! ; entries - %w(. ..) ; end ; end
+end
+

data/lib/qrest/formats/eps.rb

@@ -0,0 +1,65 @@
+#
+#  qrest/formats/xpm.rb  --  Build XPM
+#
+
+require "qrest/modules"
+require "qrest/version"
+
+
+module QRest
+
+  class Modules
+
+    def eps quiet_size: nil, output: nil
+      quiet_size ||= 4
+      output     ||= ""
+
+      full = size + 2*quiet_size
+      output << <<~EOT
+        %!PS
+        %%Creator: #{QRest::NAME} #{QRest::VERSION}
+        %%BoundingBox: 0 0 #{full} #{full}
+        %%EndComments
+        /box { newpath moveto 0 -1 rlineto 1 0 rlineto 0 1 rlineto closepath fill } def
+      EOT
+      LinesOut.open output do |lo|
+        each_field_neg quiet_size, full do |ri,ci|
+          lo.put "%d %d box" % [ci,ri]
+        end
+      end
+      output << <<~EOT
+        showpage
+      EOT
+      output
+    end
+
+    class LinesOut
+      class <<self
+        private :new
+        def open output
+          i = new output
+          yield i
+          output << "\n"
+        end
+      end
+      MAX = 78
+      def initialize output
+        @output = output
+        @line = 0
+      end
+      def put str
+        @line += str.length
+        if @line > MAX then
+          @output << "\n"
+          @line = 0
+        else
+          @output << " "
+        end
+        @output << str
+      end
+    end
+
+  end
+
+end
+

data/lib/qrest/formats/svg.rb

@@ -0,0 +1,77 @@
+#
+#  qrest/formats/svg.rb  --  Build SVG
+#
+
+require "qrest/modules"
+require "qrest/version"
+
+
+module QRest
+
+  class Modules
+
+    def svg header: nil, dimen: nil, quiet_size: nil, title: nil, cls: nil, id: nil, output: nil
+      header = true if header.nil?
+      dimen      ||= "100px"
+      quiet_size ||= 4
+      title      ||= "QR Code"
+      cls        ||= "qr"
+      id         ||= self.class.svg_id
+      output     ||= ""
+
+      header and output << <<~EOT
+        <?xml version="1.0" encoding="UTF-8"?>
+      EOT
+      full = size + 2*quiet_size
+      output << <<~EOT
+        <svg xmlns="http://www.w3.org/2000/svg"
+            version="1.1" baseProfile="full"
+            class="#{cls}" id="#{id}"
+            width="#{dimen}" height="#{dimen}" viewBox="0 0 #{full} #{full}">
+            <title>#{title}</title>
+            <desc>Generated by #{QRest::NAME} #{QRest::VERSION}</desc>
+      EOT
+      each_field quiet_size do |ri,ci|
+        output << <<~EOT % [ci,ri]
+          <rect x="%3d" y="%3d" width="1" height="1" fill="black"/>
+        EOT
+      end
+      output << <<~EOT
+        </svg>
+      EOT
+      output
+    end
+
+    def html dimen: nil, quiet_size: nil, title: nil, output: nil
+      output ||= ""
+      output << <<~EOT
+        <!DOCTYPE html>
+        <html>
+        <head>
+          <meta charset="UTF-8">
+          <title>Example Page with QR Code</title>
+          <style>
+            body    { background: #ddddee; }
+            .qrcode { background: #ffffff; }
+          </style>
+        </head>
+        <body>
+          <h1>My self-generated QR Code</h1>
+      EOT
+      svg header: false, quiet_size: quiet_size, title: title, cls: "qrcode", output: output
+      output << <<~EOT
+          <hr>
+          <pre>#{Time.now}</pre>
+        </body>
+        </html>
+      EOT
+    end
+
+    class <<self
+      def svg_id ; @id ||= "qr_000" ; @id.succ! ; end
+    end
+
+  end
+
+end
+

data/lib/qrest/formats/xpm.rb

@@ -0,0 +1,48 @@
+#
+#  qrest/formats/xpm.rb  --  Build XPM
+#
+
+require "qrest/modules"
+require "qrest/version"
+
+
+module QRest
+
+  class Modules
+
+    XPM_D, XPM_L = "X", "."
+
+    def xpm name: nil, pixels: nil, quiet_size: nil, output: nil
+      name       ||= QRest::NAME
+      name = name[ /[a-z_][a-z_0-9]*/i]
+      pixels     ||= 3
+      quiet_size ||= 4
+      output     ||= ""
+
+      output << <<~EOT
+        /* XPM */
+        static char * #{name}[] = {
+      EOT
+      dim = (size + 2*quiet_size)*pixels
+      output << <<~EOT
+        "#{dim} #{dim} 2 1 0 0 XPMEXT",
+      EOT
+      output << <<~EOT
+        "#{XPM_L}\tc #ffffff",
+        "#{XPM_D}\tc #000000",
+      EOT
+      lines dark: XPM_D*pixels, light: XPM_L*pixels, quiet_size: quiet_size do |l|
+        pixels.times { output << "\"#{l}\",\n" }
+      end
+      output << <<~EOT
+        "XPMEXT generator #{QRest::NAME} #{QRest::VERSION}",
+        "XPMENDEXT"
+        };
+      EOT
+      output
+    end
+
+  end
+
+end
+