% j-uline.sty by Shinsaku Fujita
% Copyright (C) S. Fujita (1996). All rights reserved. 
%\typeout{j-uline.sty (v1.00) by S. Fujita 1996/04/02}
\typeout{j-uline.sty (v1.00a) by S. Fujita 1998/08/26}
\typeout{藤田眞作著「LaTeX本づくりの八衢」第4章参照}
% 
% From warichu.sty by Shinsaku Fujita 
% Copyright (C) S. Fujita (1995). All rights reserved. 
% Version 1.00 1995/09/09
% Version 1.00a 1998/08/26
%  バグフィックス: 不要な空白が入るのを除いた。
% ****************************************************
% * For separating an augument list to each argument *
% ****************************************************
% delimiter == as A==B== ... ==Z
%
\def\@fordbleq#1:=#2\do#3{%
  %\edef\@fortmp{#2}%LaTeX2.09での定義
  \expandafter\def\expandafter\@fortmp\expandafter{#2}%
                   %LaTeX2eでの定義
    \ifx\@fortmp\@empty \else%
    \expandafter\@dbleql@@p#2==\@nil==\@nil\@@#1{#3}\fi}
\def\@dbleql@@p#1==#2==#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
       #5\def#4{#2}\ifx #4\@nnil \else#5\@idbleql@@p #3\@@#4{#5}\fi\fi}
\def\@idbleql@@p#1==#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
       \let\@nextwhile=\@fornoop \else%
      #4\relax\let\@nextwhile=\@idbleql@@p\fi\@nextwhile#2\@@#3{#4}}
%
% 下線命令 1996/04/02 by Shinsaku Fujita
%
% \Juline{前部==中部== ... ==後部} 
%
\def\Juline#1{%
\@tempcnta=0
\@fordbleq\member:=#1\do{\global\advance\@tempcnta\@ne}%
 %bugfix 1998/08/26 by S. Fujita
\ifnum\@tempcnta=1\relax
\underline{#1}%
\else
 \@tempcntb=0
 \@fordbleq\member:=#1\do{%
 \advance\@tempcntb\@ne
 \ifnum\@tempcntb=1
   \expandafter\underline{\member}\break%
  \else
  \ifnum\@tempcntb=\@tempcnta
   \expandafter\underline{\member}%
  \else
   \underline{\hbox to\expandafter\hsize{\member}}\break%
  \fi\fi}%bugfix 1998/08/26 by S. Fujita
 \fi}
\endinput
