<a name=initialize>
<h3>初期化処理</h3>

prologue()では変数の初期化などを行なう。
%SIGに関数名を指定しておくと、
signalが発生したときに$SIG{シグナル名}の関数が呼ばれる。
ここではSIGINTなどを受け取った時に
finish()が呼ばれるようにしている。

<a name="prologue"></a>
<pre file=wtangle>

sub prologue {
  require 'cacheout.pl'; # 複数ファイル出力ライブラリ
  if($#ARGV < 0){
    print STDERR "wtangle --- Web Tangle\n";
    print STDERR "Usage: wtangle documentfiles\n";
    exit 0;
  }
  $SIG{'INT'} = $SIG{'TERM'} =
  $SIG{'QUIT'} = $SIG{'HUP'} = 'finish';
}
</pre>

<h3>メインルーチン</h3>