tsparser 0.0.0

data/lib/definition/arib_time.rb

@@ -0,0 +1,41 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class AribTime
+    require 'date'
+    require 'time'
+
+    def initialize(binary)
+      @mjd  = binary.read_byte_as_integer(2)
+      @hour = binary.read_bit_as_integer(4) * 10 + binary.read_bit_as_integer(4)
+      @min  = binary.read_bit_as_integer(4) * 10 + binary.read_bit_as_integer(4)
+      @sec  = binary.read_bit_as_integer(4) * 10 + binary.read_bit_as_integer(4)
+    end
+
+    def date
+      return @date ||= convert_mjd_to_date(@mjd)
+    end
+
+    # ARIB STD-B10 2, appendix-C
+    def convert_mjd_to_date(mjd)
+      y_ = ((mjd - 15078.2) / 365.25).to_i
+      m_ = ((mjd - 14956.1 - (y_ * 365.25).to_i) / 30.6001).to_i
+      d  = mjd - 14956 - (y_ * 365.25).to_i - (m_ * 30.6001).to_i
+      k  = (m_ == 14 || m_ == 15) ? 1 : 0
+      y  = y_ + k
+      m  = m_ - 1 - k * 12
+      return Date.new(1900 + y, m, d)
+    end
+    
+    def date_str
+      return sprintf("%02d/%02d/%02d", date.year, date.month, date.day)
+    end
+    
+    def to_s
+      return sprintf("%s %02d:%02d:%02d +0900", date_str, @hour, @min, @sec)
+    end
+
+    def to_time
+      return Time.parse(to_s)
+    end
+  end
+end

data/lib/definition/descriptor.rb

@@ -0,0 +1,27 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class Descriptor
+
+    # ARIB STD-B10 Table5-3
+    DescriptorTable = {
+      0x4D => TSparser::ShortEventDescriptor,
+      0x4E => TSparser::ExtendedEventDescriptor,
+      0x50 => TSparser::ComponentDescriptor,
+      0x54 => TSparser::ContentDescriptor,
+      0xC1 => TSparser::DigitalCopyControlDescriptor,
+      0xC4 => TSparser::AudioComponentDescriptor,
+      0xC7 => TSparser::DataContentDescriptor,
+      0xCB => TSparser::CAContractInformationDescriptor, # Defined in ARIB STD-B25
+      0xD6 => TSparser::EventGroupDescriptor
+    }
+    DescriptorTable.default = TSparser::UnknownDescriptor
+
+    def self.new(binary)
+      now_point               = binary.bit_pointer / 8
+      descriptor_tag          = binary.b(now_point + 0)
+      descriptor_length       = binary.b(now_point + 1)
+      descriptor_whole_binary = binary.read_bit_as_binary(descriptor_length * 8 + 16)
+      return DescriptorTable[descriptor_tag].new(descriptor_whole_binary)
+    end
+  end
+end

data/lib/definition/descriptor/audio_component_descriptor.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class AudioComponentDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end

data/lib/definition/descriptor/ca_contract_information_descriptor.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class CAContractInformationDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end

data/lib/definition/descriptor/component_descriptor.rb

@@ -0,0 +1,18 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class ComponentDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,        Integer,     8
+      read :descriptor_length,     Integer,     8
+      read :reserved_future_use,   Binary,      4
+      read :stream_content,        Integer,     4
+      read :component_type,        Integer,     8
+      read :component_tag,         Integer,     8
+      read :iso_639_language_code, String,     24
+      read :text,                  AribString, descriptor_length * 8 - 48
+    end
+  end
+end
+

data/lib/definition/descriptor/content_descriptor.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class ContentDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer,     8
+      read :descriptor_length, Integer,     8
+      read :contents,          ContentList, descriptor_length * 8
+    end
+
+    class ContentList
+ 
+      def initialize(binary)
+        @contents = []
+        while binary.readable?
+          @contents << Content.new(binary)
+        end
+      end
+
+      def each(&block)
+        @contents.each(&block)
+      end
+
+      class Content
+        include Parsing
+
+        def_parsing do
+          read :content_nibble_level_1, Integer, 4
+          read :content_nibble_level_2, Integer, 4
+          read :user_nibble,            Integer, 4
+          read :user_nibble,            Integer, 4
+        end
+      end
+    end
+  end
+end

data/lib/definition/descriptor/data_content_descriptor.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class DataContentDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end

data/lib/definition/descriptor/digital_copy_control_descriptor.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class DigitalCopyControlDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end

data/lib/definition/descriptor/event_group_descriptor.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class EventGroupDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end

data/lib/definition/descriptor/extended_event_descriptor.rb

@@ -0,0 +1,52 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class ExtendedEventDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,         Integer,     8
+      read :descriptor_length,      Integer,     8
+      read :descriptor_number,      Integer,     4
+      read :last_descriptor_number, Integer,     4
+      read :iso_639_language_code,  String,     24
+      read :length_of_items,        Integer,     8
+      read :item_map,               ItemHash,   length_of_items * 8
+      read :text_length,            Integer,     8
+      read :text,                   AribString, text_length * 8
+    end
+
+    class ItemHash
+      def initialize(binary)
+        @item_map = Hash.new
+        while binary.readable?
+          item = Item.new(binary)
+          @item_map[item.item_description.to_utf_8] = item.item.to_utf_8
+        end
+      end
+
+      def [](key)
+        return @item_map[key]
+      end
+
+      def to_h
+        return @item_map.dup
+      end
+
+      def to_s
+        return @item_map.to_s
+      end
+
+      class Item
+        include Parsing
+        
+        def_parsing(false) do
+          read :item_description_length, Integer,    8
+          read :item_description,        AribString, item_description_length * 8
+          read :item_length,             Integer,    8
+          read :item,                    AribString, item_length * 8
+        end
+      end
+    end
+  end
+end
+

data/lib/definition/descriptor/short_event_descriptor.rb

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class ShortEventDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,        Integer,     8
+      read :descriptor_length,     Integer,     8
+      read :iso_639_language_code, String,     24
+      read :event_name_length,     Integer,     8
+      read :event_name,            AribString, event_name_length * 8
+      read :text_length,           Integer,     8
+      read :text,                  AribString, text_length * 8
+    end
+  end
+end
+

data/lib/definition/descriptor/unknown_descriptor.rb

@@ -0,0 +1,13 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class UnknownDescriptor
+    include Parsing
+
+    def_parsing do
+      read :descriptor_tag,    Integer, 8
+      read :descriptor_length, Integer, 8
+      read :rest,              Binary,  descriptor_length * 8   
+    end
+  end
+end
+

data/lib/definition/descriptor_list.rb

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class DescriptorList
+    include Enumerable
+    
+    def initialize(binary)
+      @descriptors = []
+      while binary.readable?
+        @descriptors << Descriptor.new(binary)
+      end
+    end
+
+    def each(&block)
+      @descriptors.each(&block)
+    end
+  end
+end

data/lib/definition/eit_event.rb

@@ -0,0 +1,21 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class EITEvent
+    include Parsing
+    
+    # define data-structure of event_information_section
+    # this is following ARIB-STD-b10v4_9 - 88p
+    def_parsing(false) do
+      read :event_id,                Integer,        16
+      read :start_time,              AribTime,       40
+      read :duration,                AribDuration,   24
+      read :running_status,          Integer,        3
+      read :free_ca_mode,            Integer,        1
+      read :descriptors_loop_length, Integer,        12
+      read :descriptors,             DescriptorList,  descriptors_loop_length * 8
+    end
+  end
+end
+
+
+

data/lib/definition/event_information_section.rb

@@ -0,0 +1,53 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class EventInformationSection
+    include Parsing
+
+    def self.section_length_enough?(section_binary)
+      section_length = (section_binary.b(1, 0..3) << 8) + section_binary.b(2)
+      return section_binary.length >= section_length + 3
+    end
+    
+    # define data-structure of event_information_section
+    # this is following ARIB-STD-b10v4_9 - 88p
+    def_parsing do
+      read :table_id,                    Integer,       8
+      read :section_syntax_indicator,    Integer,       1
+      read :reserved_future_use,         Integer,       1
+      read :reserved1,                   Integer,       2
+      read :section_length,              Integer,      12
+      read :service_id,                  Integer,      16
+      read :reserved2,                   Integer,       2
+      read :version_number,              Integer,       5
+      read :current_next_indicator,      Integer,       1
+      read :section_number,              Integer,       8
+      read :last_section_number,         Integer,       8
+      read :transport_stream_id,         Integer,      16
+      read :original_network_id,         Integer,      16
+      read :segment_last_section_number, Integer,       8
+      read :last_table_id,               Integer,       8 
+      read :events,                      EITEventList, section_length * 8 - 88 - 32
+      read :crc_32,                      Integer,      32
+    end
+
+    def to_epg
+      epg = EPG.new
+      events.each do |event|
+        attr_hash = {
+          :event_id   => event.event_id,
+          :start_time => event.start_time.to_s,
+          :duration   => event.duration.to_sec
+        }
+        event.descriptors.each do |desc|
+          case desc
+          when ShortEventDescriptor
+            attr_hash[:name] = desc.event_name.to_utf_8
+            attr_hash[:description] = desc.text.to_utf_8
+          end
+        end
+        epg.add(event.event_id, attr_hash) if attr_hash[:name]
+      end
+      return epg
+    end
+  end
+end

data/lib/definition/event_list.rb

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+module TSparser
+  class EITEventList
+    include Enumerable
+    
+    def initialize(binary)
+      @events = []
+      while binary.readable?
+        @events << EITEvent.new(binary)
+      end
+    end
+
+    def each(&block)
+      @events.each(&block)
+    end
+  end
+end

data/lib/definition/transport_packet.rb

@@ -0,0 +1,68 @@
+# -*- coding: utf-8 -*-
+module TSparser
+
+  # Define data-structure of transport packet.
+  # This is following 
+  #  iso13818-1, 2.4.3.2, Table2-2 and 2.4.3.5, Table2-6 (adaptation field).
+  class TransportPacket
+    include Parsing
+
+    def_parsing do
+      read :sync_byte,                    Integer,  8
+      read :transport_error_indicator,    Integer,  1
+      read :payload_unit_start_indicator, Integer,  1
+      read :transport_priority,           Integer,  1
+      read :pid,                          Integer, 13
+      read :transport_scrambling_control, Integer,  2
+      read :adaptation_field_control,     Integer,  2
+      read :continuity_counter,           Integer,  4
+      if adaptation_field_control[1] == 1
+        read :adaptation_field_length, Integer, 8
+        if adaptation_field_length > 0
+          read :adaptation_field, AdaptationField, adaptation_field_length * 8
+        end
+      end
+      if adaptation_field_control[0] == 1
+        read :payload, Binary, rest_all
+      end
+    end
+
+    # Especial parsing of PID for fast calculation.
+    def pid
+      return @pid ||= (@binary.b(1, 0..4) << 8) + @binary.b(2)
+    end
+  end
+
+  # Define data-structure of adaptation field in transport packet.
+  # This is following 
+  #  iso13818-1, 2.4.3.5, Table2-6.
+  class AdaptationField
+    include Parsing
+    
+    def_parsing do
+      read :discontinuity_indicator,              Integer, 1
+      read :random_acceses_indicator,             Integer, 1
+      read :elementary_stream_priority_indicator, Integer, 1
+      read :pcr_flag,                             Integer, 1
+      read :opcr_flag,                            Integer, 1
+      read :splicing_point_flag,                  Integer, 1
+      read :transport_private_data_flag,          Integer, 1
+      read :adaptation_field_extension_flag,      Integer, 1
+      if pcr_flag == 1
+        
+      end
+      if opcr_flag == 1
+
+      end
+      if splicing_point_flag == 1
+
+      end
+      if transport_private_data_flag == 1
+
+      end
+      if adaptation_field_extension_flag == 1
+
+      end
+    end
+  end
+end