#! ./miniruby

#
# OnigEncodingDefine(foo, Foo) = {
#   ..
#   "Shift_JIS", /* Canonical Name */
#   ..
# };
# ENC_ALIAS("SJIS", "Shift_JIS")
# ENC_REPLICATE("Windows-31J", "Shift_JIS")
# ENC_ALIAS("CP932", "Windows-31J")
#

require 'mkmf'

encodings = []
replicas = {}
aliases = {}
Dir.open($srcdir) {|d| d.grep(/.+\.c\z/)}.each do |fn|
  open(File.join($srcdir,fn)) do |f|
    orig = nil
    name = nil
    f.each_line do |line|
      break if /^OnigEncodingDefine/o =~ line
    end
    f.each_line do |line|
      break if /"(.*?)"/ =~ line
    end
    encodings << $1 if $1
    f.each_line do |line|
      if /^ENC_REPLICATE\(\s*"([^"]+)"\s*,\s*"([^"]+)"/o =~ line
	replicas[$1] = $2
      elsif /^ENC_ALIAS\(\s*"([^"]+)"\s*,\s*"([^"]+)"/o =~ line
	aliases[$1] = $2
      end
    end
  end
end
open('encdb.h', 'wb') do |f|
  f.puts 'static const char *enc_name_list[] = {'
  encodings.each {|name| f.puts'    "%s",' % name}
  replicas.each_key {|name| f.puts'    "%s",' % name}
  f.puts(<<"_TEXT_")
    NULL
};
static const int enc_name_list_size = #{encodings.length + replicas.length};
static const int enc_aliases_size = #{aliases.length};
static st_table *enc_table_replica_name;
static st_table *enc_table_alias_name;

static void enc_init_db(void)
{
    if (!enc_table_replica_name) {
	enc_table_replica_name = st_init_strcasetable();
    }
    if (!enc_table_alias_name) {
	enc_table_alias_name = st_init_strcasetable();
    }
_TEXT_
  replicas.each_pair {|name, orig|
    f.puts'    st_insert(enc_table_replica_name, (st_data_t)"%s", (st_data_t)"%s");' % [name, orig]}
  aliases.each_pair {|name, orig|
    f.puts'    st_insert(enc_table_alias_name, (st_data_t)"%s", (st_data_t)"%s");' % [name, orig]}
  f.puts '}'
end