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