Commit 9d68a3e3 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

close file if last trace is read

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.
provide correct code value


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/branches/su1
SVN Revision: 3655
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent c968c957
......@@ -75,10 +75,18 @@ int sff_skipdata__(integer *lu, char *code, logical *last, integer *ierr,
int retval=0;
*ierr=0;
try {
datrw::ianystream &is=istreammanager(int(*lu));
fillfstring(std::string(""), code, code_len);
datrw::ianystream &is=istreammanager(static_cast<int>(*lu));
std::string ocode("");
if (is.hasinfo())
{
is >> info;
ocode="I";
}
if (!is.last()) { ocode += "D"; }
fillfstring(ocode, code, code_len);
is.skipseries();
*last = is.last() ? 1 : 0;
if (is.last()) { istreammanager.close(static_cast<int>(*lu)); }
}
catch(...) {
*ierr=1;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment