cpp2html[Ｃ言語版]

例題のページで用いられているcpp2htmlのＣ言語版を掲載します。 cpp2htmlは、Ｃ及びＣ＋＋で書かれたソースファイルをＨＴＭＬへと変換します。

ソースのダウンロード（リンク先にはcpp2htmlにより変換されたＨＴＭＬファイルが表示されます。）：

実行時の引数は以下のようになります。

Gami[573]% cpp2html USAGE: cpp2html srcfile [-disp] [-plain] [-out htmlfile] [-t n] option: -disp output to display (default _c.html file). -plain do not display HTML header and footer. -t n tab order(insert n spaces instead of a tab) -out htmlfile output filename Gami[574]%

ファイルの数が多く一括して変換したい場合には、ＶＣ＋＋等でのＧＵＩを作成すれば良いのですが、cygwin環境で一括して変換することができるように、perl用のスクリプトを準備しました。

実行手順：

src2html.pl を保存し、環境変数にパスが通っているディレクトリにコピー（必要な場合は chmod +x により実行権を加える。）
ダウンロードしたcpp2html.cをコンパイルし、実行ファイルをsrc2html.plと同じディレクトりーにコピー
cpp2htmlをsrc2html.plと違うディレクトリに保存したい場合は、src2html.pl内の
$trcmd = "./cpp2html";
の部分を変更する。

Ｃ及びＣ＋＋のソースファイルが存在するディレクトリに移動し、src2html.plを実行する。
実行例：

Gami[616]% ls
common.c  cpp2html.c     cpp2html.h    keydown.c  samp_c.c
common.h  cpp2html.exe*  cpp2html.lzh  makefile
Gami[617]% src2html -t 4     → オプションの指定(-plain or -t n)
**common.c:
output file:[common_c.html]
**cpp2html.c:
output file:[cpp2html_c.html]
**keydown.c:
output file:[keydown_c.html]
**samp_c.c:
output file:[samp_c_c.html]
**common.h:
output file:[common_h.html]
**cpp2html.h:
output file:[cpp2html_h.html]
Gami[618]% ls
common.c       common_h.html  cpp2html.h       cpp2html_h.html  makefile
common.h       cpp2html.c     cpp2html.lzh     keydown.c        samp_c.c
common_c.html  cpp2html.exe*  cpp2html_c.html  keydown_c.html   samp_c_c.html
Gami[619]%

src2html.pl [download]

#!/usr/bin/perl
#--------------------------------------------------
# cpp2html 一括変換用スクリプト
#   src2html.pl
#--------------------------------------------------
# cpp2html のパスを指定
$trcmd = "./cpp2html";
# 検索する拡張子のリスト
@Lext = ('cpp','cc','c','h','hh');
# 変換オプション
$opt  = 0;    # 1: ヘッダ,フッタを出力しない
$tab2spc = 0; # タブからスペースへの変換数
# 引数検索
for($i=0;$i<=$#ARGV;$i++){
    if($ARGV[$i] eq "-plain"){ $opt = 1; }
    if($ARGV[$i] eq "-t"){
        $i++; $tab2spc = $ARGV[$i];
    }
}
# 拡張子による検索
for($i=0;$i<=$#Lext;$i++){
    $trext = $Lext[$i];
    @file  = <*.$trext>;
    if($#file){
        foreach $fname (@file){
            ($name,$ext) = split(/\./,$fname);
            if($ext eq $trext){
                print "**$fname:\n";
                $cmd = "$trcmd $fname";
                if($opt){ $cmd = "$cmd -plain"; }
                if($tab2spc){ $cmd = "$cmd -t $tab2spc"; }
                system($cmd);
            }
        }
    }
}