# hangul.perl for hangul.sty
#
# Extension to LaTeX2HTML to translate HLaTeX special
# commands to equivalent HTML commands.

package korean;

print " [korean]";

sub main'korean_translation { @_[0] }

package main;

if (defined &addto_languages) { &addto_languages('korean') };

sub korean_titles {
  $toc_title = "목차";
  $lof_title = "그림 목차";
  $lot_title = "표 목차";
  $idx_title = "찾아보기";
  $ref_title = "참고 문헌";
  $bib_title = "저서 목록";
  $abs_title = "요약";
  $app_title = "부록";
  $pre_title = "서문";
  $foot_title = "주석";
  $thm_title = "정리";
  $fig_name = "그림";
  $tab_name = "표";
  $prf_name = "증명";
  $date_name = "날짜";
  $page_name = "쪽";
  #  Sectioning-level titles
  $part_name = "편";
  $chapter_name = "장";
  $section_name = "절";
  $subsection_name = "항";
  $subsubsection_name = "목";
  $paragraph_name = "단락";
  #  Misc. strings
  $child_name = "딸린 항목";
  $info_title = "이 문서에 대하여 ...";
  $also_name = "도 참고";
  $see_name = "참고";
  #  names in navigation panels
  $next_name = "다음";
  $up_name = "위로";
  $prev_name = "이전";
  #  field names in email headers
  $encl_name = "동봉물";
  $headto_name = "받는이";
  $cc_name = "사본";

  #  $GENERIC_WORDS = "and|the|of|for|by|a|an|to";
}

sub korean_today {
  local($today) = &get_date();
  $today =~ s|0?(\d+)/0?(\d+)/(\d+)|$3년 $1월 $2일|;
  join('',$today,$_[0]);
}

# some tricks to support autojosa
sub pre_pre_process {
  s/\\은/\\josaEUN/gom;
  s/\\는/\\josaNEUN/gom;
  s/\\이/\\josaI/gom;
  s/\\가/\\josaGA/gom;
  s/\\을/\\josaEUL/gom;
  s/\\를/\\josaREUL/gom;
  s/\\와/\\josaWA/gom;
  s/\\과/\\josaGWA/gom;
  s/\\로서/\\josaROSEO/gom;
  s/\\으로서/\\josaEUROSEO/gom;
  s/\\로써/\\josaROSSEO/gom;
  s/\\으로써/\\josaEUROSSEO/gom;
  s/\\로/\\josaRO/gom;
  s/\\으로/\\josaEURO/gom;
}
sub post_post_process {
  $jongRX = "0|3|6|m|n|M|N|쪽";
  $rieulRX = "1|7|8|l|r|L|R";
  s/($jongRX|$rieulRX)(<[^>]+?>)(\]|\))?<_autojosa_EUN_>/$1$2$3은/gom;
  s/($jongRX|$rieulRX)(<[^>]+?>)(\]|\))?<_autojosa_I_>/$1$2$3이/gom;
  s/($jongRX|$rieulRX)(<[^>]+?>)(\]|\))?<_autojosa_WA_>/$1$2$3과/gom;
  s/($jongRX|$rieulRX)(<[^>]+?>)(\]|\))?<_autojosa_EUL_>/$1$2$3을/gom;
  s/($jongRX)(<[^>]+?>)(\]|\))?<_autojosa_RO_>/$1$2$3으로/gom;
  s/<_autojosa_EUN_>/는/gom;
  s/<_autojosa_I_>/가/gom;
  s/<_autojosa_WA_>/와/gom;
  s/<_autojosa_EUL_>/를/gom;
  s/<_autojosa_RO_>/로/gom;
  s/\\josaEUN/\\은/gom;
  s/\\josaNEUN/\\는/gom;
  s/\\josaI/\\이/gom;
  s/\\josaGA/\\가/gom;
  s/\\josaEUL/\\을/gom;
  s/\\josaREUL/\\를/gom;
  s/\\josaWA/\\와/gom;
  s/\\josaGWA/\\과/gom;
  s/\\josaROSEO/\\로서/gom;
  s/\\josaEUROSEO/\\으로서/gom;
  s/\\josaROSSEO/\\로써/gom;
  s/\\josaEUROSSEO/\\으로써/gom;
  s/\\josaRO/\\로/gom;
  s/\\josaEURO/\\으로/gom;
}
sub do_cmd_josaEUN { join '','<_autojosa_EUN_> ',$_[0]; }
sub do_cmd_josaNEUN { &do_cmd_josaEUN(@_); }
sub do_cmd_josaI { join '','<_autojosa_I_> ',$_[0]; }
sub do_cmd_josaGA { &do_cmd_josaI(@_); }
sub do_cmd_josaWA { join '','<_autojosa_WA_> ',$_[0]; }
sub do_cmd_josaGWA { &do_cmd_josaWA(@_); }
sub do_cmd_josaEUL { join '','<_autojosa_EUL_> ',$_[0]; }
sub do_cmd_josaREUL { &do_cmd_josaEUL(@_); }
sub do_cmd_josaRO { join '','<_autojosa_RO_> ',$_[0]; }
sub do_cmd_josaEURO { &do_cmd_josaRO(@_); }
sub do_cmd_josaROSEO { join '','<_autojosa_RO_>서 ',$_[0]; }
sub do_cmd_josaEUROSEO { &do_cmd_josaROSEO(@_); }
sub do_cmd_josaROSSEO { join '','<_autojosa_RO_>써 ',$_[0]; }
sub do_cmd_josaEUROSSEO { &do_cmd_josaROSSEO(@_); }

# other HLaTeX commands and declarations
sub do_cmd_HLaTeX { join('','한<sub>글</sub>',$Laname,$TeXname,$_[0]); }

sub do_cmd_textmj { &do_cmd_textrm(@_); }
sub do_cmd_textgt { &do_cmd_textsf(@_); }
sub do_cmd_texttz { &do_cmd_texttt(@_); }
sub do_cmd_mjfamily { &do_cmd_rm(@_); }
sub do_cmd_mj { &do_cmd_rm(@_); }
$declarations{gtfamily} = $declarations{sffamily};
$declarations{tzfamily} = $declarations{ttfamily};
$declarations{gt} = $declarations{sf};
$declarations{tz} = $declarations{tt};
$fontchange_rx .= '|mj|gt|tz';

&process_commands_wrap_deferred (<<_RAW_ARG_DEFERRED_CMDS_);
mjfamily
gtfamily
tzfamily
mj
gt
tz
_RAW_ARG_DEFERRED_CMDS_

# most of the commands here need some action which is not implemented yet.
&ignore_commands(<<_IGNORED_CMDS_);
make_at_josa # {}
ks_at_num # {}
ksksTHE
kssectionname
_IGNORED_CMDS_

# use'em
&korean_titles;
$default_language = 'korean';
$TITLES_LANGUAGE = 'korean';
$CHARSET = 'EUC-KR';

1; # this must be the last line