package HNS;
    .......
    print qq(<meta http-equiv="content-type" content="text/html; charset=EUC-JP">\n)
    if !($HNS::System::LessOutput);
#    print qq(<base href="$HNS::System::MyDiaryURI">\n)
#    if !($HNS::System::LessOutput);
    print qq(<base href="$HNS::System::MyDiaryURI">\n)
    if (!($HNS::System::LessOutput) && ($HNS::System::BaseOutput)) ;
    print qq(<link rev="made" href="mailto:$HNS::System::UserMail">\n)
    if !($HNS::System::LessOutput);
    .......

package HNS::System;
........
$BaseOutput = 0;	# 1 -> "<base href=.." output (default), 0 -> don't output

################################################################
### Patch for Diary.pm
################################################################
package HNS::Diary;
use vars qw($RawMode);      # added
$RawMode = 0;   ### [0:Normal 1:RAW] # added

use vars qw($RTMode @RTBuf);        
$RTMode = 0;    ### [0:Normal 1:RT 2:/RT]
@RTBuf  = ();

sub HnfPrint ($){
   my $hnf_ = shift;

   ### RAW
   if( $hnf_ =~ /^<\!--RAW START-->/ ) { $RawMode = 1;}
   if( $hnf_ =~ /^<\!--RAW END-->/ ) { $RawMode = 0;}
   if( $RawMode == 1 ){
       $hnf_ =~ s/&amp;/&/g;
       $hnf_ =~ s/&lt;/</g;
       $hnf_ =~ s/&gt;/>/g;
   }

   ### RT
   if( $hnf_ =~ /^<\!--RT START-->/ ) { $RTMode = 1; @RTBuf=(); return; }
   if( $hnf_ =~ /^<\!--RT END-->/ ) { $RTMode = 2; }
   if( $RTMode == 1 ) {
       push(@RTBuf, $hnf_);
       return;
   } elsif( $RTMode == 2 ){
       my $cache = "$HNS::System::CacheDir/RTtool.tmp";
       open (PIPE_O, "| ruby rt2html > $cache") || die "Can't Create Cache File.\n";
       my $buf = join("",@RTBuf);
       print PIPE_O $buf;
       close(PIPE_O);

       $hnf_ = "";
       open (PIPE_I, $cache) || die "Can't Open Cache File.\n";
       while (<PIPE_I>) {
           $hnf_ .= $_;
       }
       close(PIPE_I);
       $RTMode = 0;
   }

   if ($HNS::System::Caching) {
    print X $hnf_;
   }
   else {
    $HNS::Diary::Hnf .= $hnf_;
   }
}
################################################################
package HNS::Hnf::Command::New;;
$AllowCommands = [ $HNS::Hnf::Command::New::AllowCommands,'RT'];

package HNS::Hnf::Command::Sub;
$AllowCommands = [ $HNS::Hnf::Command::Sub::AllowCommands,'RT'];

################################################################
### RT
package HNS::Hnf::Command::RT;
use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
        $IsBeginSection $CountName $OmittableEnd);
@ISA = qw(HNS::Hnf::Command::Cite);
$AllowCommands = [$HNS::Hnf::Command::Entities{'Inline'}];
$Template = "<!--RT START-->\n";
$EndTemplate = "<!--RT END-->\n";
$OmittableEnd = 1;

• rttool-0.1.3.tar.gz
• optparse-0.8.2.tar.gz

• rttool-0.1.3.tar.gz の rt/* を D:/TOOLS/cygwin/usr/local/lib/ruby/1.6/rt/ にコピー
• optparse-0.8.2.tar.gz の optparse.rb を D:/TOOLS/cygwin/usr/local/lib/ruby/1.6/ にコピー
• rt2 を ~/public_html/diary/rt2html という名前でコピー(rubyのパスも調整しておく)
• dot.rt.rd2rc を ~/.rd2rc にコピー

. 生HTMLで書いたら頭がこんがらがりそうな表も楽に記述できる。 RTtoolってすごいですね。

 RT
 caption = ぐるぐる
 delimiter = :

  1:==:==:==:==: 2
  5:==:==:==: 6:||
  4: 9:==:10:||:||
 ||: 8:11:||:||:||
 ||:||: 7:==:==:||
 ||: 3:==:==:==:==
 /RT

 RT
 caption = 複雑な表
 
    , ふ   , く , == , ざ
 つ , な   , 表 , も , へっ
 || ,ちゃら, == , || , で
 す , ||   , == , ね , 。
 /RT

 RT
 1, 2, 3, 4
 5, 6, 7, 8
 9,10,11,12
 /RT

• caption = タイトル : 表にタイトルをつけることが出来る。
• delimiter = デリミタ文字 : 通常","とタブであるデリミタを切り替えることが出来る。
• THタグ出力 : セル行の間に空行を挟むと、それより上のセルをTHタグで出力する。
• "||" : 自分の上方向のセルと結合する。
• "==" : 自分の左方向のセルと結合する。

 RT
  caption = テスト
  delimiter = :
 
  A:  B:  C: ==:  D:  E
 
  1:  2:  3:  4:  5:  6
  7: ==: ||:  8: ==:  9
 10: 11: 12: ||: ==: 13
 /RT

 RT
  caption       = RT(勝手に)拡張コマンド
  delimiter     = :
  table_border  = 2
  tbody_span    = 2
  thead_bgcolor = skyblue
  tbody_bgcolor = lightgreen

  コマンド :     ==        : 機能

    全体   : table_border  : 枠線の幅(ピクセル)
     ||    : table_width   : テーブルの幅(ピクセルまたは%)
     ||    : table_height  : テーブルの高さ(ピクセルまたは%)
     ||    : table_frame   : 外枠の表示方法 (void,above,below,hsides,vsides,lhs,rhs,box,border)
     ||    : table_rules   : 内側罫線の表示方法 (none,groups,rows,cols,all)
  ヘッダ部 : thead_bgcolor : BGCOLOR 指定
  ボディ部 : tbody_span    : 見出し扱いしたい列数(左から数えた数)
     ||    : tbody_width   : セルの幅(ピクセル)
     ||    : tbody_align   : セル配置(left,center,right)
     ||    : tbody_bgcolor : BGCOLOR 指定
 /RT

 RT
  caption       = RT 拡張コマンド
  delimiter     = :
  table_border  = 2
  thead_bgcolor = skyblue
  tindex_span   = 3
  tindex_bgcolor= lightgreen
  tbody_bgcolor = white

  コマンド :  ==  :       ==      : 機能

  TABLE全体:  ==  : caption       : 表の題名
     ||    :  ==  : delimiter     : デリミタ
     ||    :  ==  : table_class   : スタイルシート指定
     ||    :  ==  : table_border  : 枠線の幅(ピクセル)
     ||    :  ==  : table_width   : テーブルの幅(ピクセルまたは%)
     ||    :  ==  : table_height  : テーブルの高さ(ピクセルまたは%)
     ||    :  ==  : table_frame   : 外枠の表示方法 (void,above,below,hsides,vsides,lhs,rhs,box,border)
     ||    :  ==  : table_rules   : 内側罫線の表示方法 (none,groups,rows,cols,all)
   THEAD部 :  ==  : thead_class   : スタイルシート指定
     ||    :  ==  : thead_bgcolor : BGCOLOR 指定
   TBODY部 :見出し: tindex_class  : スタイルシート指定
     ||    :  ||  : tindex_span   : グループ化する列数
     ||    :  ||  : tindex_width  : セルの幅(ピクセル)
     ||    :  ||  : tindex_align  : セル配置(left,center,right)
     ||    :  ||  : tindex_bgcolor: BGCOLOR 指定
     ||    : 本体 : tbody_class   : スタイルシート指定
     ||    :  ||  : tbody_span    : グループ化する列数
     ||    :  ||  : tbody_width   : セルの幅(ピクセル)
     ||    :  ||  : tbody_align   : セル配置(left,center,right)
     ||    :  ||  : tbody_bgcolor : BGCOLOR 指定
 /RT