ARSperl
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
" please contact the developer/maintainer!\n\n";
}
}
push(@extras, CAPI => 'TRUE') if ($] >= 5.005 &&
$^O eq 'MSWin32' &&
(($Config{archname} =~ /-object\b/i) ||
($Config{archname} =~ /-multi-thread\b/i))
);
push(@extras, LDDLFLAGS => " -Wl,--exclude-symbols,\177arapi71_NULL_THUNK_DATA ") if $^O eq 'cygwin';
push(@extras, LDDLFLAGS => $Config{'lddlflags'}." -Wl,-Bsymbolic ") if ($REDUCE_SYMBOL_SCOPE);
if( $WINDOWS ){
$ARS_LDPATH = qq{-L"$ARSAPI/lib"};
$INCLUDES = qq{-I"$ARSAPI/include"};
}else{
$ARS_LDPATH = "-L$ARSAPI/lib";
$INCLUDES = "-I$ARSAPI/include";
}
example/ars_MergeEntry.pl view on Meta::CPAN
${$val{$fid}}[0]->{value} .= " Foobar!";
print "Constructing encoded diary.\n";
($encodedDiary = ars_EncodeDiary(@{$val{$fid}})) ||
die "ars_EncodeDiary failed";
print "Merging entry back into database.\n";
# see html doc page for explanation of numeric flags.
# http://www.arsperl.org/manual/ars_MergeEntry.html
# ... mergeType=4, eid-fid, entryid, diary-fid, encoded-diary
($eid = ars_MergeEntry($c, $SC, 4, 1, $EID, $fid, $encodedDiary)) ||
die "ars_MergeEntry: $ars_errstr";
ars_Logoff($c);
exit(0);
example/ars_QualDecode.pl view on Meta::CPAN
# demo.
elsif(defined($h->{arith})) {
# addition by "David Adams" <D.J.Adams@soton.ac.uk>
local($ar) = $h->{arith};
$e .= "(".Decode_FVoAS($ar->{left}, $fids)." ".$ar->{oper}." ".Decode_FVoAS($ar->{right}, $fids).")";
}
# a set of values (used for the "IN" operator)
# i've never really seen the "IN" keyword used
# either.. so i'll just flag it and dump something
# semi-appropriate.
elsif(defined($h->{valueSet})) {
$e = "valueSet(".join(',', @{$h->{valueSet}}).")";
}
# a local variable. this is in the API, but i dont think
# it's a real feature that is available.. perhaps
# something that remedy is working on? hmm..
html/WhoUsesIt.html view on Meta::CPAN
% ./WhoUsesIt.pl -p mail_ip
Username: jcmurphy
Password:
Searching for filters that call "mail_ip"...
PT-Mail IP List
SM-Mail IP List
TS-PTA-Mail_IP_List
TS-PTA-Mail_IP_List-OLD
</PRE>
<B> If we use the <CODE>-v</CODE> flag, we can see exactly where the external
program is located.</B>
<PRE>
% ./WhoUsesIt.pl -p mail_ip -v
Username: jcmurphy
Password:
Searching for filters that call "mail_ip"...
PT-Mail IP List
/usr/ars/c/PT/pt_mail_ip_list.pl "$536870913$" "$1$"
SM-Mail IP List
html/debug.html view on Meta::CPAN
<H1> How to debug ARSperl </H1>
Because the ARS extension gets loaded into perl dynamically, there
are a few extra steps needed to debug it. You will need to build a separate
perl installation compiled with debugging turned on.
<H3> Steps </H3>
<OL>
<FONT SIZE="+1"> <LI> Configure perl </FONT> <P>
When perl's Configure script prompts you : <BR>
<I> What optimizer/debugger flag should be used? </I><BR>
you should specify -g instead of the default -O. <BR>
It is also usually a good idea to use perl's built in malloc.
The will prevent ARSperl from crashing due to malloc/free bugs. <P>
<FONT SIZE="+1"> <LI> Install perl/Install ARSperl </FONT> <P>
If you're perl install went correctly, ARSperl should automatically
get compiled with the -g switch.<P>
<FONT SIZE="+1"> <LI> Try it out <BR> </FONT> <P>
I use gdb (the gnu debugger) for debugging, but others (like dbx)
will probably work. Debugging ARS involves switching between
gdb and the perl debugger. When I'm in the perl debugger, I use
rev_AR_template.pl view on Meta::CPAN
@> }
@> sub perlToStruct {
@> my( $obj, $class, $LINE_INDENT ) = @_;
{
@> if( $obj->{_data} ){
@> my( $type, $data ) = ( $obj->{_type}, $obj->{_data} );
@> if( $obj->{_map} ){
int flag = 0;
@> foreach my $key ( keys %{$obj->{_map}} ){
if( !strcmp(SvPV_nolen(*val),"<@ $obj->{_map}{$key} @>") ){
<@ $obj->{_data} @> = <@ $key @>;
flag = 1;
}
@> }
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_<@ $class @>: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
@> }else{
<@ typeCopy($type,$data,'*val') @>;
@> }
@> }
@> if( $obj->{_switch} ){
{
supportrev.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "enable", 255 );
val = hv_fetch( h, "enable", 6, 0 );
if( val && *val ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->enable = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->enable = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARArchiveInfoStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"enable\"" );
return -1;
}
}
supportrev.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "oper", 255 );
val = hv_fetch( h, "oper", 4, 0 );
if( val && *val ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"/") ){
p->operation = AR_ARITH_OP_DIVIDE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"%") ){
p->operation = AR_ARITH_OP_MODULO;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"+") ){
p->operation = AR_ARITH_OP_ADD;
flag = 1;
}
/*
if( !strcmp(SvPV_nolen(*val),"-") ){
p->operation = AR_ARITH_OP_NEGATE;
flag = 1;
}
*/
if( !strcmp(SvPV_nolen(*val),"*") ){
p->operation = AR_ARITH_OP_MULTIPLY;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"-") ){
p->operation = AR_ARITH_OP_SUBTRACT;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARArithOpStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"oper\"" );
return -1;
}
}
supportrev.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "oper", 255 );
val = hv_fetch( h, "oper", 4, 0 );
if( val && *val ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"/") ){
p->operation = AR_ARITH_OP_DIVIDE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"%") ){
p->operation = AR_ARITH_OP_MODULO;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"+") ){
p->operation = AR_ARITH_OP_ADD;
flag = 1;
}
/*
if( !strcmp(SvPV_nolen(*val),"-") ){
p->operation = AR_ARITH_OP_NEGATE;
flag = 1;
}
*/
if( !strcmp(SvPV_nolen(*val),"*") ){
p->operation = AR_ARITH_OP_MULTIPLY;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"-") ){
p->operation = AR_ARITH_OP_SUBTRACT;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARMultiSchemaArithOpStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"oper\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "isVisible", 255 );
val = hv_fetch( h, "isVisible", 9, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->isVisible = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->isVisible = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARAutomationStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"isVisible\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
#if AR_CURRENT_API_VERSION >= 14
{
SV **val;
strncpy( k, "lengthUnits", 255 );
val = hv_fetch( h, "lengthUnits", 11, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"char") ){
p->lengthUnits = AR_LENGTH_UNIT_CHAR;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"byte") ){
p->lengthUnits = AR_LENGTH_UNIT_BYTE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"lengthUnits\"" );
return -1;
}
}
#endif
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "match", 255 );
val = hv_fetch( h, "match", 5, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"leading") ){
p->qbeMatchOperation = AR_QBE_MATCH_LEADING;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"equal") ){
p->qbeMatchOperation = AR_QBE_MATCH_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"anywhere") ){
p->qbeMatchOperation = AR_QBE_MATCH_ANYWHERE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"match\"" );
return -1;
}
}
#if AR_CURRENT_API_VERSION >= 14
{
SV **val;
strncpy( k, "storageOptionForCLOB", 255 );
val = hv_fetch( h, "storageOptionForCLOB", 20, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"inrow") ){
p->storageOptionForCLOB = AR_STORE_OPT_INROW;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"default") ){
p->storageOptionForCLOB = AR_STORE_OPT_DEF;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"outrow") ){
p->storageOptionForCLOB = AR_STORE_OPT_OUTROW;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"storageOptionForCLOB\"" );
return -1;
}
}
#endif
{
SV **val;
strncpy( k, "fullTextOptions", 255 );
val = hv_fetch( h, "fullTextOptions", 15, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"indexed") ){
p->fullTextOptions = AR_FULLTEXT_OPTIONS_INDEXED;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"none") ){
p->fullTextOptions = AR_FULLTEXT_OPTIONS_NONE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"fullTextOptions\"" );
return -1;
}
}
{
SV **val;
strncpy( k, "menuStyle", 255 );
val = hv_fetch( h, "menuStyle", 9, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"append") ){
p->menuStyle = AR_MENU_APPEND;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"overwrite") ){
p->menuStyle = AR_MENU_OVERWRITE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"menuStyle\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "includeHidden", 255 );
val = hv_fetch( h, "includeHidden", 13, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->includeHidden = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->includeHidden = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCharMenuDDFormStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"includeHidden\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "closeAll", 255 );
val = hv_fetch( h, "closeAll", 8, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->closeAll = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->closeAll = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARCloseWndStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"closeAll\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "type", 255 );
val = hv_fetch( h, "type", 4, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"schema") ){
p->type = ARCONOWNER_SCHEMA;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"all") ){
p->type = ARCONOWNER_ALL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"none") ){
p->type = ARCONOWNER_NONE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARContainerOwnerObj: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"type\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "fullTextOptions", 255 );
val = hv_fetch( h, "fullTextOptions", 15, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"indexed") ){
p->fullTextOptions = AR_FULLTEXT_OPTIONS_INDEXED;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"none") ){
p->fullTextOptions = AR_FULLTEXT_OPTIONS_NONE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARDiaryLimitsStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"fullTextOptions\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
#if AR_CURRENT_API_VERSION >= 14
{
SV **val;
strncpy( k, "lengthUnits", 255 );
val = hv_fetch( h, "lengthUnits", 11, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"char") ){
p->lengthUnits = AR_LENGTH_UNIT_CHAR;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"byte") ){
p->lengthUnits = AR_LENGTH_UNIT_BYTE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARDisplayLimits: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"lengthUnits\"" );
return -1;
}
}
#endif
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "closeAll", 255 );
val = hv_fetch( h, "closeAll", 8, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->closeAll = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->closeAll = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARExitGuideStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"closeAll\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "oper", 255 );
val = hv_fetch( h, "oper", 4, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),">") ){
p->operation = AR_REL_OP_GREATER;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"in") ){
p->operation = AR_REL_OP_IN;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),">=") ){
p->operation = AR_REL_OP_GREATER_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"==") ){
p->operation = AR_REL_OP_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"like") ){
p->operation = AR_REL_OP_LIKE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"!=") ){
p->operation = AR_REL_OP_NOT_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"<=") ){
p->operation = AR_REL_OP_LESS_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"<") ){
p->operation = AR_REL_OP_LESS;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARMultiSchemaRelOpStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"oper\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
char k[256];
k[255] = '\0';
#if AR_CURRENT_API_VERSION <= 9
{
SV **val;
strncpy( k, "windowMode", 255 );
val = hv_fetch( h, "windowMode", 10, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"open_search") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_SEARCH;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dlg") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DLG;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_detail") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_DETAIL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_report") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_REPORT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_lst") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_LST;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_detail") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_DETAIL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_split") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_SPLIT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_split") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_SPLIT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_lst") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_LST;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_submit") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_SUBMIT;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_AROpenDlgStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"windowMode\"" );
return -1;
}
}
#endif
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "suppressEmptyList", 255 );
val = hv_fetch( h, "suppressEmptyList", 17, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->suppressEmptyLst = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->suppressEmptyLst = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_AROpenDlgStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"suppressEmptyList\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
#if AR_CURRENT_API_VERSION >= 10
{
SV **val;
strncpy( k, "windowMode", 255 );
val = hv_fetch( h, "windowMode", 10, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"open_modify") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_search") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_SEARCH;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dlg") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DLG;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_detail") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_DETAIL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_report") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_REPORT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_lst") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_LST;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_detail") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_DETAIL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_modify_split") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_MODIFY_SPLIT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_split") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_SPLIT;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_dsply_lst") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_DSPLY_LST;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"open_submit") ){
p->windowMode = AR_ACTIVE_LINK_ACTION_OPEN_SUBMIT;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_AROpenDlgStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"windowMode\"" );
return -1;
}
}
#endif
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "noMatchContinue", 255 );
val = hv_fetch( h, "noMatchContinue", 15, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->noMatchContinue = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->noMatchContinue = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_AROpenDlgStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"noMatchContinue\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "closeBox", 255 );
val = hv_fetch( h, "closeBox", 8, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"true") ){
p->closeBox = TRUE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"false") ){
p->closeBox = FALSE;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_AROpenDlgStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"closeBox\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "multi", 255 );
val = hv_fetch( h, "multi", 5, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),"set") ){
p->multiMatchCode = AR_QUERY_VALUE_MULTI_SET;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"error") ){
p->multiMatchCode = AR_QUERY_VALUE_MULTI_ERROR;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"first") ){
p->multiMatchCode = AR_QUERY_VALUE_MULTI_FIRST;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARQueryValueStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"multi\"" );
return -1;
}
}
supportrev_generated.c view on Meta::CPAN
}
}
{
SV **val;
strncpy( k, "oper", 255 );
val = hv_fetch( h, "oper", 4, 0 );
if( val && *val && SvOK(*val) ){
{
int flag = 0;
if( !strcmp(SvPV_nolen(*val),">") ){
p->operation = AR_REL_OP_GREATER;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"in") ){
p->operation = AR_REL_OP_IN;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),">=") ){
p->operation = AR_REL_OP_GREATER_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"==") ){
p->operation = AR_REL_OP_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"like") ){
p->operation = AR_REL_OP_LIKE;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"!=") ){
p->operation = AR_REL_OP_NOT_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"<=") ){
p->operation = AR_REL_OP_LESS_EQUAL;
flag = 1;
}
if( !strcmp(SvPV_nolen(*val),"<") ){
p->operation = AR_REL_OP_LESS;
flag = 1;
}
if( flag == 0 ){
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "rev_ARRelOpStruct: invalid key value" );
ARError_add( AR_RETURN_ERROR, AP_ERR_CONTINUE, SvPV_nolen(*val) );
}
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"oper\"" );
return -1;
}
}
( run in 0.385 second using v1.01-cache-2.11-cpan-94b05bcf43c )