ARSperl
view release on metacpan or search on metacpan
(JCM) bug fix (Sid Van den Heede) "affecting getting of
displayInstanceList"
(JCM) bug fix (James LewisMoss) for ars_GetCharMenu()
(JCM) bug fix (Ian Flanigan) for perl_ARIndexStruct()
(JCM) modified GetListEntry(), GetEntry(), SetEntry() and
DeleteEntry() to make operations on join schemas
transparent.
(JCM) added a ARVerifyUser call to ars_Login so that
ars_Login() || die() will work as one would expect it to.
(JCM) added $VERSION to the perl module file.
(JCM) added "log to file" action to GetFilter action hash
(requested by {D.J.Adams at soton.ac.uk})
(JCM) added updated doc tree to main distribution (contributed by
Makefile.PL view on Meta::CPAN
# baserev/SUBVERSION still work in 5.6.0, but who knows for how long.
print "Building against perl $]\n";
$AUTODEFINES .= " -DPERL_PATCHLEVEL_IS=$Config{'PATCHLEVEL'} -DPERL_SUBVERSION_IS=$Config{'SUBVERSION'} -DPERL_BASEREV_IS=".($Config{'baserev'}*10)." ";
if($Config{'baserev'} == 5 &&
$Config{'PATCHLEVEL'} == 4 &&
$Config{'SUBVERSION'} == 3) {
print "\n\nWARNING: Perl-5.004_03 contained a buggy 'h2ph' application.\nYou should examine line 100 of perl's 'h2ph' script and be sure that it\n
produces correct syntax (it's missing a close-parenthesis)\n";
print "\nsleeping for 5 seconds. press control-c to abort.\n\n";
sleep 5;
}
if ($LARCH =~ /64/) {
if ($Config{'cc'} =~ /cc/) {
$REDUCE_SYMBOL_SCOPE = 1;
}
else {
print "\n\nWARNING: Because of symbol name collisions (both -- perl and arapi -- use the xdr-functions),\n" .
StructDef.pl view on Meta::CPAN
_type => 'ARNameType',
_data => 'p->sampleSchema',
},
sampleServer => {
_min_version => '6.0.0',
_type => 'ARServerNameType',
_data => 'p->sampleServer',
},
},
ARColumnLimitsStruct => {
parent => {
_type => 'ARInternalId',
_data => 'p->parent',
},
dataField => {
_type => 'ARInternalId',
_data => 'p->dataField',
},
dataSource => {
_type => 'unsigned int',
_data => 'p->dataSource',
},
colLength => {
changes.dat view on Meta::CPAN
released=10/06/97 version=1.50
JCM removed ars_errstr from C code. replaced with ars_errhash.
modified ARS.pm to refer to hash when $ars_errstr is
accessed. $ars_errstr no longer tie'd to main:: package.
JCM bug fix (Sid Van den Heede) "affecting getting of
displayInstanceList"
JCM bug fix (James LewisMoss) for ars_GetCharMenu()
JCM bug fix (Ian Flanigan) for perl_ARIndexStruct()
JCM modified GetListEntry(), GetEntry(), SetEntry() and
DeleteEntry() to make operations on join schemas
transparent.
JCM added a ARVerifyUser call to ars_Login so that
ars_Login() || die() will work as one would expect it to.
JCM added $VERSION to the perl module file.
JCM added "log to file" action to GetFilter action hash
(requested by {D.J.Adams at soton.ac.uk})
JCM added updated doc tree to main distribution (contributed by
{D.J.Adams at soton.ac.uk})
JCM new functions and doc on new functions and new examples for some
of these new functions.
!JCM altered return value of perl_ARStatusStruct so that it
example/GetFilter.pl view on Meta::CPAN
# Most of these subroutines were taken directly from Show_ALink.pl
# SUBROUTINE
# PrintArith
#
# DESCRIPTION
# Attempt to "pretty print" the arith expression (just for
# the hell of it)
#
# NOTES
# Notic that parenthesis are printed, although they are not
# explicitly part of the node information. They are derived
# from the ordering of the tree, instead. If you want to actually
# *evaluate* the expression, you will have to derive the
# parenthetical encoding from the tree ordering.
#
# Here is an example equation and how it is encoded:
#
# ((10 + 2) / 3)
#
# "/"
# / \
# "+" 3
# / \
# 10 2
#
# ARS apparently sorts the operations for you (based on their
# mathematical precedence) so you should evaluate the tree from
# the bottom up.
#
# ars_web.cgi has an evaluation routine for computing the value
# of a arith structure. we will probably break it out into a
# perl module.
#
# THOUGHTS
# I don't know if this routine will work for all cases.. but
# i did some tests and it looked good. Ah.. i just wrote it
example/Show_ALink.pl view on Meta::CPAN
}
# SUBROUTINE
# PrintArith
#
# DESCRIPTION
# Attempt to "pretty print" the arith expression (just for
# the hell of it)
#
# NOTES
# Notic that parenthesis are printed, although they are not
# explicitly part of the node information. They are derived
# from the ordering of the tree, instead. If you want to actually
# *evaluate* the expression, you will have to derive the
# parenthetical encoding from the tree ordering.
#
# Here is an example equation and how it is encoded:
#
# ((10 + 2) / 3)
#
# "/"
# / \
# "+" 3
# / \
# 10 2
#
# ARS apparently sorts the operations for you (based on their
# mathematical precedence) so you should evaluate the tree from
# the bottom up.
#
# ars_web.cgi has an evaluation routine for computing the value
# of a arith structure. we will probably break it out into a
# perl module.
#
# THOUGHTS
# I don't know if this routine will work for all cases.. but
# i did some tests and it looked good. Ah.. i just wrote it
example/ars_QualDecode.pl view on Meta::CPAN
# ROUTINE
# Decode_QualHash($ctrl, $schema, $qualhash)
#
# DESCRIPTION
# Takes that hash that is returned by
# ars_perl_qualifier() and converts it
# into something (more or less) readable
#
# NOTES
# This routine over parenthesises, but should
# yield correct results nonetheless.
#
# We need the ctrl struct and schema name so
# we can reverse map from fieldId's to field names.
#
# RETURNS
# a scalar on success
# undef on failure
#
# AUTHOR
html/changes.html view on Meta::CPAN
</tr></table></td>
</tr><tr bgcolor='#eeeeee'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>removed ars_errstr from C code. replaced with ars_errhash.
modified ARS.pm to refer to hash when $ars_errstr is accessed. $ars_errstr no longer tie'd to main:: package. </font></td></tr>
<tr bgcolor='#dddddd'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>bug fix (Sid Van den Heede) "affecting getting of
displayInstanceList" </font></td></tr>
<tr bgcolor='#eeeeee'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>bug fix (James LewisMoss) for ars_GetCharMenu()
</font></td></tr>
<tr bgcolor='#dddddd'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>bug fix (Ian Flanigan) for perl_ARIndexStruct()
</font></td></tr>
<tr bgcolor='#eeeeee'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>modified GetListEntry(), GetEntry(), SetEntry() and
DeleteEntry() to make operations on join schemas transparent. </font></td></tr>
<tr bgcolor='#dddddd'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>added a ARVerifyUser call to ars_Login so that
ars_Login() || die() will work as one would expect it to. </font></td></tr>
<tr bgcolor='#eeeeee'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>added $VERSION to the perl module file.
</font></td></tr>
<tr bgcolor='#dddddd'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>added "log to file" action to GetFilter action hash
(requested by {D.J.Adams at soton.ac.uk}) </font></td></tr>
<tr bgcolor='#eeeeee'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>added updated doc tree to main distribution (contributed by
{D.J.Adams at soton.ac.uk}) </font></td></tr>
<tr bgcolor='#dddddd'><td width='10%'>(JCM)</td><td width='90%'><font color='black'>new functions and doc on new functions and new examples for some
of these new functions. </font></td></tr>
# Given $file, a symbolic link to a directory in the C include directory,
# make an equivalent symbolic link in $Dest_dir, if we can figure out how.
# Otherwise, just duplicate the file or directory.
sub link_if_possible
{
my ($dirlink) = @_;
my $target = eval 'readlink($dirlink)';
if ($target =~ m:^\.\./: or $target =~ m:^/:) {
# The target of a parent or absolute link could leave the $Dest_dir
# hierarchy, so let's put all of the contents of $dirlink (actually,
# the contents of $target) into @ARGV; as a side effect down the
# line, $dirlink will get created as an _actual_ directory.
expand_glob($dirlink);
} else {
if (-l "$Dest_dir/$dirlink") {
unlink "$Dest_dir/$dirlink" or
print STDERR "Could not remove link $Dest_dir/$dirlink: $!\n";
}
hv_store(hash, "maxRetrieve", strlen("maxRetrieve") , newSViv(in->u.tableLimits.maxRetrieve), 0);
hv_store(hash, "schema", strlen("schema") , newSVpv(in->u.tableLimits.schema, 0), 0);
hv_store(hash, "server", strlen("server") , newSVpv(in->u.tableLimits.server, 0), 0);
#if AR_EXPORT_VERSION >= 8L
hv_store(hash, "sampleSchema", strlen("sampleSchema") , newSVpv(in->u.tableLimits.sampleSchema, 0), 0);
hv_store(hash, "sampleServer", strlen("sampleServer") , newSVpv(in->u.tableLimits.sampleServer, 0), 0);
#endif
return newRV_noinc((SV *) hash);
case AR_DATA_TYPE_COLUMN:
hv_store(hash, "parent", strlen("parent"), perl_ARInternalId(ctrl, &(in->u.columnLimits.parent)), 0);
hv_store(hash, "dataField", strlen("dataField"), perl_ARInternalId(ctrl, &(in->u.columnLimits.dataField)), 0);
#if AR_EXPORT_VERSION >= 6L
hv_store(hash, "dataSource", strlen("dataSource") , newSViv(in->u.columnLimits.dataSource), 0);
#endif
hv_store(hash, "colLength", strlen("colLength") , newSViv(in->u.columnLimits.colLength), 0);
return newRV_noinc((SV *) hash);
#if AR_EXPORT_VERSION >= 6L
case AR_DATA_TYPE_VIEW:
hv_store(hash, "maxLength", strlen("maxLength") , newSViv(in->u.viewLimits.maxLength), 0);
supportrev_generated.c view on Meta::CPAN
if( SvTYPE(SvRV(*val)) == SVt_PVHV ){
int i = 0, num = 0;
HV *h = (HV* ) SvRV((SV*) *val);
char k[256];
k[255] = '\0';
{
SV **val;
strncpy( k, "parent", 255 );
val = hv_fetch( h, "parent", 6, 0 );
if( val && *val && SvOK(*val) ){
{
p->parent = SvIV(*val);
}
}else{
ARError_add( AR_RETURN_ERROR, AP_ERR_GENERAL, "hv_fetch error: key \"parent\"" );
return -1;
}
}
{
SV **val;
strncpy( k, "dataSource", 255 );
val = hv_fetch( h, "dataSource", 10, 0 );
if( val && *val && SvOK(*val) ){
t/aptest51.def view on Meta::CPAN
field {
id : 536880912
name : Column
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870914
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\13\Column (char)\4\6\1\220\40\10000\221\40\1\
display-instance : 536872074\4\20\4\13\Column (char)\4\6\1\220\40\10000\221\40\1\
display-instance : 536873337\4\20\4\13\Column (char)\4\6\1\220\40\10000\221\40\1\
}
field {
id : 536880913
name : Column2
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870919
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\16\Column (decimal)\4\6\1\220\40\10000\221\40\2\
display-instance : 536872074\4\20\4\16\Column (decimal)\4\6\1\220\40\10000\221\40\2\
display-instance : 536873337\4\20\4\16\Column (decimal)\4\6\1\220\40\10000\221\40\2\
}
field {
id : 536880914
name : Column3
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870915
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\13\Integer Field\4\6\1\220\40\10000\221\40\3\
display-instance : 536872074\4\20\4\13\Integer Field\4\6\1\220\40\10000\221\40\3\
display-instance : 536873337\4\20\4\13\Integer Field\4\6\1\220\40\10000\221\40\3\
}
field {
id : 536880915
name : Column4
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870916
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\5\20\4\17\Real Number Field\4\6\0\220\40\10000\221\40\4\5\6\2\
display-instance : 536872074\5\20\4\17\Real Number Field\4\6\0\220\40\10000\221\40\4\5\6\2\
display-instance : 536873337\5\20\4\17\Real Number Field\4\6\0\220\40\10000\221\40\4\5\6\2\
}
field {
id : 536880916
name : Column5
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870918
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\18\Radio Button Field\4\6\1\220\40\10000\221\40\5\
display-instance : 536872074\4\20\4\18\Radio Button Field\4\6\1\220\40\10000\221\40\5\
display-instance : 536873337\4\20\4\18\Radio Button Field\4\6\1\220\40\10000\221\40\5\
}
field {
id : 536880917
name : Column6
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870922
colfield-datafield: 536870920
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\5\20\4\10\Time Field\4\6\0\220\40\10000\221\40\6\5\6\2\
display-instance : 536872074\5\20\4\10\Time Field\4\6\0\220\40\10000\221\40\6\5\6\2\
display-instance : 536873337\5\20\4\10\Time Field\4\6\0\220\40\10000\221\40\6\5\6\2\
}
field {
id : 536880925
name : Column7
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870936
colfield-datafield: 536870914
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\15\Character Field\4\6\1\220\40\10000\221\40\1\
}
field {
id : 536880926
name : Column8
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870936
colfield-datafield: 536870925
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\13\Index Field 1\4\6\1\220\40\10000\221\40\2\
}
field {
id : 536880927
name : Column9
datatype : 34
fieldtype : 1
create-mode : 2
option : 4
timestamp : 1225458855
owner : Demo
last-changed : Demo
colfield-parent : 536870936
colfield-datafield: 536870926
colfield-collength: 254
colfield-datasrc : 0
permission : 0\1
display-instance : 536870912\4\20\4\13\Index Field 2\4\6\1\220\40\10000\221\40\3\
}
end
begin container
name : ARSperl Test-FilterGuide1
type : 4
( run in 1.269 second using v1.01-cache-2.11-cpan-4d50c553e7e )