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

make su visible

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.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/branches/libdatrwxx.su
SVN Revision: 3471
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 28f4dd8e
......@@ -37,11 +37,12 @@
* - 03/05/2010 V1.6 sac provides debugging
* - 06/10/2010 V1.7 added ASCII format of T. Forbrigers any2ascii
* - 23/11/2010 V1.8 use static member data
* - 25/11/2010 V1.9 add Seismic Unix format
*
* ============================================================================
*/
#define DATRW_READANY_CC_VERSION \
"DATRW_READANY_CC V1.8"
"DATRW_READANY_CC V1.9"
#define DATRW_READANY_CC_CVSID \
"$Id$"
......@@ -55,6 +56,7 @@
#include <datrwxx/gse.h>
#include <datrwxx/tsoft.h>
#include <datrwxx/tfascii.h>
#include <datrwxx/su.h>
#include <datrwxx/error.h>
namespace datrw {
......@@ -76,6 +78,7 @@ namespace datrw {
else if (format==Fgse) { retval=gse::isbinary; }
else if (format==Ftsoft) { retval=tsoft::isbinary; }
else if (format==Ftfascii) { retval=tfascii::isbinary; }
else if (format==Fsu) { retval=su::isbinary; }
else
{ DATRW_abort("ERROR (isbinary): unknown format!"); }
return(retval);
......@@ -97,6 +100,7 @@ namespace datrw {
else if (format==Fgse) { retval=igsestream::openmode; }
else if (format==Ftsoft) { retval=itsoftstream::openmode; }
else if (format==Ftfascii) { retval=itfasciistream::openmode; }
else if (format==Fsu) { retval=isustream::openmode; }
else
{ DATRW_abort("ERROR (openmode): unknown format!"); }
return(retval);
......@@ -117,6 +121,7 @@ namespace datrw {
else if (Mformat==Fgse) { Mis=new igsestream(is); }
else if (Mformat==Ftsoft) { Mis=new itsoftstream(is); }
else if (Mformat==Ftfascii) { Mis=new itfasciistream(is); }
else if (Mformat==Fsu) { Mis=new isustream(is); }
else
{ DATRW_abort("ERROR (ianystream): unknown format!"); }
}
......@@ -134,24 +139,16 @@ namespace datrw {
Eformat anyID(const std::string& id)
{
Eformat retval;
if (id==pdas::streamID)
{ retval=Fpdas; }
else if (id==sff::streamID)
{ retval=Fsff; }
else if (id==hpmo::streamID)
{ retval=Fhpmo; }
else if (id==mseed::streamID)
{ retval=Fmseed; }
else if (id==bonjer::streamID)
{ retval=Fbonjer; }
else if (id==sac::streamID)
{ retval=Fsac; }
else if (id==gse::streamID)
{ retval=Fgse; }
else if (id==tsoft::streamID)
{ retval=Ftsoft; }
else if (id==tfascii::streamID)
{ retval=Ftfascii; }
if (id==pdas::streamID) { retval=Fpdas; }
else if (id==sff::streamID) { retval=Fsff; }
else if (id==hpmo::streamID) { retval=Fhpmo; }
else if (id==mseed::streamID) { retval=Fmseed; }
else if (id==bonjer::streamID) { retval=Fbonjer; }
else if (id==sac::streamID) { retval=Fsac; }
else if (id==gse::streamID) { retval=Fgse; }
else if (id==tsoft::streamID) { retval=Ftsoft; }
else if (id==tfascii::streamID) { retval=Ftfascii; }
else if (id==su::streamID) { retval=Fsu; }
else { DATRW_abort("unknown data type identifier!"); }
return(retval);
}
......@@ -170,6 +167,7 @@ namespace datrw {
case Fgse: retval=gse::streamID; break;
case Ftsoft: retval=tsoft::streamID; break;
case Ftfascii: retval=tfascii::streamID; break;
case Fsu: retval=su::streamID; break;
default: DATRW_abort("unknown data type ID#!");
}
return(retval);
......@@ -198,6 +196,7 @@ namespace datrw {
os.width(13); os << tsoft::streamID << ": TSOFT format" << std::endl;
os.width(13); os << tfascii::streamID
<< ": ASCII format of T. Forbrigers any2ascii" << std::endl;
os.width(13); os << su::streamID << ": Seismic Unix format" << std::endl;
os << DATRW_READANY_CC_CVSID << std::endl;
}
......@@ -225,6 +224,8 @@ namespace datrw {
os << "TSOFT data: "; itsoftstream::help(os);
os << std::endl;
os << "TFASCII data: "; itfasciistream::help(os);
os << std::endl;
os << "SU data: "; isustream::help(os);
}
} // namespace datrw
......
......@@ -34,6 +34,7 @@
* - 12/11/2009 V1.3 added TSOFT data
* - 06/10/2010 V1.4 added ASCII format of T. Forbrigers any2ascii
* - 23/11/2010 V1.5 use static members
* - 25/11/2010 V1.6 added Seismic Unix format
*
* ============================================================================
*/
......@@ -42,7 +43,7 @@
#ifndef DATRW_READANY_H_VERSION
#define DATRW_READANY_H_VERSION \
"DATRW_READANY_H V1.5"
"DATRW_READANY_H V1.6"
#define DATRW_READANY_H_CVSID \
"$Id$"
......@@ -59,7 +60,8 @@ namespace datrw {
Fsac, //<! SAC binary data
Fgse, //<! raw GSE data
Ftsoft, //<! TSOFT data
Ftfascii //<! ASCII format of T. Forbrigers any2ascii
Ftfascii, //<! ASCII format of T. Forbrigers any2ascii
Fsu //<! Seismic Unix format
}; // enum Eformat
#define ANYDELEGATE( function ) function() const { return(Mis->function()); }
......
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