Changeset 6463 for lang/ruby/asc3to2

Timestamp:

02/10/08 04:19:25 (5 years ago)

Author:

gyuque

Message:

3to2: extracted SWF parser

Location:

lang/ruby/asc3to2

Files:

• AsConverter.rb (modified) (2 diffs)
• swf.rb (added)

lang/ruby/asc3to2/AsConverter.rb

@@ -7 +7 @@
 
 require 'zlib'
+require 'swf'
 
 # AsConverter
@@ -160 +161 @@
   # Param:: 読み込むファイル名
   def readSwfFile(filename)
-    org = open(filename, "rb").read
-    swf = org.unpack("B*").to_s
-    h = 0
-    # ヘッダ部
-    ## CWS形式だったらswfを読み込み直す
-    if swf[h,8].to_i(2).chr == "C" then
-      swf = org[0,8].unpack("B*").to_s
-      swf << Zlib::Inflate.inflate(org[8,org.length-8]).unpack("B*").to_s
-    end
-    ## 最初の64ビットを無視
-    h += 64
-    ## RECT構造体
-    ### 構造体各要素長さ
-    rl = swf[h,5].to_i(2)
-    ### RECT構造体を無視
-    h += 5 + (4*rl)
-    ### padding
-    h += (8 - h%8)
-    ## ヘッダの残り32ビットを無視
-    h += 32
-
-    # タグの読み取り開始
-    begin
-      # タグタイプ＆長さ取得
-      tag_and_length = swf[h+8,8] + swf[h,8]
-      # EndTagだったら終了
-      if (0 == tagid = tag_and_length[0,10].to_i(2)) then break end
-
-      # longタグ対応
-      if (63 == l = tag_and_length[10,6].to_i(2)) then
-        htemp = h + 16
-        lstr = ""
-        4.times do
-          lstr = swf[htemp,8] + lstr
-          htemp += 8
-        end
-        l = lstr.to_i(2)
-        h += 32
-      end
-      h += 16
-      
-      # タグIDが0x52(DoABC)であればABCとしてインスタンス変数へ格納
-      # それ以外は無視
-      # DoABCは1回しか出てこないことを期待
-      if tagid == 82 then
-        @abc = swf[h,8*l]
-        break
-      end
-      h += (8*l)
-    end until h > swf.length
+    swf = SWF::SWF.new
+    
+    def swf.tagDOABC(bs, tag_len)
+      @abc = bs.read(8*tag_len)
+
+      def self.abc
+        @abc
+      end
+    end
+    
+    swf.load(filename)
+    @abc = swf.abc
   end