md2site 0.1.2

data/lib/md2site/htmlutils.rb

@@ -0,0 +1,142 @@
+module Md2site
+  class HTMLUtils
+    require "md2site/nkfguess"
+
+    def initialize(htmlfname, mes)
+      @htmlfname = htmlfname
+      @mes = mes
+    end
+
+    def parse_line(state, line)
+      event = get_event(line)
+
+      @mes.output_debug("#{@lineno}|#{state}|#{event}|#{line}")
+
+      case state
+      when :IN_PART0
+        next_state = state_in_part0(event, line)
+      when :IN_PART1
+        next_state = state_in_part1(event, line)
+      when :IN_PART2
+        next_state = state_in_part2(event, line)
+      else
+        @mes.output_fatal("state=#{state}")
+        @mes.output_fatal("event=#{event}")
+        raise
+      end
+      next_state
+    end
+
+    def divide_html
+      part_struct = Struct.new(:lines, :status)
+      @part0 = part_struct.new([], false)
+      @part1 = part_struct.new([], false)
+      @part2 = part_struct.new([], false)
+
+      encoding = Nkfguess.guess_file(@htmlfname, @mes)
+      mode = "r:#{encoding}"
+      f = @mes.exc_file_gets(@htmlfname) { File.open(@htmlfname, mode) }
+
+      @lines = []
+      @lineno = 0
+      state = :IN_PART0
+      while (line = @mes.exc_file_gets(@htmlfname) { f.gets })
+        state = parse_line(state, line)
+      end
+      @part2.lines << @lines
+
+      @mes.exc_file_close(@htmlfname) { f.close }
+
+      [@part0.lines.flatten.join("\n"),
+       @part1.lines.flatten.join("\n"),
+       @part2.lines.flatten.join("\n")]
+    end
+
+    private
+
+    def get_event(line)
+      line.chomp!
+      begin
+        ldc = line.downcase
+      rescue Error => e
+        @mes.output_exception(e)
+        @mes.output_fatal("Can't convert downcase #{@htmlfname}")
+        exit(100)
+      rescue ArgumentError => e
+        @mes.output_exception(e)
+        @mes.output_fatal("Can't convert downcase #{@htmlfname}")
+        exit(100)
+      end
+      @lineno += 1
+      if ldc.index("<body")
+        event = :BODY_BEGIN
+
+      elsif ldc.index("</body>")
+        event = :BODY_END
+
+      else
+        event = :ELSE
+      end
+
+      event
+    end
+
+    def state_in_part0(event, line)
+      case event
+      when :BODY_BEGIN
+        @part0.lines << @lines
+        @lines = []
+        @lines << line
+        next_state = :IN_PART1
+      when :BODY_END
+        @lines << line
+        @part1.lines << @lines
+        @lines = []
+        next_state = :IN_PART2
+      when :ELSE
+        @lines << line
+        next_state = :IN_PART0
+      else
+        raise
+      end
+
+      next_state
+    end
+
+    def state_in_part1(event, line)
+      case event
+      when :BODY_BEGIN
+        @lines << line
+        next_state = :IN_PART1
+      when :BODY_END
+        @lines << line
+        @part1.lines << @lines
+        @lines = []
+        next_state = :IN_PART2
+      when :ELSE
+        @lines << line
+        next_state = :IN_PART1
+      else
+        raise
+      end
+
+      next_state
+    end
+
+    def state_in_part2(event, line)
+      case event
+      when :BODY_BEGIN
+        raise
+      when :BODY_END
+        raise
+      when :ELSE
+        @lines << line
+        next_state = :IN_PART2
+      else
+        raise
+      end
+
+      next_state
+    end
+  end
+end

data/lib/md2site/htmlutils0.rb

@@ -0,0 +1,223 @@
+module Md2site
+  class HTMLUtils
+    require "md2site/nkfguess"
+
+    def initialize(htmlfname, mes)
+      @htmlfname = htmlfname
+      @mes = mes
+    end
+
+    def parse_line(state, line)
+      event = get_event(line)
+
+      @mes.output_debug("#{@lineno}|#{state}|#{event}|#{line}")
+
+      case state
+      when :IN_PART0
+        next_state = state_in_part0(event, line)
+      when :IN_PART0_CONTENTS
+        next_state = state_in_part0_contents(event, line)
+      when :IN_PART1
+        next_state = state_in_part1(event, line)
+      when :IN_PART2
+        next_state = state_in_part2(event, line)
+      else
+        @mes.output_fatal("state=#{state}")
+        @mes.output_fatal("event=#{event}")
+        raise
+      end
+      next_state
+    end
+
+    def divide_html
+      part_struct = Struct.new(:lines, :status)
+      @part0 = part_struct.new([], false)
+      @part1 = part_struct.new([], false)
+      @part2 = part_struct.new([], false)
+      @div_body_main = nil
+      @div_cse = nil
+
+      encoding = Nkfguess.guess_file(@htmlfname, @mes)
+      mode = "r:#{encoding}"
+      f = @mes.exc_file_gets(@htmlfname) { File.open(@htmlfname, mode) }
+
+      @lines = []
+      @lineno = 0
+      state = :IN_PART0
+      while (line = @mes.exc_file_gets(@htmlfname) { f.gets })
+        state = parse_line(state, line)
+      end
+      @part2.lines << @lines
+
+      @mes.exc_file_close(@htmlfname) { f.close }
+
+      [@part0.lines.flatten.join("\n"),
+       @part1.lines.flatten.join("\n"),
+       @part2.lines.flatten.join("\n")]
+    end
+
+    private
+
+    def get_event(line)
+      line.chomp!
+      @lineno += 1
+      if line.index("CONTENTS BEGIN")
+        event = :CONTENTS_BEGIN
+      elsif line.index("CONTENTS END")
+        event = :CONTENTS_END
+      elsif line.index("<div")
+        if line.index(%Q(id="body_main"))
+          event = :ID_BODY_MAIN
+        elsif line.index(%Q(id="cse"))
+          event = :ID_CSE
+        else
+          event = :ELSE
+        end
+      elsif /^\s*$/.match?(line)
+        event = :WHITE_SPACE
+      else
+        event = :ELSE
+      end
+      event
+    end
+
+    def state_in_part0_contents_end(line)
+      @part0.lines << @lines
+      if !@div_body_main.nil? && !@div_cse.nil?
+        @part0.status = true
+      end
+      @lines = []
+      @lines << line
+      raise unless @div_body_main
+      raise unless @div_cse
+      :IN_PART2
+    end
+
+    def state_in_part0(event, line)
+      case event
+      when :CONTENTS_BEGIN
+        @part0.lines << @lines
+        if !@div_body_main.nil? && !@div_cse.nil?
+          @part0.status = true
+        end
+        @lines = []
+        @lines << line
+        next_state = :IN_PART0_CONTENTS
+      when :CONTENTS_END
+        next_state = state_in_part0_contents_end(line)
+      when :ID_BODY_MAIN
+        @lines << line
+        @div_body_main ||= line
+        next_state = :IN_PART1
+      when :ID_CSE
+        @lines << line
+        @div_cse ||= line
+        next_state = :IN_PART1
+      when :WHITE_SPACE
+        @lines << line
+        next_state = :IN_PART1
+      when :ELSE
+        @lines << line
+        next_state = :IN_PART1
+      else
+        raise
+      end
+      next_state
+    end
+
+    def state_in_part0_contents_contents_env(line)
+      @part1.lines << @lines
+      if !@div_body_main.nil? && !@div_cse.nil?
+        @part1.status = true
+      end
+      @lines = []
+      @lines << line
+      raise unless @div_body_main
+      raise unless @div_cse
+      :IN_PART2
+    end
+
+    def state_in_part0_contents(event, line)
+      case event
+      when :CONTENTS_BEGIN
+        @lines << line
+        next_state = :IN_PART0_CONTENTS
+      when :CONTENTS_END
+        next_state = state_in_part0_contents_contents_env(line)
+      when :ID_BODY_MAIN
+        @lines << line
+        @div_body_main = line
+        next_state = :IN_PART0_CONTENTS
+      when :ID_CSE
+        @lines << line
+        @div_cse = line
+        next_state = :IN_PART0_CONTENTS
+      when :WHITE_SPACE
+        @lines << line
+        next_state = :IN_PART0_CONTENTS
+      when :ELSE
+        @part0.lines << @lines
+        if !@div_body_main.nil? && !@div_cse.nil?
+          @part0.status = true
+        end
+        @lines = []
+        @lines << line
+        next_state = :IN_PART1
+      else
+        raise
+      end
+      next_state
+    end
+
+    def state_in_part1_contents_end(line)
+      @part1.lines << @lines
+      if !@div_body_main.nil? && !@div_cse.nil?
+        @part1.status = true
+      end
+      @lines = []
+      @lines << line
+      raise unless @div_body_main
+      raise unless @div_cse
+      :IN_PART2
+    end
+
+    def state_in_part1(event, line)
+      case event
+      when :CONTENTS_BEGIN
+        @part0.lines << @lines
+        @lines = []
+        @lines << line
+        next_state = :IN_PART0_CONTENTS
+      when :CONTENTS_END
+        next_state = state_in_part1_contents_end(line)
+      when :ID_BODY_MAIN
+        @div_body_main = line
+        @part0.lines << line
+
+        next_state = :IN_PART1
+      when :ID_CSE
+        @div_cse = line
+        @part0.lines << line
+
+        next_state = :IN_PART1
+      when :WHITE_SPACE
+        @lines << line
+        next_state = :IN_PART1
+      when :ELSE
+        @lines << line
+        next_state = :IN_PART1
+      else
+        @mes.output_fatal("state=:IN_PART1")
+        @mes.output_fatal("event=#{event}|")
+        raise
+      end
+      next_state
+    end
+
+    def state_in_part2(event, line)
+      @lines << line
+
+      :IN_PART2
+    end
+  end
+end

data/lib/md2site/info.rb

@@ -0,0 +1,17 @@
+module Md2site
+  class Info
+    def initialize(env, mes)
+      @env = env
+      @mes = mes
+    end
+
+    def execute_subcommand(option)
+      case option.name
+      when "zlist"
+        @env.make_zlist.map {|x| @mes.output_fatal(x) }
+      when "zindex"
+        @env.make_zindex_html
+      end
+    end
+  end
+end

data/lib/md2site/init.rb

@@ -0,0 +1,90 @@
+module Md2site
+  class Init
+    attr_reader :hs, :confFile, :templateDir
+
+    require "md2site/testdata"
+
+    def initialize(src_root_dir, mes, verbose)
+      @mes = mes
+      @verbose = verbose
+      @src_root_dir = src_root_dir
+
+      @conf_file = CONF_FILE
+      @conf_dir = CONF_DIR
+      @template_dir = TEMPLATE_DIR
+      @root_output_dir = OUTPUT_DIR
+      @hs = {
+        "rootOutputDir" => @root_output_dir,
+        "templateDir" => @template_dir,
+        "confDir" => @conf_dir,
+        "rootSrcDir" => SRC_DIR,
+        "statusFile" => STATUS_FILE,
+        "siteFile" => SITE_FILE,
+        "settingfile" => SETTING_FILE,
+        "dataDir" => DATA_DIR,
+        "workDir" => WORK_DIR,
+        "materialDir" => MATERIAL_DIR,
+        "categoryConfPrefix" => CATEGORY_CONF_PREFIX,
+        "defaultTableTampleteFile" => DEFAULT_TABLE_TEMPLATE_FILE,
+      }
+    end
+
+    def execute_subcommand(option, option_url)
+      root_dir = option.value
+      unless File.exist?(root_dir)
+        @mes.exc_make_directory(root_dir) { FileUtils.mkdir_p(root_dir, { verbose: @verbose }) }
+      end
+      absolute_path_root = File.absolute_path(option.value)
+
+      if option_url
+        url = %Q(URL=#{option_url.value})
+      else
+        url = DEFAULT_URL_SETTING
+      end
+
+      @hs[KEY_ABSOLUTE_PATH_ROOT] = absolute_path_root
+      @hs[KEY_URL] = url
+
+      td = Testdata.new(@src_root_dir, @template_dir, hs)
+
+      copy_all_files(@src_root_dir, @conf_dir, absolute_path_root, @conf_dir)
+      template_dir_array = td.template_dir_array
+      copy_templatefile(@src_root_dir, template_dir_array, absolute_path_root, @template_dir)
+      files = expand_and_write_files(@src_root_dir, @conf_dir, absolute_path_root, [@conf_file], @hs)
+      root_output_path = File.join(absolute_path_root, @root_output_dir)
+      @mes.exc_make_directory(root_output_path) { FileUtils.mkdir_p(root_output_path, { verbose: @verbose }) }
+      @env = Env.new(files[0], @mes, @verbose)
+    end
+
+    private
+
+    def expand_and_write_files(src_root_dir, src_dir, dest_root_dir, files, hash)
+      files.map do |x|
+        src_path = File.join(src_root_dir, src_dir, x)
+        content = Filex::Filex.check_and_expand_file(src_path, hash, @mes)
+        dest_dir = File.join(dest_root_dir, src_dir)
+        @mes.exc_make_directory(dest_dir) { FileUtils.mkdir_p(dest_dir, { verbose: @verbose }) }
+        dest_path = File.join(dest_dir, x)
+        @mes.exc_file_write(dest_path) { File.open(dest_path, "w") {|f| f.puts(content) } }
+        dest_path
+      end
+    end
+
+    def copy_templatefile(src_root_dir, src_dir_array, dest_root_dir, dest_dir)
+      src_dir_array.map {|x| copy_all_files(src_root_dir, x, dest_root_dir, dest_dir) }.flatten
+    end
+
+    def copy_all_files(src_root_dir, src_dir, dest_root_dir, dest_dir)
+      dir = File.join(src_root_dir, src_dir)
+      files = Dir[%Q(#{dir}/*)].map do |x|
+        fname = File.basename(x)
+        dest_path = File.join(dest_root_dir, dest_dir, fname)
+        dest_dir_path = File.dirname(dest_path)
+        @mes.exc_make_directory(dest_dir_path) { FileUtils.mkdir_p(dest_dir_path, { verbose: @verbose }) }
+        @mes.exc_file_copy(x, dest_path) { FileUtils.cp(x, dest_path, { verbose: @verbose }) }
+        dest_path
+      end
+      files
+    end
+  end
+end

data/lib/md2site/listfile.rb

@@ -0,0 +1,22 @@
+module Md2site
+  require "csv"
+
+  class ListFile
+    def initialize(dir, mes)
+      @fname = File.join(dir, LIST_FILE)
+      @mes = mes
+
+      @mes.exc_file_open(@fname) { @csv = CSV.open(@fname, "w", { col_sep: "\t", headers: true }) }
+
+      @csv.add_row([FIELD_FILENMAE, FIELD_DATETIMESTR, FIELD_UNIXTIME, FIELD_MD5])
+    end
+
+    def add(row)
+      @csv.add_row(row)
+    end
+
+    def close
+      @mes.exc_file_close(@fname) { @csv.close }
+    end
+  end
+end