package JFile
@ISA = qw()

sub new
my ($module, $path, $mode) = @_;
return undef unless($this->Open($path, $mode));
return $this;

sub DESTROY
my $this = shift;

sub SetSuppressCharCodeConversion
sub SetSuppressCharCodeConversion { my ($this,$f)=
return $this->{SuppressCharCodeConversion} = $f;

sub SuppressCharCodeConversion
return shift->{SuppressCharCodeConversion};

sub SuppressIOBuffering
my ($this, $h) = @_;

sub SetSourceCharCode
my ($this, $c) = @_;
return $this->{SoruceCharCode} = $c;

sub SourceCharCode
return shift->{SoruceCharCode};

sub read
my ($this, $s, $len, $offset) = @_;
return $ret;

sub sysread
my ($this, $s, $len, $offset) = @_;
return $ret;

sub syswrite
my ($this, $s, $len, $offset) = @_;
return syswrite($this->HANDLE(), $s, $len, $offset);

sub stat
my ($this) = @_;
return stat($this->HANDLE());

sub lstat
my ($this) = @_;
return lstat($this->HANDLE());

sub fileno
my ($this) = @_;
return fileno($this->HANDLE());

sub flock
my ($this, $operation) = @_;
return flock($this->HANDLE(), $operation);

sub getc
my ($this) = @_;
return getc($this->HANDLE());

sub truncate
my ($this, $length) = @_;
return truncate($this->HANDLE(), $length);

sub WriteFile
my ($this, $filename, $content, $charcode, $mode) = @_;
return 0;
return 1;

sub ReadFile
my ($this, $filename, $charcode, $mode) = @_;
return 0;
return $str;

sub ReadFileToLines
my ($this, $filename, $charcode, $mode) = @_;
return 0;
return @lines;

sub Open
my ($this, $filename, $mode, $charcode, $IsPrintOut) = @_;
return $ret;
return $ret;
return $ret;

sub Close
my ($this) = @_;
return '';
return '';

sub eof
my $this = shift;
return eof($this->{'inHANDLE'})  if($this->{'inHANDLE'});
return eof($this->{'outHANDLE'}) if($this->{'outHANDLE'});
return 1;

sub ReadLine
my ($this, $DelSpace) = @_;
return undef unless($fh);
return undef unless(defined $line);
return $line;

sub PreReadLine
my ($this) = @_;
return $line;

sub Write
my ($this, $str) = @_;
return undef unless($fh);
return $str;

sub print
my ($this, @args) = @_;
return @args;

sub printf
my ($this, @args) = @_;
return @args;

sub SetAuxOutput
my ($this, $aux) = @_;

sub mprint
my ($this, @args) = @_;

sub mprintf
my ($this, @args) = @_;

sub SkipTo
my ($this, $pattern, $origin) = @_;
return undef unless($IsFound);
return $line;

sub tell
my ($this) = @_;
return tell($this->{'inHANDLE'})  if($this->{'inHANDLE'} ne '');
return tell($this->{'outHANDLE'}) if($this->{'outHANDLE'} ne '');

sub rewind
return shift->seek(0,0);

sub seek
my ($this, $pos, $origin) = @_;
return seek($this->{'inHANDLE'}, $pos, $origin)  if($this->{'inHANDLE'} ne '');
return seek($this->{'outHANDLE'}, $pos, $origin) if($this->{'outHANDLE'} ne '');

sub Initialize
my ($this) = @_;

sub FileName
my ($this) = @_;
return $this->{'FileName'};

sub HANDLE
my ($this) = @_;
return $this->{'inHANDLE'} if($this->{'inHANDLE'} ne '');
return $this->{'outHANDLE'} if($this->{'outHANDLE'} ne '');

sub inHANDLE
my ($this) = @_;
return $this->{'inHANDLE'};

sub outHANDLE
my ($this) = @_;
return $this->{'outHANDLE'};

sub Mode
my ($this) = @_;
return $this->{'Mode'};

sub CharCode
my ($this) = @_;
return $this->{'CharCode'};