package PX14Mon;
use strict;

require Exporter;
require DynaLoader;
require AutoLoader;

use vars qw( $VERSION @ISA);
$VERSION = '0.1';

@ISA = qw(Exporter DynaLoader);

use Carp;

bootstrap PX14Mon;

# my $px14mon = new PX14Mon();
# my $px14mon->currentfile()
# my $px14mon->lastfile()
# my $px14mon->recpath()


sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;
  
  initShm();
  
  my $self = {};
  bless ($self, $class);

  return $self;
}

sub currentfile {
  my $self = shift;
  return getCurrentFile();
}

sub lastfile {
  my $self = shift;
  return getLastFile();
}

sub recpath {
  my $self = shift;
  return getRecPath();
}

sub exper {
  my $self = shift;
  return getExperiment();
}

sub recording {
  my $self = shift;
  return getRecording();
}

sub mark5b {
  my $self = shift;
  return getMark5b();
}

sub invert {
  my $self = shift;
  return getInvert();
}

sub roundstart {
  my $self = shift;
  return getRoundstart();
}

sub filesize {
  my $self = shift;
  return getFilesize();
}

sub bufsize {
  my $self = shift;
  return getBufsize();
}

sub recordtime {
  my $self = shift;
  return getRectime();
}

sub bufdone {
  my $self = shift;
  return getBufdone();
}

sub rate {
  my $self = shift;
  return getRate();
}

sub bits {
  my $self = shift;
  return getBits();
}

sub nchan {
  my $self = shift;
  return getChans();
}

sub starttime {
  my $self = shift;
  return getStarttime();
}

sub filetime {
  my $self = shift;
  return getFiletime();
}

sub bandwidth {
  my $self = shift;
  return getBandwidth();
}

sub recsec {
  my $self = shift;
  return getRecsec();
}

sub timeoffset {
  my $self = shift;
  return getTimeoffset();
}

sub stddev {
  my $self = shift;
  return (getStddev(0), getStddev(1));
}

1;

__END__