Source code for obspy.io.gcf.core

#! /usr/bin/env python
# -*- coding: utf-8 -*-
"""
GCF bindings to python
"""
import ctypes
import math
import os
import warnings

import numpy as np

from obspy import UTCDateTime
from obspy.core import Stream, Trace, AttribDict
from obspy.core.util.libnames import _load_cdll

# supported sampling rates outside range 1-250 Hz
# key:value = samplingrate:fractional_time_denominator
_SPS_MAP = {
    0.1: 1,
    0.125: 1,
    0.2: 1,
    0.25: 1,
    0.5: 1,
    400: 8,
    500: 2,
    625: 5,
    800: 16,
    1000: 4,
    1250: 5,
    2000: 8,
    2500: 10,
    4000: 16,
    5000: 20
}
# Unsupported sampling rates in range 1-250 Hz
_SPS_RESERVED = [157, 161, 162, 164, 167, 171, 174, 175, 176, 179, 181, 182,
                 191, 193, 194]
# Valid differential gains
_VALID_GAIN = [-1, 0, 1, 2, 4, 8, 16, 32, 64]
# Min/max data values
_GCF_MIN = -2147483648
_GCF_MAX = 2147483647

# Mapping between error codes set by reader and messages
_ERRORMSG_READ = {
    -1: "data block %d is not a data block",
    1: "stream ID in header of data block %d use extended system ID format",
    2: "stream ID in header of data block %d use double-extended "
       "system ID format",
    3: "unknown compression in data block %d",
    4: "to few/many data samples indicated in block header of data block %d",
    5: "start time of first data sample in data block %d is negative",
    9: "failure to decode header values of data block %d",
    10: "failure to decode data block %d (last data != RIC)",
    11: "1'st first difference != 0 in data block %d",
    21: "failure to decode data block %d (last data != RIC, 1'st first "
        "difference != 0)"
}
_ERROR_WRITE = {
    -2: IOError("failed to write to disc"),
    -1: IOError("failed to open file to write to"),
    1: ValueError("no data or inconsistent headers"),
    2: ValueError("unsupported sampling rate"),
    3: ValueError("bad fractional start time"),
    4: ValueError("unsupported gain"),
    5: ValueError("unsupported instrument type"),
    6: ValueError("too long system_id"),
    }


class _GcfSeg(ctypes.Structure):
    _fields_ = [
      ('streamID', ctypes.c_char * 7),
      ('systemID', ctypes.c_char * 7),
      ('start', ctypes.c_int32),
      ('t_numerator', ctypes.c_int),
      ('t_denominator', ctypes.c_int),
      ('t_leap', ctypes.c_int),
      ('gain', ctypes.c_int),
      ('sysType', ctypes.c_int),
      ('digi', ctypes.c_int),
      ('ttl', ctypes.c_int),
      ('blk', ctypes.c_int),
      ('err', ctypes.c_int),
      ('sps', ctypes.c_int),
      ('sps_denom', ctypes.c_int),
      ('compr', ctypes.c_int),
      ('FIC', ctypes.c_int32),
      ('RIC', ctypes.c_int32),
      ('n_data', ctypes.c_int32),
      ('n_alloc', ctypes.c_int32),
      ('data', ctypes.POINTER(ctypes.c_int32))
    ]


class _GcfFile(ctypes.Structure):
    _fields_ = [
      ('n_blk', ctypes.c_int),
      ('n_seg', ctypes.c_int),
      ('n_alloc', ctypes.c_int),
      ('n_errHead', ctypes.c_int),
      ('n_errData', ctypes.c_int),
      ('seg', ctypes.POINTER(_GcfSeg))
    ]


[docs]def compatible_sps(sps): """ Checks if a sampling rate is compatible with the GCF format :type sps: float, int :param sps: sampling rate to test :rtype: bool :returns: True if sampling rate is compatible else False """ if not (isinstance(sps, int) or isinstance(sps, float)): return False if sps >= 1 and sps <= 250: if int(sps)-sps != 0 or sps in _SPS_RESERVED: return False elif sps not in _SPS_MAP: return False return True
[docs]def get_time_denominator(sps): """ Returns the time fractional offset denominator, d, associated with an input sampling rate. Any data written to a gcf file must have its first sample sampled at a fractional time: n/d where 0 <= n < d :type sps: float, int :param sps: sampling rate (samples per second) :rtype: int :returns: fractional offset denominator, if 0 input sampling rate is not compatible with implemented GCF format, if 1 first data sample must be sampled in integer time """ denom = 0 if compatible_sps(sps): if sps <= 250: denom = 1 else: denom = _SPS_MAP[sps] return denom
[docs]def merge_gcf_stream(st): """ Merges GCF stream (replacing Stream.merge(-1) for headonly=True) :type st: :class:`~obspy.core.stream.Stream` :param st: GCF Stream object with no data :rtype: :class:`~obspy.core.stream.Stream` :returns: Stream object containing header and data. """ traces = [] for tr in st: delta = tr.stats.delta starttime = tr.stats.starttime endtime = tr.stats.endtime for trace in traces: if tr.id == trace.id and delta == trace.stats.delta \ and not starttime == trace.stats.starttime: if 0 < starttime - trace.stats.endtime <= delta: trace.stats.npts += tr.stats.npts break elif 0 < trace.stats.starttime - endtime <= delta: trace.stats.starttime = UTCDateTime(starttime) trace.stats.npts += tr.stats.npts break else: traces.append(tr) return Stream(traces=traces)
[docs]def _is_gcf(filename): """ Checks whether a file is GCF or not. :type filename: str :param filename: path to GCF file to be checked. :rtype: bool :return: True if a object pointed to by path is a GCF file. """ if not os.path.isfile(filename) or os.path.getsize(filename) % 1024: # File either does not point at a file object or file is not of # proper size return False # Load shared library gcf_io = _load_cdll("gcf") # declare function argument and return types gcf_io.read_gcf.argtypes = [ctypes.c_char_p, ctypes.POINTER(_GcfFile), ctypes.c_int] gcf_io.read_gcf.restype = ctypes.c_int gcf_io.free_GcfFile.argtypes = [ctypes.POINTER(_GcfFile)] gcf_io.free_GcfFile.restype = None try: # Decode first block obj = _GcfFile() b_filename = filename.encode('utf-8') ret = gcf_io.read_gcf(b_filename, obj, 3) if ret or (obj.n_errHead and obj.seg[0].err not in (10, 11, 21)) \ or obj.n_errData: return False except Exception: return False finally: # release allocated memory gcf_io.free_GcfFile(obj) return True
[docs]def _read_gcf(filename, headonly=False, network='', station='', location='', channel_prefix='HH', blockmerge=True, cleanoverlap=True, errorret=False, **kwargs): """ Reads a GCF file and returns a :class:`~obspy.core.stream.Stream` Only GCF data records are supported. Function supports format as described by GCF Reference `SWA-RFC-GCFR Issue F, December 2021 <https://www.guralp.com/apps/ok?doc=GCF_format>`_ .. warning:: This function should NOT be called directly, it registers via the ObsPy :func:`~obspy.core.stream.read` function, call this instead. .. rubric:: Exceptions Function will raise ``IOError`` on problems to read file .. rubric:: GCF header data GCF specific meta data will be set for each :class:`~obspy.core.trace.Trace` object in the returned :class:`~obspy.core.stream.Stream` object under attribute ``stats.gcf``, more precisely the following attributes will be set: ``stats.gcf.system_id`` : str system_id set in block header ``stats.gcf.stream_id`` : str 6-character stream_id set in block, typically consists of: (4-character unitID) + (1-character orientation code) + (int, tap) ``stats.gcf.sys_type`` : int system_id type: ``0`` - regular ``1`` - extended ``2`` - double extended ``stats.gcf.t_leap`` : bool 1 if block start at leap second, else 0 ``stats.gcf.gain`` : int variable gain setting (if ``-1`` not used) ``stats.gcf.digi`` : int digitizer type, combine with ``stats.gcf.sys_type`` to find the digitizer according to: ================== ============== =========================== stats.gcf.sys_type stats.gcf.digi digitizer ================== ============== =========================== 0 0 unknown (probably DM24 Mk2) 1 0 DM24 1 1 CD24 2 0 Affinity 2 1 Minimus ================== ============== =========================== ``stats.gcf.ttl`` : int tap-table-lookup to retrieve sequence of decimation filters used (see GCF reference linked above for further info) ``stats.gcf.blk`` : int Lowest block number in gcf file of blocks included in trace (count start at 0) ``stats.gcf.FIC`` : int Forward Integration Constant (i.e. first data value) ``stats.gcf.RIC`` : int Reverse Integration Constant (ideally last data value) ``stats.gcf.stat`` : int Status code, available codes are: ==== ========================================================== code description ==== ========================================================== -1 not a data block 0 no detected block issues 1 stream ID use extended system ID format 2 stream ID use double-extended system ID format 3 unknown compression 4 to few/many data samples indicated in block header 5 start of first data sample is negative 9 failure to decode header values 10 failure to decode data values (last data != RIC, may be due to bad RIC!!!) 11 first first difference != 0 (may not be critical!!!) 21 status codes 10 + 11 ==== ========================================================== .. rubric:: Example >>> from obspy import read >>> st = read("/path/to/20160603_1955n.gcf", format="GCF") :type filename: str :param filename: path to GCF file to read :type headonly: bool, optional :param headonly: if True only read block headers :type network: str, optional :param network: network code to use :type station: str, optional :param station: station code to use, if not specified unitID in gcf header will be used (first 4 characters in stream_id) :type location: str, optional :param location: location code to use :type channel_prefix: str, optional :param channel_prefix: 2-character channel prefix to use (e.g. ``"HH"`` for a high-gain seismometer sampled at 200 Hz) :type blockmerge: bool, optional :param blockmerge: if True merge blocks if aligned :type cleanoverlap: bool, optional :param cleanoverlap: ignored if blockmerge is False, if True, remove overlapping identical data prior to merging blocks, if False overlapping blocks will not be merged even if data in overlap is identical :type errorret: bool, optional :param errorret: if ``True`` block and header issues will be set in trace.stats.gcf.stat for each :class:`~obspy.core.trace.Trace` object in returned :class:`~obspy.core.stream.Stream` object, else function will raise raise an ``IOError`` with an appropriate error message :rtype: :class:`~obspy.core.stream.Stream` :returns: Stream object """ if not os.path.exists(filename): raise IOError("file %s could not be located (erroneous path?)" % (filename)) stream = None # Load shared library gcf_io = _load_cdll("gcf") # declare function argument and return types gcf_io.read_gcf.argtypes = [ctypes.c_char_p, ctypes.POINTER(_GcfFile), ctypes.c_int] gcf_io.read_gcf.restype = ctypes.c_int gcf_io.free_GcfFile.argtypes = [ctypes.POINTER(_GcfFile)] gcf_io.free_GcfFile.restype = None # set reader mode if headonly: if not blockmerge: mode = -2 else: mode = -1 else: if not blockmerge: mode = 2 elif not cleanoverlap: mode = 1 else: mode = 0 # read file obj = _GcfFile() b_filename = filename.encode('utf-8') ret = gcf_io.read_gcf(b_filename, obj, mode) if ret == -1: if os.path.isfile(filename): raise IOError("cannot open file %s in read mode (missing " "read permissions for user?)" % (filename)) else: raise IOError("%s is not a file" % (filename)) elif ret == 1: raise IOError("file %s is not a GCF data file" % (filename)) elif ret: raise IOError("failed to read file %s (unknown error code %d " "returned)" % (filename, ret)) err_msg = "" # So far so good, set up trace objects traces = [] for i in range(int(obj.n_seg)): if obj.seg[i].err and not errorret: err_msg = _ERRORMSG_READ.get( obj.seg[i].err, "unknown error code (%d) set for data block %%d" % (obj.seg[i].err) ) % (i+1) break chn = obj.seg[i].streamID.decode('utf-8')[-2] channel = channel_prefix + chn.upper() if headonly or obj.seg[i].n_data <= 0: data = None else: data = np.array(obj.seg[i].data[:obj.seg[i].n_data], dtype=np.int32) sps = obj.seg[i].sps*1./obj.seg[i].sps_denom dt = obj.seg[i].t_leap start = obj.seg[i].start+obj.seg[i].t_numerator * \ 1./obj.seg[i].t_denominator-dt def_stat = obj.seg[i].streamID[:4].decode('utf-8') stats = { "network": network, "station": station if station else def_stat, "location": location, "channel": channel, "sampling_rate": sps, "starttime": UTCDateTime(start), "npts": obj.seg[i].n_data, "gcf": AttribDict({ "system_id": obj.seg[i].systemID.decode('utf-8'), "stream_id": obj.seg[i].streamID.decode('utf-8'), "sys_type": obj.seg[i].sysType, "t_leap": True if obj.seg[i].t_leap else False, "gain": obj.seg[i].gain, "digi": obj.seg[i].digi, "ttl": obj.seg[i].ttl, "blk": obj.seg[i].blk, "FIC": obj.seg[i].FIC, "RIC": obj.seg[i].RIC, "stat": obj.seg[i].err }) } if data is not None: traces.append(Trace(data=data, header=stats)) else: traces.append(Trace(header=stats)) # Set up the stream object if not err_msg: stream = Stream(traces=traces) # Free memory allocated by the C-function gcf_io.free_GcfFile(obj) if err_msg: raise IOError(err_msg) return stream
[docs]def _write_gcf(stream, filename, stream_id=None, system_id=None, is_leap=False, gain=None, ttl=None, digi=None, sys_type=None, misalign=0.1, **kwargs): """ Writes a :class:`~obspy.core.stream.Stream` or a :class:`~obspy.core.trace.Trace` to a GCF file Only GCF data records are supported. Function supports format as described by `GCF Reference <https://www.guralp.com/apps/ok?doc=GCF_format>`_ SWA-RFC-GCFR Issue F, December 2021. .. warning:: This function should NOT be called directly, it registers via the ObsPy :func:`~obspy.core.stream.write` function, call this instead. .. note:: Sampling rate is restricted, most sampling rates between 1-250 samples per second (minus a few exceptions)are supported, for greater or lower sampling rates format support can be checked with function :func:`compatible_sps`. First data sample in each trace may only be sampled at non-integer second if sampling rate > 250. For sampling rates > 250 first data sample in each trace must start at an integer nominator of the denominator associated with the ampling rate. e.g. for a sampling rate of 1000 samples per second the associated denominator is 4 hence first data sample must be sampled at either ss.00 (0/4), ss.25 (1/4), ss.50 (2/4), or ss.75 (3/4). Use function :func:`get_time_denominator` to get the associated denominator. The GCF format is only guaranteed to support 32-bit signed integer values. While data with values out of range may be properly stored in the GCF format (if first and last data sample can be represented as a 32-bit signed integer as well as all first difference values of the data vector) the current implementaion only permitts input data to be representable as a 32-bit signed integer. If input waveforms cannot be representable as 32-bit signed integers they will be clipped at -2,147,483,648 and 2,147,483,647 .. rubric:: Exceptions ``TypeError`` will be raised upon unsupported input, ``IOError`` will be raised upon failure to output file .. rubric:: Example >>> st.write('GCF-filename.gcf', format='GCF') # doctest: +SKIP :type stream: :class:`~obspy.core.stream.Stream` or :class:`~obspy.core.trace.Trace` :param stream: waveform to write to file, :type filename: str :param filename: path to GCF file to read :type stream_id: str :param stream_id: 6-character stream ID, first 4 characters (the unit ID) should be in the range 0-9, A-Z fifth character should be the orientation code (e.g. Z, N, E) and the last character an integer yielding the tap the data were output from in the digitizer. If not specified stream_id will be taken from ``stats.gcf.stream_id`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object if present else stream_id will be constructed as: ``stats.station.ljust(4, x)[:4]+stats.channel[-1]+'0'`` :type system_id: str :param system_id: 4- to 6-character SysID (4 if ``sys_type`` is 2, 5 if ``sys_type`` is 1 and 6 if ``sys_type`` is 0). If not specified system_id will be taken from ``stats.gcf.system_id`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object and if present else system_id will be extracted from ``stream_id`` starting from first character. :type is_leap: int :param is_leap: should be set to ``True`` if first sample is sampled at an integer second that is a leap second. If not specified value will be taken from ``stats.gcf.t_leap`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` if present else the default value is ``0`` :type gain: int :param gain: digitizer gain (permitted values are 2^n; n <= 6, and -1 if combined with ``sys_type`` = 0), if not specified gain will be taken from ``stats.gcf.gain`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object if present else the default value is ``0``. :type ttl: int :param ttl: tap-table-lookup reference. if not specified ttl will be taken from t``stats.gcf.gain`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object if present else the default value is ``0`` :type digi: int :param digi: digitizer type (permitted values are 0 or 1), if not specified type will be taken from ``stats.gcf.digi`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object if present else the default value is ``0`` :type sys_type: int :param sys_type: system_id type (permitted values are 0, 1, or 2), if not specified sys_type will be taken from ``stats.gcf.sys_type`` for each :class:`~obspy.core.trace.Trace` object in the input :class:`~obspy.core.stream.Stream` object if present else the default value is ``0`` :type misalign: float :param misalign: fraction of a sampling interval (permitted range is 0-0.5) of tolerated misalignment of starttime. If not specified default value is ``0.1`` """ # avoid altering input object stream = stream.copy() # Make sure we have a Stream or Trace object if not isinstance(stream, Stream): if not isinstance(stream, Trace): raise TypeError("write requires either a Stream or a Trace object") else: stream = Stream(traces=stream) # Check output path if os.path.exists(filename) and not os.path.isfile(filename): IOError("path %s exists but is not a file object" % (filename)) d, f = os.path.split(filename) if d and not os.path.exists(d): try: os.makedirs(d) except Exception: raise IOError("failed to create output directorie(s) %s" % (d)) # check misalign parameter for supported range if misalign < 0 or misalign > 0.5: raise TypeError("argument misalign out of range (permitted range " "0 - 0.5)") ret = 0 # Load shared library gcf_io = _load_cdll("gcf") # declare function argument and return types gcf_io.write_gcf.argtypes = [ctypes.c_char_p, ctypes.POINTER(_GcfFile)] gcf_io.write_gcf.restype = ctypes.c_int # prepare the GcfFile object obj = _GcfFile() obj.n_seg = len(stream) obj.seg = (_GcfSeg * obj.n_seg)() obj.n_alloc = obj.n_seg ctypes.cast(obj.seg, ctypes.POINTER(_GcfSeg)) for i, trace in enumerate(stream): gcf_stats = trace.stats.gcf if hasattr(trace.stats, 'gcf') \ else None # Input checks, all of these are checked in the C-writer function # but still duplicated here for clarity and ease of formatting # proper exception messages # Check data type if not isinstance(trace.data[0], np.int32): if np.any(trace.data > _GCF_MAX) or \ np.any(trace.data < _GCF_MIN): msg = ('some samples were exceeding the data range that ' 'GCF format can store (signed 32-bit integer), so ' 'the data written to file will be clipped') warnings.warn(msg) trace.data = trace.data.clip(_GCF_MIN, _GCF_MAX) data = np.require(trace.data, dtype=np.int32, requirements=['C_CONTIGUOUS']) if not np.all(data == trace.data): msg = ('data was downcast to int32 and data was altered ' 'by this operation') warnings.warn(msg) trace.data = data else: trace.data = np.ascontiguousarray(trace.data) # Check sampling rate sps_denom = 1 if not compatible_sps(trace.stats.sampling_rate): sps = ".3f" % (trace.stats.sampling_rate) if \ trace.stats.sampling_rate < 1 else \ "%d" % (trace.stats.sampling_rate) raise ValueError("trace sampling rate, %s, in trace %d not " "supported in GCF format" % (sps, i+1)) else: sps = trace.stats.sampling_rate if sps < 1: if sps < 0.12: sps_denom = 10 elif sps < 0.19: sps_denom = 8 elif sps < 0.24: sps_denom = 5 elif sps < 0.49: sps_denom = 4 else: sps_denom = 2 sps = 1 sps = int(sps) # check start time sec = trace.stats.starttime.timestamp t_numerator = 0 if sps <= 250: # fractional start time not supported, allow for rounding of # up 10% of the sampling interval # hmm is this enough for sampling rates < 1 Hz start = int(round(sec)) if abs(start-sec) > 1./sps*misalign: raise ValueError("fractional start time not supported for " "sampling rates <= 250 Hz (in trace %d)" % (i+1)) else: # fractional start time supported but restricted, allow for # 10% misalignment start = int(math.floor(sec)) dt = sec-start t_denom = _SPS_MAP[sps] numerator = dt*t_denom t_numerator = int(round(numerator)) if abs(numerator-t_numerator)/t_denom > misalign/sps: raise ValueError("start time in trace %d not aligned with " "supported (fractional) start time" % (i+1)) # Check if is_leap is set else set use_is_leap = 0 if is_leap is not None: use_is_leap = 1 if is_leap else 0 elif hasattr(gcf_stats, "is_leap"): use_is_leap = 1 if gcf_stats.is_leap else 0 # Check if gain is set else set use_gain = 0 gain_in_stats = False if gain is not None: use_gain = gain elif hasattr(gcf_stats, "gain"): gain_in_stats = True use_gain = gcf_stats.gain if use_gain not in _VALID_GAIN: if gain is None: gains = ', '.join(["%d" % g for g in _VALID_GAIN]) raise ValueError("bad value on stats.gcf.gain, %s, in " "stats.gcf in trace %d (permitted values:" " %s)" % (use_gain, i+1, gains)) else: gains = ', '.join(["%d" % g for g in _VALID_GAIN]) raise ValueError("bad value on argument gain, %s " "(permitted values: %s)" % (use_gain, gains)) # Check if ttl is set else set use_ttl = 0 if ttl is not None: use_ttl = ttl elif hasattr(gcf_stats, "ttl"): use_ttl = gcf_stats.ttl # Check if type is set else set use_digi = 0 if digi is not None: use_digi = digi elif hasattr(gcf_stats, "digi"): use_digi = gcf_stats.digi if use_digi not in [0, 1]: if digi is None: raise ValueError("bad value on stats.gcf.digi, %s, in " "trace %d (permitted values: 0, 1)" % (use_digi, i+1)) else: raise ValueError("bad value on argument digi, %s " "(permitted values: 0, 1)" % (use_digi)) # Check if sys_type is set else set use_sys_type = 0 st_in_stats = False if sys_type is not None: use_sys_type = sys_type elif hasattr(gcf_stats, "sys_type"): st_in_stats = True use_sys_type = gcf_stats.sys_type if use_sys_type not in [0, 1, 2]: if digi is None: raise ValueError("bad value on stats.gcf.digi, %s, in " "trace %d (permitted values: 0, 1, 2)" % (use_sys_type, i+1)) else: raise ValueError("bad value on argument digi, %s, " "in trace %d (permitted values: 0, 1, 2)" % (use_sys_type, i+1)) elif use_sys_type != 0 and use_gain == -1: if gain_in_stats and st_in_stats: raise ValueError( "value -1 on stats.gcf.gain may only be " "combined with value 0 on " "stats.gcf.sys_type (in trace %s)" % (i+1)) elif gain_in_stats: raise ValueError("value -1 on stats.gcf.gain may only be " "combined with value 0 on argument " "sys_type (in trace %s)" % (i+1)) elif st_in_stats: raise ValueError( "value -1 on argument gain may only be " "combined with value 0 on " "stats.gcf.sys_type (in trace %s)" % (i+1)) else: raise ValueError("value -1 on argument gain may only be " "combined with value 0 on argument " "sys_type") # Check if stream_id is set else build if stream_id is not None: use_stream_id = stream_id elif gcf_stats is not None and hasattr(gcf_stats, "stream_id"): use_stream_id = gcf_stats.stream_id.upper() else: use_stream_id = (trace.stats.station.ljust(4, "X")[:4] + (trace.stats.channel[-1] if trace.stats.channel else 'X')+'0').upper() if len(use_stream_id) != 6: if stream_id is None: raise ValueError("bad value on stats.gcf.stream_id, %s, " "in trace %d (must be 6-character long)" % (use_stream_id, i+1)) else: raise ValueError( "bad value on argument stream_id, %s (must" " be 6-character long)" % (use_stream_id)) # Check if system_id is set else set len_system_id = 6 if use_sys_type == 0 \ else (5 if use_sys_type == 1 else 4) use_system_id = use_stream_id[:len_system_id] si_in_stats = False if system_id is not None: use_system_id = system_id.upper() elif gcf_stats is not None and hasattr(gcf_stats, "system_id"): si_in_stats = True use_system_id = gcf_stats.system_id.upper() if len(use_system_id) > len_system_id: if st_in_stats and si_in_stats: raise ValueError("stats.gcf.system_id not compatible with " "stats.gcf.sys_type in trace %d (max " "length %d characters )" % (i+1, len_system_id)) elif st_in_stats: raise ValueError("argument system_id not compatible with " "stats.gcf.sys_type in trace %d (max " "length %d characters )" % (i+1, len_system_id)) elif si_in_stats: raise ValueError("stats.gcf.system_id not compatible with " "argument sys_type in trace %d (max length" " %d characters )" % (i+1, len_system_id)) else: raise ValueError("argument system_id not compatible with " "argument sys_type (max length %d " "characters )" % (len_system_id)) # Populate segment tr = _GcfSeg() tr.streamID = use_stream_id.encode('utf-8') tr.systemID = use_system_id.encode('utf-8') tr.start = start tr.t_numerator = t_numerator tr.t_leap = use_is_leap tr.gain = use_gain tr.sysType = use_sys_type tr.digi = use_digi tr.ttl = use_ttl tr.sps = sps tr.sps_denom = sps_denom tr.n_data = trace.data.size tr.n_alloc = trace.data.size tr.data = trace.data.ctypes.data_as(ctypes.POINTER(ctypes.c_int32)) # Add segment to file object obj.seg[i] = tr # Write to file ret = gcf_io.write_gcf(filename.encode('utf-8'), obj) if ret == 0: pass elif ret in _ERROR_WRITE: raise _ERROR_WRITE['ret'] else: raise IOError("unknown error code %d" % (ret))