fiff_read_tag_info

 [fid,dir] = fiff_open(fname)

 Open a fif file and provide the directory of tags

0001 function [tag] = fiff_read_tag_info(fid)
0002 %
0003 % [fid,dir] = fiff_open(fname)
0004 %
0005 % Open a fif file and provide the directory of tags
0006 %
0007 
0008 %
0009 %   Author : Matti Hamalainen, MGH Martinos Center
0010 %   License : BSD 3-clause
0011 %
0012 %   Revision 1.2  2006/04/23 15:29:40  msh
0013 %   Added MGH to the copyright
0014 %
0015 %   Revision 1.1  2006/04/10 23:26:54  msh
0016 %   Added fiff reading routines
0017 %
0018 %
0019 
0020 global FIFF;
0021 if isempty(FIFF)
0022    FIFF = fiff_define_constants();
0023 end
0024 
0025 FIFFV_NEXT_SEQ=0;
0026 
0027 me='MNE:fiff_read_tag';
0028 
0029 tag.kind = fread(fid,1,'int');
0030 tag.type = fread(fid,1,'int');
0031 tag.size = fread(fid,1,'int');
0032 tag.next = fread(fid,1,'int');
0033 
0034 if tag.next == FIFFV_NEXT_SEQ
0035   fseek(fid,tag.size,'cof');
0036 elseif tag.next > 0
0037   fseek(fid,tag.next,'bof');
0038 end
0039