greg/stasis-aries-wal
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

harden Stasis.pm initialization against a wider range of crazy environments (ie: apache modperl and fastcgi). Add TsoftCommit and TforceCommits to the perl binding

Browse source
This commit is contained in:
Sears Russell 2010-01-19 01:56:40 +00:00
parent 18508fd2f1
commit 417eec45c4
1 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lang/perl/Stasis.pm
View file

@ -3,12 +3,13 @@ require Inline;
my $STASIS_DIR;
BEGIN {
$STASIS_DIR = $ENV{STASIS_DIR};
if(!defined($STASIS_DIR)) {
$STASIS_DIR = $INC{"Stasis.pm"};
$STASIS_DIR =~ s~/lang/perl/Stasis.pm~~g;
}
1;
$STASIS_DIR = $ENV{STASIS_DIR};
if(!defined($STASIS_DIR)) {
$STASIS_DIR = $INC{"Stasis.pm"};
$STASIS_DIR =~ s~/lang/perl/Stasis.pm~~g;
}
1;
}
use Inline C => Config => (LIBS =>
"-L$STASIS_DIR/build/src/stasis/ " .
@ -17,10 +18,15 @@ use Inline C => Config => (LIBS =>
),
ENABLE => AUTOWRAP,
TYPEMAPS => "$STASIS_DIR/lang/perl/typemap",
PREFIX => 'stasis_perl_';
PREFIX => 'stasis_perl_',
DIRECTORY => $ENV{STASIS_INLINE_DIRECTORY};
use Inline ( C => 'DATA',
INC => "-I $STASIS_DIR"
INC => "-I $STASIS_DIR -I $STASIS_DIR/build/"
);
#warn "running inline init from dir: " . `pwd`;
Inline->init;
#warn "ran inline init\n";
sub version {
return "Stasis 0.1";
@ -138,7 +144,7 @@ package Stasis::HashHeader;
@ISA = qw(Stasis::Recordid);
package Stasis;
1;
__DATA__
__C__
#include "stasis/transactional.h"
@ -147,6 +153,8 @@ int Tinit();
int Tdeinit();
int Tbegin();
int Tcommit(int xid);
int TsoftCommit(int xid);
void TforceCommits();
int Tabort(int xid);
int Tprepare(int xid);
recordid Talloc(int xid, unsigned long size);