package Util
@ISA = qw()

sub BEGIN

sub DelSpace
my ($s) = @_;
return $_[0] = $s;

sub Reduce01
my ($x) = @_;
return $x;

sub RegExpQuote
	my($str) = (
return $str;

sub MakePath
my ($dir, $fname, $separator, $DoTerminate) = (@_);
return $dir;

sub PrintHTMLHeader
	my($CharSet) = (

sub InitHTML
	my($WebTitle, $CharSet, $LinkTarget) = (

sub EndHTML

sub GetHTMLParagraph
my ($str) = (@_);
return ($line, $paragraph, $content);

sub DequoteXML
my ($str,$DoDecode) = (@_);
return $_[0] = $str;