readRunFiles.asv
4a8e2a14fe67FreqRINCal

readRunFiles.asv
View Options

			function rumn_files = readRunFiles(varargin)
			if ~isempty(varargin) && ischar(varargin{1})
			% The directory to search in can be supplied as varargin{1}
			dir = varargin{1};
			else
			% Otherwise use the local base directory
			dir = getLocalBaseDir();
			end
			% Find all the names of .m files that start with 'run'
			all_names = what(dir);
			is_runm = startsWith(all_names.m,'run','IgnoreCase',false);
			runm_names = all_names.m(is_runm);
			rumn_files = repmat(struct(),length(runm_names),1);
			% Read headers of all the run*.m files
			for i=1:length(runm_names)
			name_match = regexp(runm_names{i},'run(.*)\.m','tokens');
			rumn_files(i).name = name_match{1}{1};
			fname = fullfile(dir, runm_names{i});
			rumn_files(i).fullname = fname;
			try
			fid = fopen(fname,'r');
			% Read the file line by line, with a paranoid limitation on
			% the number of cycles
			j = 1;
			header ='';
			while j<100000
			j=j+1;
			str = strtrim(fgetl(fid));
			if isempty(str)
			% An empty string - skip
			header = [header,str];
			continue
			elseif str(1)=='%'
			% A comment string
			match = regexp(str,'[%\s](.)=(.*)','tokens');
			try
			tag = lower(match{1}{1});
			rumn_files(i).(tag) = match{1}{2};
			header = [header,str];
			catch
			end
			continue
			else
			% Stop when the code begins
			break
			end
			end
			fclose(fid);
			catch
			warning('Could not process the run file %s', fname)
			end
			end
			end