package Deps
@ISA = qw()

sub OS
return $OS;

sub LF
return $LF;

sub DirSep
return $DirectorySeparator;

sub DirectorySeparator
return $DirectorySeparator;

sub RegDirSep
return $RegSep;

sub RegDirectorySeparator
return $RegSep;

sub PrintCharCode
return $PrintCharCode;

sub OSCharCode
return $OSCharCode;

sub FileSystemCharCode
return $FileSystemCharCode;

sub FileCharCode
return $FileCharCode;

sub PerlCharCode
return $PerlCharCode;

sub SetPerlCharCode
sub SetPerlCharCode    { my ($cc)=
return $PerlCharCode = $cc;

sub MySQLCharCode
return $MySQLCharCode;

sub WebCharCode
return $WebCharCode;

sub WebCharSet
return $WebCharSet;

sub BEGIN

sub Sleep
my ($sec) = @_;

sub GetTime
return Win32::GetTickCount() * 0.001;
return time();

sub CreateDirecotry
my ($dir) = @_;
return &CreateDirectory($dir);

sub CreateDirectory
my ($dir) = @_;
return;
return 0 unless(mkdir($path));
return 1;

sub ExecBackground
my ($cmdline, $startapp) = @_;
return open(OUT351301463, "|$cmdline");
return $ret;
return $ret;
return 0;

sub SpeculateProgramPath
my ($path, $BaseDir) = @_;
return $path;
return $s;
return $s if(-e $s);
return undef;

sub AddPath
my ($path) = @_;
return AddPathLinux($path) if($OS eq 'linux');
return AddPathMSWin32($path);

sub AddPathLinux
my ($path) = @_;
return 1;

sub AddPathMSWin32
my ($path) = @_;
return 1;

sub RegExpQuote
	my($str) = (
return $str;
my ($dir, $fname, $DoTerminate) = (@_);
return Utils::MakePath($dir, $fname, $DirectorySeparator, $DoTerminate);

sub MakePath2
my ($dir, $pfnames, $DoTerminate, $QuotationMode) = @_;
return $dir if(!defined $pfnames or @$pfnames == 0);
return $path;

sub MakePath
my ($dir, $fname, $DoTerminate, $QuotationMode) = (@_);
return &MakePath2($dir, $fname, $DoTerminate);
return $dir;

sub ReplaceFileName
my ($path, $newfilename) = @_;
return Deps::MakePath("$drive$dir", $newfilename);

sub ReplaceExtension
my ($path, $newext) = @_;
return "$filebody$newext";
return MakePath("$drive$dir", "$filebody$newext");

sub GetWorkingDirectory
return $pd;
return GetWorkingDirectory();

sub ExtractExtention
my ($path) = @_;
return $path if(-d $path);
return $ext;

sub ExtractFileBody
my ($path) = @_;
return $path if(-d $path);
return $filebody;

sub ExtractFileName
my ($path) = @_;
return $filename;

sub ExtractDirectory
my ($path) = @_;
return $path if(-d $path);
return MakePath($drive, $dir);

sub GetLastDirectory
my ($path) = @_;
return $lastdir;

sub SplitFilePath
my ($path) = @_;
return ($drive, $dir, $filename, $ext, $lastdir, $filebody);