% sfdanrak.sty 
% by Shinsaku Fujita 
% Copyright (C) S. Fujita (2000). All rights reserved. 
% Version 1.00 1999/2/1
%
%  作成者: 藤田眞作
%          fujitas@chem.kit.ac.jp
%
%   藤田眞作著「入門・縦横文書術」所載
%
%\typeout{Option Style `sfdanrak.sty' by S. Fujita}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{sfdanrak}
\def\versi@ndate{February 1, 2000}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{S. Fujita} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Option Style `\j@urnalname' (\versi@nno) <\versi@ndate>\space 
[\copyrighth@lder]}
\typeout{藤田眞作著「入門・縦横文書術」所載}
%
% \danrakukagiA
% A方式の段落開始
% カギ括弧のみに対応
%
\def\ignorekagispace#1{\def\aaa{#1}\def\bbb{「}%
\ifx\aaa\bbb\mbox{}\kern-0.5zw「\else #1\fi}%
\everypar{\ignorekagispace}
\def\danrakukagiA{\everypar{\ignorekagispace}}
%
% \danrakuA
% A方式の段落開始
% 括弧類すべてに対応
%
\newcount\kakkocnt
\def\ignorekakkospace#1{\if\noexpand#1\relax\else
\kakkocnt=`#1 \relax
\ifnum\kakkocnt>33124 \ifnum\kakkocnt<33146
\ifodd\kakkocnt\mbox{}\kern-0.5zw\fi\fi\fi\fi#1}
\def\danrakuA{\everypar{\ignorekakkospace}}
%
% \danrakuC
% C方式の段落開始
% 括弧類すべてに対応
%
\def\ignorejisage#1{\if\noexpand#1\relax\else
\kakkocnt=`#1 \relax
\ifnum\kakkocnt>33124 \ifnum\kakkocnt<33146
\ifodd\kakkocnt\setbox0=\lastbox\mbox{}\fi\fi\fi\fi#1}
\def\danrakuC{\everypar{\ignorejisage}}