package RS232CComm
@ISA = qw()

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

sub DESTROY
my $this = shift;

sub Initialize
my ($this) = @_;

sub Configure
my ($this, $ConfFile, $COMPort, $BaudRate, $Parity, $DataBits, $StopBits, $HandShake,
		$WriteBufferSize, $ReadBufferSize, $ReadInterval, $ReadCharTime, 
		$ErrorMessage, $UserMessage) = @_;
return 1;

sub Open
my ($this, $ConfFile, $COMPort, $BaudRate, $Parity, $DataBits, $StopBits, $HandShake,
		$WriteBufferSize, $ReadBufferSize, $ReadInterval, $ReadCharTime, 
		$ErrorMessage, $UserMessage, $IsPrintOut) = @_;
return 1;

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

sub eof
my ($this) = @_;
return 0;

sub truncate
my ($this,$c) = @_;

sub ReadLine
return shift->read();

sub read
my ($this, $maxread) = @_;
return $s;

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

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