spreadsheet-martica 0.6.5.7.m1

data/lib/spreadsheet/excel/internals.rb

@@ -0,0 +1,402 @@
+require 'date'
+
+module Spreadsheet
+  module Excel
+##
+# Binary Formats and other configurations internal to Excel. This Module is
+# likely to shrink as Support for older Versions of Excel grows and more Binary
+# formats are moved away from here for disambiguation.
+# If you need to work with constants defined in this module and are confused by
+# names like SEDOC_ROLOC, try reading them backwards. (The reason for this weird
+# naming convention is that according to my ri, Ruby 1.9 renames Hash#index to
+# Hash#key without backward compatibility. Since I did not want to pepper my code
+# with RUBY_VERSION-checks, I settled on this strategy to make the transition to
+# Ruby 1.9 as simple as possible.
+module Internals
+  EIGHT_BYTE_DOUBLE = [0.1].pack('E').size == 8 ? 'E' : 'e'
+  CODEPAGES = {
+    367 => "ASCII",
+    437 => "IBM437", #(US)
+    720 => "IBM720", #(OEM Arabic)
+    737 => "IBM737", #(Greek)
+    775 => "IBM775", #(Baltic)
+    850 => "IBM850", #(Latin I)
+    852 => "IBM852", #(Latin II (Central European))
+    855 => "IBM855", #(Cyrillic)
+    857 => "IBM857", #(Turkish)
+    858 => "IBM858", #(Multilingual Latin I with Euro)
+    860 => "IBM860", #(Portuguese)
+    861 => "IBM861", #(Icelandic)
+    862 => "IBM862", #(Hebrew)
+    863 => "IBM863", #(Canadian (French))
+    864 => "IBM864", #(Arabic)
+    865 => "IBM865", #(Nordic)
+    866 => "IBM866", #(Cyrillic (Russian))
+    869 => "IBM869", #(Greek (Modern))
+    874 => "WINDOWS-874", #(Thai)
+    932 => "WINDOWS-932", #(Japanese Shift-JIS)
+    936 => "WINDOWS-936", #(Chinese Simplified GBK)
+    949 => "WINDOWS-949", #(Korean (Wansung))
+    950 => "WINDOWS-950", #(Chinese Traditional BIG5)
+    1200 => "UTF-16LE", #(BIFF8)
+    1250 => "WINDOWS-1250", #(Latin II) (Central European)
+    1251 => "WINDOWS-1251", #(Cyrillic)
+    1252 => "WINDOWS-1252", #(Latin I) (BIFF4-BIFF7)
+    1253 => "WINDOWS-1253", #(Greek)
+    1254 => "WINDOWS-1254", #(Turkish)
+    1255 => "WINDOWS-1255", #(Hebrew)
+    1256 => "WINDOWS-1256", #(Arabic)
+    1257 => "WINDOWS-1257", #(Baltic)
+    1258 => "WINDOWS-1258", #(Vietnamese)
+    1361 => "WINDOWS-1361", #(Korean (Johab))
+    10000 => "MACINTOSH",
+    32768 => "MACINTOSH",
+    32769 => "WINDOWS-1252", #(Latin I) (BIFF2-BIFF3)
+  }
+  SEGAPEDOC = CODEPAGES.invert
+  COLOR_CODES = {
+    0x0000 => :builtin_black,
+    0x0001 => :builtin_white,
+    0x0002 => :builtin_red,
+    0x0003 => :builtin_green,
+    0x0004 => :builtin_blue,
+    0x0005 => :builtin_yellow,
+    0x0006 => :builtin_magenta,
+    0x0007 => :builtin_cyan,
+    0x0008 => :black,
+    0x0009 => :white,
+    0x000a => :red,
+    0x000b => :lime,
+    0x000c => :blue,
+    0x000d => :yellow,
+    0x000e => :magenta,
+    0x000f => :cyan,
+    0x0010 => :brown,
+    0x0011 => :green,
+    0x0012 => :navy,
+    0x0013 => :olive,
+    0x0014 => :purple,
+    0x0015 => :teal,
+    0x0016 => :silver,
+    0x0017 => :gray,
+    0X0018 => :"#9999ff",
+    0X0019 => :"#993366",
+    0X001a => :"#ffffcc",
+    0X001b => :"#ccffff",
+    0X001c => :"#660066",
+    0X001d => :"#ff8080",
+    0X001e => :"#0066cc",
+    0X001f => :"#ccccff",
+    0X0020 => :"#000080",
+    0X0021 => :"#ff00ff",
+    0X0022 => :"#ffff00",
+    0X0023 => :"#00ffff",
+    0X0024 => :"#800080",
+    0X0025 => :"#800000",
+    0X0026 => :"#008080",
+    0X0027 => :"#0000ff",
+    0X0028 => :"#00ccff",
+    0X0029 => :"#ccffff",
+    0X002a => :"#ccffcc",
+    0X002b => :"#ffff99",
+    0X002c => :"#99ccff",
+    0X002d => :"#ff99cc",
+    0X002e => :"#cc99ff",
+    0X002f => :"#ffcc99",
+    0X0030 => :"#3366ff",
+    0X0031 => :"#33cccc",
+    0X0032 => :"#99cc00",
+    0X0033 => :"#ffcc00",
+    0X0034 => :"#ff9900",
+    0X0035 => :"#ff6600",
+    0X0036 => :"#666699",
+    0X0037 => :"#969696",
+    0X0038 => :"#003366",
+    0X0039 => :"#339966",
+    0X003a => :"#003300",
+    0X003b => :"#333300",
+    0X003c => :"#993300",
+    0X003d => :"#993366",
+    0X003e => :"#333399",
+    0X003f => :"#333333",
+    0x0040 => :border,
+    0x0041 => :pattern_bg,
+    0x0043 => :dialog_bg,
+    0x004d => :chart_text,
+    0x004e => :chart_bg,
+    0x004f => :chart_border,
+    0x0050 => :tooltip_bg,
+    0x0051 => :tooltip_text,
+    0x7fff => :text,
+  }
+  SEDOC_ROLOC = COLOR_CODES.invert.update( :aqua    => 0x000f,
+                                           :fuchsia => 0x000e,
+                                           :grey    => 0x0017 )
+  BINARY_FORMATS = {
+    :blank      => 'v3',
+    :boolerr    => 'v3C2',
+    :colinfo    => 'v5x2',
+    :font       => 'v5C3x',
+    :labelsst   => 'v3V',
+    :number     => "v3#{EIGHT_BYTE_DOUBLE}",
+    :pagesetup  => "v8#{EIGHT_BYTE_DOUBLE}2v",
+    :rk         => 'v3V',
+    :row        => 'v4x4V',
+    :window2    => 'v4x2v2x4',
+    :xf         => 'v3C4V2v',
+  }
+  # From BIFF5 on, the built-in number formats will be omitted. The built-in
+  # formats are dependent on the current regional settings of the operating
+  # system. The following table shows which number formats are used by
+  # default in a US-English environment. All indexes from 0 to 163 are
+  # reserved for built-in formats.
+  BUILTIN_FORMATS = { # TODO: locale support
+     0 => 'GENERAL',
+     1 => '0',
+     2 => '0.00',
+     3 => '#,##0',
+     4 => '#,##0.00',
+     5 => '"$"#,##0_);("$"#,##0)',
+     6 => '"$"#,##0_);[Red]("$"#,##0)',
+     7 => '"$"#,##0.00_);("$"#,##0.00)',
+     8 => '"$"#,##0.00_);[Red]("$"#,##0.00)',
+     9 => '0%',
+    10 => '0.00%',
+    11 => '0.00E+00',
+    12 => '# ?/?',
+    13 => '# ??/??',
+    14 => 'M/D/YY',
+    15 => 'D-MMM-YY',
+    16 => 'D-MMM',
+    17 => 'MMM-YY',
+    18 => 'h:mm AM/PM',
+    19 => 'h:mm:ss AM/PM',
+    20 => 'h:mm',
+    21 => 'h:mm:ss',
+    22 => 'M/D/YY h:mm',
+    37 => '_(#,##0_);(#,##0)',
+    38 => '_(#,##0_);[Red](#,##0)',
+    39 => '_(#,##0.00_);(#,##0.00)',
+    40 => '_(#,##0.00_);[Red](#,##0.00)',
+    41 => '_("$"* #,##0_);_("$"* (#,##0);_("$"* "-"_);_(@_)',
+    42 => '_(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)',
+    43 => '_("$"* #,##0.00_);_("$"* (#,##0.00);_("$"* "-"??_);_(@_)',
+    44 => '_(* #,##0.00_);_(* (#,##0.00);_(* "-"??_);_(@_)',
+    45 => 'mm:ss',
+    46 => '[h]:mm:ss',
+    47 => 'mm:ss.0',
+    48 => '##0.0E+0',
+    49 => '@',
+  }
+  BUILTIN_STYLES = {
+    0x00 => 'Normal',
+    0x01 => 'RowLevel_lv',
+    0x02 => 'ColLevel_lv',
+    0x03 => 'Comma',
+    0x04 => 'Currency',
+    0x05 => 'Percent',
+    0x06 => 'Comma',
+    0x07 => 'Currency',
+    0x08 => 'Hyperlink',
+    0x09 => 'Followed Hyperlink',
+  }
+  ESCAPEMENT_TYPES = {
+    0x0001 => :superscript,
+    0x0002 => :subscript,
+  }
+  SEPYT_TNEMEPACSE = ESCAPEMENT_TYPES.invert
+  FONT_ENCODINGS = {
+    0x00 => :iso_latin1,
+    0x01 => :default,
+    0x02 => :symbol,
+    0x4d => :apple_roman,
+    0x80 => :shift_jis,
+    0x81 => :korean_hangul,
+    0x82 => :korean_johab,
+    0x86 => :chinese_simplified,
+    0x88 => :chinese_traditional,
+    0xa1 => :greek,
+    0xa2 => :turkish,
+    0xa3 => :vietnamese,
+    0xb1 => :hebrew,
+    0xb2 => :arabic,
+    0xba => :baltic,
+    0xcc => :cyrillic,
+    0xde => :thai,
+    0xee => :iso_latin2,
+    0xff => :oem_latin1,
+  }
+  SGNIDOCNE_TNOF = FONT_ENCODINGS.invert
+  FONT_FAMILIES = {
+    0x01 => :roman,
+    0x02 => :swiss,
+    0x03 => :modern,
+    0x04 => :script,
+    0x05 => :decorative,
+  }
+  SEILIMAF_TNOF = FONT_FAMILIES.invert
+  FONT_WEIGHTS = {
+    :bold   => 700,
+    :normal => 400,
+  }
+  LEAP_ERROR = Date.new 1900, 2, 28
+  OPCODES = {
+    :blank        => 0x0201, #    BLANK ➜ 6.7
+    :boolerr      => 0x0205, #    BOOLERR ➜ 6.10
+    :boundsheet   => 0x0085, # ●● BOUNDSHEET ➜ 6.12
+    :codepage     => 0x0042, # ○  CODEPAGE ➜ 6.17
+    :colinfo      => 0x007d, # ○○ COLINFO ➜ 6.18
+    :continue     => 0x003c, # ○  CONTINUE ➜ 6.22
+    :datemode     => 0x0022, # ○  DATEMODE ➜ 6.25
+    :dbcell       => 0x0a0b, # ○  DBCELL
+    :dimensions   => 0x0200, # ●  DIMENSIONS ➜ 6.31
+    :eof          => 0x000a, # ●  EOF ➜ 6.36
+    :font         => 0x0031, # ●● FONT ➜ 6.43
+    :format       => 0x041e, # ○○ FORMAT (Number Format) ➜ 6.45
+    :formula      => 0x0006, #    FORMULA ➜ 6.46
+    :hlink        => 0x01b8, #    HLINK ➜ 6.52 (BIFF8 only)
+    :label        => 0x0204, #    LABEL ➜ 6.59 (BIFF2-BIFF7)
+    :labelsst     => 0x00fd, #    LABELSST ➜ 6.61 (BIFF8 only)
+    :mulblank     => 0x00be, #    MULBLANK ➜ 6.64 (BIFF5-BIFF8)
+    :mulrk        => 0x00bd, #    MULRK ➜ 6.65 (BIFF5-BIFF8)
+    :number       => 0x0203, #    NUMBER ➜ 6.68
+    :rk           => 0x027e, #    RK ➜ 6.82 (BIFF3-BIFF8)
+    :row          => 0x0208, # ●  ROW ➜ 6.83
+    :rstring      => 0x00d6, #    RSTRING ➜ 6.84 (BIFF5/BIFF7)
+    :sst          => 0x00fc, # ●  SST ➜ 6.96
+    :string       => 0x0207, #    STRING ➜ 6.98
+    :style        => 0x0293, # ●● STYLE ➜ 6.99
+    :xf           => 0x00e0, # ●● XF ➜ 6.115
+    :sharedfmla   => 0x04bc, #    SHAREDFMLA ➜ 5.94
+    ########################## Unhandled Opcodes ################################
+    :extsst       => 0x00ff, # ●  EXTSST ➜ 6.40
+    :index        => 0x020b, # ○  INDEX ➜ 5.7 (Row Blocks), ➜ 6.55
+    :uncalced     => 0x005e, # ○  UNCALCED ➜ 6.104
+    ########################## ○  Calculation Settings Block ➜ 5.3
+    :calccount    => 0x000c, # ○  CALCCOUNT ➜ 6.14
+    :calcmode     => 0x000d, # ○  CALCMODE ➜ 6.15
+    :precision    => 0x000e, # ○  PRECISION ➜ 6.74 (moved to Workbook Globals
+                             #                      Substream in BIFF5-BIFF8)
+    :refmode      => 0x000f, # ○  REFMODE ➜ 6.80
+    :delta        => 0x0010, # ○  DELTA ➜ 6.30
+    :iteration    => 0x0011, # ○  ITERATION ➜ 6.57
+    :saverecalc   => 0x005f, # ○  SAVERECALC ➜ 6.85 (BIFF3-BIFF8 only)
+    ########################## ○  Workbook Protection Block ➜ 5.18
+    :protect      => 0x0012, # ○  PROTECT
+                             #    Worksheet contents: 1 = protected (➜ 6.77)
+    :windowprot   => 0x0019, # ○  WINDOWPROTECT Window settings: 1 = protected
+                             #                  (BIFF4W only, ➜ 6.110)
+    :objectprot   => 0x0063, # ○  OBJECTPROTECT
+                             #    Embedded objects: 1 = protected (➜ 6.69)
+    :scenprotect  => 0x00dd, # ○  SCENPROTECT
+                             #    Scenarios: 1 = protected (BIFF5-BIFF8, ➜ 6.86)
+    :password     => 0x0013, # ○  PASSWORD Hash value of the password;
+                             #             0   = no password (➜ 6.72)
+    ########################## ○  File Protection Block ➜ 5.19
+    :writeprot    => 0x0086, # ○  WRITEPROT File is write protected
+                             #    (BIFF3-BIFF8, ➜ 6.112), password in FILESHARING
+    :filepass     => 0x002f, # ○  FILEPASS File is read/write-protected,
+                             #             encryption information (➜ 6.41)
+    :writeaccess  => 0x005c, # ○  WRITEACCESS User name (BIFF3-BIFF8, ➜ 6.111)
+    :filesharing  => 0x005b, # ○  FILESHARING File sharing options
+                             #    (BIFF3-BIFF8, ➜ 6.42)
+    ########################## ○  Link Table ➜ 5.10.3
+                             # ●● SUPBOOK Block(s)
+                             #    Settings for a referenced document
+    :supbook      => 0x01ae, #    ●  SUPBOOK ➜ 6.100
+    :externname   => 0x0223, #    ○○ EXTERNNAME ➜ 6.38
+    :xct          => 0x0059, #    ○○ ●  XCT ➜ 6.114
+    :crn          => 0x005a, #       ●● CRN ➜ 6.24
+    :externsheet  => 0x0017, # ●  EXTERNSHEET ➜ 6.39
+    :name         => 0x0218, # ○○ NAME ➜ 6.66
+    ##########################
+    :window1      => 0x003d, # ●  WINDOW1 ➜ 6.108 (has information on
+                             #              which Spreadsheet is 'active')
+    :backup       => 0x0040, # ○  BACKUP ➜ 6.5
+    :country      => 0x008c, # ○  COUNTRY (Make writeable?) ➜ 6.23
+    :hideobj      => 0x008d, # ○  HIDEOBJ ➜ 6.52
+    :palette      => 0x0092, # ○  PALETTE ➜ 6.70
+    :fngroupcnt   => 0x009c, # ○  FNGROUPCOUNT
+    :bookbool     => 0x00da, # ○  BOOKBOOL ➜ 6.9
+    :tabid        => 0x013d, # ○  TABID
+    :useselfs     => 0x0160, # ○  USESELFS (Natural Language Formulas) ➜ 6.105
+    :dsf          => 0x0161, # ○  DSF (Double Stream File) ➜ 6.32
+    :refreshall   => 0x01b7, # ○  REFRESHALL
+    ########################## ●  Worksheet View Settings Block ➜ 5.5
+    :window2      => 0x023e, # ●  WINDOW2 ➜ 5.110
+    :scl          => 0x00a0, # ○  SCL ➜ 5.92 (BIFF4-BIFF8 only)
+    :pane         => 0x0041, # ○  PANE ➜ 5.75
+    :selection    => 0x001d, # ○○ SELECTION ➜ 5.93
+    ########################## ○  Page Settings Block ➜ 5.4
+    :hpagebreaks  => 0x001b, # ○  HORIZONTALPAGEBREAKS ➜ 6.54
+    :vpagebreaks  => 0x001a, # ○  VERTICALPAGEBREAKS ➜ 6.107
+    :header       => 0x0014, # ○  HEADER ➜ 6.51
+    :footer       => 0x0015, # ○  FOOTER ➜ 6.44
+    :hcenter      => 0x0083, # ○  HCENTER ➜ 6.50 (BIFF3-BIFF8 only)
+    :vcenter      => 0x0084, # ○  VCENTER ➜ 6.106 (BIFF3-BIFF8 only)
+    :leftmargin   => 0x0026, # ○  LEFTMARGIN ➜ 6.62
+    :rightmargin  => 0x0027, # ○  RIGHTMARGIN ➜ 6.81
+    :topmargin    => 0x0028, # ○  TOPMARGIN ➜ 6.103
+    :bottommargin => 0x0029, # ○  BOTTOMMARGIN ➜ 6.11
+                             # ○  PLS (opcode unknown)
+    :pagesetup    => 0x00a1, # ○  PAGESETUP ➜ 6.89 (BIFF4-BIFF8 only)
+    :bitmap       => 0x00e9, # ○  BITMAP ➜ 6.6 (Background-Bitmap, BIFF8 only)
+    ##########################
+    :printheaders => 0x002a, # ○  PRINTHEADERS ➜ 6.76
+    :printgridlns => 0x002b, # ○  PRINTGRIDLINES ➜ 6.75
+    :gridset      => 0x0082, # ○  GRIDSET ➜ 6.48
+    :guts         => 0x0080, # ○  GUTS ➜ 6.49
+    :defrowheight => 0x0225, # ○  DEFAULTROWHEIGHT ➜ 6.28
+    :wsbool       => 0x0081, # ○  WSBOOL ➜ 6.113
+    :defcolwidth  => 0x0055, # ○  DEFCOLWIDTH ➜ 6.29
+    :sort         => 0x0090, # ○  SORT ➜ 6.95
+  }
+=begin ## unknown opcodes
+0x00bf, 0x00c0, 0x00c1, 0x00e1, 0x00e2, 0x00eb, 0x01af, 0x01bc
+=end
+  SEDOCPO = OPCODES.invert
+  TWIPS = 20
+  UNDERLINE_TYPES = {
+    0x0001 => :single,
+    0x0002 => :double,
+    0x0021 => :single_accounting,
+    0x0022 => :double_accounting,
+  }
+  SEPYT_ENILREDNU = UNDERLINE_TYPES.invert
+  XF_H_ALIGN = {
+    :default       => 0,
+    :left          => 1,
+    :center        => 2,
+    :right         => 3,
+    :fill          => 4,
+    :justify       => 5,
+    :merge         => 6,
+    :distributed   => 7,
+  }
+  NGILA_H_FX = XF_H_ALIGN.invert
+  XF_TEXT_DIRECTION = {
+    :context       => 0,
+    :left_to_right => 1,
+    :right_to_left => 2,
+  }
+  NOITCERID_TXET_FX = XF_TEXT_DIRECTION.invert
+  XF_V_ALIGN = {
+    :top         => 0,
+    :middle      => 1,
+    :bottom      => 2,
+    :justify     => 3,
+    :distributed => 4,
+  }
+  NGILA_V_FX = XF_V_ALIGN.invert
+  OPCODE_SIZE = 4
+  ROW_HEIGHT = 12.1
+  SST_CHUNKSIZE = 20
+  def binfmt key
+    BINARY_FORMATS[key]
+  end
+  def opcode key
+    OPCODES[key]
+  end
+end
+  end
+end

data/lib/spreadsheet/excel/offset.rb

@@ -0,0 +1,41 @@
+require 'spreadsheet/compatibility'
+
+module Spreadsheet
+  module Excel
+##
+# This module is used to keep track of offsets in modified Excel documents.
+# Considered internal and subject to change without notice.
+module Offset
+  include Compatibility
+  attr_reader :changes, :offsets
+  def initialize *args
+    super
+    @changes = {}
+    @offsets = {}
+  end
+  def Offset.append_features mod
+    super
+    mod.module_eval do
+      class << self
+        include Compatibility
+        def offset *keys
+          keys.each do |key|
+            attr_reader key unless instance_methods.include? method_name(key)
+            define_method "#{key}=" do |value|
+              @changes.store key, true
+              instance_variable_set ivar_name(key), value
+            end
+            define_method "set_#{key}" do |value, pos, len|
+              instance_variable_set ivar_name(key), value
+              @offsets.store key, [pos, len]
+              havename = "have_set_#{key}"
+              send(havename, value, pos, len) if respond_to? havename
+            end
+          end
+        end
+      end
+    end
+  end
+end
+  end
+end

data/lib/spreadsheet/excel/reader/biff5.rb

@@ -0,0 +1,22 @@
+module Spreadsheet
+  module Excel
+    class Reader
+##
+# This Module collects reader methods such as read_string that are specific to
+# Biff5.  This Module is likely to be expanded as Support for older Versions
+# of Excel grows.
+module Biff5
+  ##
+  # Read a String of 8-bit Characters
+  def read_string work, count_length=1
+    # Offset    Size  Contents
+    #      0  1 or 2  Length of the string (character count, ln)
+    # 1 or 2      ln  Character array (8-bit characters)
+    fmt = count_length == 1 ? 'C' : 'v'
+    length, = work.unpack fmt
+    work[count_length, length]
+  end
+end
+    end
+  end
+end

data/lib/spreadsheet/excel/reader/biff8.rb

@@ -0,0 +1,199 @@
+module Spreadsheet
+  module Excel
+    class Reader
+##
+# This Module collects reader methods such as read_string that are specific to
+# Biff8.  This Module is likely to be expanded as Support for older Versions
+# of Excel grows and methods get moved here for disambiguation.
+module Biff8
+  include Spreadsheet::Excel::Internals
+  ##
+  # When a String is too long for one Opcode, it is continued in a Continue
+  # Opcode. Excel may reconsider compressing the remainder of the string.
+  # This method appends the available remainder (decompressed if necessary) to
+  # the incomplete string.
+  def continue_string work, incomplete_string=@incomplete_string
+    opts, _ = work.unpack 'C'
+    wide = opts & 1
+    head, chars = incomplete_string
+    owing = chars - head.size / 2
+    size = owing * (wide + 1)
+    string = work[1, size]
+    if wide == 0
+      string = wide string
+    end
+    head << string
+    if head.size >= chars * 2
+      @incomplete_string = nil
+    end
+    size + 1
+  end
+  ##
+  # When a String is too long for one Opcode, it is continued in a Continue
+  # Opcode. Excel may reconsider compressing the remainder of the string.
+  # This method only evaluates the header and registers the address of the
+  # continuation with the previous SstEntry.
+  def continue_string_header work, oppos
+    opts, _ = work.unpack 'C'
+    wide = opts & 1
+    owing = @incomplete_sst.continued_chars
+    size = [work.size, owing * (1 + wide) + 1].min
+    chars = (size - 1) / (1 + wide)
+    skip = size
+    @incomplete_sst.continue oppos + OPCODE_SIZE, size, chars
+    unless @incomplete_sst.continued?
+      @workbook.add_shared_string @incomplete_sst
+      skip += @incomplete_skip
+      @incomplete_sst = nil
+      @incomplete_skip = nil
+    end
+    skip
+  end
+  ##
+  # Read more data into the Shared String Table. (see also: #read_sst)
+  # This method only evaluates the header, the actual work is done in #_read_sst
+  def continue_sst work, oppos, len
+    pos = 0
+    if @incomplete_sst
+      pos = continue_string_header work, oppos
+    elsif !@incomplete_skip.nil?
+      pos =  @incomplete_skip
+      @incomplete_skip = nil
+    end
+    @sst_offset[1] += len
+    _read_sst work, oppos, pos
+  end
+  def postread_workbook # :nodoc:
+    super
+    @incomplete_string, @sst_size, @sst_offset, @incomplete_sst = nil, @incomplete_skip = nil
+  end
+  ##
+  # Store the offset of extsst, so we can write a new extsst when the
+  # sst has changed
+  def read_extsst work, pos, len
+    @workbook.offsets.store :extsst, [pos, len]
+  end
+  ##
+  # Read the Shared String Table present in all Biff8 Files.
+  # This method only evaluates the header, the actual work is done in #_read_sst
+  def read_sst work, pos, len
+    # Offset  Size  Contents
+    #      0     4  Total number of strings in the workbook (see below)
+    #      4     4  Number of following strings (nm)
+    #      8  var.  List of nm Unicode strings, 16-bit string length (➜ 3.4)
+    total, @sst_size = work.unpack 'V2'
+    @sst_offset = [pos, len]
+    @workbook.offsets.store :sst, @sst_offset
+    _read_sst work, pos, 8
+  end
+  ##
+  # Read a string from the Spreadsheet, such as a Worksheet- or Font-Name, or a
+  # Number-Format. See also #read_string_header and #read_string_body
+  def read_string work, count_length=1
+    #   Offset    Size  Contents
+    #        0  1 or 2  Length of the string (character count, ln)
+    #   1 or 2       1  Option flags:
+    #                   Bit  Mask  Contents
+    #                     0  0x01  Character compression (ccompr):
+    #                              0 = Compressed (8-bit characters)
+    #                              1 = Uncompressed (16-bit characters)
+    #                     2  0x04  Asian phonetic settings (phonetic):
+    #                              0 = Does not contain Asian phonetic settings
+    #                              1 = Contains Asian phonetic settings
+    #                     3  0x08  Rich-Text settings (richtext):
+    #                              0 = Does not contain Rich-Text settings
+    #                              1 = Contains Rich-Text settings
+    # [2 or 3]       2  (optional, only if richtext=1)
+    #                   Number of Rich-Text formatting runs (rt)
+    #   [var.]       4  (optional, only if phonetic=1)
+    #                   Size of Asian phonetic settings block (in bytes, sz)
+    #     var.      ln  Character array (8-bit characters
+    #          or 2∙ln               or 16-bit characters, dependent on ccompr)
+    #   [var.]    4∙rt  (optional, only if richtext=1)
+    #                   List of rt formatting runs (➜ 3.2)
+    #   [var.]      sz  (optional, only if phonetic=1)
+    #                   Asian Phonetic Settings Block (➜ 3.4.2)
+    chars, offset, wide, phonetic, richtext, available, owing, skip \
+      = read_string_header work, count_length
+    string, data = read_string_body work, offset, available, wide > 0
+    if owing > 0
+      @incomplete_string = [string, chars]
+    end
+    string
+  end
+  ##
+  # Read the body of a string. Returns the String (decompressed if necessary) and
+  # the available data (unchanged).
+  def read_string_body work, offset, available, wide
+    data = work[offset, available]
+    string = wide ? data : wide(data)
+    [string, data]
+  end
+  ##
+  # Read the header of a string. Returns the following information in an Array:
+  # * The total number of characters in the string
+  # * The offset of the actual string data (= the length of this header in bytes)
+  # * Whether or not the string was compressed (0/1)
+  # * Whether or not the string contains asian phonetic settings (0/1)
+  # * Whether or not the string contains richtext formatting (0/1)
+  # * The number of bytes containing characters in this chunk of data
+  # * The number of characters missing from this chunk of data and expected to
+  #   follow in a Continue Opcode
+  def read_string_header work, count_length=1, offset=0
+    fmt = count_length == 1 ? 'C2' : 'vC'
+    chars, opts = work[offset, 1 + count_length].unpack fmt
+    wide      = opts & 1
+    phonetic  = (opts >> 2) & 1
+    richtext  = (opts >> 3) & 1
+    size      = chars * (wide + 1)
+    skip = 0
+    if richtext > 0
+      runs, = work[offset + 1 + count_length, 2].unpack 'v'
+      skip = 4 * runs
+    end
+    if phonetic > 0
+      psize, = work[offset + 1 + count_length + richtext * 2, 4].unpack 'V'
+      skip += psize
+    end
+    flagsize  = 1 + count_length + richtext * 2 + phonetic * 4
+    avbl      = [work.size - offset, flagsize + size].min
+    have_chrs = (avbl - flagsize) / (1 + wide)
+    owing     = chars - have_chrs
+    [chars, flagsize, wide, phonetic, richtext, avbl, owing, skip]
+  end
+  ##
+  # Insert null-characters into a compressed UTF-16 string
+  def wide string
+    data = ''
+    string.each_byte do |byte| data << byte.chr << 0.chr end
+    data
+  end
+  private
+  ##
+  # Read the Shared String Table present in all Biff8 Files.
+  def _read_sst work, oppos, pos
+    worksize = work.size
+    while @workbook.sst_size < @sst_size && pos < worksize do
+      sst = SstEntry.new :offset => oppos + OPCODE_SIZE + pos,
+                         :ole    => @data,
+                         :reader => self
+      sst.chars, sst.flags, wide, sst.phonetic, sst.richtext, sst.available,
+        sst.continued_chars, skip = read_string_header work, 2, pos
+      sst.wide = wide > 0
+      if sst.continued?
+        @incomplete_sst = sst
+        @incomplete_skip = skip
+        pos += sst.available
+      else
+        @workbook.add_shared_string sst
+        pos += sst.available + skip
+        if pos > worksize
+          @incomplete_skip = pos - worksize
+        end
+      end
+    end
+  end
+end
+    end
+  end
+end