File: //opt/OV/nonOV/perl/a/lib/5.16.0/OvParam.pm
# This file was automatically generated by SWIG (http://www.swig.org).
# Version 2.0.4
#
# Do not make changes to this file unless you know what you are doing--modify
# the SWIG interface file instead.
package OvParam;
use base qw(Exporter);
use base qw(DynaLoader);
package OvParamc;
bootstrap OvParam;
package OvParam;
@EXPORT = qw();
# ---------- BASE METHODS -------------
package OvParam;
sub TIEHASH {
my ($classname,$obj) = @_;
return bless $obj, $classname;
}
sub CLEAR { }
sub FIRSTKEY { }
sub NEXTKEY { }
sub FETCH {
my ($self,$field) = @_;
my $member_func = "swig_${field}_get";
$self->$member_func();
}
sub STORE {
my ($self,$field,$newval) = @_;
my $member_func = "swig_${field}_set";
$self->$member_func($newval);
}
sub this {
my $ptr = shift;
return tied(%$ptr);
}
# ------- FUNCTION WRAPPERS --------
package OvParam;
############# Class : OvParam::SimpleParameter ##############
package OvParam::SimpleParameter;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( OvParam );
%OWNER = ();
%ITERATORS = ();
sub new {
my $pkg = shift;
my $self = OvParamc::new_SimpleParameter(@_);
bless $self, $pkg if defined($self);
}
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
OvParamc::delete_SimpleParameter($self);
delete $OWNER{$self};
}
}
*Clear = *OvParamc::SimpleParameter_Clear;
*GetName = *OvParamc::SimpleParameter_GetName;
*GetValue = *OvParamc::SimpleParameter_GetValue;
*IsEncrypted = *OvParamc::SimpleParameter_IsEncrypted;
*SetName = *OvParamc::SimpleParameter_SetName;
*SetValue = *OvParamc::SimpleParameter_SetValue;
*SetEncrypt = *OvParamc::SimpleParameter_SetEncrypt;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
delete $OWNER{$ptr};
}
sub ACQUIRE {
my $self = shift;
my $ptr = tied(%$self);
$OWNER{$ptr} = 1;
}
############# Class : OvParam::InstanceParameter ##############
package OvParam::InstanceParameter;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( OvParam );
%OWNER = ();
%ITERATORS = ();
sub new {
my $pkg = shift;
my $self = OvParamc::new_InstanceParameter(@_);
bless $self, $pkg if defined($self);
}
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
OvParamc::delete_InstanceParameter($self);
delete $OWNER{$self};
}
}
*Clear = *OvParamc::InstanceParameter_Clear;
*GetName = *OvParamc::InstanceParameter_GetName;
*SetName = *OvParamc::InstanceParameter_SetName;
*GetInstanceValues = *OvParamc::InstanceParameter_GetInstanceValues;
*GetSimpleParameter = *OvParamc::InstanceParameter_GetSimpleParameter;
*SetSimpleParameter = *OvParamc::InstanceParameter_SetSimpleParameter;
*GetSimpleParameterNames = *OvParamc::InstanceParameter_GetSimpleParameterNames;
*MoveInstance = *OvParamc::InstanceParameter_MoveInstance;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
delete $OWNER{$ptr};
}
sub ACQUIRE {
my $self = shift;
my $ptr = tied(%$self);
$OWNER{$ptr} = 1;
}
############# Class : OvParam::Template ##############
package OvParam::Template;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( OvParam );
%OWNER = ();
%ITERATORS = ();
sub new {
my $pkg = shift;
my $self = OvParamc::new_Template(@_);
bless $self, $pkg if defined($self);
}
sub DESTROY {
return unless $_[0]->isa('HASH');
my $self = tied(%{$_[0]});
return unless defined $self;
delete $ITERATORS{$self};
if (exists $OWNER{$self}) {
OvParamc::delete_Template($self);
delete $OWNER{$self};
}
}
*Exists = *OvParamc::Template_Exists;
*Load = *OvParamc::Template_Load;
*Save = *OvParamc::Template_Save;
*Clear = *OvParamc::Template_Clear;
*ResetAllParameters = *OvParamc::Template_ResetAllParameters;
*Activate = *OvParamc::Template_Activate;
*GetId = *OvParamc::Template_GetId;
*GetName = *OvParamc::Template_GetName;
*GetType = *OvParamc::Template_GetType;
*GetSimpleParameter = *OvParamc::Template_GetSimpleParameter;
*GetInstanceParameter = *OvParamc::Template_GetInstanceParameter;
*SetSimpleParameter = *OvParamc::Template_SetSimpleParameter;
*SetInstanceParameter = *OvParamc::Template_SetInstanceParameter;
*GetSimpleParameterNames = *OvParamc::Template_GetSimpleParameterNames;
*GetInstanceParameterNames = *OvParamc::Template_GetInstanceParameterNames;
*ResetParameter = *OvParamc::Template_ResetParameter;
*ExportAsXML = *OvParamc::Template_ExportAsXML;
*ImportFromXML = *OvParamc::Template_ImportFromXML;
*TestXML = *OvParamc::Template_TestXML;
*GetInstalledTemplates = *OvParamc::Template_GetInstalledTemplates;
*ExportTemplatesAsXML = *OvParamc::Template_ExportTemplatesAsXML;
*ImportTemplatesFromXML = *OvParamc::Template_ImportTemplatesFromXML;
*TestTemplatesXML = *OvParamc::Template_TestTemplatesXML;
*ActivateTemplates = *OvParamc::Template_ActivateTemplates;
sub DISOWN {
my $self = shift;
my $ptr = tied(%$self);
delete $OWNER{$ptr};
}
sub ACQUIRE {
my $self = shift;
my $ptr = tied(%$self);
$OWNER{$ptr} = 1;
}
# ------- VARIABLE STUBS --------
package OvParam;
use constant fServer_k => 0;
use constant fLocal_k => 1;
use constant fMerged_k => 2;
use lib $ENV{OvInstallDir} . "\\bin\\win64";
use lib $ENV{OvInstallDir} . "\\bin";
use lib "/opt/OV/lib64";
use lib "/opt/OV/lib";
use lib "/opt/OV/lib/hpux32";
use lib "/opt/OV/lib/hpux64";
1;