prc_volh.c

解吸SEED格式的源代码

/*===========================================================================*/
/* SEED reader     |             process_volh              |   volume header */
/*===========================================================================*/
/*
	Name:		process_volh
	Purpose:	process a volume header from a SEED format file
	Usage:		void process_volh ();
				if (record type is volume header)
					process_volh ();
	Input:		none
	Output:		none
	Externals:	temp_char - allocated in globals.h
				input - defined in structures.h, allocated in globals.h
	Warnings:	if unexpected blockette type is encountered, print message
	Errors:		none
	Called by:	main
	Calls to:	read_blockette - local fcn; read a blockette
				parse_type10 - local fcn; parse the volume id blockette
				parse_type11 - local fcn; parse the volume station header index
				parse_type12 - local fcn; parse the volume time span index
	Algorithm:	receive a logical record of type V from the main program.  Parse
				each blockette (volume id, volumne station header index, and
				volume time span index) in the appropriate subprocedure.  If a 
				blockette of unknown type is encountered, print a message and 
				continue.  Stop when a blockette of type 0 is encountered.
	Notes:		Structure of the volume header list:
				volume id
				volume station header index
				volume time span index
	Problems:	none known
	References:	Halbert et al, 1988; see main routine
	Language:	C, hopefully ANSI standard
	Author:		Dennis O'Neill
	Revisions:	07/15/88  Dennis O'Neill  Initial preliminary release 0.9
				11/21/88  Dennis O'Neill  Production release 1.0
*/

#include "rdseed.h"

void process_volh ()
{
	char *input_data_ptr, *blockette_ptr;						/* ptr into input.data */
	int l;

	input_data_ptr = input.data;

/*                 +=======================================+                 */
/*=================|    Read and process volume header     |=================*/
/*                 +=======================================+                 */

	blockette_length = 0;
	blockette_type = -1;

	while ((blockette_type != 0))
	{
		input_data_ptr += blockette_length;
		read_blockette (&input_data_ptr, blockette, &blockette_type, 
			&blockette_length);
		if (blockette_type == 10)
		{
			/* offset gets incr at end of "main" loop */
			/* offset -= LRECL; */

			blockette_ptr = &blockette[11];
			l = parse_int (&blockette_ptr, 2);			/* read logical record length */
			LRECL = 1<<l;
			if (LRECL < 256 || LRECL > 32768)
				{
				fprintf(stderr, "ERROR (process_volh):  ");
				fprintf(stderr, "Invalid Logical Record Length - Fatal ERROR\n");
				exit(-1);
				}
			read_logical_record (lrecord_ptr);

			found_lrecl_flag = TRUE;

			parse_type10 (blockette);
		}
		else if (at_volume && blockette_type == 11) parse_type11 (blockette);
		else if (at_volume && blockette_type == 12) parse_type12 (blockette);
		else if (at_volume && blockette_type != 0)
		{
			fprintf (stderr, "WARNING (process_volh):  ");
			fprintf (stderr, "unknown blockette type %d found in record %ld.\n",
				blockette_type, input.recordnumber);
			fprintf (stderr, "\tExecution continuing.\n");
		}
	}

/*                 +=======================================+                 */
/*=================|                cleanup                |=================*/
/*                 +=======================================+                 */

}