% txi-ja.tex -- adaptation to Japanese for texinfo.tex.
% This is read when a source document says @documentlanguage ja
% (which might happen after another @documentlanguage).
%
% Copyright 1999, 2007, 2008 Free Software Foundation.
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 3 of the License, or
% (at your option) any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program.  If not, see <http://www.gnu.org/licenses/>.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% for dvipdfmx

\def\csdef#1{\expandafter\def\csname#1\endcsname}

\gdef\usedvipdfmx{

  \ifnum 42146=\euc"A4A2 \special{pdf:tounicode EUC-UCS2}\else
  \special{pdf:tounicode 90ms-RKSJ-UCS2}\fi

  \global\pdfmakepagedesttrue
  \gdef\pdfdest name##1 xyz{%
    \iffinishedtitlepage\else
    \special{pdf:dest (name##1) [\@thispage /XYZ \@xpos \@ypos]}%
    \fi
  }

  \gdef\dopdfoutline##1##2##3##4{%
    \special{pdf:out [] ##2 << /Title (##1) /A << /S /GoTo /D (name##4) >> >> }%
  }

  \gdef\entryaddpdfoutline##1##2{%
    \global\cslet{orig##1}{##1}%
    \csdef{##1}####1####2####3####4{%
      \expandafter\empty\csname orig##1\endcsname{####1}{####2}{####3}{####4}%
      \dopdfoutline{####1}{##2}{####3}{####4}%
    }
  }

  \entryaddpdfoutline{numchapentry}{1}
  \entryaddpdfoutline{numsecentry}{2}
  \entryaddpdfoutline{numsubsecentry}{3}
  \entryaddpdfoutline{numsubsubsecentry}{4}

  \entryaddpdfoutline{unnchapentry}{1}
  \entryaddpdfoutline{unnsecentry}{2}
  \entryaddpdfoutline{unnsubsecentry}{3}
  \entryaddpdfoutline{unnsubsubsecentry}{4}

  \entryaddpdfoutline{appentry}{1}
  \let\appsecentry=\numsecentry
  \let\appsubsecentry=\numsubsecentry
  \let\appsubsubsecentry=\numsubsubsecentry

}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
