%% -*- 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: 
