HEX
Server: Apache/2.4.34 (Red Hat) OpenSSL/1.0.2k-fips
System: Linux WORDPRESS 3.10.0-1160.118.1.el7.x86_64 #1 SMP Thu Apr 4 03:33:23 EDT 2024 x86_64
User: digital (1020)
PHP: 7.2.24
Disabled: NONE
Upload Files
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;