|
From: Bob T. <bt...@us...> - 2001-06-17 20:35:27
|
Update of /cvsroot/benson/benson2/src/modules/Benson
In directory usw-pr-cvs1:/tmp/cvs-serv5377
Modified Files:
Benson.pm Benson.xs
Log Message:
Major bug fixes, and some small feature enhancments, looking into the memory leak bug that crop'd up again.
Index: Benson.pm
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Benson/Benson.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Benson.pm 2001/04/22 03:09:48 1.4
--- Benson.pm 2001/06/17 20:35:23 1.5
***************
*** 8,11 ****
--- 8,33 ----
bootstrap Benson $VERSION;
+ sub new {
+ my $this = shift;
+ my $class = ref($this) || $this;
+ my %args = @_;
+ my $self = {
+ forwarder => $args{"forwarder"},
+ port => $args{"port"}
+ };
+ bless ($self, $class);
+ return $self;
+ }
+
+ sub forwarder {
+ my $self = shift;
+ my @params = @_;
+
+ if($#params == 0) {
+ $self->{forwarder} = $params[0];
+ }
+ return $self->{forwarder};
+ }
+
sub clear {
my ($self) = shift;
Index: Benson.xs
===================================================================
RCS file: /cvsroot/benson/benson2/src/modules/Benson/Benson.xs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Benson.xs 2001/05/30 03:21:57 1.7
--- Benson.xs 2001/06/17 20:35:23 1.8
***************
*** 13,34 ****
- class Benson {
- public:
- Benson();
- ~Benson();
- SV* submit(...);
- SV* alert_list(...);
- SV* acknowledge(...);
- SV* update_status(...);
- SV* increment_count(...);
- // Variable Declarations
- };
-
- Benson::Benson() {
- }
-
- Benson::~Benson() {
- }
-
MODULE = Benson PACKAGE= Benson
--- 13,16 ----
***************
*** 38,49 ****
items = items; /*avoid warning*/
- Benson *
- Benson::new()
-
- void
- Benson::DESTROY()
SV*
! Benson::submit(...)
PREINIT:
int ctr;
--- 20,26 ----
items = items; /*avoid warning*/
SV*
! submit(...)
PREINIT:
int ctr;
***************
*** 55,60 ****
--- 32,40 ----
string forwarder;
CORBA::Object_var obj;
+ SV* self;
CODE:
+ self = newSVsv(ST(0));
+ forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
for(ctr=1;ctr<items;ctr=ctr+2) {
if(!strcmp(SvPVX(ST(ctr)),"agent")) {
***************
*** 91,95 ****
SV*
! Benson::ack(...)
PREINIT:
int ctr;
--- 71,75 ----
SV*
! ack(...)
PREINIT:
int ctr;
***************
*** 98,103 ****
--- 78,86 ----
string forwarder;
CORBA::Object_var obj;
+ SV* self;
CODE:
+ self = newSVsv(ST(0));
+ forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
for(ctr=1;ctr<items;ctr=ctr+2) {
if(!strcmp(SvPVX(ST(ctr)),"identity")) {
***************
*** 129,133 ****
SV*
! Benson::alert_list(...)
PREINIT:
int ctr;
--- 112,116 ----
SV*
! alert_list(...)
PREINIT:
int ctr;
***************
*** 137,142 ****
--- 120,128 ----
HV* hashedAlert;
CORBA::Object_var obj;
+ SV* self;
CODE:
+ self = newSVsv(ST(0));
+ forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
for(ctr=1;ctr<items;ctr=ctr+2) {
if(!strcmp(SvPVX(ST(ctr)),"forwarder")) {
***************
*** 192,196 ****
SV*
! Benson::update_status(...)
PREINIT:
int ctr;
--- 178,182 ----
SV*
! update_status(...)
PREINIT:
int ctr;
***************
*** 199,204 ****
--- 185,193 ----
string forwarder;
CORBA::Object_var obj;
+ SV* self;
CODE:
+ self = newSVsv(ST(0));
+ forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
for(ctr=1;ctr<items;ctr=ctr+2) {
if(!strcmp(SvPVX(ST(ctr)),"identity")) {
***************
*** 227,231 ****
SV*
! Benson::increment_count(...)
PREINIT:
int ctr;
--- 216,220 ----
SV*
! increment_count(...)
PREINIT:
int ctr;
***************
*** 233,238 ****
--- 222,230 ----
string forwarder;
CORBA::Object_var obj;
+ SV* self;
CODE:
+ self = newSVsv(ST(0));
+ forwarder = SvPVX(*hv_fetch((HV*)SvRV(self), "forwarder", 9, 0));
for(ctr=1;ctr<items;ctr=ctr+2) {
if(!strcmp(SvPVX(ST(ctr)),"identity")) {
|