Class: OLEStorageLitePPSRoot

Inherits:
OLEStorageLitePPS show all
Defined in:
lib/writeexcel/storage_lite.rb

Overview

:nodoc:

Constant Summary

Constants inherited from OLEStorageLite

OLEStorageLite::DATA_SIZE_SMALL, OLEStorageLite::LONG_INT_SIZE, OLEStorageLite::PPS_SIZE, OLEStorageLite::PPS_TYPE_DIR, OLEStorageLite::PPS_TYPE_FILE, OLEStorageLite::PPS_TYPE_ROOT

Instance Attribute Summary

Attributes inherited from OLEStorageLitePPS

#child, #data, #dir_pps, #name, #next_pps, #no, #pps_file, #prev_pps, #size, #start_block, #time_1st, #time_2nd, #type

Attributes inherited from OLEStorageLite

#file

Instance Method Summary collapse

Methods inherited from OLEStorageLite

#asc2ucs, #getNthPps, #getPpsSearch, #getPpsTree, #localDate2OLE, #oleData2Local, #ucs2asc

Constructor Details

#initialize(raTime1st, raTime2nd, raChild) ⇒ OLEStorageLitePPSRoot


550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
# File 'lib/writeexcel/storage_lite.rb', line 550

def initialize(raTime1st, raTime2nd, raChild)
  super(
    nil,
    asc2ucs('Root Entry'),
    PPS_TYPE_ROOT,
    nil,
    nil,
    nil,
    raTime1st,
    raTime2nd,
    nil,
    nil,
    nil,
    raChild)
end

Instance Method Details

#_saveBbd(iSbdSize, iBsize, iPpsCnt, rh_info) ⇒ Object


857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
# File 'lib/writeexcel/storage_lite.rb', line 857

def _saveBbd(iSbdSize, iBsize, iPpsCnt, rh_info)
  file = rh_info[:fileh]
  #0. Calculate Basic Setting
  iBbCnt    = rh_info[:big_block_size] / LONG_INT_SIZE
  iBlCnt    = iBbCnt - 1
  i1stBdL   = (rh_info[:big_block_size] - 0x4C) / LONG_INT_SIZE
  i1stBdMax = i1stBdL * iBbCnt  - i1stBdL
  iBdExL    = 0
  iAll      = iBsize + iPpsCnt + iSbdSize
  iAllW     = iAll
  iBdCntW   = iAllW / iBbCnt
  iBdCntW  += 1 if iAllW % iBbCnt > 0
  iBdCnt    = 0
  #0.1 Calculate BD count
  iBBleftover = iAll - i1stBdMax
  if iAll >i1stBdMax
    iBdCnt, iBdExL, iBBleftover = calc_idbcnt_idbexl_ibbleftover(iBBleftover, iBlCnt, iBdCnt, iBdExL)
  end
  iAllW  += iBdExL
  iBdCnt += i1stBdL
  #print "iBdCnt = iBdCnt \n"

  #1. Making BD
  #1.1 Set for SBD
  if iSbdSize > 0
    0.upto(iSbdSize-1-1) do |i|
      file.write([i + 1].pack('V'))
    end
    file.write([-2].pack('V'))
  end
  #1.2 Set for B
  0.upto(iBsize-1-1) do |i|
    file.write([i + iSbdSize + 1].pack('V'))
  end
  file.write([-2].pack('V'))

  #1.3 Set for PPS
  0.upto(iPpsCnt-1-1) do |i|
    file.write([i+iSbdSize+iBsize+1].pack("V"))
  end
  file.write([-2].pack('V'))
  #1.4 Set for BBD itself ( 0xFFFFFFFD : BBD)
  0.upto(iBdCnt-1) do |i|
    file.write([0xFFFFFFFD].pack("V"))
  end
  #1.5 Set for ExtraBDList
  0.upto(iBdExL-1) do |i|
    file.write([0xFFFFFFFC].pack("V"))
  end
  #1.6 Adjust for Block
  if (iAllW + iBdCnt) % iBbCnt > 0
    file.write([-1].pack('V') *  (iBbCnt - ((iAllW + iBdCnt) % iBbCnt)))
  end
  #2.Extra BDList
  if iBdCnt > i1stBdL
    iN  = 0
    iNb = 0
    i1stBdL.upto(iBdCnt-1) do |i|
      if iN >= iBbCnt-1
        iN   = 0
        iNb += 1
        file.write([iAll+iBdCnt+iNb].pack("V"))
      end
      file.write([iBsize+iSbdSize+iPpsCnt+i].pack("V"))
      iN += 1
    end
    if (iBdCnt-i1stBdL) % (iBbCnt-1) > 0
      file.write([-1].pack("V") * ((iBbCnt-1) - ((iBdCnt-i1stBdL) % (iBbCnt-1))))
    end
    file.write([-2].pack('V'))
  end
end

#_saveBigData(iStBlk, aList, rh_info) ⇒ Object


730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
# File 'lib/writeexcel/storage_lite.rb', line 730

def _saveBigData(iStBlk, aList, rh_info)
  iRes = 0
  file = rh_info[:fileh]

  #1.Write Big (ge 0x1000) Data into Block
  aList.each do |pps|
    if pps.type != PPS_TYPE_DIR
      #print "PPS: pps DEF:", defined(pps->{Data}), "\n"
      pps.size = pps._datalen   #Mod
      if (pps.size >= rh_info[:small_size]) ||
         ((pps.type == PPS_TYPE_ROOT) && !pps.data.nil?)
        #1.1 Write Data
        #Check for update
        if pps.pps_file
          iLen = 0
          pps.pps_file.seek(0, 0) #To The Top
          while sBuff = pps.pps_file.read(4096)
            iLen += sBuff.bytesize
            file.write(sBuff)           #Check for update
          end
        else
          file.write(pps.data)
        end
        if pps.size % rh_info[:big_block_size] > 0
          file.write(
            "\x00" *
             (rh_info[:big_block_size] -
                  (pps.size % rh_info[:big_block_size]))
            )
        end
        #1.2 Set For PPS
        pps.start_block = iStBlk
        iStBlk += pps.size / rh_info[:big_block_size]
        iStBlk += 1 if pps.size % rh_info[:big_block_size] > 0
      end
    end
  end
end

#save(sFile, bNoAs = nil, rh_info = nil) ⇒ Object


566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
# File 'lib/writeexcel/storage_lite.rb', line 566

def save(sFile, bNoAs = nil, rh_info = nil)
  #0.Initial Setting for saving
  rh_info = Hash.new unless rh_info
  if rh_info[:big_block_size]
    rh_info[:big_block_size] = 2 ** adjust2(rh_info[:big_block_size])
  else
    rh_info[:big_block_size] = 2 ** 9
  end
  if rh_info[:small_block_size]
    rh_info[:small_block_size] = 2 ** adjust2(rh_info[:small_block_size])
  else
    rh_info[:small_block_size] = 2 ** 6
  end
  rh_info[:small_size] = 0x1000
  rh_info[:pps_size]   = 0x80

  close_file = true

  #1.Open File
  #1.1 sFile is Ref of scalar
  if sFile.respond_to?(:to_str)
    rh_info[:fileh] = open(sFile, "wb")
  else
    rh_info[:fileh] = sFile.binmode
  end

  iBlk = 0
  #1. Make an array of PPS (for Save)
  aList=[]
  if bNoAs
    _savePpsSetPnt2([self], aList, rh_info)
  else
    _savePpsSetPnt([self], aList, rh_info)
  end
  iSBDcnt, iBBcnt, iPPScnt = _calcSize(aList, rh_info)

  #2.Save Header
  _saveHeader(rh_info, iSBDcnt, iBBcnt, iPPScnt)

  #3.Make Small Data string (write SBD)
  # Small Datas become RootEntry Data
  @data = _makeSmallData(aList, rh_info)

  #4. Write BB
  iBBlk = iSBDcnt
  _saveBigData(iBBlk, aList, rh_info)

  #5. Write PPS
  _savePps(aList, rh_info)

  #6. Write BD and BDList and Adding Header informations
  _saveBbd(iSBDcnt, iBBcnt, iPPScnt, rh_info)

  #7.Close File
  rh_info[:fileh].close if close_file
end