%% -*- TeX -*-
%%
%% This is `hfont.tex' written by zraun01@hpserv.zdv.uni-tuebingen.de.
%%
%% ÀÌ ÆÄÀÏÀº ¿ì¸®¸»À» \TeX¿¡¼­ »ç¿ëÇÏ´Âµ¥ ÇÊ¿äÇÑ KS5601ÄÚµåÀÇ ±Û²ÃÁ¤ÀÇ¿¡
%% ±× ¿ªÇÒÀ» µÎ°í ÀÖÀ¾´Ï´Ù. ÇÑ±ÛÀÇ ±Û²ÃÀº \LaTeX2eÀÇ NFSS2(New Font
%% Selection Scheme2)¿¡ ÀÇÇØ ¼±ÅÃµÇ´Âµ¥, ÀÏ¹ÝÀÇ ÇÑ±Û¹®¼­¿Í´Â ´Þ¸®
%% ¹®¼­¿¡ ÇÑ±Û±Û²Ã¸¸ Æ÷ÇÔÇÏ±â À§ÇØ¼­´Â ´Üµ¶À¸·Î »ç¿ëµÉ ¼ö ÀÖÀ¾´Ï´Ù.
%%
%% \LaTeX3´Â ¾ÆÁ÷µµ ¹ßÇ¥µÇÁö ¾Ê°í ÀÖÀ¾´Ï´Ù. ±×·¯³ª \LaTeX2e°¡ ÇöÀç
%% \LaTeX3°¡ ³ª¿À±â Àü±îÁö standard \LaTeXÀ¸·Î »ç¿ëµÇ°í ÀÖÀ¸¹Ç·Î
%% ¿ì¸®´Â ÇÑ±Û¹®¼­ÀÛ¼º½Ã \LaTeX2e¸¦ »ç¿ëÇÏ´Â °ÍÀ¸·Î ±ÔÁ¤ÇÕ´Ï´Ù.
%%

\NeedsTeXFormat{LaTeX2e}
\def\filedate{1996/04/04}
\def\fileversion{0.95}
\def\filename{hfont.tex}

\typeout{Hangul/Hanja/Hsymbol Font Definition `\filename' <\filedate>}

%% 0.95 scheme

\newcount\ksc@shape \newcount\ks@break \ks@break=999

%%%% From File: ltxref.dtx
\def\@setref#1#2#3{%
  \let\protect\relax
  \ifx#1\relax
   \protect\G@refundefinedtrue
   \nfss@text{\reset@font\bfseries ??}%
   \@latex@warning{Reference `#3' on page \thepage \space
             undefined}%
  \else
   \expandafter#2#1\null
  \fi}
\def\ref#1{\let\protect\string
        \expandafter\@setref\csname r@#1\endcsname\@firstoftwo{#1}}
\def\pageref#1{\let\protect\string
        \expandafter\@setref\csname r@#1\endcsname\@secondoftwo{#1}}
\def\@newl@bel#1#2#3{%
  \@ifundefined{#1@#2}%
    \relax
    {\gdef \@multiplelabels {%
       \@latex@warning@no@line{There were multiply-defined labels}}%
     \@latex@warning@no@line{Label `#2' multiply defined}}%
  \global\@namedef{#1@#2}{#3}\let\protect\@typeset@protect}
\def\newlabel{\let\protect\string\@newl@bel r}%

%% BibTeX
\def\bibcite{\let\protect\string\@newl@bel b}
\def\@citex[#1]#2{\let\protect\string%
  \let\@citea\@empty
  \@cite{\@for\@citeb:=#2\do
    {\@citea\def\@citea{,\penalty\@m\ }%
     \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}%
     \if@filesw\immediate\write\@auxout{\string\citation{\@citeb}}\fi
     \let\protect\@typeset@protect
     \@ifundefined{b@\@citeb}{\mbox{\reset@font\bfseries ?}%
       \G@refundefinedtrue
       \@latex@warning
         {Citation `\@citeb' on page \thepage \space undefined}}%
       {\hbox{\csname b@\@citeb\endcsname}}}}{#1}%
       \let\protect\@typeset@protect}
\def\nocite#1{\@bsphack\let\protect\string%
  \@for\@citeb:=#1\do{%
    \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}%
    \if@filesw\immediate\write\@auxout{\string\citation{\@citeb}}\fi
    \let\protect\relax
    \@ifundefined{b@\@citeb}{\G@refundefinedtrue
        \@latex@warning{Citation `\@citeb' undefined}}{}}%
  \@esphack}

%%% From File: lterror.dtx
\def\@latex@warning@no@line#1{%
   \let\protect\relax\@latex@warning{#1\@gobble}}

%%% From File: ltmiscen.dtx
\def\centering{\ks@break\@m%
  \let\\\@centercr\rightskip\@flushglue\leftskip\@flushglue
  \parindent\z@\parfillskip\z@skip}
\def\raggedright{\ks@break\@m%
  \let\\\@centercr\@rightskip\@flushglue \rightskip\@rightskip
  \leftskip\z@skip
  \parindent\z@}
\def\raggedleft{\ks@break\@m%
  \let\\\@centercr\rightskip\z@skip\leftskip\@flushglue
  \parindent\z@\parfillskip\z@skip}

%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% ¿ì¸®¸» ±Û²ÃÀÇ Á¤ÀÇ %%%
%%%%%%%%%%%%%%%%%%%%%%%%%%

%%
%% EUC
%%

\def\reserved@a#1#2{%
  \@tempcnta#1\relax
  \@tempcntb#2\relax
  \reserved@b
}

\def\reserved@b{%
  \ifnum\@tempcnta>\@tempcntb\else
    \reserved@c\@tempcnta
    \advance\@tempcnta\@ne
    \expandafter\reserved@b
  \fi
}

\def\reserved@c#1{%
  \uccode#1=#1
  \lccode#1=#1
  \catcode#1=\active
}

\reserved@a{`¡}{`ÿ}

%%%%%%%%%%%%%%%%%%%%%%%%
%% ¿ì¸®¸» ±Û²Ã ¸ÅÅ©·Î %%
%%%%%%%%%%%%%%%%%%%%%%%%

%%
%% ¿ì¸®¸»ÀÇ encoding
%% -----------------
%% Æ÷½ºÆ®½ºÅ©¸³Æ®±Û²ÃÀº ´Ù¸¥ ÁýÀÇ ½Ä¼Ö·Î ÇÕ´Ï´Ù.
%%

\if@pshan
   \def\h@ngulencoding{\h@ngulf@nt\fontencoding{U}\fontfamily{phangul}}
   \def\h@njaencoding{\h@ngulf@nt\fontencoding{U}\fontfamily{phanja}}
%   \def\hsymb@lenc@ding{\h@ngulf@nt\fontencoding{U}\fontfamily{phsymb}}
   \def\hsymb@lenc@ding{\h@ngulf@nt\fontencoding{U}\fontfamily{hsymbol}}
\else
   \def\h@ngulencoding{\h@ngulf@nt\fontencoding{U}\fontfamily{hangul}}
   \def\h@njaencoding{\h@ngulf@nt\fontencoding{U}\fontfamily{hanja}}
   \def\hsymb@lenc@ding{\h@ngulf@nt\fontencoding{U}\fontfamily{hsymbol}}
\fi

%%
%% ¿ì¸®¸» ±â¿ïÀÌ±â
%% ---------------
%%

\def\h@slshape{}

\let\@upshape\upshape
\def\upshape{\@upshape\def\h@slshape{}}
\let\@slshape\slshape
\def\slshape{\@slshape\def\h@slshape{sl}}
\let\@scshape\scshape
\def\scshape{\@scshape\def\h@slshape{}}
\let\@itshape\itshape
\def\itshape{\@itshape\def\h@slshape{sl}}

%%
%% ¿ì¸®¸»ÀÇ µÎ²²
%% -------------
%% ¿©±â¿¡ \if@KSCbold¸¦ ÓôìýÇÏ¿© KSC±Û²ÃÀÇ ÌÑéç´Â mdseriesÀÇ ±Û²ÃÀ»
%% ¼¼¹ø printoutÇÔÀ¸·Î¼­ bfseriesÀÇ üùÍý¸¦ ³ªÅ¸³ª°Ô ÇÕ´Ï´Ù.
%% ÇÑ±Û Æ÷½ºÆ®½ºÅ©¸³Æ® ±Û²ÃÀ» ÞÅéÄÇÒ ÌÑéç¿¡µµ ÀÌ·± üùÍý¸¦ ¾òÁö ¸øÇÏ¸é
%% ±Û¾¾°¡ ³Ê¹« °¡´Ã°Ô ÇÁ¸°Æ® µÇ´Â °ÍµéÀÌ ÀÖÀ¾´Ï´Ù. -- Ù¥ðÈô÷(ÇÑ±Û,ùÓí®)
%% ÀÌ·± ±Û²ÃµéÀº ´çºÐ°£ ÞÅéÄÀ» ¾Êµµ·Ï ÇÏ°í ÀÖÀ¾´Ï´Ù.
%%
\newif\if@KSCbold
\if@makebold
  \renewcommand\bfseries
        {\not@math@alphabet\bfseries\mathbf
         \@KSCboldtrue\fontseries\bfdefault\selectfont}
  \renewcommand\mdseries
        {\not@math@alphabet\mdseries\relax
         \@KSCboldfalse\fontseries\mddefault\selectfont}

  \def\h@C#1{\fontseries{m}\selectfont\@Hyphen%
            \sfcode#1=\ks@break\if@KSCbold%
              \char#1\hbox to0.03ex{\hss\char#1}\hbox to0.03ex{\hss\char#1}%
            \else\char#1\fi}
\else
  \@KSCboldfalse
  \def\h@C#1{\ifnum\ksc@shape>\thr@@\fontseries{bx}\fi%
            \selectfont\@Hhyphen\sfcode#1=\ks@break\char#1}
\fi

%%
%% Àü¹®¼­ÀÇ ÇÑ±Û ±Û²Ã
%% ------------------
%% ¾Æ¹«°Íµµ ÁöÁ¤ÇÏÁö ¾ÊÀ¸¸é \¸íÁ¶(\mj)°¡ µË´Ï´Ù.
%%
\DeclareRobustCommand{\normalh@ngul}{\if@makebold\@KSCboldfalse\fi
  \h@nguldefault}

\def\mjdefault{\def\h@nguldefault{\ksc@shape=\z@}}
\def\gtdefault{\def\h@nguldefault{\ksc@shape=\@ne}}
\def\gsdefault{\def\h@nguldefault{\ksc@shape=\tw@}}
\def\grdefault{\def\h@nguldefault{\ksc@shape=4}}
\def\mgdefault{\def\h@nguldefault{\ksc@shape=5}}
\mjdefault
\def\drdefault{}
\def\pgdefault{}

%%
%% ¿ì¸®¸»ÀÇ ±Û²Ã ¹Ù²Ù±â
%% --------------------
%%
\def\h@ngulf@nt{\h@nguldefault}
\def\mj{\def\h@ngulf@nt{\ksc@shape=\z@}}
\def\gt{\def\h@ngulf@nt{\ksc@shape=\@ne}}
\def\gs{\def\h@ngulf@nt{\ksc@shape=\tw@}}
\def\ol{\def\h@ngulf@nt{\ksc@shape=\thr@@}}
\def\gr{\def\h@ngulf@nt{\ksc@shape=4}}
\def\mg{\def\h@ngulf@nt{\ksc@shape=5}}
\def\yt{\def\h@ngulf@nt{\ksc@shape=6}}
\def\mjb{\mj\bf}
\def\dr{}
\def\pg{}
\def\gj{}

\def\°íµñ {\gt}                     %°íµñ
\def\±#1#2#3 {\ifx#1×\gr\else\gs\fi}%±×·¡ÇÈ,±Ã¼­
\def\¸#1#2#3 {\ifx#1í\mj\else\mg\fi}%¸íÁ¶,¸ñ°¢
\def\¿#1#2#3 {\ifx#1¾\yt\else\ol\fi}%¿¾±Û,¿Ü°û

%%
%% ¿ì¸®¸»ÀÇ ºÐÃ¶
%% -------------
%% ¿ì¸®¸»Àº \hyphenchar°¡ ¾ø°í ¾î´À °÷¿¡¼­³ª ÝÂôÎÀÌ
%% Ê¦ÒöÇÕ´Ï´Ù. ÀÏ´Ü ¿ì¸®´Â ÇÑ±ÛÀÇ ÝÂôÎÀ» ¾ïÁ¦ÇÏ°í
%% (\hyphenchar\font\m@ne) ÇÑ±ÛÀÇ »çÀÌ¿¡ \hskip 0pt plus 0pt¸¦
%% ßºìýÇÔÀ¸·Î¼­ ÝÂôÎÀ» Ê¦ÒöÇÏ°Ô ÇÕ´Ï´Ù.
%%

\def\@Hyphen{\ifhmode\ifnum\spacefactor=999\hskip\z@skip\fi\fi}
\def\noHyphen{}%% Compatibility

%%
%% ¿ì¸®¸» Ã£±â
%% -----------
%%
\newif\if@KSCbold
\if@makebold
  \renewcommand\bfseries
        {\not@math@alphabet\bfseries\mathbf
         \@KSCboldtrue\fontseries\bfdefault\selectfont}
  \renewcommand\mdseries
        {\not@math@alphabet\mdseries\relax
         \@KSCboldfalse\fontseries\mddefault\selectfont}

  \def\ÿ#1#2{\begingroup
    \@tempcnta`#1
    \ifnum\@tempcnta<201\h@ngulencoding\advance\@tempcnta-`°
    \else\h@njaencoding\advance\@tempcnta-`Ê
      \ifnum\ksc@shape>\@ne
        \ifnum\ksc@shape>\thr@@\ksc@shape=\@ne
        \else\ksc@shape=\z@
    \fi\fi\fi
    \@tempcntb`#2\advance\@tempcntb-`¡\multiply\@tempcnta`^
    \advance\@tempcnta\@tempcntb\divide\@tempcnta\@cclvi
    \fontshape{\ifcase\ksc@shape mj\or gt\or gs\or ol\or gr\or mg\or
    yt\fi\h@slshape\ifcase\@tempcnta A\or B\or C\or D\or E\or F\or G\or
    H\or I\or J\or K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\fi}%
    \fontseries{m}\selectfont\sfcode`#2=\ks@break\@Hyphen
    \string#1\string#2\if@KSCbold
      \setbox\@tempboxa\hbox{\string#1\string#2}%
      \hbox to0.03ex{\hss\copy\@tempboxa}%
      \hbox to0.03ex{\hss\box\@tempboxa}\fi
    \endgroup}
\else
  \def\ÿ#1#2{\begingroup
    \@tempcnta`#1
    \ifnum\@tempcnta<201\h@ngulencoding\advance\@tempcnta-`°
    \else\h@njaencoding\advance\@tempcnta-`Ê
      \ifnum\ksc@shape>\@ne
        \ifnum\ksc@shape>\thr@@\ksc@shape=\@ne
        \else\ksc@shape=\z@
    \fi\fi\fi
    \@tempcntb`#2\advance\@tempcntb-`¡\multiply\@tempcnta`^
    \advance\@tempcnta\@tempcntb\divide\@tempcnta\@cclvi
    \fontshape{\ifcase\ksc@shape mj\or gt\or gs\or ol\or gr\or mg\or
    yt\fi\h@slshape\ifcase\@tempcnta A\or B\or C\or D\or E\or F\or G\or
    H\or I\or J\or K\or L\or M\or N\or O\or P\or Q\or R\or S\or T\fi}%
    \ifnum\ksc@shape=\tw@@\fontseries{bx}\fi
    \ifnum\ksc@shape>4\fontsereies{bx}\fi\selectfont
    \sfcode`#2=\ks@break\@Hyphen\string#1\string#2%
    \endgroup}
\fi

%% ÇÑ±Û, ùÓí®

\defÉ#1{\def#1##1{%
  \ifx\protect\@typeset@protect\ÿ#1##1\else\string#1\string##1\fi}}

%% °í¾î, Çö´ë¾î, ½É¹ú

\def­#1{\def#1##1{%
    \ifx\protect\@typeset@protect
      \@tempcnta`#1\advance\@tempcnta-`¡\relax\csname
      H@nSym\ifcase\@tempcnta A\or B\or C\or D\or\or\or\or
      H\or I\or J\or K\or L\fi\endcsname{`##1}%
    \else\string#1\string##1\fi}}

\def\@bad@hsymbol{%
  \GenericError{%
      \space\space\space\@spaces\@spaces\@spaces
    }{%
      HLaTeX Error: KSC Symbol on line \the\inputlineno \space not available%
    }{%
      See HLaTeX guide for valid input symbols.%
    }{\@ehc}}
\def\H@nSym#1{\@bad@hsymbol}

\def\hsK@shape{\fontshape{mjK}}

\DeclareRobustCommand{\H@nSymA}[1]{%
\@tempcnta#1\relax
\ifnum\@tempcnta>177
  \ifnum\@tempcnta<190 \advance\@tempcnta54
    \ifodd\@tempcnta\spacefactor\@m\relax\else\ks@break\@m\fi
  \else \ifnum\@tempcnta>204
          \ifnum\@tempcnta<208 \advance\@tempcnta39
          \else \ifnum\@tempcnta=216 \@tempcnta247
                \else\@tempcnta\@m\fi
          \fi
        \else\@tempcnta\@m\fi
  \fi
\else\@tempcnta\@m\fi
\ifnum\@tempcnta=\@m\@bad@hsymbol
\else{\hsymb@lenc@ding\hsK@shape\h@C\@tempcnta}\fi\ks@break=999}

\DeclareRobustCommand{\H@nSymB}[1]{%
\@tempcnta#1\relax
\ifnum\@tempcnta=182 \@tempcnta248
\else \ifnum\@tempcnta>204
        \ifnum\@tempcnta<210 \advance\@tempcnta44
        \else \ifnum\@tempcnta>221
                \ifnum\@tempcnta<224 \advance\@tempcnta32
                \else\@tempcnta\@m\fi
              \else\@tempcnta\@m\fi
        \fi
      \else\@tempcnta\@m\fi
\fi
\ifnum\@tempcnta=\@m \@bad@hsymbol
\else{\hsymb@lenc@ding\hsK@shape\h@C\@tempcnta}\fi}

\DeclareRobustCommand{\H@nSymC}[1]{%
\@tempcnta#1\relax
\ifnum\@tempcnta=220%
{\hsymb@lenc@ding\hsK@shape\h@C51}
\else\@bad@hsymbol\fi}

\DeclareRobustCommand{\H@nSymD}[1]{%Jaso
\@tempcnta#1\relax
\advance\@tempcnta-161%
{\hsymb@lenc@ding\hsK@shape\h@C\@tempcnta}}

\DeclareRobustCommand{\H@nSymH}[1]{%
\@tempcnta#1\relax
\ifnum\@tempcnta>176
  \ifnum\@tempcnta<246 \advance\@tempcnta-83
  \else\@tempcnta\@m\fi
\else\@tempcnta\@m\fi
\ifnum\@tempcnta=\@m \@bad@hsymbol
\else{\hsymb@lenc@ding\hsK@shape\h@C\@tempcnta}\fi}

\DeclareRobustCommand{\H@nSymI}[1]{%
\@tempcnta#1\relax
\ifnum\@tempcnta>176
  \ifnum\@tempcnta<246 \advance\@tempcnta-14
  \else\@tempcnta\@m\fi
\else\@tempcnta\@m\fi
\ifnum\@tempcnta=\@m \@bad@hsymbol
\else{\hsymb@lenc@ding\hsK@shape\h@C\@tempcnta}\fi}

\def\hsJ@shape{\fontshape{mjJ}}

\DeclareRobustCommand{\H@nSymJ}[1]{%Hiragana
\@tempcnta#1\relax
\advance\@tempcnta-162
{\hsymb@lenc@ding\hsJ@shape\h@C\@tempcnta}}

\DeclareRobustCommand{\H@nSymK}[1]{%Katagana
\@tempcnta#1\relax
\advance\@tempcnta-79
{\hsymb@lenc@ding\hsJ@shape\h@C\@tempcnta}}

\DeclareRobustCommand{\H@nSymL}[1]{%Russian
\@tempcnta#1\relax
\advance\@tempcnta 8
\ifnum\@tempcnta>215 \advance\@tempcnta-15\fi
{\hsymb@lenc@ding\hsJ@shape\h@C\@tempcnta}}

%% ÜâÖåÀÌ ã·íÂµË´Ï´Ù.

­¡­¢­£­¤­¥­¦­§­¨­©­ª­«­¬
É°É±É²É³É´ÉµÉ¶É·É¸É¹ÉºÉ»É¼É½É¾É¿ÉÀÉÁÉÂÉÃÉÄÉÅÉÆÉÇÉÈÉÊ
ÉËÉÌÉÍÉÎÉÏÉÐÉÑÉÒÉÓÉÔÉÕÉÖÉ×ÉØÉÙÉÚÉÛÉÜÉÝÉÞÉßÉàÉáÉâÉãÉä
ÉåÉæÉçÉèÉéÉêÉëÉìÉíÉîÉïÉðÉñÉòÉóÉôÉõÉöÉ÷ÉøÉùÉúÉûÉüÉýÉþ

%%
%% End of file `hfont.tex'.

%%% Local Variables: 
%%% mode: plain-tex
%%% TeX-master: t
%%% End: 
