Re: myhyper.sty

名前: hoda
日時: 2004-05-02 22:26:46
IPアドレス: 219.167.228.*

>>28567
すでにスマートな解答が出ていますが，
次のようなローテクでもできるようです．
\jobname.key という余計なファイルが生じますが，
改行，タブ等にも対応したつもりです．

-----------------------

{
 \catcode`\^^J=12\catcode`\^^M=12%
 \global\def\@dosrtn{^^M^^J}%
}

{
 \catcode`\^^M=\active
 \gdef\set@ctive{%
  \@makeother\^^I%
  \catcode`\^^M=\active \def^^M{\@dosrtn}%
 }
} % タブも catcode 12 にする．
  % クリップボードにはDOSの改行をコピーすべき．

{
 \catcode`\%=12
 \gdef\wrt@keystr#1{\write\@key@file{#1%}}
} % ファイルへの出力の最後に`%'をつける
  % 読込時にできる最後の空白を防止．

\def\K{\begingroup\@sanitize%
 \set@ctive\@K}
\def\@K#1{%
 \newwrite\@key@file%
 \immediate\openout\@key@file= \jobname.key%
 \immediate\wrt@keystr{#1}%
 \immediate\closeout\@key@file%
 \special{html:<a HREF="dviout:`input #1">}%
 \endgroup%
 \input{\jobname.key}%
 \special{html:</a>}%
}

-----------------------
\Kを垂直モードの最初に使うと組版結果が変わります．

この書き込みへの返事：