R/ReadConfigHeader.R

In leachth/ReadEKRaw_updated:

#function configheader = readEKRaw_ReadConfigHeader(fid)
#readEKRaw_ReadConfigHeader  Read EK/ES DG configuration header
#   configheader = readEKRaw_ReadConfigHeader(fid) returns a  structure
#       containing an ES/EK file configuration header.
#
#   REQUIRED INPUT:
#               fid:    file handle id
#
#   OPTIONAL PARAMETERS:    None
#
#   OUTPUT:
#       Output is a data structure containing the file configuration header
#
#   REQUIRES:   None
#
#
#   Rick Towler
#   NOAA Alaska Fisheries Science Center
#   Midwater Assesment and Conservation Engineering Group
#   rick.towler@noaa.gov
#
#   Based on code by Lars Nonboe Andersen, Simrad.



#configheader.surveyname = char(fread(fid,128,'uchar', 'l')');
#configheader.transectname = char(fread(fid,128,'uchar', 'l')');
#configheader.soundername = char(fread(fid,128,'uchar', 'l')');
#configheader.spare = char(fread(fid,128,'uchar', 'l')');
#configheader.transceivercount = fread(fid,1,'int32', 'l');

# R code
ReadConfigHeader 	= function(fid) {
	configheader = list()
	configheader$surveyname = readChar(fid, 128)

	configheader$transectname = readChar(fid, 128)
	configheader$soundername = readChar(fid, 128)

	configheader$spare = readChar(fid, 128)

	configheader$transceivercount = readBin(
								con 	= fid,
								what 	= 'integer',
								n 		= 1,
								size 	= 4,
								signed 	= TRUE ,
								endian 	= "little")
	return(configheader)
}