function [celOrd] = ordenaStrings(cel)
%Comentários ... help!!

%Testes à estrutura de entrada
if class(cel)~='cell',
   error('O argumento não é um cell array');
end;
[linhas_cel, colunas_cel] = size(cel);
if (linhas_cel> 1 && colunas_cel> 1)
   error('O cellarray deve ser um vector!');
end
if (linhas_cel== 0 || colunas_cel== 0)
   error('O cellarray deve ser não-vazio!');
end

for k=1:length(cel)
   if(strcmp(class(cel{k}), 'char')~=true)
      error('Todos os elementos do cellarray devem ser um array de chars!');
   end
end

%Ordenação
[celOrd_aux, indices] = sort(lower(cel));
for k=1:length(cel)
   celOrd{k}=cel{indices(k)};
end
