#!/usr/bin/env ruby
# encoding: utf-8
#
# Copyright (c) 2010 Kenshi Muto and Masayoshi Takahashi
#
# This program is free software.
# You can distribute or modify this program under the terms of
# the GNU LGPL, Lesser General Public License version 2.1.
# For details of the GNU LGPL, see the file "COPYING".
#

require 'tmpdir'
require 'yaml'
require 'fileutils'

def error(msg)
  $stderr.puts "#{File.basename($0, '.*')}: error: #{msg}"
  exit 1
end

def usage
  $stderr.puts "Usage: #{$0} configfile"
  exit 0
end

def check_book(values)
  pdf_file = values["bookname"]+".pdf"
  if File.exists? pdf_file
    error "file already exists:#{pdf_file}"
  end
end

def build_path(values)
  if values["debug"].nil?
    Dir.mktmpdir+"/#{values["bookname"]}"
  else
    "./#{values["bookname"]}"
  end
end

def main
  usage if ARGV.size != 1

  yamlfile = ARGV[0]
  values = YAML.load_file(yamlfile)
  check_book(values)
  basedir = Dir.pwd
  path = build_path(values)
  bookname = values["bookname"]
  Dir.mkdir(path)

  pre = 0
  body = 0
  post = 0
  @pre_str = ""
  @chap_str = ""
  @post_str = ""
  toccount = 2

  if File.exists?("PREDEF")
    File.open("PREDEF") {|chaps|
      chaps.each_line {|l|
        next if l =~ /^#/
        pre = pre + 1
        toccount = toccount + 1
        fork {
          STDOUT.reopen("#{path}/pre#{pre}.tex")
          exec("review-compile --target=latex --level=1 #{values["params"]} #{l}")
        }
        Process.waitall
        @pre_str << %Q|\\input{pre#{pre}.tex}\n|
      }
    }
  end
  if File.exists?("CHAPS")
    File.open("CHAPS") {|chaps|
      chaps.each_line {|l|
        body = body + 1
        toccount = toccount + 1
        next if l =~ /^#/
        fork {
          STDOUT.reopen("#{path}/chap#{body}.tex")
          exec("review-compile --target=latex --level=#{values["secnolevel"]} #{values["params"]} #{l}")
        }
        Process.waitall
        @chap_str << %Q|\\input{chap#{body}.tex}\n|
      }
    }
  end
  if File.exists?("POSTDEF")
    File.open("POSTDEF") {|chaps|
      chaps.each_line {|l|
        next if l =~ /^#/
        post = post + 1
        toccount = toccount + 1
        fork {
          STDOUT.reopen("#{path}/post#{post}.tex")
          exec("review-compile --target=latex --level=1 #{values["params"]} #{l}")
        }
        Process.waitall
        @post_str << %Q|\\input{post#{post}.tex}\n|
      }
    }
  end
  values["pre_str"] = @pre_str
  values["chap_str"] = @chap_str
  values["post_str"] = @post_str

  values["usepackage"] = ""
  if values["texstyle"]
    values["usepackage"] = "\\usepackage{#{values['texstyle']}}"
  end

  copy_images("./images", "#{path}/images")
  copyStyToDir(Dir.pwd + "/sty", path)

  Dir.chdir(path) {
    template = get_template(values)
    File.open("./book.tex", "wb"){|f| f.write(template)}
   
    ## do compile
    fork {
      exec("platex book.tex")
    }
    Process.waitall
    fork {
      exec("platex book.tex")
    }
    Process.waitall
    fork {
      exec("dvipdfmx -d 5 book.dvi")
    }
    Process.waitall
  }
  FileUtils.cp("#{path}/book.pdf", "#{basedir}/#{bookname}.pdf")

end

def copy_images(from, to)
  if File.exist?(from)
    Dir.mkdir(to)
    copyImagesToDir(from, to)
    Dir.chdir(to) {
      fork {
        exec("ebb *.png *.jpg")
      }
    }
  Process.waitall
  end
end

def get_template(values)
  str = <<EOB
\\documentclass[oneside]{jsbook}
\\usepackage[deluxe]{otf}
\\usepackage[dvipdfmx]{color}
\\usepackage[dvipdfmx]{graphicx}
\\usepackage{framed}
\\usepackage{wrapfig}
\\definecolor{shadecolor}{gray}{0.9}
\\definecolor{shadecolorb}{gray}{0.1}

\\usepackage[utf8]{inputenc}

\\usepackage{jumoline}

\\usepackage{ascmac}

\\usepackage{float}
\\usepackage{alltt}

\\newenvironment{shadedb}{%
  \\def\\FrameCommand{\\fboxsep=\\FrameSep \\colorbox{shadecolorb}}%
  \\MakeFramed {\\FrameRestore}}%
 {\\endMakeFramed}


\\usepackage[top=10zw,bottom=12zw,left=10zw,right=10zw]{geometry}
%\\usepackage[top=5zw,bottom=5zw,left=1zw,right=1zw]{geometry}


\\newcommand{\\parasep}{\\vspace*{3zh}}
\\setlength{\\footskip}{30pt}

\\usepackage[dvipdfm,bookmarks=true,bookmarksnumbered=true,colorlinks=true,%
            pdftitle={#{values["booktitle"]}},%
            pdfauthor={#{values["aut"]}}]{hyperref}

%% Bookmarkの文字化け対策（日本語向け）
\\ifnum 46273=\\euc"B4C1 % 46273 == 0xB4C1 == 漢(EUC-JP)
  \\AtBeginDvi{\\special{pdf:tounicode EUC-UCS2}}%
\\else
  \\AtBeginDvi{\\special{pdf:tounicode 90ms-RKSJ-UCS2}}%
\\fi

\\newenvironment{reviewimage}{%
  \\begin{figure}[H]
    \\begin{center}}{%
    \\end{center}
  \\end{figure}}

\\newenvironment{reviewdummyimage}{%
  \\begin{figure}[H]
    \\begin{center}}{%
    \\end{center}
  \\end{figure}}

\\newenvironment{reviewemlist}{%
  \\medskip\\small\\begin{shaded}\\setlength{\\baselineskip}{1.3zw}}{%
  \\end{shaded}}

\\newenvironment{reviewlist}{%
  \\begin{shaded}\\small\\setlength{\\baselineskip}{1.3zw}}{%
  \\end{shaded}\\par\\vspace*{0.5zw}}

\\newenvironment{reviewcmd}{%
  \\color{white}\\medskip\\small\\begin{shadedb}\\setlength{\\baselineskip}{1.3zw}}{%
  \\end{shadedb}}

\\newenvironment{reviewtable}[1]{%
  \\begin{center}\\small\\setlength{\\baselineskip}{1.2zw}
    \\begin{tabular}{#1}}{%
    \\end{tabular}
  \\end{center}}

\\newenvironment{reviewcolumn}{%
     \\begin{framed}
   }{%
      \\end{framed}
  \\vspace{2zw}}

\\newcommand{\\reviewcolumnhead}[2]{%
{\\noindent\\large ■コラム: #2}}

\\newcommand{\\reviewtablecaption}[1]{%
  \\caption{#1}}

\\newcommand{\\reviewbackslash}[0]{%
  \\textbackslash{}}

\\newcommand{\\reviewlistcaption}[1]{%
  \\medskip{\\small\\noindent #1}\\vspace*{-1.3zw}}

\\newcommand{\\reviewimageref}[1]{%
  図 #1}
\\newcommand{\\reviewtableref}[1]{%
  表 #1}
\\newcommand{\\reviewlistref}[1]{%
  リスト #1}

\\newcommand{\\reviewminicolumntitle}[1]{%
  {\\large ■メモ：#1}\\\\}

\\newenvironment{reviewminicolumn}{%
  \\vspace{1.5zw}\\begin{screen}}{%
  \\end{screen}\\vspace{2zw}}

\\newcommand{\\reviewkw}[1]{%
  \\textbf{\\textgt{#1}}}

\\newcommand{\\reviewtitlefont}[0]{%
  \\usefont{T1}{phv}{b}{n}\\gtfamily}

\\newcommand{\\reviewmainfont}[0]{%
 }

#{values["usepackage"]}

\\usepackage[T1]{fontenc}

\\begin{document}

\\reviewmainfont

\\begin{titlepage}
EOB
  if values["coverimage"]
    str += <<EOB
  \\begin{center}
    \\mbox{}\\vskip5zw%
    \\includegraphics[scale=1.0]{./images/#{values["coverimage"]}}
  \\end{center}
  \\clearpage
EOB
  end
  str += <<EOB
\\thispagestyle{empty}
\\begin{center}%
  \\mbox{} \\vskip5zw
   \\reviewtitlefont%
    {\\Huge #{values["booktitle"]} \\par}%
    \\vskip 15em%
    {\\huge
      \\lineskip .75em
      \\begin{tabular}[t]{c}%
        #{values["aut"]}\\vspace*{1zh} 著
      \\end{tabular}\\par}%
    \\vfill
    {\\large #{values["date"]} 版\\hspace{2zw}#{values["prt"]}　発行\\par}%
\\vskip4zw\\mbox{}
  \\end{center}%
\\end{titlepage}

\\renewcommand{\\chaptermark}[1]{{}}
\\frontmatter

%% preface
#{values["pre_str"]}

\\tableofcontents

\\renewcommand{\\chaptermark}[1]{\\markboth{\\prechaptername\\thechapter\\postchaptername~#1}{}}
\\mainmatter

#{values["chap_str"]}

\\renewcommand{\\chaptermark}[1]{\\markboth{\\appendixname\\thechapter~#1}{}}
\\appendix

#{values["post_str"]}

%% okuduke
\\backmatter
\\clearpage
\\thispagestyle{empty}

\\vspace*{\\fill}

{\\noindent\\reviewtitlefont\\Large #{values["booktitle"]}} \\\\
\\rule[8pt]{14cm}{1pt} \\\\
{\\noindent
#{values["pubhistory"].to_s.gsub(/\n/){"\n\n\\noindent"} }
}

\\begin{tabular}{ll}
著　者 & #{values["aut"]} \\\\
編集者 & #{values["edt"]} \\\\
発行所 & #{values["prt"]} \\\\
\\end{tabular}
　\\\\
\\rule[0pt]{14cm}{1pt} \\\\
#{values["rights"]} \\\\

\\end{document}

EOB
end

def copyImagesToDir(dirname, copybase)
  Dir.open(dirname) {|dir|
    dir.each {|fname|
      next if fname =~ /^\./
      if FileTest.directory?("#{dirname}/#{fname}")
        copyImagesToDir("#{dirname}/#{fname}", "#{copybase}/#{fname}")
      else
        if fname =~ /\.(png|gif|jpg|jpeg|svg)$/i
          Dir.mkdir(copybase) unless File.exist?(copybase)
          FileUtils.cp "#{dirname}/#{fname}", copybase
        end
      end
    }
  }
end

def copyStyToDir(dirname, copybase)
  Dir.open(dirname) {|dir|
    dir.each {|fname|
      next if fname =~ /^\./
      if fname =~ /\.(sty)$/i
        Dir.mkdir(copybase) unless File.exist?(copybase)
        FileUtils.cp "#{dirname}/#{fname}", copybase
      end
    }
  }
end


main