1234567891011121314151617181920212223242526 |
- function [current, previous] = spm_authors
- % Return list of SPM coauthors
- % FORMAT [current, previous] = spm_authors
- % current - cell array of SPM coauthors of the current release
- % previous - cell array of SPM coauthors of previous releases
- %__________________________________________________________________________
- % Copyright (C) 2010-2012 Wellcome Trust Centre for Neuroimaging
- % SPM
- % $Id: spm_authors.m 5039 2012-11-06 20:39:58Z guillaume $
- fid = fopen(fullfile(spm('Dir'),'AUTHORS.txt'),'rt');
- if fid==-1, current = {}; previous = {}; return; end
- l = {};
- while 1
- tline = fgetl(fid);
- if ~ischar(tline), break, end
- if ~isempty(tline), l{end+1} = strtrim(tline(2:end)); end
- end
- fclose(fid);
- e = find(cellfun(@isempty,l));
- if numel(e)~=2, l = {}; e = [0 0]; end
- current = l(e(1)+1:e(2)-1)';
- previous = l(e(2)+1:end)';
|