push @EXPORT_OK, qw($READ_LABEL_STATUS_VOLUME_ERROR);push @{$EXPORT_TAGS{"ReadLabelStatusFlags"}}, qw($READ_LABEL_STATUS_VOLUME_ERROR);$_ReadLabelStatusFlags_VALUES{"VOLUME_ERROR"} = $READ_LABEL_STATUS_VOLUME_ERROR;push @EXPORT_OK, qw($READ_LABEL_STATUS_FLAGS_MAX);push @{$EXPORT_TAGS{"ReadLabelStatusFlags"}}, qw($READ_LABEL_STATUS_FLAGS_MAX);#copy symbols in ReadLabelStatusFlags to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"ReadLabelStatusFlags"}};push @EXPORT_OK, qw(PropertyPhaseFlags_to_strings);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw(PropertyPhaseFlags_to_strings);my %_PropertyPhaseFlags_VALUES;#Convert a flag value to a list of names for flags that are set.sub PropertyPhaseFlags_to_strings {    my ($flags) = @_;    my @result = ();    for my $k (keys %_PropertyPhaseFlags_VALUES) {	my $v = $_PropertyPhaseFlags_VALUES{$k};	#is this a matching flag?	if (($v == 0 && $flags == 0) || ($v != 0 && ($flags & $v) == $v)) {	    push @result, $k;	}    }#by default, just return the number as a 1-element list    if (!@result) {	return ($flags);    }    return @result;}push @EXPORT_OK, qw($PROPERTY_PHASE_BEFORE_START);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_BEFORE_START);$_PropertyPhaseFlags_VALUES{"BEFORE_START"} = $PROPERTY_PHASE_BEFORE_START;push @EXPORT_OK, qw($PROPERTY_PHASE_BETWEEN_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_BETWEEN_FILE_WRITE);$_PropertyPhaseFlags_VALUES{"BETWEEN_FILE_WRITE"} = $PROPERTY_PHASE_BETWEEN_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_PHASE_INSIDE_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_INSIDE_FILE_WRITE);$_PropertyPhaseFlags_VALUES{"INSIDE_FILE_WRITE"} = $PROPERTY_PHASE_INSIDE_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_PHASE_BETWEEN_FILE_READ);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_BETWEEN_FILE_READ);$_PropertyPhaseFlags_VALUES{"BETWEEN_FILE_READ"} = $PROPERTY_PHASE_BETWEEN_FILE_READ;push @EXPORT_OK, qw($PROPERTY_PHASE_INSIDE_FILE_READ);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_INSIDE_FILE_READ);$_PropertyPhaseFlags_VALUES{"INSIDE_FILE_READ"} = $PROPERTY_PHASE_INSIDE_FILE_READ;push @EXPORT_OK, qw($PROPERTY_PHASE_MAX);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_MAX);push @EXPORT_OK, qw($PROPERTY_PHASE_MASK);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_MASK);push @EXPORT_OK, qw($PROPERTY_PHASE_SHIFT);push @{$EXPORT_TAGS{"PropertyPhaseFlags"}}, qw($PROPERTY_PHASE_SHIFT);#copy symbols in PropertyPhaseFlags to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"PropertyPhaseFlags"}};push @EXPORT_OK, qw(PropertyAccessFlags_to_strings);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw(PropertyAccessFlags_to_strings);my %_PropertyAccessFlags_VALUES;#Convert a flag value to a list of names for flags that are set.sub PropertyAccessFlags_to_strings {    my ($flags) = @_;    my @result = ();    for my $k (keys %_PropertyAccessFlags_VALUES) {	my $v = $_PropertyAccessFlags_VALUES{$k};	#is this a matching flag?	if (($v == 0 && $flags == 0) || ($v != 0 && ($flags & $v) == $v)) {	    push @result, $k;	}    }#by default, just return the number as a 1-element list    if (!@result) {	return ($flags);    }    return @result;}push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_BEFORE_START);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_BEFORE_START);$_PropertyAccessFlags_VALUES{"GET_BEFORE_START"} = $PROPERTY_ACCESS_GET_BEFORE_START;push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE);$_PropertyAccessFlags_VALUES{"GET_BETWEEN_FILE_WRITE"} = $PROPERTY_ACCESS_GET_BETWEEN_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE);$_PropertyAccessFlags_VALUES{"GET_INSIDE_FILE_WRITE"} = $PROPERTY_ACCESS_GET_INSIDE_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_BETWEEN_FILE_READ);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_BETWEEN_FILE_READ);$_PropertyAccessFlags_VALUES{"GET_BETWEEN_FILE_READ"} = $PROPERTY_ACCESS_GET_BETWEEN_FILE_READ;push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_INSIDE_FILE_READ);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_INSIDE_FILE_READ);$_PropertyAccessFlags_VALUES{"GET_INSIDE_FILE_READ"} = $PROPERTY_ACCESS_GET_INSIDE_FILE_READ;push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_BEFORE_START);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_BEFORE_START);$_PropertyAccessFlags_VALUES{"SET_BEFORE_START"} = $PROPERTY_ACCESS_SET_BEFORE_START;push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE);$_PropertyAccessFlags_VALUES{"SET_BETWEEN_FILE_WRITE"} = $PROPERTY_ACCESS_SET_BETWEEN_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE);$_PropertyAccessFlags_VALUES{"SET_INSIDE_FILE_WRITE"} = $PROPERTY_ACCESS_SET_INSIDE_FILE_WRITE;push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_BETWEEN_FILE_READ);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_BETWEEN_FILE_READ);$_PropertyAccessFlags_VALUES{"SET_BETWEEN_FILE_READ"} = $PROPERTY_ACCESS_SET_BETWEEN_FILE_READ;push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_INSIDE_FILE_READ);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_INSIDE_FILE_READ);$_PropertyAccessFlags_VALUES{"SET_INSIDE_FILE_READ"} = $PROPERTY_ACCESS_SET_INSIDE_FILE_READ;push @EXPORT_OK, qw($PROPERTY_ACCESS_GET_MASK);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_GET_MASK);push @EXPORT_OK, qw($PROPERTY_ACCESS_SET_MASK);push @{$EXPORT_TAGS{"PropertyAccessFlags"}}, qw($PROPERTY_ACCESS_SET_MASK);#copy symbols in PropertyAccessFlags to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"PropertyAccessFlags"}};push @EXPORT_OK, qw(ConcurrencyParadigm_to_string);push @{$EXPORT_TAGS{"ConcurrencyParadigm"}}, qw(ConcurrencyParadigm_to_string);my %_ConcurrencyParadigm_VALUES;#Convert an enum value to a single stringsub ConcurrencyParadigm_to_string {    my ($enumval) = @_;    for my $k (keys %_ConcurrencyParadigm_VALUES) {	my $v = $_ConcurrencyParadigm_VALUES{$k};	#is this a matching flag?	if ($enumval == $v) {	    return $k;	}    }#default, just return the number    return $enumval;}push @EXPORT_OK, qw($CONCURRENCY_PARADIGM_EXCLUSIVE);push @{$EXPORT_TAGS{"ConcurrencyParadigm"}}, qw($CONCURRENCY_PARADIGM_EXCLUSIVE);$_ConcurrencyParadigm_VALUES{"EXCLUSIVE"} = $CONCURRENCY_PARADIGM_EXCLUSIVE;push @EXPORT_OK, qw($CONCURRENCY_PARADIGM_SHARED_READ);push @{$EXPORT_TAGS{"ConcurrencyParadigm"}}, qw($CONCURRENCY_PARADIGM_SHARED_READ);$_ConcurrencyParadigm_VALUES{"SHARED_READ"} = $CONCURRENCY_PARADIGM_SHARED_READ;push @EXPORT_OK, qw($CONCURRENCY_PARADIGM_RANDOM_ACCESS);push @{$EXPORT_TAGS{"ConcurrencyParadigm"}}, qw($CONCURRENCY_PARADIGM_RANDOM_ACCESS);$_ConcurrencyParadigm_VALUES{"RANDOM_ACCESS"} = $CONCURRENCY_PARADIGM_RANDOM_ACCESS;#copy symbols in ConcurrencyParadigm to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"ConcurrencyParadigm"}};push @EXPORT_OK, qw(StreamingRequirement_to_string);push @{$EXPORT_TAGS{"StreamingRequirement"}}, qw(StreamingRequirement_to_string);my %_StreamingRequirement_VALUES;#Convert an enum value to a single stringsub StreamingRequirement_to_string {    my ($enumval) = @_;    for my $k (keys %_StreamingRequirement_VALUES) {	my $v = $_StreamingRequirement_VALUES{$k};	#is this a matching flag?	if ($enumval == $v) {	    return $k;	}    }#default, just return the number    return $enumval;}push @EXPORT_OK, qw($STREAMING_REQUIREMENT_NONE);push @{$EXPORT_TAGS{"StreamingRequirement"}}, qw($STREAMING_REQUIREMENT_NONE);$_StreamingRequirement_VALUES{"NONE"} = $STREAMING_REQUIREMENT_NONE;push @EXPORT_OK, qw($STREAMING_REQUIREMENT_DESIRED);push @{$EXPORT_TAGS{"StreamingRequirement"}}, qw($STREAMING_REQUIREMENT_DESIRED);$_StreamingRequirement_VALUES{"DESIRED"} = $STREAMING_REQUIREMENT_DESIRED;push @EXPORT_OK, qw($STREAMING_REQUIREMENT_REQUIRED);push @{$EXPORT_TAGS{"StreamingRequirement"}}, qw($STREAMING_REQUIREMENT_REQUIRED);$_StreamingRequirement_VALUES{"REQUIRED"} = $STREAMING_REQUIREMENT_REQUIRED;#copy symbols in StreamingRequirement to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"StreamingRequirement"}};push @EXPORT_OK, qw(MediaAccessMode_to_string);push @{$EXPORT_TAGS{"MediaAccessMode"}}, qw(MediaAccessMode_to_string);my %_MediaAccessMode_VALUES;#Convert an enum value to a single stringsub MediaAccessMode_to_string {    my ($enumval) = @_;    for my $k (keys %_MediaAccessMode_VALUES) {	my $v = $_MediaAccessMode_VALUES{$k};	#is this a matching flag?	if ($enumval == $v) {	    return $k;	}    }#default, just return the number    return $enumval;}push @EXPORT_OK, qw($MEDIA_ACCESS_MODE_READ_ONLY);push @{$EXPORT_TAGS{"MediaAccessMode"}}, qw($MEDIA_ACCESS_MODE_READ_ONLY);$_MediaAccessMode_VALUES{"READ_ONLY"} = $MEDIA_ACCESS_MODE_READ_ONLY;push @EXPORT_OK, qw($MEDIA_ACCESS_MODE_WORM);push @{$EXPORT_TAGS{"MediaAccessMode"}}, qw($MEDIA_ACCESS_MODE_WORM);$_MediaAccessMode_VALUES{"WORM"} = $MEDIA_ACCESS_MODE_WORM;push @EXPORT_OK, qw($MEDIA_ACCESS_MODE_READ_WRITE);push @{$EXPORT_TAGS{"MediaAccessMode"}}, qw($MEDIA_ACCESS_MODE_READ_WRITE);$_MediaAccessMode_VALUES{"READ_WRITE"} = $MEDIA_ACCESS_MODE_READ_WRITE;push @EXPORT_OK, qw($MEDIA_ACCESS_MODE_WRITE_ONLY);push @{$EXPORT_TAGS{"MediaAccessMode"}}, qw($MEDIA_ACCESS_MODE_WRITE_ONLY);$_MediaAccessMode_VALUES{"WRITE_ONLY"} = $MEDIA_ACCESS_MODE_WRITE_ONLY;#copy symbols in MediaAccessMode to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"MediaAccessMode"}};push @EXPORT_OK, qw(SizeAccuracy_to_string);push @{$EXPORT_TAGS{"SizeAccuracy"}}, qw(SizeAccuracy_to_string);my %_SizeAccuracy_VALUES;#Convert an enum value to a single stringsub SizeAccuracy_to_string {    my ($enumval) = @_;    for my $k (keys %_SizeAccuracy_VALUES) {	my $v = $_SizeAccuracy_VALUES{$k};	#is this a matching flag?	if ($enumval == $v) {	    return $k;	}    }#default, just return the number    return $enumval;}push @EXPORT_OK, qw($SIZE_ACCURACY_UNKNOWN);push @{$EXPORT_TAGS{"SizeAccuracy"}}, qw($SIZE_ACCURACY_UNKNOWN);$_SizeAccuracy_VALUES{"UNKNOWN"} = $SIZE_ACCURACY_UNKNOWN;push @EXPORT_OK, qw($SIZE_ACCURACY_ESTIMATE);push @{$EXPORT_TAGS{"SizeAccuracy"}}, qw($SIZE_ACCURACY_ESTIMATE);$_SizeAccuracy_VALUES{"ESTIMATE"} = $SIZE_ACCURACY_ESTIMATE;push @EXPORT_OK, qw($SIZE_ACCURACY_REAL);push @{$EXPORT_TAGS{"SizeAccuracy"}}, qw($SIZE_ACCURACY_REAL);$_SizeAccuracy_VALUES{"REAL"} = $SIZE_ACCURACY_REAL;#copy symbols in SizeAccuracy to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"SizeAccuracy"}};push @EXPORT_OK, qw(FeatureSupportFlags_to_strings);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw(FeatureSupportFlags_to_strings);my %_FeatureSupportFlags_VALUES;#Convert a flag value to a list of names for flags that are set.sub FeatureSupportFlags_to_strings {    my ($flags) = @_;    my @result = ();    for my $k (keys %_FeatureSupportFlags_VALUES) {	my $v = $_FeatureSupportFlags_VALUES{$k};	#is this a matching flag?	if (($v == 0 && $flags == 0) || ($v != 0 && ($flags & $v) == $v)) {	    push @result, $k;	}    }#by default, just return the number as a 1-element list    if (!@result) {	return ($flags);    }    return @result;}push @EXPORT_OK, qw($FEATURE_STATUS_ENABLED);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_STATUS_ENABLED);$_FeatureSupportFlags_VALUES{"STATUS_ENABLED"} = $FEATURE_STATUS_ENABLED;push @EXPORT_OK, qw($FEATURE_STATUS_DISABLED);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_STATUS_DISABLED);$_FeatureSupportFlags_VALUES{"STATUS_DISABLED"} = $FEATURE_STATUS_DISABLED;push @EXPORT_OK, qw($FEATURE_SURETY_BAD);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SURETY_BAD);$_FeatureSupportFlags_VALUES{"SURETY_BAD"} = $FEATURE_SURETY_BAD;push @EXPORT_OK, qw($FEATURE_SURETY_GOOD);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SURETY_GOOD);$_FeatureSupportFlags_VALUES{"SURETY_GOOD"} = $FEATURE_SURETY_GOOD;push @EXPORT_OK, qw($FEATURE_SOURCE_DEFAULT);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SOURCE_DEFAULT);$_FeatureSupportFlags_VALUES{"SOURCE_DEFAULT"} = $FEATURE_SOURCE_DEFAULT;push @EXPORT_OK, qw($FEATURE_SOURCE_DETECTED);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SOURCE_DETECTED);$_FeatureSupportFlags_VALUES{"SOURCE_DETECTED"} = $FEATURE_SOURCE_DETECTED;push @EXPORT_OK, qw($FEATURE_SOURCE_USER);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SOURCE_USER);$_FeatureSupportFlags_VALUES{"SOURCE_USER"} = $FEATURE_SOURCE_USER;push @EXPORT_OK, qw($FEATURE_SUPPORT_FLAGS_MAX);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SUPPORT_FLAGS_MAX);push @EXPORT_OK, qw($FEATURE_SUPPORT_FLAGS_MASK);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SUPPORT_FLAGS_MASK);push @EXPORT_OK, qw($FEATURE_SUPPORT_FLAGS_STATUS_MASK);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SUPPORT_FLAGS_STATUS_MASK);push @EXPORT_OK, qw($FEATURE_SUPPORT_FLAGS_SURETY_MASK);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SUPPORT_FLAGS_SURETY_MASK);push @EXPORT_OK, qw($FEATURE_SUPPORT_FLAGS_SOURCE_MASK);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw($FEATURE_SUPPORT_FLAGS_SOURCE_MASK);push @EXPORT_OK, qw(feature_support_flags_is_valid);push @{$EXPORT_TAGS{"FeatureSupportFlags"}}, qw(feature_support_flags_is_valid);#copy symbols in FeatureSupportFlags to constantspush @{$EXPORT_TAGS{"constants"}},  @{$EXPORT_TAGS{"FeatureSupportFlags"}};# SWIG produces a sub-package for the Device "class", in this case named # Amanda::Device::Device.  For user convenience, we allow Amanda::Device->new(..) to# do the same thing.  This is a wrapper function, and not just a typeglob assignment,# because we want to get the right blessing.sub new {    my $pkg = shift;    Amanda::Device::Device->new(@_);}1;