Initial commit based on common repo commit ffeb9c9b

libs/3rd-party/mseed/lookup.c

@@ -0,0 +1,235 @@
+/***************************************************************************
+ * lookup.c:
+ *
+ * Generic lookup routines for Mini-SEED information.
+ *
+ * Written by Chad Trabant, ORFEUS/EC-Project MEREDIAN
+ *
+ * modified: 2006.346
+ ***************************************************************************/
+
+#include <string.h>
+
+#include "libmseed.h"
+
+/***************************************************************************
+ * ms_samplesize():
+ * 
+ * Returns the sample size based on type code or 0 for unknown.
+ ***************************************************************************/
+uint8_t
+ms_samplesize (const char sampletype)
+{
+  switch (sampletype)
+    {
+    case 'a':
+      return 1;
+    case 'i':
+    case 'f':
+      return 4;
+    case 'd':
+      return 8;
+    default:
+      return 0;
+    }  /* end switch */
+  
+}  /* End of ms_samplesize() */
+
+
+/***************************************************************************
+ * ms_encodingstr():
+ * 
+ * Returns a string describing a data encoding format.
+ ***************************************************************************/
+char *
+ms_encodingstr (const char encoding)
+{
+  switch (encoding)
+    {
+    case 0:
+      return "ASCII text";
+    case 1:
+      return "16 bit integers";
+    case 2:
+      return "24 bit integers";
+    case 3:
+      return "32 bit integers";
+    case 4:
+      return "IEEE floating point";
+    case 5:
+      return "IEEE double precision float";
+    case 10:
+      return "STEIM 1 Compression";
+    case 11:
+      return "STEIM 2 Compression";
+    case 12:
+      return "GEOSCOPE Muxed 24 bit int";
+    case 13:
+      return "GEOSCOPE Muxed 16/3 bit gain/exp";
+    case 14:
+      return "GEOSCOPE Muxed 16/4 bit gain/exp";
+    case 15:
+      return "US National Network compression";
+    case 16:
+      return "CDSN 16 bit gain ranged";
+    case 17:
+      return "Graefenberg 16 bit gain ranged";
+    case 18:
+      return "IPG - Strasbourg 16 bit gain";
+    case 19:
+      return "STEIM 3 Compression";
+    case 30:
+      return "SRO Gain Ranged Format";
+    case 31:
+      return "HGLP Format";
+    case 32:
+      return "DWWSSN Format";
+    case 33:
+      return "RSTN 16 bit gain ranged";
+    default:
+      return "Unknown format code";
+    }  /* end switch */
+
+}  /* End of ms_encodingstr() */
+
+
+/***************************************************************************
+ * ms_blktdesc():
+ *
+ * Return a string describing a given blockette type or NULL if the
+ * type is unknown.
+ ***************************************************************************/
+char *
+ms_blktdesc (uint16_t blkttype)
+{
+  switch (blkttype)
+    {
+    case 100:
+      return "Sample Rate";
+    case 200:
+      return "Generic Event Detection";
+    case 201:
+      return "Murdock Event Detection";
+    case 300:
+      return "Step Calibration";
+    case 310:
+      return "Sine Calibration";
+    case 320:
+      return "Pseudo-random Calibration";
+    case 390:
+      return "Generic Calibration";
+    case 395:
+      return "Calibration Abort";
+    case 400:
+      return "Beam";
+    case 500:
+      return "Timing";
+    case 1000:
+      return "Data Only SEED";
+    case 1001:
+      return "Data Extension";
+    case 2000:
+      return "Opaque Data";
+    }  /* end switch */
+
+  return NULL;
+  
+}  /* End of ms_blktdesc() */
+
+
+/***************************************************************************
+ * ms_blktlen():
+ *
+ * Returns the total length of a given blockette type in bytes or 0 if
+ * type unknown.
+ ***************************************************************************/
+uint16_t
+ms_blktlen (uint16_t blkttype, const char *blkt, flag swapflag)
+{
+  uint16_t blktlen = 0;
+  
+  switch (blkttype)
+    {
+    case 100:  /* Sample Rate */
+      blktlen = 12;
+      break;
+    case 200:  /* Generic Event Detection */
+      blktlen = 28;
+      break;
+    case 201:  /* Murdock Event Detection */
+      blktlen = 36;
+      break;
+    case 300:  /* Step Calibration */
+      blktlen = 32;
+      break;
+    case 310:  /* Sine Calibration */
+      blktlen = 32;
+      break;
+    case 320:  /* Pseudo-random Calibration */
+      blktlen = 28;
+      break;
+    case 390:  /* Generic Calibration */
+      blktlen = 28;
+      break;
+    case 395:  /* Calibration Abort */
+      blktlen = 16;
+      break;
+    case 400:  /* Beam */
+      blktlen = 16;
+      break;
+    case 500:  /* Timing */
+      blktlen = 8;
+      break;
+    case 1000: /* Data Only SEED */
+      blktlen = 8;
+      break;
+    case 1001: /* Data Extension */
+      blktlen = 8;
+      break;
+    case 2000: /* Opaque Data */
+      /* First 2-byte field after the blockette header is the length */
+      if ( blkt )
+	{
+	  memcpy ((void *) &blktlen, blkt+4, sizeof (int16_t));
+	  if ( swapflag ) ms_gswap2 (&blktlen);
+	}
+      break;
+    }  /* end switch */
+  
+  return blktlen;
+  
+}  /* End of ms_blktlen() */
+
+
+/***************************************************************************
+ * ms_errorstr():
+ *
+ * Return a string describing a given libmseed error code or NULL if the
+ * code is unknown.
+ ***************************************************************************/
+char *
+ms_errorstr (int errorcode)
+{
+  switch (errorcode)
+    {
+    case MS_ENDOFFILE:
+      return "End of file reached";
+    case MS_NOERROR:
+      return "No error";
+    case MS_GENERROR:
+      return "Generic error";
+    case MS_NOTSEED:
+      return "No SEED data detected";
+    case MS_WRONGLENGTH:
+      return "Length of data read does not match record length";
+    case MS_OUTOFRANGE:
+      return "SEED record length out of range";
+    case MS_UNKNOWNFORMAT:
+      return "Unknown data encoding format";
+    case MS_STBADCOMPFLAG:
+      return "Bad Steim compression flag(s) detected";
+    }				/* end switch */
+  
+  return NULL;
+
+}  /* End of ms_blktdesc() */