view release on metacpan or  search on metacpan

lib/Device/GPIB/Tektronix/AFG310.pm  view on Meta::CPAN

	-274   => 'Macro parameter error',
	-275   => 'Macro definition too long',
	-276   => 'Macro recursion error',
	-277   => 'Macro rejuvenation not allowed',
	-278   => 'Macro header not found',
	
	-280   => 'Program error',
	-281   => 'Cannot create program',
	-282   => 'Illegal program name',
	-283   => 'Illegal variable name',
	-284   => 'Program currently running',
	-285   => 'Program syntax error',
	-286   => 'Program run time error',
	
	-290   => 'Memory use error',
	-291   => 'Out of memory',
	-292   => 'Referenced name does not exist',
	-293   => 'Referenced name already exists',
	-294   => 'Incompatible type',
	
	# Table 5-9 Internal device errors
	-300   => 'Device specific error',
	
	-310   => 'System error',
	-311   => 'Memory error',
	-312   => 'PUD memory lost',
	-313   => 'Calibration memory losr',
	-314   => 'Save/recall memory lost',
	-315   => 'Configuraiotn memory lost',
	
	-330   => 'Self test failed',
	
	-350   => 'Queue overflow',
	
	# Table 5-10 Query errors
	-400   => 'Query error',
	-410   => 'Query INTERRUPTED',
	-420   => 'Query UNTERMINATED',
	-430   => 'Query DEADLOCKED',
	-440   => 'Query UNTERMINATED after indefinite response',
	
	# Table 5-11 Device Dependednt Errors
	500   => 'Self test error',
	501   => 'Flash memory error',
	502   => 'Control memory error',
	503   => 'Waveform memory error',
	504   => 'GPIB interface error',

	# Table 5-12 Device Dependent Device Errors
	600   => 'Calibration error',
	601   => 'Offset calibration error',
	602   => 'Arbitrary gain calibration error',
	603   => 'Sine gain calibration error',
	604   => 'Square gain calibration error',
	605   => 'AM offset calibration error',
	606   => 'Sine flatnesscalibration error',
	607   => 'Output attenuator calibration error',

	# Table 5-13 Device Dependent Device Errors
	700   => 'Trace data error',
	701   => 'User waveform locked',
	702   => 'Trace data byte count error',
	703   => 'Too much trace data',
	704   => 'Not enough trace data',
    };

    return $self;
}

# Print the error queue
# Different to the on in Tektronix.pm since the error text strings are already included
sub getErrorsAsStrings($)
{
     my ($self) = @_;

     my @ret;
     while (1)
     {
	 my $error = $self->sendAndRead('SYST:ERR?');
	 return @ret if $error == 0;
	 push(@ret, $error);
     }
}

1;