#!/usr/bin/env ruby

require "nkf"

def error(msg)
  warn msg
  exit(1)
end

magic = ARGF.read(4)
error("invalid format") unless magic == "ASEF"

major = ARGF.read(2).unpack("n").first
minor = ARGF.read(2).unpack("n").first
error("invalid version") unless major == 1 && minor == 0

colors = []
name = ""

number_of_blocks = ARGF.read(4).unpack("N").first
number_of_blocks.times do |i|
  type   = ARGF.read(2).unpack("n").first
  length = ARGF.read(4).unpack("N").first
  case type
  # grounp start
  when 0xC001
    group_name_length = ARGF.read(2).unpack("n").first-1
    name = NKF.nkf( "-W16 -w", ARGF.read(group_name_length*2) )
    ARGF.read(2) # NULL ¤ò¼Î¤Æ¤ë
    next

  # color entry
  when 0x0001
    name_length = ARGF.read(2).unpack("n").first
    name_utf16  = ARGF.read(name_length*2)
    color_space = ARGF.read(4)
    case color_space
    when "RGB\040"
      r = (ARGF.read(4).unpack("g").first * 255).round 
      g = (ARGF.read(4).unpack("g").first * 255).round 
      b = (ARGF.read(4).unpack("g").first * 255).round 
      color_type = ARGF.read(2).unpack("n").first
      colors << "##{'%02x' % r}#{'%02x' % g}#{'%02x' % b}"
    when "CMYK"
      c = ARGF.read(4).unpack("g").first
      m = ARGF.read(4).unpack("g").first
      y = ARGF.read(4).unpack("g").first
      k = ARGF.read(4).unpack("g").first
      color_type = ARGF.read(2).unpack("n").first
      r = ( ( 1.0 - [ 1.0, c*(1-k) + k ].min ) * 255).round 
      g = ( ( 1.0 - [ 1.0, m*(1-k) + k ].min ) * 255).round 
      b = ( ( 1.0 - [ 1.0, y*(1-k) + k ].min ) * 255).round 
      colors << "##{'%02x' % r}#{'%02x' % g}#{'%02x' % b}"
    else
      error("unsupported format. this converter can understand rgb only.")

    end

  # grounp end
  when 0xC002
    ARGF.read(length) if length > 0
    next
  end
end


DEFAULT_COLORS = <<END
<draw:color draw:name="Black" draw:color="#000000"/>
<draw:color draw:name="Blue" draw:color="#000080"/>
<draw:color draw:name="Green" draw:color="#008000"/>
<draw:color draw:name="BlueÎÐ" draw:color="#008080"/>
<draw:color draw:name="Red" draw:color="#800000"/>
<draw:color draw:name="Magenta" draw:color="#800080"/>
<draw:color draw:name="Brown" draw:color="#808000"/>
<draw:color draw:name="Gray 50%" draw:color="#808080"/>
<draw:color draw:name="Light gray" draw:color="#c0c0c0"/>
<draw:color draw:name="Light blue" draw:color="#0000ff"/>
<draw:color draw:name="Light green" draw:color="#00ff00"/>
<draw:color draw:name="Light blueÎÐ" draw:color="#00ffff"/>
<draw:color draw:name="Light red" draw:color="#ff0000"/>
<draw:color draw:name="Light magenta" draw:color="#ff00ff"/>
<draw:color draw:name="Yellow" draw:color="#ffff00"/>
<draw:color draw:name="White" draw:color="#ffffff"/>
<draw:color draw:name="Gray 80%" draw:color="#333333"/>
<draw:color draw:name="Gray 70%" draw:color="#4c4c4c"/>
<draw:color draw:name="Gray 60%" draw:color="#666666"/>
<draw:color draw:name="Gray 40%" draw:color="#999999"/>
<draw:color draw:name="Gray 30%" draw:color="#b3b3b3"/>
<draw:color draw:name="Gray 20%" draw:color="#cccccc"/>
<draw:color draw:name="Gray 10%" draw:color="#e6e6e6"/>
<draw:color draw:name="Sun 1" draw:color="#333366"/>
<draw:color draw:name="Sun 2" draw:color="#666699"/>
<draw:color draw:name="Sun 3" draw:color="#9999cc"/>
<draw:color draw:name="Sun 4" draw:color="#ccccff"/>
<draw:color draw:name="Ubuntu orange" draw:color="#ff6309"/>
<draw:color draw:name="Ubuntu yellow" draw:color="#ffb515"/>
<draw:color draw:name="Ubuntu red" draw:color="#c90016"/>
<draw:color draw:name="Chart 1" draw:color="#004586"/>
<draw:color draw:name="Chart 2" draw:color="#ff420e"/>
<draw:color draw:name="Chart 3" draw:color="#ffd320"/>
<draw:color draw:name="Chart 4" draw:color="#579d1c"/>
<draw:color draw:name="Chart 5" draw:color="#7e0021"/>
<draw:color draw:name="Chart 6" draw:color="#83caff"/>
<draw:color draw:name="Chart 7" draw:color="#314004"/>
<draw:color draw:name="Chart 8" draw:color="#aecf00"/>
<draw:color draw:name="Chart 9" draw:color="#4b1f6f"/>
<draw:color draw:name="Chart 10" draw:color="#ff950e"/>
<draw:color draw:name="Chart 11" draw:color="#c5000b"/>
<draw:color draw:name="Chart 12" draw:color="#0084d1"/>
END


require "stringio"

StringIO.open( "", "w" ) do |xml|
  xml.puts %q[<?xml version="1.0" encoding="UTF-8"?>]
  xml.puts %q[<office:color-table xmlns:office="http://openoffice.org/2000/office" xmlns:style="http://openoffice.org/2000/style" xmlns:text="http://openoffice.org/2000/text" xmlns:table="http://openoffice.org/2000/table" xmlns:draw="http://openoffice.org/2000/drawing" xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="http://openoffice.org/2000/meta" xmlns:number="http://openoffice.org/2000/datastyle" xmlns:svg="http://www.w3.org/2000/svg" xmlns:chart="http://openoffice.org/2000/chart" xmlns:dr3d="http://openoffice.org/2000/dr3d" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="http://openoffice.org/2000/form" xmlns:script="http://openoffice.org/2000/script">]
  colors.each_with_index do |color,index|
    xml.puts %Q[<draw:color draw:name="#{name} #{index}" draw:color="#{color}" />]
  end
  xml.puts DEFAULT_COLORS
  xml.puts %q[</office:color-table>]

  File.open( "#{name.tr(" ","_")}.soc", "w" ) do |f|
    f.puts NKF.nkf( "-w", xml.string )
  end
end