emf 0.1.2 → 0.2.0

data/lib/emf/emr/binary/records/create_colorspace_w.rb

@@ -7,9 +7,98 @@ module Emf
   module Emr
     module Binary
       module Records
-        # Stub: preserves full body bytes. Full layout lands with TODO 10.
+        # Logical color space fields retain their original fixed-width wire bytes.
         class CreateColorspaceW < Emf::Emr::Binary::Record
           rest :body
+
+          [
+            [:ih_cs, 0, "V", 4],
+            [:lcs_signature, 4, "V", 592],
+            [:lcs_version, 8, "V", 592],
+            [:lcs_size, 12, "V", 592],
+            [:color_space_type, 16, "l<", 592],
+            [:intent, 20, "l<", 592],
+            [:gamma_red, 60, "V", 592],
+            [:gamma_green, 64, "V", 592],
+            [:gamma_blue, 68, "V", 592],
+            [:dw_flags, 592, "V", 600]
+          ].each do |name, offset, format, required|
+            define_method(name) do
+              colorspace_body(required).byteslice(offset, 4).unpack1(format)
+            end
+
+            define_method("#{name}=") do |value|
+              write_colorspace_value(offset, value, format, required)
+            end
+          end
+
+          def endpoints_bytes
+            colorspace_body(592).byteslice(24, 36).b
+          end
+
+          def endpoints_bytes=(value)
+            replace_colorspace_bytes(24, 36, value, 592)
+          end
+
+          def filename_bytes
+            colorspace_body(592).byteslice(72, 520).b
+          end
+
+          def filename_bytes=(value)
+            replace_colorspace_bytes(72, 520, value, 592)
+          end
+
+          def cb_data
+            colorspace_body(600).byteslice(596, 4).unpack1("V")
+          end
+
+          def profile_bytes
+            bytes, length = profile_span
+            bytes.byteslice(600, length).b
+          end
+
+          def profile_bytes=(value)
+            _bytes, length = profile_span
+            replace_colorspace_bytes(600, length, value, 600)
+          end
+
+          private
+
+          def colorspace_body(required)
+            bytes = body.to_s
+            raise ArgumentError, "truncated logical color space body" if bytes.bytesize < required
+
+            bytes
+          end
+
+          def write_colorspace_value(offset, value, format, required)
+            colorspace_body(required)
+            raise ArgumentError, "color space value must be an Integer" unless value.is_a?(Integer)
+
+            range = format == "l<" ? (-0x80000000..0x7fffffff) : (0..0xffffffff)
+            raise RangeError, "color space value must fit its 32-bit field" unless range.cover?(value)
+
+            replace_colorspace_bytes(offset, 4, [value].pack(format), required)
+          end
+
+          def replace_colorspace_bytes(offset, length, value, required)
+            bytes = colorspace_body(required)
+            unless value.is_a?(String) && value.bytesize == length
+              raise ArgumentError, "color space value must be a String of #{length} bytes"
+            end
+
+            replacement = bytes.b
+            replacement[offset, length] = value.b
+            self.body = replacement
+          end
+
+          def profile_span
+            bytes = colorspace_body(600)
+            length = bytes.byteslice(596, 4).unpack1("V")
+            raise ArgumentError, "truncated color profile data" if length > bytes.bytesize - 600
+
+            [bytes, length]
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/create_dib_pattern_brush_pt.rb

@@ -1,6 +1,8 @@
 # frozen_string_literal: true
 
 require "bindata"
+require "emf/emr/binary/variable_buffers"
+require "emf/emr/binary/dib_header"
 require "emf/emr/binary/record"
 
 module Emf
@@ -11,6 +13,12 @@ module Emf
         # Layout: emr, ihBrush, iUsage, offBmi, cbBmi, offBits, cbBits,
         #         then trailing BMI/bitmap data.
         class CreateDibPatternBrushPt < Emf::Emr::Binary::Record
+          include Emf::Emr::Binary::VariableBuffers
+
+          fixed_layout 32
+          variable_buffer :bmi_bytes, offset: :off_bmi, length: :cb_bmi
+          variable_buffer :bits_bytes, offset: :off_bits, length: :cb_bits
+
           uint32 :ih_brush
           uint32 :i_usage
           uint32 :off_bmi
@@ -18,6 +26,12 @@ module Emf
           uint32 :off_bits
           uint32 :cb_bits
           rest :body
+
+          # Read-only; computed from the current fields on each call.
+          def dib_header_view
+            DibHeader.view(off_bmi, cb_bmi, 32, body,
+                           bits_offset: off_bits, bits_size: cb_bits)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/create_font_indirect_w.rb

@@ -2,15 +2,19 @@
 
 require "bindata"
 require "emf/emr/binary/record"
+require "emf/emr/binary/font"
 
 module Emf
   module Emr
     module Binary
       module Records
-        # Stub: ihObject + body bytes; full LOGFONT_PANOSE layout in TODO 10.
         class CreateFontIndirectW < Emf::Emr::Binary::Record
           uint32 :ih_object
-          rest :body
+          font_body :body, byte_length: -> { n_size - 12 }
+
+          def elw
+            body.font
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/create_mono_brush.rb

@@ -1,6 +1,8 @@
 # frozen_string_literal: true
 
 require "bindata"
+require "emf/emr/binary/variable_buffers"
+require "emf/emr/binary/dib_header"
 require "emf/emr/binary/record"
 
 module Emf
@@ -11,6 +13,12 @@ module Emf
         # Layout: emr, ihBrush, iUsage, offBmi, cbBmi, offBits, cbBits,
         #         then trailing BMI/bitmap data.
         class CreateMonoBrush < Emf::Emr::Binary::Record
+          include Emf::Emr::Binary::VariableBuffers
+
+          fixed_layout 32
+          variable_buffer :bmi_bytes, offset: :off_bmi, length: :cb_bmi
+          variable_buffer :bits_bytes, offset: :off_bits, length: :cb_bits
+
           uint32 :ih_brush
           uint32 :i_usage
           uint32 :off_bmi
@@ -18,6 +26,12 @@ module Emf
           uint32 :off_bits
           uint32 :cb_bits
           rest :body
+
+          # Read-only; computed from the current fields on each call.
+          def dib_header_view
+            DibHeader.view(off_bmi, cb_bmi, 32, body,
+                           bits_offset: off_bits, bits_size: cb_bits)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/create_palette.rb

@@ -2,6 +2,8 @@
 
 require "bindata"
 require "emf/emr/binary/record"
+require "emf/emr/binary/palette_body"
+require "emf/emr/binary/palette_entry"
 
 module Emf
   module Emr
@@ -9,7 +11,23 @@ module Emf
       module Records
         class CreatePalette < Emf::Emr::Binary::Record
           uint32 :ih_pal
-          rest :body
+          uint16 :version
+          uint16 :entry_count
+          array :palette_entries, type: :emr_palette_entry, initial_length: :entry_count
+          rest :trailing
+
+          def body
+            PaletteBody.new(self, to_binary_s.byteslice(12..))
+          end
+
+          def body=(value)
+            bytes = value.to_s
+            count = bytes.byteslice(2, 2)&.unpack1("v")
+            raise ArgumentError, "invalid palette body entry count" unless count && bytes.bytesize >= 4 + (count * 4)
+
+            replacement = self.class.read(to_binary_s.byteslice(0, 12) + bytes)
+            assign(replacement.snapshot)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/delete_colorspace.rb

@@ -7,9 +7,30 @@ module Emf
   module Emr
     module Binary
       module Records
-        # Stub: preserves full body bytes. Full layout lands with TODO 10.
         class DeleteColorspace < Emf::Emr::Binary::Record
           rest :body
+
+          def ih_cs
+            colorspace_body.byteslice(0, 4).unpack1("V")
+          end
+
+          def ih_cs=(value)
+            bytes = colorspace_body.dup
+            raise ArgumentError, "colorspace handle must be an Integer" unless value.is_a?(Integer)
+            raise RangeError, "colorspace handle must fit an unsigned 32-bit integer" unless (0..0xffffffff).cover?(value)
+
+            bytes[0, 4] = [value].pack("V")
+            self.body = bytes
+          end
+
+          private
+
+          def colorspace_body
+            bytes = body.to_s
+            raise ArgumentError, "invalid colorspace body length" if bytes.bytesize < 4
+
+            bytes
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/draw_escape.rb

@@ -7,9 +7,53 @@ module Emf
   module Emr
     module Binary
       module Records
-        # Stub: preserves full body bytes. Full layout lands with TODO 10.
+        # Body-backed fields retain driver-specific bytes and trailing padding.
         class DrawEscape < Emf::Emr::Binary::Record
           rest :body
+
+          def i_escape
+            escape_body.byteslice(0, 4).unpack1("V")
+          end
+
+          def i_escape=(value)
+            bytes = escape_body
+            valid = value.is_a?(Integer) && value.between?(0, 0xFFFFFFFF)
+            raise ArgumentError, "i_escape must be an unsigned 32-bit Integer" unless valid
+
+            bytes[0, 4] = [value].pack("V")
+            self.body = bytes
+          end
+
+          def cj_in
+            escape_body.byteslice(4, 4).unpack1("V")
+          end
+
+          def data_bytes
+            bytes = escape_body
+            length = bytes.byteslice(4, 4).unpack1("V")
+            raise ArgumentError, "truncated escape data" if length > bytes.bytesize - 8
+
+            bytes.byteslice(8, length).b
+          end
+
+          def data_bytes=(value)
+            length = data_bytes.bytesize
+            valid = value.is_a?(String) && value.bytesize == length
+            raise ArgumentError, "escape data must be a String of #{length} bytes" unless valid
+
+            bytes = escape_body
+            bytes[8, length] = value.b
+            self.body = bytes
+          end
+
+          private
+
+          def escape_body
+            bytes = body.to_s.b
+            raise ArgumentError, "truncated escape record prefix" if bytes.bytesize < 8
+
+            bytes
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/ellipse.rb

@@ -10,7 +10,7 @@ module Emf
         # EMR_ELLIPSE: emr + rclBox per MS-EMF 2.3.5.
         # No rclBounds.
         class Ellipse < Emf::Emr::Binary::Record
-  rectl :rcl_box
+          rectl :rcl_box
         end
       end
     end

data/lib/emf/emr/binary/records/eof.rb

@@ -14,6 +14,15 @@ module Emf
           uint32 :off_pal_entries
           uint32 :n_size_last
           rest :body
+
+          # Raw palette bytes (nPalEntries * 4 at offPalEntries from record start),
+          # or nil when there are no entries or the range leaves the record.
+          def palette_bytes
+            return unless n_pal_entries.positive? && off_pal_entries.positive?
+
+            bytes = to_binary_s
+            bytes.byteslice(off_pal_entries, n_pal_entries * 4) if off_pal_entries + (n_pal_entries * 4) <= bytes.bytesize
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/ext_create_pen.rb

@@ -1,15 +1,94 @@
 # frozen_string_literal: true
 
 require "bindata"
+require "emf/emr/binary/variable_buffers"
 require "emf/emr/binary/record"
+require "emf/emr/binary/extended_pen_buffers"
 
 module Emf
   module Emr
     module Binary
       module Records
         class ExtCreatePen < Emf::Emr::Binary::Record
+          include Emf::Emr::Binary::VariableBuffers
+
+          fixed_layout -> { 52 + (num_style_entries * 4) }
+          variable_buffer :bmi_bytes, offset: :off_bmi, length: :cb_bmi
+          variable_buffer :bits_bytes, offset: :off_bits, length: :cb_bits
+
+          class Body < String
+            def initialize(record, bytes)
+              @record = record
+              super(bytes)
+            end
+
+            def assign(bytes)
+              @record.body = bytes
+              replace(@record.body)
+            end
+          end
+
           uint32 :ih_pen
-          rest :body
+          uint32 :off_bmi
+          uint32 :cb_bmi
+          uint32 :off_bits
+          uint32 :cb_bits
+          uint32 :pen_style
+          uint32 :width
+          uint32 :brush_style
+          color_ref :color
+          uint32 :brush_hatch
+          uint32 :num_style_entries
+          array :style_entries, type: :uint32, initial_length: :num_style_entries
+          extended_pen_buffers :buffers,
+                               fixed_size: -> { 52 + (num_style_entries * 4) },
+                               first_offset: -> { bits_first? ? off_bits : off_bmi },
+                               first_length: -> { bits_first? ? cb_bits : cb_bmi },
+                               second_offset: -> { bits_first? ? off_bmi : off_bits },
+                               second_length: -> { bits_first? ? cb_bmi : cb_bits }
+
+          def bits_first?
+            off_bits.positive? && (off_bmi.zero? || off_bits < off_bmi || (off_bits == off_bmi && cb_bits.zero?))
+          end
+
+          def bitmap_info
+            return if off_bmi.zero?
+
+            bits_first? ? buffers.second_bitmap : buffers.first_bitmap
+          end
+
+          def bitmap_bits
+            return if off_bits.zero?
+
+            bits_first? ? buffers.first_bitmap : buffers.second_bitmap
+          end
+
+          def info_padding
+            bits_first? ? buffers.second_padding : buffers.first_padding
+          end
+
+          def bits_padding
+            bits_first? ? buffers.first_padding : buffers.second_padding
+          end
+
+          def trailing
+            buffers.trailing
+          end
+
+          # Sizes, counts and offsets are explicit, as in the text wire records.
+          # Update them when changing the lengths of styles or bitmap buffers.
+          def body
+            Body.new(self, to_binary_s.byteslice(12..))
+          end
+
+          def body=(value)
+            bytes = value.to_s
+            count = bytes.byteslice(36, 4)&.unpack1("V")
+            raise ArgumentError, "invalid extended pen body style count" unless count && bytes.bytesize >= 40 + (count * 4)
+
+            replacement = self.class.read(to_binary_s.byteslice(0, 12) + bytes)
+            assign(replacement.snapshot)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/ext_escape.rb

@@ -7,9 +7,53 @@ module Emf
   module Emr
     module Binary
       module Records
-        # Stub: preserves full body bytes. Full layout lands with TODO 10.
+        # Body-backed fields retain driver-specific bytes and trailing padding.
         class ExtEscape < Emf::Emr::Binary::Record
           rest :body
+
+          def i_escape
+            escape_body.byteslice(0, 4).unpack1("V")
+          end
+
+          def i_escape=(value)
+            bytes = escape_body
+            valid = value.is_a?(Integer) && value.between?(0, 0xFFFFFFFF)
+            raise ArgumentError, "i_escape must be an unsigned 32-bit Integer" unless valid
+
+            bytes[0, 4] = [value].pack("V")
+            self.body = bytes
+          end
+
+          def cj_in
+            escape_body.byteslice(4, 4).unpack1("V")
+          end
+
+          def data_bytes
+            bytes = escape_body
+            length = bytes.byteslice(4, 4).unpack1("V")
+            raise ArgumentError, "truncated escape data" if length > bytes.bytesize - 8
+
+            bytes.byteslice(8, length).b
+          end
+
+          def data_bytes=(value)
+            length = data_bytes.bytesize
+            valid = value.is_a?(String) && value.bytesize == length
+            raise ArgumentError, "escape data must be a String of #{length} bytes" unless valid
+
+            bytes = escape_body
+            bytes[8, length] = value.b
+            self.body = bytes
+          end
+
+          private
+
+          def escape_body
+            bytes = body.to_s.b
+            raise ArgumentError, "truncated escape record prefix" if bytes.bytesize < 8
+
+            bytes
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/ext_flood_fill.rb

@@ -2,14 +2,21 @@
 
 require "bindata"
 require "emf/emr/binary/record"
+require "emf/emr/binary/state_record_body"
 
 module Emf
   module Emr
     module Binary
       module Records
-        # Stub: preserves full body bytes. Full layout lands with TODO 10.
         class ExtFloodFill < Emf::Emr::Binary::Record
-          rest :body
+          include StateRecordBody
+
+          BODY_SIZE = 16
+
+          point_l :start
+          color_ref :color
+          uint32 :flood_fill_mode
+          rest :trailing
         end
       end
     end

data/lib/emf/emr/binary/records/ext_select_clip_rgn.rb

@@ -1,7 +1,9 @@
 # frozen_string_literal: true
 
 require "bindata"
+require "emf/emr/binary/variable_buffers"
 require "emf/emr/binary/record"
+require "emf/emr/binary/region_data"
 
 module Emf
   module Emr
@@ -9,9 +11,15 @@ module Emf
       module Records
         # EMR_EXTSELECTCLIPRGN: emr + cbRgnData + dwMode + RgnData[cbRgnData].
         class ExtSelectClipRgn < Emf::Emr::Binary::Record
+          include Emf::Emr::Binary::VariableBuffers
+
+          fixed_layout 16
+          variable_buffer :region_bytes, offset: 16, length: :cb_rgn_data
+
           uint32 :cb_rgn_data
           uint32 :dw_mode
-          rest :rgn_data
+          region_data :rgn_data, byte_length: :cb_rgn_data, onlyif: -> { cb_rgn_data.positive? }
+          rest :body
         end
       end
     end

data/lib/emf/emr/binary/records/ext_text_out_a.rb

@@ -2,6 +2,7 @@
 
 require "bindata"
 require "emf/emr/binary/with_bounds"
+require "emf/emr/binary/ext_text_out_fields"
 
 module Emf
   module Emr
@@ -11,15 +12,27 @@ module Emf
         # ExtTextOutW except the string is 8-bit ANSI.
         class ExtTextOutA < Emf::Emr::Binary::WithBounds
           uint32 :i_graphics_mode
-          float :ex_scale
-          float :ey_scale
+          float32_le :ex_scale
+          float32_le :ey_scale
           point_l :ptl_reference
           uint32 :n_chars
           uint32 :off_string
           uint32 :f_options
-          rectl :rcl
+          rectl :rcl, onlyif: -> { f_options.nobits?(0x100) }
           uint32 :off_dx
           rest :trailing
+
+          include Emf::Emr::Binary::ExtTextOutFields
+
+          private
+
+          def char_size = 1
+
+          # ANSI bytes read as Windows-1252; the real code page is the selected
+          # font's charset, which this record does not carry.
+          def decode_text(bytes)
+            bytes.dup.force_encoding(Encoding::Windows_1252).encode(Encoding::UTF_8, invalid: :replace, undef: :replace)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/ext_text_out_w.rb

@@ -2,6 +2,7 @@
 
 require "bindata"
 require "emf/emr/binary/with_bounds"
+require "emf/emr/binary/ext_text_out_fields"
 
 module Emf
   module Emr
@@ -25,15 +26,25 @@ module Emf
         #   ...Dx array (uint32 per char)...
         class ExtTextOutW < Emf::Emr::Binary::WithBounds
           uint32 :i_graphics_mode
-          float :ex_scale
-          float :ey_scale
+          float32_le :ex_scale
+          float32_le :ey_scale
           point_l :ptl_reference
           uint32 :n_chars
           uint32 :off_string
           uint32 :f_options
-          rectl :rcl
+          rectl :rcl, onlyif: -> { f_options.nobits?(0x100) }
           uint32 :off_dx
           rest :trailing
+
+          include Emf::Emr::Binary::ExtTextOutFields
+
+          private
+
+          def char_size = 2
+
+          def decode_text(bytes)
+            bytes.dup.force_encoding(Encoding::UTF_16LE).encode(Encoding::UTF_8, invalid: :replace, undef: :replace)
+          end
         end
       end
     end

data/lib/emf/emr/binary/records/fill_rgn.rb

@@ -1,14 +1,23 @@
 # frozen_string_literal: true
 
 require "bindata"
-require "emf/emr/binary/record"
+require "emf/emr/binary/variable_buffers"
+require "emf/emr/binary/with_bounds"
+require "emf/emr/binary/region_data"
 
 module Emf
   module Emr
     module Binary
       module Records
-        class FillRgn < Emf::Emr::Binary::Record
+        class FillRgn < Emf::Emr::Binary::WithBounds
+          include Emf::Emr::Binary::VariableBuffers
+
+          fixed_layout 32
+          variable_buffer :region_bytes, offset: 32, length: :cb_rgn_data
+
+          uint32 :cb_rgn_data
           uint32 :ih_brush
+          region_data :rgn_data, byte_length: :cb_rgn_data
           rest :body
         end
       end