% Término de uma ligação RS-232 existente.
%
% stat=killcom(handler)
%
% Entradas:
%  handler -> ID da linha série
% Saídas:
%  stat    -> retorna 1 em caso de sucesso
%
% (c) Milton Ruas da Silva, 2006

function stat=killcom(handler)

if (nargin==0)
    error('myfunction:killComm:BadArgs','You need to specify the communication handler!');
end

% Encerramento da porta
stat=cportclose(handler);

% Verificação da ocorrência de erros no encerramento
if (stat==0)
    error('cport:cportclose:CloseFailed','Cannot close communications gate!');
end
