%<font>
% This is `syshfont.tex' modified by sysim@hallym.ac.kr form
% hfont.tex written by koaunghi.un@student.uni-tuebingen.de.
%
% �� ������ �츮���� \TeX���� ����ϴµ� �ʿ��� KS X 1001 ��ȣ��
% ����ü ���ǿ� �� ������ �ΰ� �ִ�.  �츮�� ����ü�� \LaTeX2e��
% NFSS2(New Font Selection Scheme2)�� �ѱ�ȭ�� HFSS�� ���� ���õǸ�,
% �Ϲ��� �ѱ۹����ʹ� �޸� ������ �츮�� ����ü�� �����ϱ� ���ؼ���
% �� ������ �ܵ����� ���� �� �ִ�.

\ProvidesFile{syshfont.tex}[2000/05/19]

% beta scheme

\begingroup
\def\reserved@a{}\count@="0A1
\loop\ifnum\count@<\@cclvi
  \edef\reserved@a{\reserved@a \sfcode\the\count@=\@m}%
  \advance\count@ by1
\repeat
\global\let\ks@break\reserved@a
\endgroup

% �츮�� ��ȣ�� ���� (KSC5601)
% ----------------------------
% �츮����ȣ�� ��� TeX�� ���������� ó���ȴ�.
\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
  \sfcode#1=999
  \catcode#1=\active}
\reserved@a{"0A0}{"0FF}

\begingroup
\def\ksc@code{\ifnum\count@<"0FF
  \edef\reserved@a{\reserved@a \catcode\the\count@=\the\@tempcnta}
  \advance\count@ by1
  \else\let\next\relax \fi\next}
\@tempcnta13
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscactive\reserved@a
\@tempcnta12
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscother\reserved@a
\@tempcnta11
\def\reserved@a{}\count@="0A1\let\next\ksc@code \ksc@code
\global\let\makekscletter\reserved@a
\endgroup

% �츮���� ��ö:
% --------------
% �츮���� \hyphenchar�� ���� ��� �������� ������ ʦ���ϴ�. �׷��Ƿ�
% �ϴ� ����ü ��ü������ ������ �����ϰ� (\hyphenchar\font\m@ne)
% �츮�� ���̿� \hskip 0pt plus 0pt�� ߺ�������μ� ������ ʦ���ϰ� �Ѵ�.
%
\def\@Hyphen{\ifhmode\ifnum\spacefactor=999\hskip\z@skip\fi\fi}

% �츮���� ����ü �ٲٱ�:
% -----------------------
% �츮���� ����ü������ ������ ���� �׸��� Ÿ���� 3������ �⺻����
% �Ѵ�. ����(\textmj)�� ����(\textgt)�� ���� ������ \textrm��
% \textsf�� �ش��ϰ� Ÿ��(\texttz)�� ������ \texttt�� ����.
\DeclareTextFontCommand{\textmj}{\mjfamily}
\DeclareTextFontCommand{\textgt}{\gtfamily}
\DeclareTextFontCommand{\texttz}{\tzfamily}

% �츮������ü������ ����, ����, Ÿ���� �������� �ְ� ������ ����
% ����� �����Ѵ�. \rmfamily=����, \sffamily=����, \ttfamily=����.
\expandafter\def\expandafter\rmfamily\expandafter{\rmfamily
         \not@math@alphabet\mjfamily\mathmj
         \hfontfamily\mjdefault}
\let\mjfamily\rmfamily
\expandafter\def\expandafter\sffamily\expandafter{\sffamily
         \not@math@alphabet\gtfamily\mathgt
         \hfontfamily\gtdefault}
\let\gtfamily\ttfamily
\expandafter\def\expandafter\ttfamily\expandafter{\ttfamily
         \not@math@alphabet\gtfamily\mathgt
         \hfontfamily\gtdefault\ks@break}
\let\tzfamily\ttfamily

% ���ǻ� ������ ���� �����ٲ޸����ɵ� �����ȴ�. (�׷���, �ü�,
% �ʱ�, �ܰ�, ������, ��, ����, ���۾� �� ��۾�)  �� ��� ���ɵ���
% ������ �⵿��Ͽ� ���ϹǷ� �ǵ��� ���� �ʵ��� �Ѵ�.
\DeclareRobustCommand\grfamily{\hfontfamily{gr}}
\DeclareRobustCommand\gsfamily{\hfontfamily{gs}}
\DeclareRobustCommand\pgfamily{\hfontfamily{pg}}
\DeclareRobustCommand\mgfamily{\hfontfamily{mg}}
\DeclareRobustCommand\ytfamily{\hfontfamily{yt}}
\DeclareRobustCommand\bmfamily{\hfontfamily{bm}}
\DeclareRobustCommand\pnfamily{\hfontfamily{pn}}
\let\smfamily\mjfamily
\let\olfamily\mjfamily
\DeclareTextFontCommand{\textgr}{\grfamily}
\DeclareTextFontCommand{\textgs}{\gsfamily}
\DeclareTextFontCommand{\textpg}{\pgfamily}
\DeclareTextFontCommand{\textmg}{\mgfamily}
\DeclareTextFontCommand{\textyt}{\ytfamily}
\DeclareTextFontCommand{\textbm}{\bmfamily}
\DeclareTextFontCommand{\textpn}{\pnfamily}
\let\textsm\textmj
\let\textol\textmj

% LaTeX209���� ����ü �ٲ� ��� ������ �⺻ ����ü�� �ش��ϴ� ���ɸ�
% �����Ѵ�.
\DeclareOldFontCommand{\mj}{\normalhfont\mjfamily}{\@nomath\mj}
\DeclareOldFontCommand{\gt}{\normalhfont\gtfamily}{\@nomath\gt}
\DeclareOldFontCommand{\tz}{\normalhfont\tzfamily}{\@nomath\tz}

% �츮���� ����ü �ʱ�ȭ�� ��ȣȭ�� �������� �ʱⰪ���� �ٲ۴�.
\DeclareRobustCommand\normalhfont
                 {\hfontencoding\hencodingdefault%
                  \hfontfamily\hfamilydefault%
                  \kscfamily\symboldefault\hanguldefault\hanjadefault}

% \normalfont�� ������ �Բ� �츮���� �ʱ�ȭ��Ų��.
\expandafter\def\expandafter\normalfont\expandafter
  {\normalfont\protect\normalhfont}
\let\reset@font\normalfont

% ���� ��� \usefont�� ��ȣȭ�� �츮���� ���, �츮���� �ٷ絵�� �Ѵ�.
\def\usefont#1#2#3#4{\if\hf@encoding#1%
    \hfontencoding{#1}\hfontfamily{#2}\else
    \fontencoding{#1}\fontfamily{#2}\fi\fontseries{#3}%
    \fontshape{#4}\selectfont\ignorespaces}

% �츮���� ������ȹ:
% ------------------
% �� �츮���� ���ڵ�:
%    �츮���� ������ �ٸ���, �� ����Ʈ�� �ѱ��ڸ� ��ȣȭ�ϹǷ� ������
%    ��ȣȭ�� �����ǵ��� �ٸ� ��ȣȭ�� ����, ������ �������
%    �����Ѵ�.  ��ȣȭ�� ������ ���ο� .fd ������ �䱸�ϰ� �ȴ�.
\DeclareRobustCommand\hfontencoding[1]{%
    \expandafter\ifx\csname T@#1\endcsname\relax
      \@latex@error{Encoding scheme `#1' unknown}\@eha
    \else
      \edef\hf@encoding{#1}%
      \ifx\cf@encoding\hf@encoding
        \let\enc@update\relax
      \else
        \let\enc@update\@@enc@update
      \fi
    \fi
}

% �� �츮������ü�� ����:
%    �츮�������� �ѷ� ������. �պκ��� �ɹ�/�ѱ�/������ �������¸�
%    �ǹ��Ѵ�.
\DeclareRobustCommand\kscfamily[3]{\edef\sb@{#1}\edef\hg@{#2}\edef\hj@{#3}}

% �޺κ��� �츮������ü�� ������ �ǹ��Ѵ�. ����, ����, Ÿ�� �� �߰�
% ����ü���� ������ \MapHangulFamily�� ���� ���� �ѱ�/�ɹ�/������
% �ܺα���ü�� �����Ǿ� �ִ�.
\DeclareRobustCommand\hfontfamily[1]{%
  \expandafter\ifx\csname #1@map\endcsname\relax
    \@font@warning{Hangul Fontmap for `#1' undefined\MessageBreak
                   using default map `\expandafter\csname\default@hfamily
                   @map\endcsname' instead\@wrong@font@char}%
    \expandafter\xdef\csname #1@map\endcsname{%
      \expandafter\csname\default@hfamily @map\endcsname}%
    \gdef\default@fontmap{%
      \@font@warning{Some hangul fontmaps were not defined,\MessageBreak
                     default fontmap substituted.\@gobbletwo}}\fi
  \edef\reserved@a{\csname #1@map\endcsname}%
  \expandafter\hfont@map\reserved@a\@nil\ignorespaces}
\def\hfont@map#1,#2,#3\@nil{%
  \edef\hg@family{#1}%
  \edef\sb@family{#2}%
  \edef\hj@family{#3}}
\AtEndDocument{\default@fontmap}
\let\default@fontmap\relax

% �� �츮�� ����ü �ø���:
%    �츮������ü�ø���� ������ �װͰ� ����. �ٸ� \fontseries�� S��
%    ������ �� �츮���۲��� \mdseries�� ���� �����μ��Ͽ�
%    \bfseries�� ������ ��Ÿ���� �Ѵ�.
\DeclareRobustCommand\fontseries[1]{%
  \if S\expandafter\@car#1\@nil\@makeboldtrue
    \edef\hf@series{\mddefault}\edef\f@series{\expandafter\@cdr#1\@nil}%
  \else\@makeboldfalse\edef\hf@series{#1}\edef\f@series{#1}\fi}

% \TeX{}���� \bfseries�� ���ʰ��� bx�̴�.  uhc ����ü�� b�� bx�� ����
% ���еǹǷ� ��� ���� \hfontseries�� ���� �β��� ����ü�� ���õǵ���
% �Ѵ�.
\DeclareRobustCommand\hfontseries[1]{\edef\hf@series{#1}}

\expandafter\def\expandafter\bfseries\expandafter{\bfseries\hfontseries\hbfdefault}

% ��,�� �츮�� ����ü��� �� ũ��:
%       �츮���� ����ü���� ũ��� ������ �װͰ� �����ϰ� ó���ȴ�.

% �ܺ� ����ü ����ã��:
% ---------------------
% �츮������ü�� �� ��Ʈ�� ���� ���Ϸ� �������� �ִ�. �׷��Ƿ�
% �츮������ü�� �ܺ������� ������ ���� �Ϸ����� ��Ģ�� �ǰ��Ͽ�
% �����Ѵ�.
%  1. ��¡��ȣ�� �����ڰ� 4, 5, 6, 7�� �������� ������� 256���� ������.
%  2. �ѱ��� �����ڰ� 0���� 9�� �ǵ��� ������� 256���� ������.
%  3. ���ڴ� �����ڰ� 10���� 29�� �ǵ��� ������� 256���� ������.
\def\DeclareFontShape@#1#2#3#4#5#6{%
   \expandafter\ifx\csname #1+#2\endcsname\relax
     \@latex@error{Font family `#1+#2' unknown}\@eha
   \else
     \if#1\hf@encoding
       \if\sb@\expandafter\@car#2\@nil\@tempcnta0\def\reserved@b{A,B,C,D}%
       \else\if\hj@\expandafter\@car#2\@nil\@tempcnta2
         \def\reserved@b{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T}%
       \else\@tempcnta1\def\reserved@b{A,B,C,D,E,F,G,H,I,J}\fi\fi
       \@for\@idx:=\reserved@b\do{%
         \expandafter\expandafter\expandafter\@tempcntb\expandafter`\@idx
         \advance\@tempcntb-65
         \ifcase\@tempcnta\def\reserved@c{0}\advance\@tempcntb4%
         \or\def\reserved@c{}%
         \or\def\reserved@c{}\advance\@tempcntb10\fi
         \edef\reserved@c{\reserved@c\number\@tempcntb}%
         \expandafter\xdef\csname#1/#2/#3/#4/\@idx\endcsname{%
           \expandafter\noexpand\csname #5\reserved@c\endcsname}%
         \global\expandafter\let\csname #5\reserved@c\expandafter\endcsname
           \ifx\reserved@a\@empty\@empty\else\reserved@a\fi}%
     \else
       \expandafter\xdef\csname#1/#2/#3/#4\endcsname{%
         \expandafter\noexpand\csname #5\endcsname}%
       \def\reserved@a{#6}%
       \global\expandafter\let\csname#5\expandafter\endcsname
          \ifx\reserved@a\@empty\@empty\else\reserved@a\fi
   \fi\fi
  }
\DeclareSizeFunction{hsub}{\subh@sfcnt\@font@warning}
\DeclareSizeFunction{hssub}{\subh@sfcnt\@font@info}
\def\subh@sfcnt#1{%
    \edef\mandatory@arg{\f@encoding/\mandatory@arg}%
    \begingroup
     \expandafter\split@hname\mandatory@arg/\@nil
     \xdef\reserved@a{\curr@fontshape}%
     \try@load@fontshape
    \endgroup
    \let\f@user@size\f@size
    \expandafter
    \ifx\csname\mandatory@arg\endcsname\relax
      \expandafter\ifx\csname\curr@fontshape!\endcsname\relax
        \errmessage{No\space declaration\space for\space
                  shape\space \mandatory@arg}%
      \global\expandafter\let\csname\curr@fontshape!\endcsname\@empty\fi
      \edef\reserved@b{\expandafter\@car\f@family\@nil}%
      \error@hfontshape
      \edef\reserved@c{\expandafter\csname\f@family @map\endcsname}%
      \expandafter\hfont@map\reserved@c\@nil
      \ifx\sb@\reserved@b\edef\f@family{\sb@\sb@family}\else%
      \ifx\hj@\reserved@b\edef\f@family{\hj@\hj@family}\else%
        \edef\f@family{\hg@\hg@family}\fi\fi
    \else
      \expandafter\ifx\csname\curr@fontshape!\endcsname\relax
        #1{Font\space shape\space `\curr@fontshape'\space in\space
         size\space <\f@size>\space not\space available\MessageBreak
         Font\space shape\space `\reserved@a'\space tried\space
         instead}%
      \global\expandafter\let\csname\curr@fontshape!\endcsname\@empty\fi
      \expandafter\split@hname\mandatory@arg/\@nil
    \fi
    \edef\f@size{\f@user@size}%
    \get@external@hfont
    \do@subst@correction
}
\def\DeclareHFontShape{\begingroup
   \nfss@catcodes
   \expandafter\endgroup
   \DeclareHFontShape@}
\def\DeclareHFontShape@#1#2#3#4#5#6{%
   \expandafter\ifx\csname #1+#2\endcsname\relax
     \@latex@error{Font family `#1+#2' unknown}\@eha
   \else
     \def\reserved@a{#6}%
     \if\sb@\expandafter\@car#2\@nil\def\reserved@b{A,B,C,D}%
     \else\if\hj@\expandafter\@car#2\@nil
       \def\reserved@b{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T}%
     \else\def\reserved@b{A,B,C,D,E,F,G,H,I,J}\fi\fi
     \@for\@idx:=\reserved@b\do{%
       \expandafter\xdef\csname#1/#2/#3/#4/\@idx\endcsname{%
         \expandafter\noexpand\csname #5/\@idx\endcsname}%
       \global\expandafter\let\csname #5/\@idx\expandafter\endcsname
         \ifx\reserved@a\@empty\@empty\else\reserved@a\fi}%
   \fi
  }

% �츮�� ����ü ���� ��� (HFSS):
% -------------------------------
% �츮���� encoding�� family�� ������ �޸� ����ϰ� series�� shape,
% �׸��� size�� ������ �����ϰ� ����Ѵ�.
% �츮���� �Ѱ��� ����ü�� 256���� ���ڵ�� ������ ���� ����ü��
% �и��Ǿ� �������� ������ �ϳ� �� �߰��Ͽ� (�ɹ�: A-D, �ѱ�: A-J,
% ����: A-T) �̸� ǥ���Ѵ�.(\f@idx)
% ����ü�� ��� ��ġ�� ����, �� ����ü�� ������ ���� �� ����ü
% ��Ʈ�� ��ġ�Ǿ����� ����ڿ��� �˸���, �� ����ü ��Ʈ���� �ѹ���
% �̷��� ����� �˷������� �Ѵ�.  �� ��ġ���� �ɹ�/�ѱ�/������
% \hfamilydefault�� ������ ����ü�� ����.  �ѱ��� ��쿡��
% �ϼ�|����/�ڸ� ���� �����Ͽ� ó���Ѵ�.
\def\extract@hfont{%
   \get@external@hfont
   \global\expandafter\font\font@name\external@font\relax
    \font@name \relax
    \csname \f@encoding+\f@family\endcsname
    \csname\curr@fontshape\endcsname
    \relax
       }
\def\get@external@hfont{%
   \let\external@font\@empty
   \edef\font@info{\expandafter\expandafter\expandafter\string
        \csname \curr@fontshape/\f@idx \endcsname}%
   \try@size@range
   \ifx\external@font\@empty
      \try@size@substitution
      \ifx\external@font\@empty
         \@latex@error{Font \expandafter \string\font@name\space
                     not found}\@eha
         \edef\reserved@b{\expandafter\@car\f@family\@nil}
         \error@hfontshape
         \edef\reserved@c{\expandafter\csname\f@family @map\endcsname}%
         \expandafter\hfont@map\reserved@c\@nil
         \ifx\sb@\reserved@b\edef\f@family{\sb@\sb@family}\else%
         \ifx\hj@\reserved@b\edef\f@family{\hj@\hj@family}\else%
           \edef\f@family{\hg@\hg@family}\fi\fi
         \get@external@hfont
   \fi\fi
}
\DeclareRobustCommand\selecthfont
        {%
    \ifx\f@linespread\baselinestretch \else
      \set@fontsize\baselinestretch\f@size\f@baselineskip \fi
    \xdef\font@name{%
      \csname\curr@fontshape/\f@idx/\f@size\endcsname}%
    \pickup@hfont
    \font@name
    \size@update
    \enc@update
    }
\def\pickup@hfont{%
    \expandafter \ifx \font@name \relax
       \define@newhfont
    \fi}
\def\define@newhfont{%
  \begingroup
    \let\typeout\@font@info
    \escapechar\m@ne
    \expandafter\expandafter\expandafter
       \split@hname\expandafter\string\font@name\@nil
      \try@load@fontshape % try always
    \expandafter\ifx
       \csname\curr@fontshape/\f@idx\endcsname \relax
      \wrong@hfontshape\else
      \extract@hfont\fi
  \endgroup}
{\catcode`\/=12
\gdef\split@hname#1/#2/#3/#4/#5/#6\@nil{\def\f@encoding{#1}%
                                        \def\f@family{#2}%
                                        \def\f@series{#3}%
                                        \def\f@shape{#4}%
                                        \def\f@size{#6}}}
\def\DeclareErrorHFont#1#2#3#4#5{%
      \xdef\error@hfontshape{%
          \noexpand\expandafter\noexpand\split@name\noexpand\string
          \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
          \noexpand\@nil}%
      \gdef\default@hfamily{#2}%
      \gdef\default@hseries{#3}%
      \gdef\default@shape{#4}%
      \begingroup
        \edef\reserved@a{\expandafter\csname\default@hfamily @map\endcsname}%
        \expandafter\hfont@map\reserved@a\@nil
        \xdef\sb@family{\sb@family}%
        \xdef\hg@family{\hg@family}%
        \xdef\hj@family{\hj@family}%
      \endgroup
      \global\let\hf@series\default@hseries
      \global\let\f@shape\default@shape
      \gdef\f@size{#5}%
      \gdef\f@baselineskip{#5pt}%
}
\@onlypreamble\DeclareErrorHFont
\def\wrong@hfontshape{%
    \csname D@\f@encoding\endcsname      % install defaults if in math
    \edef\reserved@a{\csname\curr@fontshape/\f@idx\endcsname}%
    \edef\reserved@b{\expandafter\string\csname\curr@fontshape\endcsname}%
  \ifx\last@fontshape\reserved@a
     \errmessage{Corrupted NFSS tables}%
     \edef\reserved@c{\expandafter\@car\f@family\@nil}%
     \error@hfontshape
     \edef\reserved@d{\expandafter\csname\f@family @map\endcsname}%
     \expandafter\hfont@map\reserved@d\@nil
     \ifx\sb@\reserved@c\edef\f@family{\sb@\sb@family}\else%
     \ifx\hj@\reserved@c\edef\f@family{\hj@\hj@family}\else%
       \edef\f@family{\hg@\hg@family}\fi\fi
  \else
    \let\f@shape\default@shape
    \expandafter\ifx\csname\curr@fontshape/\f@idx\endcsname\relax
        \let\f@series\default@hseries
        \expandafter
        \ifx\csname\curr@fontshape/\f@idx\endcsname\relax
          \edef\reserved@d{\expandafter\csname\default@hfamily @map\endcsname}%
          \expandafter\hfont@map\reserved@d\@nil
          \if\sb@\expandafter\@car\f@family\@nil
              \edef\f@family{\sb@\sb@family}\else
          \if\hj@\expandafter\@car\f@family\@nil
              \edef\f@family{\hj@\hj@family}\else
              \edef\f@family{\hg@\hg@family}\fi\fi
        \fi \fi
  \fi
    \expandafter\ifx\csname\reserved@b!\endcsname\relax
       \@font@warning{Font shape `\expandafter\string\reserved@b'
                       \expandafter\@gobble\string\@undefined\MessageBreak
                     using `\curr@fontshape' instead\@wrong@font@char}%
      \global\expandafter\let\csname\reserved@b!\endcsname\@empty\fi
    \global\let\last@fontshape\reserved@a
    \gdef\@defaultsubs{%
      \@font@warning{Some font shapes were not available, defaults
                      substituted.\@gobbletwo}}%
    \global\expandafter\expandafter\expandafter\let
       \expandafter\reserved@a
           \csname\curr@fontshape/\f@idx\endcsname
    \xdef\font@name{%
      \csname\curr@fontshape/\f@idx/\f@size\endcsname}%
    \pickup@hfont}
\def\DeclareHFontEncoding{%
   \begingroup
   \nfss@catcodes
   \expandafter\endgroup
   \DeclareHFontEncoding@}
\@onlypreamble\DeclareHFontEncoding
\def\DeclareHFontEncoding@#1#2#3{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
     \def\cdp@elt{\noexpand\cdp@elt}%
     \begingroup
     \edef\reserved@a{\csname\default@hfamily @map\endcsname}
     \expandafter\hfont@map\reserved@a\@nil
     \xdef\cdp@list{\cdp@list%
                    \cdp@elt{#1}{\symboldefault\sb@family}%
                    {\default@hseries}{\default@shape}%
                    \cdp@elt{#1}{\hanguldefault\hg@family}%
                    {\default@hseries}{\default@shape}%
                    \cdp@elt{#1}{\hanjadefault\hj@family}%
                    {\default@hseries}{\default@shape}}%
     \endgroup
     \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
  \else
     \@font@info{Redeclaring font encoding #1}%
  \fi
  \global\@namedef{T@#1}{#2}%
  \global\@namedef{M@#1}{\default@M#3}%
  }
\@onlypreamble\DeclareHFontEncoding@
\def\DeclareHFontSubstitution#1#2#3#4{%
  \expandafter
  \ifx\csname T@#1\endcsname\relax
    \@latex@error{Encoding scheme  `#1' unknown}\@eha
  \else
    \begingroup
       \edef\reserved@a{\csname#2@map\endcsname}
       \expandafter\hfont@map\reserved@a\@nil
       \def\reserved@a{#1}%
       \toks@{}%
       \let\reserved@d\@empty
       \def\cdp@elt##1##2##3##4{%
          \def\reserved@b{##1}%
          \ifx\reserved@a\reserved@b
            \ifx\reserved@d\@empty
              \edef\reserved@c{\noexpand\cdp@elt{#1}{\sb@\sb@family}{#3}{#4}%
                               \noexpand\cdp@elt{#1}{\hg@\hg@family}{#3}{#4}%
                               \noexpand\cdp@elt{#1}{\hj@\hj@family}{#3}{#4}}%
              \let\reserved@d\relax
              \expandafter\addto@hook
              \expandafter\toks@\expandafter{\reserved@c}\fi%
          \else
             \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
          \fi}%
        \cdp@list
        \xdef\cdp@list{\the\toks@}%
    \endgroup
    \global\@namedef{D@#1}{%
        \def\default@hfamily{#2}%
        \def\default@hseries{#3}%
        \def\default@shape{#4}%
        }%
  \fi
 }
\@onlypreamble\DeclareHFontSubstitution

% HFSS�� ���� Ȯ��:
% -----------------
% �츮���� �� ������ �ɹ�/�ѱ�/������ ������ �ܺ� ����ü�� �����Ǿ�
% �ִ�. �츮�� ������ �����ϱ� ����, �⺻������ ������
% �ɹ�/�ѱ�/������ ��ġ ����ü�� ������ ���� ����ü�� �����
% �����Ǿ� �ִ��� Ȯ�������μ� ����ü ���ý� �߻��� �� ����� �̸�
% �����Ѵ�.
\def\process@table{%
    \def\cdp@elt##1##2##3##4{%
        \@font@info{Checking defaults for
                  ##1/##2/##3/##4}%
      \if\hf@encoding##1
        \expandafter
        \ifx\csname##1/##2/##3/##4/A\endcsname\relax
          \begingroup
           \def\f@encoding{##1}\def\f@family{##2}%
           \try@load@fontshape
          \endgroup
        \fi
        \expandafter
        \ifx\csname##1/##2/##3/##4/A\endcsname\relax
             \@latex@error{This HFSS system isn't set up properly}%
                       {For hangul encoding scheme ##1 the defaults
                        ##2/##3/##4 do not form a valid font shape}%
        \else
             \@font@info{... okay}%
        \fi
      \else
        \expandafter
        \ifx\csname##1/##2/##3/##4\endcsname\relax
          \begingroup
           \def\f@encoding{##1}\def\f@family{##2}%
           \try@load@fontshape
          \endgroup
        \fi
        \expandafter
        \ifx\csname##1/##2/##3/##4\endcsname\relax
             \@latex@error{This NFSS system isn't set up properly}%
                       {For encoding scheme ##1 the defaults
                        ##2/##3/##4 do not form a valid font shape}%
        \else
             \@font@info{... okay}%
        \fi
      \fi}%
    \cdp@list
    \begingroup
       \escapechar\m@ne
       \error@fontshape
       \expandafter\ifx\csname \curr@fontshape\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape\endcsname\relax
         \@latex@error{This NFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution
             font shape using the \noexpand\DeclareErrorFont
             command}%
       \fi
       \expandafter\ifx\csname\hfamilydefault @map\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             fontmap for default hangul family `\hfamilydefault'
             using the \noexpand\MapHangulFamily command}%
       \fi
       \error@hfontshape
       \edef\reserved@a{\expandafter\csname\f@family @map\endcsname}%
       \expandafter\hfont@map\reserved@a\@nil
       \edef\f@family{\sb@\sb@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution symbol
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
       \edef\f@family{\hg@\hg@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution hangul
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
       \edef\f@family{\hj@\hj@family}%
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
          \begingroup
            \try@load@fontshape
           \endgroup
       \fi
       \expandafter\ifx\csname \curr@fontshape/A\endcsname\relax
         \@latex@error{This HFSS system isn't set up properly}%
            {The system maintainer forgot to specify a suitable
             substitution hanja
             font shape using the \noexpand\DeclareErrorHFont
             command or \noexpand\MapHangulFamily command}%
       \fi
    \endgroup
    \let\select@group\document@select@group
    \hfontencoding{\hencodingdefault}%
    \hfontfamily{\hfamilydefault}%
    \fontencoding{\encodingdefault}%
    \fontfamily{\familydefault}%
    \fontseries{\seriesdefault}%
    \fontshape{\shapedefault}%
 \everyjob{}%
}

% �츮�� ����ü�� �⺻ġ:
% -----------------------
% �ƹ��͵� �������� ������ �ϼ��� ����ü�� �ȴ�.
\newcommand\hencodingdefault{H}

\newcommand\symboldefault{s}
\newcommand\hanguldefault{w}
\newcommand\hanjadefault{h}
\newcommand\mjdefault{mj}
\newcommand\gtdefault{gt}
\newcommand\tzdefault{tz}
\newcommand\hfamilydefault{\mjdefault}
\if@makebold\newcommand\hbfdefault{m}
\else\newcommand\hbfdefault{b}\fi

% �츮������ �̸��� ���� �ܺ� ����ü�� ����
% -----------------------------------------
%      \MapHangulFamily{�츮������}{�ѱ۱���ü,�ɹ�����ü,���ڱ���ü}
%                      (����ü�̸� = �ѱ�/�ɹ�/���ڱ۲�)
\DeclareRobustCommand\MapHangulFamily[2]{%
  \expandafter\edef\csname #1@map\endcsname{#2}}

\ifx\pdftexversion\undefined
\def\@pshan{}
\else
\def\@pshan{p}
\fi

% �⺻����ü
% \MapHangulFamily{mj}{\@pshan mj,\@pshan sm,\@pshan sm}
% \MapHangulFamily{gt}{\@pshan gt,\@pshan gt,\@pshan gt}
% \MapHangulFamily{tz}{\@pshan mtt,\@pshan tt,\@pshan tt}
\MapHangulFamily{mj}{wmj,wmj,wmj}
\MapHangulFamily{gt}{wgt,wgt,wgt}
\MapHangulFamily{tz}{wtt,wtt,wtt}

% �߰�����ü
% \MapHangulFamily{sm}{\@pshan sm,\@pshan sm,\@pshan sm}
% \MapHangulFamily{gs}{\@pshan gs,\@pshan sm,\@pshan gs}
% \MapHangulFamily{gr}{\@pshan gr,\@pshan gt,\@pshan gt}
% \MapHangulFamily{mg}{\@pshan mg,\@pshan gt,\@pshan gt}
% \MapHangulFamily{yt}{\@pshan yt,\@pshan gt,\@pshan yt}
% \MapHangulFamily{bm}{\@pshan bm,\@pshan gt,\@pshan gt}
% \MapHangulFamily{pn}{\@pshan pn,\@pshan sm,\@pshan sm}
% \MapHangulFamily{ol}{\@pshan ol,\@pshan sm,\@pshan sm}
% \MapHangulFamily{pg}{\@pshan pg,\@pshan gt,\@pshan gt}
% % \MapHangulFamily{jmj}{\@pshan mmj,\@pshan sm,\@pshan sm}
% % \MapHangulFamily{jgt}{\@pshan mgt,\@pshan gt,\@pshan gt}
% % \MapHangulFamily{jnv}{\@pshan mnv,\@pshan gt,\@pshan gt}
% % \MapHangulFamily{jsr}{\@pshan msr,\@pshan gt,\@pshan gt}

\MapHangulFamily{gs}{wgs,wgs,wgs}
\MapHangulFamily{gh}{mgh,wgs,wgs}
\MapHangulFamily{gr}{wgr,wgr,wgt}
\MapHangulFamily{sh}{wsh,wsh,wsh}
\MapHangulFamily{pg}{wpg,wgt,wgt}
\MapHangulFamily{pn}{wpn,wmj,wmj}
\MapHangulFamily{ph}{wph,wmj,wmj}
\MapHangulFamily{bm}{wbm,wgt,wgt}
\MapHangulFamily{yt}{wyt,wgt,wyt}
\MapHangulFamily{vd}{wvd,wgt,wgt}
\MapHangulFamily{mg}{mhm,wgt,wgt}
\MapHangulFamily{jmj}{wjmj,wmj,wmj}
\MapHangulFamily{jgt}{wjgt,wgt,wgt}
\MapHangulFamily{jnv}{wjnv,wgt,wgt}
\MapHangulFamily{jsr}{wjsr,wgt,wgt}

% \DeclareErrorHFont{H}{\mjdefault}{m}{n}{10}
% \DeclareHFontSubstitution{H}{\mjdefault}{m}{n}

% �⵿���
\DeclareTextFontCommand{\textsh}{\shfamily}
\DeclareRobustCommand\shfamily{\hfontfamily{sh}}

% hfont.cfg���� �̵��� �̸� ����/������ �� �ִ�.
\InputIfFileExists{hfont.cfg}{}{}

\kscfamily{\symboldefault}{\hanguldefault}{\hanjadefault}

\DeclareErrorHFont{H}{\mjdefault}{m}{n}{10}
\DeclareHFontEncoding{\hencodingdefault}{}{}
\DeclareHFontSubstitution{H}{\mjdefault}{m}{n}
\hfontencoding\hencodingdefault

% �츮�� ã��:
% ------------
% �츮���� ��� \catcode=13���� ó���Ǹ� �츮�� ��ȣ ������
% �ι���Ʈ�� �� ���ڸ� �����Ѵ�. �� �ΰ��� ����Ʈ�� �м��Ͽ�
% �ܺα۲��� ������ �ɹ�/�ѱ�/������ �ϳ��� Ȯ���Ѵ�.
%
\begingroup
\def^^ae#1#2#3{\xdef#1##1{\noexpand\h@C{\hf@}{\noexpand\ifnum`##1<#2
    D\noexpand\else\noexpand\ifnum`##1>#3 C\noexpand\else
    A\noexpand\fi\noexpand\fi}{\noexpand#1}{##1}}} 
\def^^c9#1#2{\xdef#1##1{\noexpand\h@C{\hf@}{#2}{\noexpand#1}{##1}}}
\def^^ad#1#2#3/#4{\xdef#1##1{\noexpand\h@C{\hf@}{\noexpand\ifnum`##1<#2
    #3\noexpand\else#4\noexpand\fi}{\noexpand#1}{##1}}}

% �ɹ�
\def\hf@{sb}
^^c9^^a1B^^c9^^a2B
\xdef^^a3#1{\noexpand\h@C{\hf@}{\noexpand\ifnum\expandafter`\noexpand#1="0DC
    A\noexpand\else D\noexpand\fi}{\noexpand^^a3}{\noexpand#1}}%
^^c9^^a4A^^c9^^a5D^^c9^^a6C^^c9^^a7B^^ae^^a8{"0B0}{"0F5}
^^ae^^a9{"0B1}{"0F5}^^c9^^aaC^^c9^^abC^^c9^^acD

% �ѱ�
\def\hf@{hg}
^^c9^^b0A^^c9^^b1A^^ad^^b2{"0E5}A/B^^c9^^b3B^^c9^^b4B^^ad^^b5{"0CB}B/C
^^c9^^b6C^^c9^^b7C^^ad^^b8{"0B1}C/D^^c9^^b9D^^ad^^ba{"0F5}D/E^^c9^^bbE
^^c9^^bcE^^ad^^bd{"0DB}E/F^^c9^^beF^^c9^^bfF^^ad^^c0{"0C1}F/G^^c9^^c1G
^^c9^^c2G^^ad^^c3{"0A7}G/H^^c9^^c4H^^ad^^c5{"0EB}H/I^^c9^^c6I^^c9^^c7I
^^ad^^c8{"0D1}I/J

% ����
\def\hf@{hj}
^^c9^^caA^^c9^^cbA^^ad^^cc{"0E5}A/B^^c9^^cdB^^c9^^ceB^^ad^^cf{"0CB}B/C
^^c9^^d0C^^c9^^d1C^^ad^^d2{"0B1}C/D^^c9^^d3D^^ad^^d4{"0F5}D/E^^c9^^d5E
^^c9^^d6E^^ad^^d7{"0DB}E/F^^c9^^d8F^^c9^^d9F^^ad^^da{"0C1}F/G^^c9^^dbG
^^c9^^dcG^^ad^^dd{"0A7}G/H^^c9^^deH^^ad^^df{"0EB}H/I^^c9^^e0I^^c9^^e1I
^^ad^^e2{"0D1}I/J^^c9^^e3J^^c9^^e4J^^ad^^e5{"0B7}J/K^^c9^^e6K
^^ad^^e7{"0FB}K/L^^c9^^e8L^^c9^^e9L^^ad^^ea{"0E1}L/M^^c9^^ebM^^c9^^ecM
^^ad^^ed{"0C7}M/N^^c9^^eeN^^c9^^efN^^ad^^f0{"0AD}N/O^^c9^^f1O
^^ad^^f2{"0F1}O/P^^c9^^f3P^^c9^^f4P^^ad^^f5{"0D7}P/Q^^c9^^f6Q^^c9^^f7Q
^^ad^^f8{"0BD}Q/R^^c9^^f9R^^c9^^faR^^ad^^fb{"0A3}R/S^^c9^^fcS
^^ad^^fd{"0E7}S/T
\endgroup

% �츮���� ���� ó���� ����, ����� �ִ� �츮�� ����ü ������
% �����Ͽ� �ش��ϴ� �ܺ� ����ü�� ã�� �� �μ��Ѵ�. softbold��
% �䱸�Ǹ� �� �� �� ��ø �μ��ϵ��� �Ѵ�.
\let\KSC@\string
\let\f@idx\relax
\def\h@C#1#2#3#4{%
  \ifx\protect\@typeset@protect\begingroup
    \edef\f@encoding{\hf@encoding}%
    \edef\f@family{\csname #1@\endcsname\csname #1@family\endcsname}%
    \edef\f@series{\hf@series}\gdef\f@idx{#2}%
    \selecthfont\@Hyphen\KSC@#3\KSC@#4\if@makebold
      \hbox to0.03ex{\hss\KSC@#3\KSC@#4}%
      \hbox to0.03ex{\hss\KSC@#3\KSC@#4}\fi\endgroup
  \else\KSC@#3\KSC@#4\fi}

% ȯ������ ���� ��
% \@ifclassloaded{slides}{\input{hsfonts.def}}{} % by sysim

\let\@pshan\undefined

\endinput

% End of file `hfont.tex'.
%</font>
