cosmo type skl

function s=cosmo_type(fn)
% print or return ASCII contents of a file
%
% Usages
%  - cosmo_type(fn);     prints the contents of file fn
%  - s=cosmo_type(fn);   return the contents of file fn
%
% See also: type
%
% #   For CoSMoMVPA's copyright information and license terms,   #
% #   see the COPYING file distributed with CoSMoMVPA.           #

    fid=fopen(fn);
    s=fread(fid,inf,'char=>char')';
    fclose(fid);

    if nargout==0
        fprintf('%s',s);
        clear s;
    end