function [out,cesta]=is_acroread
%
%  out=1  system unix, acroread k dispozici
%  out=2  system unix, xpdf k dispozici
%  out=3  system unix, acroread ani xpdf neni k dispozici
%  out=4  system windows: 
%          cesta ... plna cesta na spusteni Acrobat
%          cesta = []  ...  nebyla-li nalezena

cesta=[];
if isunix
 [s,m] = unix('locate acroread|grep bin');
 if ~isempty(m)
   out=1;
 else
   [s,m] = unix('locate xpdf|grep bin');
   if ~isempty(m)
     out=2;
   else
     out=3;
   end
 end
else
    out=4;
    cd(matlabroot);
    cd ..;
    vypis=dir;
    nazvy={vypis.name}';
    male_nazvy=lower(nazvy);
    ident=0;
    for i=1:length(nazvy)
      if ~isempty(strmatch('adobe',male_nazvy(i)))
        ind=i;
        ident=1;
      end;
    end;
    if ident==1
      ident=0;
      cd(nazvy{ind});
      vypis=dir;
      nazvy={vypis.name}';
      male_nazvy=lower(nazvy);
      for i=1:length(nazvy)
        if ~isempty(strmatch('acrobat',male_nazvy(i)))
          ind=i;
          ident=1;
        end;
      end;
      if ident==1
        ident=0;
        cd(nazvy{ind});
        vypis=dir;
        nazvy={vypis.name}';
	male_nazvy=lower(nazvy);
        for i=1:length(nazvy)
          if ~isempty(strmatch('acrobat',male_nazvy(i)))
            ind=i;
            ident=1;
	  end;
        end;
        if ident==0
          for i=1:length(nazvy)
            if ~isempty(strmatch('reader',male_nazvy(i)))
              ind=i;
              ident=1;
	    end;
          end;
        end;
        if ident==1
          ident2=0;
          cd(nazvy{ind});
          vypis=dir;
          nazvy={vypis.name}';
	  male_nazvy=lower(nazvy);
          for i=1:length(nazvy)
            if ~isempty(strmatch('acrobat',male_nazvy(i)))
               cesta=[pwd,'\',sprintf('%s',nazvy{i})];
               ident2=1;
	    end;
          end;
	   if ident2==0
            for i=1:length(nazvy)
              if ~isempty(strmatch('acror',male_nazvy(i)))
		 cesta=[pwd,'\',sprintf('%s',nazvy{i})];
                 ident2=1;
	      end;
            end;
          end;
	end;
      end;
    end;
end;