parse_74.c

解吸SEED格式的源代码

/*===========================================================================*/
/* SEED reader     |            parse_type74             |     time header */
/*===========================================================================*/
/*
	Name:		parse_type74
	Purpose:	parse a time series index (type 74) blockette into a
				globally-available table
	Usage:		void parse_type74 ();
				char *blockette;
				parse_type74 (blockette);
	Input:		blockette = pointer to beginning of blockette
	Output:		none
	Externals:	temp_char
				type74_head - 1st entry in table; defined in structures.h,
					allocated in globals.h
	Warnings:	none
	Errors:		none
	Called by:	process_stationh
	Calls to:	parse_int - get an integer from a blockette 
				parse_double - get a double from a blockette 
				parse_varlstr - get a variable-length string from a blockette
	Algorithm:	parse the blockette into a globally-available table
	Notes:		none
	Problems:	none known
	References:	Halbert et al, 1988; see main routine
	Language:	C, hopefully ANSI standard
	Author:		Dennis O'Neill
	Revisions:	08/29/89  Dennis O'Neill  Initial version
				04/26/93  Allen Nance     added field 16 for v2.3
				09/01/93  CL 			  fixed minor bug in parsing for
										  number of accels.
				05/11/94  CL			  took out call to malloc if 0 bytes

*/

#include "rdseed.h"

/* this needs to be allocated here so it keeps its value between calls */
struct type74 *type74_tail = NULL;			/* end of linked list */

void parse_type74 (blockette)
char *blockette;								/* ptr to start of blockette */
{
	char *blockette_ptr;						/* ptr to inside blockette */
	struct type74 *type74; 					/* genl member of table */
	int i;										/*counter */

	/* point to beginning of information, past type and length */
	blockette_ptr = blockette;
	blockette_ptr += 7;

/*                 +=======================================+                 */
/*=================| allocate space and initialize a type73|=================*/
/*                 +=======================================+                 */

	type74 = (struct type74 *) alloc_linklist_element
		(sizeof (struct type74), "parse_type74");	

	memset((char *)type74, 0, sizeof(struct type74));


/*                 +=======================================+                 */
/*=================|  recover information from the type73  |=================*/
/*                 +=======================================+                 */

	type74->station = parse_nchar (&blockette_ptr, 5);
	type74->location = parse_nchar (&blockette_ptr, 2);
	type74->channel = parse_nchar (&blockette_ptr, 3);

	if (*blockette_ptr != '~')
		type74->starttime = parse_varlstr (&blockette_ptr, STRINGTERM);
	else blockette_ptr += 1;
	type74->start_index = parse_long (&blockette_ptr, 6);
	type74->start_subindex = parse_int (&blockette_ptr, 2);

	if (*blockette_ptr != '~')
		type74->endtime = parse_varlstr (&blockette_ptr, STRINGTERM);
	else blockette_ptr += 1;
	type74->end_index = parse_long (&blockette_ptr, 6);
	type74->end_subindex = parse_int (&blockette_ptr, 2);

	/* recover number of accelerators */
	type74->number_accelerators = parse_int (&blockette_ptr, 3);

	/* allocate space for data pieces */
	if (type74->number_accelerators != 0)
		type74->accelerator = (struct type74sub *) 
			alloc_linklist_element(sizeof(struct type74sub) *
						type74->number_accelerators,
						"parse_type74->datapiece");

	/* recover accelerators */
	for (i = 0; i < type74->number_accelerators; i++)
	{
		if (*blockette_ptr != '~')
			type74->accelerator[i].time =
			parse_varlstr (&blockette_ptr, STRINGTERM);
		else
		{
			blockette_ptr += 1;
			type74->accelerator[i].time = NULL;
		}
		type74->accelerator[i].index = parse_long (&blockette_ptr, 6);
		type74->accelerator[i].subindex = parse_int (&blockette_ptr, 2);
	}

	/* recover network info for SEED version 2.3 */
	if (type10.version >= 2.3)
	{
		type74->network_code = parse_nchar (&blockette_ptr, 2);
	}
	else
	{
		type74->network_code = NULL;
	}

/*                 +=======================================+                 */
/*=================| link the type74 into the type74 table |=================*/
/*                 +=======================================+                 */

	append_linklist_element (type74, type74_head, type74_tail);

}