CIAO::Lib::StackIO - Perl wrapper for the CIAO stackio library
use CIAO::Lib::StackIO; my $stack = CIAO::Lib::StackIO->new( $list, \%args );
CIAO::Lib::StackIO is an interface to the stackio (libstk) library shipped with the Chandra Interactive Analysis of Observations (CIAO) software package.
The library maintains a stack of filenames. Various means of constructing the stack are available, including reading the names from a file, using wild cards, interpolating numerical sequences into filename templates, etc. Various standard operations may be performed on the stack.
Note that indices into the stack are unary based.
The best (only?) exposition of the stack specification syntax may be found here: http://asc.harvard.edu/ciao/ahelp/stack.html.
The methods implemented here mostly mirror the underlying library. Some changes have been made to make things more Perl like and to work around awkwardness in the interface.
$stack = CIAO::Lib::StackIO->new( $stackspec, \%args );
This builds a stack.
$stackspecis the user provided stack specification. It croaks upon error.
The passed argument hash may contain the following entries
- prepend boolean
If true, the full path is prepended to each entry of the stack. This defaults to true.
- expand integer
If specified, a stack of the specified number of entries is created, where each entry is consecutively numbered, starting from
stackspecargument should contain the
#character, which will be replaced by the number, which will be padded with leading
0digits to ensure that each string in the stack has the same length. Only the first
#character will be expanded.
The full path will be prepended to each entry in this stack. The value of the prepend option is ignored.
$stack->append( $stackspec ); $stack->append( $stackspec, $prepend );
Append the specified stack entry to the stack. It returns
$prependflag is present, and is true, the full path is prepended to the entries added to the stack;
$count = $stack->count;
returns the number of entries in the stack.
$stack->change( $stackdesc ); $stack->change( $stackdesc, $idx );
In the first form, replace the current entry.
In the second form, replace the stack entry at the specified index. If the index is
-1the last entry will be replaced. It returns non-zero if the index is out of bounds.
$current = $stack->current; $oldcurrent = $stack->current( $idx );
In the first form, return the index of the current entry in the stack. If the stack has been rewound, or has never been read out, this will return
In the second form, set the current entry to the passed index and return the previous index. An index of
-1indicates the last entry in the stack. An index of
0is equivalent to rewinding the stack.
If the specified index is out of bounds, the current entry is set to the closest bound.
$status = $stack->delete; $status = $stack->delete( $idx );
In the first form, delete the current entry.
In the second form, delete the entry at the specified index. If the position is
-1the last will be deleted. It returns non-zero if the index was out of bounds.
This dumps the stack to the standard output stream.
$entry = $stack->read; $entry = $stack->read( $idx ); @list = $stack->read;
In the first form, retrieve the next entry in the stack. It returns undef if there are no more entries left. Note that this returns the entry after the current one.
In the second form (list context), the entire stack is read out. The index of the current entry is unchanged.
In the third form, read the entry at the specified index. If the index is
-1, the last entry will be returned. If the index is out of bounds, the entry at the closest bound is returned.
Rewind the stack so that the next read operation returns the first entry. This sets the "current" entry index to zero.
The underlying stackio library's error reporting approach is primitive; it cannot present unique error codes to the caller. It makes up for it by printing error messages to the standard error stream. I consider this a bug, but have not fixed it, as it requires changes to the library API.
The CIAO application suite is available at http://asc.harvard.edu/ciao.
Much of the documentation was taken from the CIAO online documentation at http://asc.harvard.edu/ciao/ahelp/index_context.html#stackio and http://asc.harvard.edu/ciao/ahelp/stack.html.
Diab Jerius, <firstname.lastname@example.org>
Copyright (C) 2005 by the Smithsonian Astrophysical Observatory.
The Perl interface to the stklib library is released under the GNU General Public License. You may find a copy at http://www.fsf.org/copyleft/gpl.html.
The source to the included stklib library is released under a separate license, a copy of which may be found in the stklib subdirectory.