KTUGFaq
KTUG FAQ
Your domestic life may be harmonious.
AdobeReader › 占쏙옙占쏙옙占 › ?사랑방 › HA-Prosper&value=ŬͽŸ › Acrobat/Ÿ › LaTeX2Html
hangul.perl ¶
HLaTeX hangul.sty ̿ ڵ ȣǴ ̴. latex2html/styles 丮 hangul.perl̶ ̸ ־ζ.
# 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('','&lt;sub&gt;&lt;/sub&gt;',$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
hangul.sty Ϻθ koreantitle.sty hangul.perl koreantitle.perl
%iconsizes = ... ϸ ߰ϰ(ֳϸ ѱ۷ ٲپŵ) ȴµ ϴ.
ϴ. http://hoze.wowdns.com TeX- ߽ϴ. --hoze
Ʈ ȵǴٰ dz. պҽϴ. ۲ùٲٱ ó(pre_pre_process) óϵ ߰, \today ( ʿ ǰ) ҽϴ. ׳ ξ koreantitle.perl ٽ Ͻô ڽϴ. ˼մϴ. -- DohyunKim
graphicx.perl $COPY_GRAPHICS 1 ϸ ׳ ٷ 縦 ϴ ߴµ
"coundn't copy c:...\\xxx.png..."
̷ ɴϴ.'\\' ̰ մϴ. 齽ð ϳ ; ϴµ پ ϴ.
̰ ذǸ ¿ eps png ʿ ٷ png ֽϴ. Ź帳ϴ.--hoze
ع ãƼ ϴ.
, korean_titles '' '' ٲپ մϴ. ȣ ڷ ƴ϶ '' ´ٰ ϴ. ´ մϴ. --hoze
hangul.sty Ǿ ־ ״ ϴ. Բ ߴٰ װ ڵ ˾Ƽ ϸ ȴٴ 亯 ҽϴ. ϰڽϴ. ˾Ƽ ľ. hangul.perl hangul.sty ϱ ̹Ƿ hangul.sty ۿ ֽñ ٶϴ... LaTeX2Html jpg 켱 ֽŹ(2002-2-1) ġϽð õ ʽÿ. ƹ µ Ƹ ƴѰ մϴ. -- DohyunKim
־ҽϴٸ, մϴ. ϼ ѱ Ȯϴ ˰ Ǵ ڽϴ.
==This is may be interesting==
Now 20050927-092630_123.