test/zh/warichu-test/ltj-warichu.sty

   1 \catcode`@=11
   2 \ifx\LaTeX\@undefined
   3 \def\@nnil{\@nil}%
   4 \def\@empty{}%
   5 \def\@fornoop#1\@@#2#3{}%
   6 \long\def\@for#1:=#2\do#3{%
   7   \expandafter\def\expandafter\@fortmp\expandafter{#2}%
   8   \ifx\@fortmp\@empty \else
   9     \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}
  10   \fi}%
  11 \long\def\@forloop#1,#2,#3\@@#4#5{%
  12   \def#4{#1}
  13   \ifx #4\@nnil \else
  14        #5\def#4{#2}
  15     \ifx #4\@nnil
  16       \else#5\@iforloop #3\@@#4{#5}
  17     \fi
  18   \fi}%
  19 \long\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
  20        \expandafter\@fornoop \else
  21       #4\relax\expandafter\@iforloop\fi#2\@@#3{#4}}%
  22 \def\@tfor#1:={\@tf@r#1 }%
  23 \long\def\@tf@r#1#2\do#3{\def\@fortmp{#2}\ifx\@fortmp\space\else
  24     \@tforloop#2\@nil\@nil\@@#1{#3}\fi}%
  25 \long\def\@tforloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
  26        \expandafter\@fornoop \else
  27       #4\relax\expandafter\@tforloop\fi#2\@@#3{#4}}%
  28 \long\def\@ifnextchar#1#2#3{%
  29   \let\reserved@d=#1%
  30   \def\reserved@a{#2}%
  31   \def\reserved@b{#3}%
  32   \futurelet\@let@token\@ifnch}
  33 \def\@ifnch{%
  34   \ifx\@let@token\@sptoken
  35     \let\reserved@c\@xifnch
  36   \else
  37     \ifx\@let@token\reserved@d
  38       \let\reserved@c\reserved@a
  39     \else
  40       \let\reserved@c\reserved@b
  41     \fi
  42   \fi
  43   \reserved@c}
  44 \def\:{\let\@sptoken= } \:  % this makes \@sptoken a space token
  45 \def\:{\@xifnch} \expandafter\def\: {\futurelet\@let@token\@ifnch}
  46 \fi % end if
  47 \ifx\xguji@defined\@undefined
  48 \def\xguji@defined{\relax}
  49 %% punctuation prohibition testing module
  50 \def\linestartforbid{,.!?'、。，．：；！？’”〕）］｝〉》〗】」』}
  51 \def\lineendforbid{`‘“〔（［｛〈《〖【「『}
  52 \ifx\testinset\@undefined
  53 \newif\ifisinset
  54 \long\def\testinset#1#2{% return whether #1 is in the set of #2, result stored in \ifisinset
  55   \isinsetfalse
  56   \ifx#1\par
  57   \else
  58     \expandafter\@tfor\expandafter\testinset@member
  59     \expandafter:\expandafter=#2\do{%
  60       \if\testinset@member #1%
  61         \isinsettrue
  62       \fi
  63     }%
  64   \fi
  65 }
  66 \def\testcharinset#1#2{% test whether character #1 is in #2, not using tfor
  67   \def\t@ctest##1{\expandafter\t@ct@st ##1#1\t@ctest\t@ct@st}%
  68   \def\t@ct@st##1#1##2##3\t@ct@st{\ifx\t@ctest##2\isinsetfalse
  69     \else\isinsettrue\fi}%
  70   \t@ctest{\noexpand #2}%
  71 }
  72 \fi
  73 \def\getlastelem#1#2{%  return the last tfor element of #1, stored in #2
  74   \expandafter\@tfor\expandafter\getlastelem@member\expandafter:\expandafter=#1\do{%
  75     \edef#2{\getlastelem@member}%
  76   }%
  77 }
  78 \def\testbreak#1#2#3{% #1: \output  #2: \lasttext  #3:\nowchar  return \output if breakable
  79   \def#1{}%
  80   \ifx\@empty#2%
  81     \edef#2{#3}%
  82   \else
  83     \getlastelem{#2}\lastchar
  84     \testinset\lastchar\lineendforbid
  85     \ifisinset   % \lastchar is a line-end prohibition, which cannot be at the end of line
  86       \edef#2{#2#3}%
  87     \else
  88       \testinset\lastchar\linestartforbid
  89       \ifisinset % \lastchar is a line-start prohibition, which cannot appear at the start of line
  90         \testinset{#3}\linestartforbid
  91         \ifisinset  % \nowchar is a line-start prohibition, which should be appended after \lasttext
  92           \edef#2{#2#3}%
  93         \else       % \nowchar is not a line-start prohibition. Can break after \lasttext
  94           \edef#1{#2}%
  95           \edef#2{#3}%
  96         \fi
  97       \else      % \lastchar is a normal char
  98         \testinset{#3}\linestartforbid
  99         \ifisinset  % \nowchar is a line-start prohibition, which make the place after \lasttext unbreakable
 100           \edef#2{#2#3}%
 101         \else       % \nowchar is not a line-start prohibition. Can break after \lasttext
 102           \edef#1{#2}%
 103           \edef#2{#3}%
 104         \fi
 105       \fi
 106     \fi
 107   \fi
 108 }
 109 %%  list manipulation module
 110 \def\getnumofelem#1#2{%  return the num of element of #1, stored in counter #2
 111   #2=0
 112   \if!#1!% test whether #1 is non-empty
 113   \else
 114     \expandafter\@for\expandafter\getnumofelem@member
 115     \expandafter:\expandafter=#1\do{%
 116       \advance#2 by 1
 117     }%
 118   \fi
 119 }
 120 \ifx\getforitem\@undefined
 121 \newcount\getforitem@tmpcount
 122 \def\getforitem#1#2#3{% #1: for list  #2: index   #3: output macro
 123   \getforitem@tmpcount=0
 124   \expandafter\@for\expandafter\getitem@member\expandafter:\expandafter=#1\do{%
 125     \ifnum\getforitem@tmpcount = #2%
 126       \edef#3{\getitem@member}%
 127     \fi
 128     \advance\getforitem@tmpcount by 1
 129   }%
 130 }
 131 \fi
 132
 133 \input ltj-warichu-hsplit.sty
 134
 135 \newdimen\guji@hsize
 136 \newdimen\guji@hoffset
 137 \newdimen\guji@twolineraise
 138 \newdimen\guji@hfuzz
 139 \newskip\guji@hanzisep
 140 \newbox\guji@savebox
 141 \newif\ifguji@debug
 142 \newif\ifguji@heavydebug
 143 \newdimen\guji@tmpdim
 144 \newdimen\guji@tmpdil
 145 \newcount\guji@tmpcount
 146 \newbox\guji@tmpbox
 147 \newbox\guji@tmpboy
 148 \newtoks\guji@everytwolinemode
 149 \newtoks\guji@everycommand
 150 \guji@debugtrue
 151 \guji@heavydebugfalse
 152 \guji@hanzisep=0pt plus 0.1em minus 0.1em
 153 \guji@twolineraise=-.3ex
 154 \guji@hfuzz=0.4em
 155 \guji@everytwolinemode={\fiverm\baselineskip=6pt}
 156 \guji@everycommand={\parindent=2em\indent}
 157 \def\guji{%
 158   \begingroup
 159   \everypar{\guji@iterate}%
 160   \everyvbox{\everypar{}}%
 161   \guji@hsize=\hsize
 162   \parindent=0pt
 163   \guji@hoffset=0pt
 164   \rightskip=0pt plus 0.1em minus 0.1em
 165   \def\guji@oktext{}%
 166   \def\guji@lasttext{}%
 167   \guji@makespecials
 168   \guji@adjustsectioncmd
 169   \endgraf
 170 }
 171 \def\guji@adjustcmd#1#2{%
 172   \ifx#1\@undefined
 173   \else
 174     \let#2=#1%
 175     %\def#1{{\ifvmode\vskip -\baselineskip\vskip -\parsep\fi}\leavevmode #2}%
 176     \def#1{\leavevmode #2}%
 177   \fi
 178 }
 179 \def\guji@adjustsectioncmd{%
 180   \guji@adjustcmd\part\guji@oldpart
 181   \guji@adjustcmd\chapter\guji@oldchapter
 182   \guji@adjustcmd\section\guji@oldsection
 183   \guji@adjustcmd\subsection\guji@oldsubsection
 184   \guji@adjustcmd\subsubsection\guji@oldsubsubsection
 185   \guji@adjustcmd\paragraph\guji@oldparagraph
 186 }
 187 {\catcode`\|=\active
 188 %\catcode`\<=\active
 189 %\catcode`\>=\active
 190 \gdef\guji@makespecials{%
 191   \catcode`\|=\active
 192   \let|\guji@special
 193 }%
 194 }
 195 \def\guji@special{%
 196   \@ifnextchar[{\guji@sp@cial}{\guji@twolinemode}% ]
 197 }
 198 \def\guji@sp@cial[#1]#2{% #1 is a comma-seperated list of command names
 199   \ifguji@debug
 200     \message{special \meaning #1 \meaning #2}%
 201   \fi
 202   %\leavevmode
 203   \begingroup
 204   \everypar={}%
 205   \leavevmode
 206   \getnumofelem{#1}\guji@tmpcount%
 207   \ifcase\guji@tmpcount
 208     \ifguji@debug
 209       \message{Zero}% just a local group
 210     \fi
 211     \def\guji@lasttext{{#2}}%
 212     \guji@flush
 213   \or
 214     \ifguji@debug
 215       \message{One}%  a command that applies to the entire #2
 216     \fi
 217     \def\guji@lasttext{{\csname #1\endcsname{#2}}}%
 218     \guji@flush
 219   \or
 220     \ifguji@debug
 221       \message{Two}% execute the first command, then apply the second to #2
 222     \fi
 223     \csname #1\endcsname
 224     \def\guji@lasttext{{\csname #1\endcsname{#2}}}%
 225     \guji@flush
 226   \or
 227     \ifguji@debug
 228       \message{Three}%  #1,#2,#3, apply #1 #2 #3 to the first, middle, last char
 229     \fi
 230     % if #1 empty, #1<-#2; if #3 empty, #3<-#2
 231     \def\guji@sp@docmd##1##2{%
 232       \def\guji@lasttext{{##1{##2}}}%
 233       \guji@flush
 234     }%
 235     \guji@hanzisep=0pt
 236     \guji@sp@cial@three[#1]#2\end
 237   \else
 238     \errmessage{guji@sp@cial: Unsupported option #1.}%
 239   \fi
 240   \global\guji@tmpdim=\guji@hoffset
 241   \endgroup
 242   \hskip\guji@hanzisep
 243   \guji@hoffset=\guji@tmpdim
 244   \guji@iterate % continue to iterate
 245 }
 246 \def\guji@sp@cial@three[#1,#2,#3]#4#5\end{%
 247   \expandafter\let\expandafter\guji@sp@middle\csname #2\endcsname
 248   \if!#1!% #1 is empty
 249     \let\guji@sp@first=\guji@sp@middle
 250   \else
 251     \expandafter\let\expandafter\guji@sp@first\csname #1\endcsname
 252   \fi
 253   \if!#3!% #3 is empty
 254     \let\guji@sp@last=\guji@sp@middle
 255   \else
 256     \expandafter\let\expandafter\guji@sp@last\csname #3\endcsname
 257   \fi
 258   \ifguji@heavydebug
 259     \message{first is #4 by \meaning\guji@sp@first}%
 260   \fi
 261   \guji@sp@docmd\guji@sp@first{#4}%
 262   \def\guji@sp@midtext{}%
 263   \def\guji@sp@lasttext{}%
 264   \@tfor\guji@sp@member:=#5\do{%
 265     \edef\guji@sp@midtext{\guji@sp@lasttext}%
 266     \edef\guji@sp@lasttext{\guji@sp@member}%
 267     \ifx\guji@sp@midtext\empty
 268     \else
 269       \expandafter\guji@sp@docmd\expandafter\guji@sp@middle
 270       \expandafter{\guji@sp@midtext}%
 271       \ifguji@heavydebug
 272         \message{middle is \guji@sp@midtext by \meaning\guji@sp@middle}%
 273       \fi
 274     \fi
 275   }%
 276   \expandafter\guji@sp@docmd\expandafter\guji@sp@last
 277   \expandafter{\guji@sp@lasttext}%
 278   \ifguji@heavydebug
 279     \message{last is \guji@sp@lasttext by \meaning\guji@sp@last}%
 280   \fi
 281 }
 282 \def\guji@twoline@sp@cial[#1]#2{% #1 is a comma-seperated list of command names
 283   \ifguji@debug
 284     \message{special \meaning #1 \meaning #2}%
 285   \fi
 286   \getnumofelem{#1}\guji@tmpcount%
 287   \ifcase\guji@tmpcount
 288     \ifguji@debug
 289       \message{Zero}% just a local group
 290     \fi
 291     \setbox\guji@savebox=\hbox{\unhbox\guji@savebox{#2}\allowbreak\hskip\guji@hanzisep}%
 292   \or
 293     \ifguji@debug
 294       \message{One}%  a command that applies to the entire #2
 295     \fi
 296     \setbox\guji@savebox=\hbox{\unhbox\guji@savebox{{\csname #1\endcsname{#2}}}\allowbreak\hskip\guji@hanzisep}%
 297   \or
 298     \ifguji@debug
 299       \message{Two}% execute the first command, then apply the second to #2
 300     \fi
 301     \csname #1\endcsname
 302     \setbox\guji@savebox=\hbox{\unhbox\guji@savebox{{\csname #1\endcsname{#2}}}\allowbreak\hskip\guji@hanzisep}%
 303   \or
 304     \ifguji@debug
 305       \message{Three}%  #1,#2,#3, apply #1 #2 #3 to the first, middle, last char
 306     \fi
 307     % if #1 empty, #1<-#2; if #3 empty, #3<-#2
 308     \def\guji@sp@docmd##1##2{%
 309       \setbox\guji@savebox=\hbox{\unhbox\guji@savebox{##1{##2}}\allowbreak\hskip\guji@hanzisep}%
 310     }%
 311     \guji@sp@cial@three[#1]#2\end
 312   \else
 313     \errmessage{guji@twoline@sp@cial: Unsupported option #1.}%
 314   \fi
 315   \guji@twoline@iterate % continue to iterate
 316 }
 317 \def\guji@twolinemode#1{%
 318   \begingroup
 319   \everypar={}%
 320   \parindent=0pt
 321   \the\guji@everytwolinemode
 322   \let\guji@sp@cial\guji@twoline@sp@cial  % no nest allowed
 323   \let\guji@twolinemode\guji@twoline@iterate  % no nest allowed
 324   \setbox\guji@savebox=\hbox{}%
 325   \hfuzz=\maxdimen\hbadness=\@M
 326   %(#1)%
 327   \guji@twoline@iterate
 328   #1\guji@twoline@enditer
 329   \global\guji@tmpdim=\guji@hoffset
 330   \endgroup
 331   \guji@hoffset=\guji@tmpdim
 332   \guji@iterate % continue to iterate
 333 }
 334 \def\guji@twoline@iterate#1{%
 335   %\message{iterating \meaning#1}%
 336   \ifx #1\guji@twoline@enditer
 337     \guji@twoline@enditer
 338   \else
 339     \let\guji@twoiter@next\guji@twoline@iterate
 340     \ifx#1\guji@special
 341       %\guji@twoline@flush
 342       \let\guji@twoiter@next\guji@special
 343     \else
 344       \testbreak\guji@oktext\guji@lasttext{#1}%
 345       \ifx\guji@oktext\empty
 346       \else
 347         %\setbox\guji@tmpbox=\hbox{\unhcopy\guji@savebox[\guji@oktext]\allowbreak}%
 348         \setbox\guji@tmpbox=\hbox{\unhcopy\guji@savebox\guji@oktext\allowbreak\hskip\guji@hanzisep}%
 349         \guji@tmpdim=\wd\guji@tmpbox
 350         \divide\guji@tmpdim by 2
 351         \advance\guji@tmpdim by \guji@hoffset
 352         \advance\guji@tmpdim by -\guji@hfuzz
 353         \ifdim\guji@tmpdim > \guji@hsize % a break is required
 354           \guji@tmpdim=\guji@hsize
 355           \advance\guji@tmpdim by -\guji@hoffset
 356           \guji@twoline@flush
 357           %\setbox\guji@savebox=\hbox{\guji@oktext\allowbreak\hskip\guji@hanzisep}%
 358           \setbox\guji@savebox=\hbox{\unhbox\guji@savebox\guji@oktext\allowbreak\hskip\guji@hanzisep}%
 359         \else
 360           %\setbox\guji@savebox=\hbox{\unhbox\guji@savebox[\guji@oktext]\allowbreak}%
 361           \setbox\guji@savebox=\hbox{\unhbox\guji@savebox\guji@oktext\allowbreak\hskip\guji@hanzisep}%
 362         \fi
 363       \fi
 364     \fi
 365     \expandafter\guji@twoiter@next
 366   \fi
 367 }
 368 \def\guji@twoline@flush{%  \guji@tmpdim is required to be presetted
 369   \ifguji@debug
 370     \message{flush it}%
 371   \fi
 372   \setbox\guji@tmpboy=\copy\guji@savebox % make a backup of savebox
 373   \let\guji@twoline@break\relax
 374   \hsplit\guji@savebox\to\guji@tmpdim\into\guji@tmpbox
 375   \guji@tmpdil=\wd\guji@tmpbox
 376   \advance\guji@tmpdil by -\guji@tmpdim
 377   \ifdim\guji@tmpdil > \guji@hfuzz
 378     %\showbox\guji@tmpboy
 379     \guji@tmpdim=\wd\guji@tmpbox
 380   %\else
 381   %  \advance\guji@tmpdim by \wd\guji@tmpbox
 382   %  \divide\guji@tmpdim by 2
 383   %\fi
 384     \ifdim\guji@tmpdim < \wd\guji@savebox % the second box is longer than the first, should be truncated
 385       \setbox\guji@tmpbox=\hbox to \guji@tmpdim{\unhbox\guji@tmpbox}%
 386       \hsplit\guji@savebox\to\guji@tmpdim\into\guji@tmpboy
 387       \setbox\guji@tmpboy=\hbox to \guji@tmpdim{\unhbox\guji@tmpboy\hss}%
 388       \message{1<2}%
 389       \advance\guji@tmpdim by \guji@hoffset
 390       \ifdim\guji@tmpdim > \guji@hsize % at the end of line, should break in advance
 391         \let\guji@twoline@break\break
 392       \fi
 393     \else % the first box is longer than the second
 394       \message{1>2}%
 395       \advance\guji@tmpdim by \guji@hoffset
 396       \ifdim\guji@tmpdim > \guji@hsize % at the end of line, should break in advance
 397         \message{eol}%
 398         \let\guji@twoline@break\break
 399         \advance\guji@tmpdim by -\guji@hoffset
 400         \advance\guji@tmpdim by -2\guji@hfuzz
 401         \setbox\guji@savebox=\hbox{\allowbreak\unhcopy\guji@tmpboy}%
 402         \hsplit\guji@savebox\to\guji@tmpdim\into\guji@tmpbox
 403         \guji@tmpdim=\wd\guji@tmpbox
 404         %\showbox\guji@tmpbox
 405         % now the first box should be shorter than the second. if not, just go on.
 406         %\setbox\guji@tmpbox=\hbox to \guji@tmpdim{\unhbox\guji@tmpbox}%
 407         \guji@tmpdil=\wd\guji@savebox
 408         \advance\guji@tmpdil by -\guji@tmpdim
 409         \ifdim\guji@tmpdil < 0pt
 410           \guji@tmpdil=-\guji@tmpdil
 411         \fi
 412         \ifdim\guji@tmpdil > \guji@hfuzz
 413           \setbox\guji@savebox=\hbox{\allowbreak\unhcopy\guji@savebox}%
 414           \hsplit\guji@savebox\to\guji@tmpdim\into\guji@tmpboy
 415           \setbox\guji@tmpboy=\hbox to \guji@tmpdim{\unhbox\guji@tmpboy\hss}%
 416         \else
 417           \advance\guji@tmpdim by \wd\guji@savebox
 418           \divide\guji@tmpdim by 2
 419           \setbox\guji@tmpbox=\hbox to \guji@tmpdim{\unhbox\guji@tmpbox}%
 420           \setbox\guji@tmpboy=\hbox to \guji@tmpdim{\unhbox\guji@savebox\hss}%
 421           %\setbox\guji@savebox=\hbox{}%
 422         \fi
 423         %\showbox\guji@tmpboy
 424         %\showbox\guji@savebox
 425       \else
 426         \advance\guji@tmpdim by -\guji@hoffset
 427         \setbox\guji@tmpbox=\hbox to \guji@tmpdim{\unhbox\guji@tmpbox}%
 428         \setbox\guji@tmpboy=\hbox to \guji@tmpdim{\unhbox\guji@savebox\hss}%
 429         %\setbox\guji@savebox=\hbox{}%
 430       \fi
 431     \fi
 432   \else
 433     \message{normal}%
 434     \setbox\guji@tmpbox=\hbox to \guji@tmpdim{\unhbox\guji@tmpbox}%
 435     \setbox\guji@tmpboy=\hbox to \guji@tmpdim{\unhbox\guji@savebox\hskip 0pt plus 1fil}%
 436     %\setbox\guji@savebox=\hbox{}%
 437   \fi
 438   \setbox\guji@tmpbox=\hbox to \guji@tmpdim{\vbox{\hsize=\guji@tmpdim
 439     \nointerlineskip\box\guji@tmpbox\box\guji@tmpboy}}%
 440   \leavevmode
 441   \raise\guji@twolineraise\box\guji@tmpbox
 442   \hskip\guji@hanzisep
 443   \advance\guji@hoffset by \guji@tmpdim
 444   \ifx\guji@twoline@break\break
 445     \penalty -9999  % issue a break
 446     \guji@hoffset=0pt
 447   \else
 448     \guji@tmpdim=\guji@hoffset
 449     \advance\guji@tmpdim by \guji@hfuzz
 450     \ifdim\guji@tmpdim > \guji@hsize
 451       \penalty -9999  % issue a break
 452       \guji@hoffset=0pt
 453     \fi
 454   \fi
 455 }
 456 \def\guji@twoline@enditer{%
 457   %\message{end iter}%
 458   \edef\guji@oktext{\guji@lasttext}%
 459   \def\guji@lasttext{}%
 460   \setbox\guji@savebox=\hbox{\unhcopy\guji@savebox\guji@oktext\hskip\guji@hanzisep}%
 461   \guji@tmpdim=\wd\guji@savebox
 462   \divide\guji@tmpdim by 2
 463   % search to find a proper hbox width to break
 464   \loop
 465     %\message{LOOP}%
 466     \setbox\guji@tmpboy=\copy\guji@savebox
 467     \hsplit\guji@tmpboy\to\guji@tmpdim\into\guji@tmpbox
 468     %\message{SPLITTED}%
 469     \guji@tmpdil=\wd\guji@tmpbox
 470     \ifdim\guji@tmpdil < \wd\guji@tmpboy % failed
 471       \global\advance\guji@tmpdim by 0.5ex
 472       %\message{REPEAT}%
 473   \repeat
 474   %\showbox\guji@tmpbox
 475   \guji@twoline@flush
 476   \relax
 477   %\message{iteration ended}%
 478 }
 479 \def\guji@docommand{%
 480   \ifguji@debug
 481     \message{Starting do command \meaning\guji@whatcmd}%
 482   \fi
 483   \def\guji@whatparam{}%
 484   \futurelet\guji@nextchar\guji@d@command
 485 }
 486 \def\guji@d@command{%
 487   \ifcat\noexpand\guji@nextchar\bgroup
 488     \let\guji@docmd@next\guji@docmd@saveparam
 489   \else
 490     \let\guji@docmd@next\guji@docomm@nd
 491     \ifx\guji@whatcmd\unhbox
 492       \ifx\guji@whatparam\empty
 493         \let\guji@docmd@next\guji@docmd@saveparam
 494       \fi
 495     \fi
 496   \fi
 497   \guji@docmd@next
 498 }
 499 \long\def\guji@docmd@saveparam#1{%
 500   \ifguji@debug
 501     \message{Param #1 saved}%
 502   \fi
 503   \edef\guji@whatparam{\guji@whatparam{#1}}%
 504   \futurelet\guji@nextchar\guji@d@command
 505 }
 506 \def\guji@docomm@nd{%
 507   \ifguji@debug
 508     \message{Now doing command}%
 509   \fi
 510   \ifx\guji@whatcmd\unhbox
 511     \expandafter\def\expandafter\guji@whatparam\guji@whatparam
 512   \fi
 513   \def\guji@tmpparam{\voidb@x}%
 514   \ifx\guji@whatparam\guji@tmpparam
 515     % the command is leavevmode. just execute it
 516     \expandafter\guji@whatcmd\guji@whatparam
 517   \else
 518     \begingroup
 519       \everypar{}%
 520       \the\guji@everycommand
 521       \expandafter\guji@whatcmd\guji@whatparam
 522       \endgraf
 523     \endgroup
 524   \fi
 525   \guji@hoffset=0pt
 526   \guji@iterate
 527 }
 528 \long\def\guji@iterate#1{%
 529   %\message{ITERATing \meaning#1}%
 530   \ifx #1\par
 531     \guji@flush
 532     \par
 533     \guji@hoffset=0pt
 534   \else
 535     \ifx #1\endguji
 536       \endguji
 537     \else
 538       \let\guji@iterate@next\guji@iterate
 539       \ifx#1\guji@special
 540         \guji@flush
 541         \let\guji@iterate@next\guji@special
 542       \else
 543         \ifcat\noexpand#1\relax % test if it's a command
 544           \guji@flush
 545           \let\guji@whatcmd=#1%
 546           \let\guji@iterate@next\guji@docommand
 547         \else
 548           \testbreak\guji@oktext\guji@lasttext{#1}%
 549           \ifx\guji@oktext\empty
 550           \else
 551             %\message{oktext \meaning\guji@oktext}%
 552             \setbox\guji@tmpbox=\hbox{\guji@oktext\hskip\guji@hanzisep}%
 553             \guji@tmpdim=\wd\guji@tmpbox
 554             \advance\guji@tmpdim by \guji@hoffset
 555             \ifdim\guji@tmpdim > \guji@hsize % a break is required
 556               \penalty -\@M
 557               \guji@hoffset=\wd\guji@tmpbox
 558               \unhbox\guji@tmpbox
 559             \else
 560               \advance\guji@hoffset by \wd\guji@tmpbox
 561               \unhbox\guji@tmpbox
 562             \fi
 563           \fi
 564         \fi
 565       \fi
 566       \expandafter\expandafter\expandafter\guji@iterate@next
 567       \expandafter
 568     \fi
 569   \fi
 570 }
 571 \def\guji@flush{%
 572   \edef\guji@oktext{\guji@lasttext}%
 573   \def\guji@lasttext{}%
 574   \ifx\guji@oktext\empty
 575   \else
 576     \setbox\guji@tmpbox=\hbox{\guji@oktext\hskip\guji@hanzisep}%
 577     \guji@tmpdim=\wd\guji@tmpbox
 578     \advance\guji@tmpdim by \guji@hoffset
 579     \ifdim\guji@tmpdim > \guji@hsize % a break is required
 580       \penalty -\@M
 581       \guji@hoffset=\wd\guji@tmpbox
 582       \unhbox\guji@tmpbox
 583     \else
 584       \advance\guji@hoffset by \wd\guji@tmpbox
 585       %\show\guji@oktext
 586       \unhbox\guji@tmpbox
 587       %\showbox\guji@tmpbox
 588     \fi
 589     \def\guji@oktext{}%
 590   \fi
 591 }
 592 \def\endguji{%
 593   \guji@flush
 594   \endgroup
 595 }
 596 \fi