Home > eeg > egis > egis_file_utils > rd_csdm_hdr_v.m

rd_csdm_hdr_v

PURPOSE ^

[fhdr,chdr,ename,czeros,cgains,cnames,fcom,ftext, coff]=rd_csdm_hdr_v(fid)

SYNOPSIS ^

function [fhdr,chdr,ename,czeros,cgains,cnames,fcom,ftext,coff]=rd_csdm_hdr_v(fid)

DESCRIPTION ^

[fhdr,chdr,ename,czeros,cgains,cnames,fcom,ftext, coff]=rd_csdm_hdr_v(fid)

 1/9/96  PJ & RS  Reads LHeader from old BytOrd field 

This reads the header of an EGIS file (either .ave or .ses) into two matrices.
The first is a row vector containing one element for each field of the 
description, file info, and session info sections. This vector has room 
for NCells LCellHdr variables, beggining at column 24. The second matrix
has NCells rows and a column for each field of the header. The Trial
Specifics begin in column 6. Room is left for the maximum of LSpec/2 2-byte
values per trial. The files 'ses_hdr_offsets.m' and 'ave_hdr_offsets.m' provide
index definitions for the columns of the matrices returned by this function. 

For example the length of the data portion of an EGIS file can be found by

    [my_fhdr, my_chdr]=rd_egis_hdr_v(my)
    L=my_fhdr(LData)

The ExptNam, Cellname, and flexible area fields are optionally read  
this function. To retrieve them add return arguments in the following
order: exp. name, zeros, gains, cell names, comment, text. Arguments
cannot be skipped, i.e. the first extra argument always returns the
exp. name.

The function also optionally returns the physical offsets of the beginning of each
cell's data if coff is passed in the output parameter list

See Also:ses_hdr_offsets_v, ave_hdr_offsets_v, wt_ses_hdr_v, get_tspec_v, get_tspecs_v.

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [fhdr,chdr,ename,czeros,cgains,cnames,fcom,ftext,coff]=rd_csdm_hdr_v(fid)
0002 %[fhdr,chdr,ename,czeros,cgains,cnames,fcom,ftext, coff]=rd_csdm_hdr_v(fid)
0003 %
0004 % 1/9/96  PJ & RS  Reads LHeader from old BytOrd field
0005 %
0006 %This reads the header of an EGIS file (either .ave or .ses) into two matrices.
0007 %The first is a row vector containing one element for each field of the
0008 %description, file info, and session info sections. This vector has room
0009 %for NCells LCellHdr variables, beggining at column 24. The second matrix
0010 %has NCells rows and a column for each field of the header. The Trial
0011 %Specifics begin in column 6. Room is left for the maximum of LSpec/2 2-byte
0012 %values per trial. The files 'ses_hdr_offsets.m' and 'ave_hdr_offsets.m' provide
0013 %index definitions for the columns of the matrices returned by this function.
0014 %
0015 %For example the length of the data portion of an EGIS file can be found by
0016 %
0017 %    [my_fhdr, my_chdr]=rd_egis_hdr_v(my)
0018 %    L=my_fhdr(LData)
0019 %
0020 %The ExptNam, Cellname, and flexible area fields are optionally read
0021 %this function. To retrieve them add return arguments in the following
0022 %order: exp. name, zeros, gains, cell names, comment, text. Arguments
0023 %cannot be skipped, i.e. the first extra argument always returns the
0024 %exp. name.
0025 %
0026 %The function also optionally returns the physical offsets of the beginning of each
0027 %cell's data if coff is passed in the output parameter list
0028 %
0029 %See Also:ses_hdr_offsets_v, ave_hdr_offsets_v, wt_ses_hdr_v, get_tspec_v, get_tspecs_v.
0030 
0031 %Modification History:
0032 %    Adapted by Petr Janata from rd_ses_hdr_v.m  6/14/95
0033 %
0034 %Modification History from rd_ses_hdr_v.m
0035 %
0036 %    Orginal Version by Brian Rakitin, 3/2/95
0037 %    Output of rest of header added by BCR, 3/12/95
0038 
0039 csdm_hdr_offsets_v;
0040 
0041 %Check number of arguments
0042 if nargin ~=1 | fid==-1
0043     error('Script cut_by_specs requires a valid file id as input.')
0044 end
0045 if nargout == 0 
0046     error('Script rd_egis_hdr_v requires at least two matrix output arguments.')
0047 else if nargout >= 10
0048     error('Too many output arguments.')
0049   end
0050 end
0051 
0052 %Prep file for reading
0053 fhdr=zeros(1,23);
0054 status=fseek(fid,0,'bof');
0055 %Read in fhdr fields.
0056 fhdr(LHeader)=fread(fid,1,'int32'); %BytOrd
0057 fhdr(2)=fread(fid,1,'int16'); %HdrVer
0058 future_noffset=fread(fid,1,'int16'); %LHeader
0059 fhdr(4)=fread(fid,1,'int32'); %LData
0060 status=fseek(fid,80,'cof'); %Skip ExptNam
0061 fhdr(5:10)=fread(fid,6,'int16'); %RunDate and RunTime
0062 
0063 fhdr(11:23)=fread(fid,13,'int16'); %Everything else up to LCellHdr
0064 
0065 fhdr(24:(24+fhdr(18)-1))=fread(fid,fhdr(18),'int16'); %LCellHdr for each cell
0066 
0067 %Read in chdr
0068 if nargout >=2 
0069     chdr=zeros(fhdr(18),5);
0070     status=fseek(fid,(4*fhdr(19)),'cof');
0071     for loop=1:fhdr(18)
0072         chdr(loop,1)=fread(fid,1,'int16');
0073         status=fseek(fid,80,'cof');
0074         chdr(loop, 2:5)=(fread(fid,4,'int16'))';
0075         lspectot=(chdr(loop,2)*(chdr(loop,5)/2));
0076         lastcol=(6+lspectot-1);
0077         if lastcol >= 6
0078           chdr(loop,lastcol)=0;
0079           chdr(loop,6:lastcol)=(fread(fid,lspectot,'int16'))';
0080         end
0081     end
0082 else
0083     return
0084 end
0085 
0086 %Read experiment name if necessary
0087 if nargout >= 3 
0088     status=fseek(fid,12,'bof');
0089     tempstr=fread(fid,80,'char');
0090     ename=setstr(tempstr);
0091 else 
0092     return
0093 end
0094 
0095 %Read  zeros if necessary
0096 if nargout >= 4
0097     status=fseek(fid,(130+(2*fhdr(18))),'bof');
0098     czeros=fread(fid,(fhdr(19)),'int16');
0099 else
0100     return
0101 end
0102 
0103 %Read gains if necessary
0104 if nargout >= 5
0105     status=fseek(fid,(130+(2*fhdr(18))+(2*fhdr(19))),'bof');
0106     cgains=fread(fid,(fhdr(19)), 'int16');
0107 else
0108     return
0109 end
0110 
0111 %Read cellnames if necesaary
0112 if nargout >= 6
0113     status=fseek(fid,(130+(2*fhdr(18))+(4*fhdr(19))),'bof');
0114     status=fseek(fid,2,'cof');
0115     for loop=1:fhdr(18)
0116         cnames(loop,:)=setstr(fread(fid,80,'char')');
0117         status=fseek(fid,fhdr(24+(loop-1))-80,'cof');
0118     end
0119 else
0120     return
0121 end
0122         
0123 %Read comment if necessary
0124 if nargout >= 7
0125     status=fseek(fid,fhdr(3),'bof');
0126     status=fseek(fid,-(fhdr(22)+fhdr(21)+fhdr(20)),'cof');
0127     fcom=fread(fid,fhdr(20),'char');
0128 else
0129     return
0130 end
0131 
0132 %Read text if necessary
0133 if nargout >= 8
0134     status=fseek(fid,fhdr(3),'bof');
0135     status=fseek(fid,-(fhdr(22)+fhdr(21)),'cof');
0136     ftext=fread(fid,fhdr(21),'char');
0137 else
0138     return
0139 end
0140 
0141 %Read cell offsets if necessary
0142 if nargout >= 9
0143     coff=get_cell_offsets(fhdr, chdr);
0144 else
0145     return
0146 end
0147

Generated on Sun 24-Mar-2019 04:00:51 by m2html © 2003