package GeneralDataFile
@ISA = qw()

sub CheckFileType
my ($path) = @_;
return undef unless($ret);
return "${FileType}XY Data File" if($IsXYData);
return undef;

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub ClearAll
sub ClearAll    { my $this=

sub FileType
return shift->{'FileType'};

sub FileName
return shift->{'FileName'};

sub SetFileName
sub SetFileName { my ($this,$f)=
return $this->{'FileName'} = $f;

sub DataArray
return shift->{'DataArray'};

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

sub Read
my ($this, $filename) = @_;
return undef unless($ret);