contribuicao para o xharbour - lista de erro

[tonyx]

esta e minha peque contribuicao para o xharbour - iniciantes

//----------------- programa:== le_erro.exe
//-- 1- basta compilar e colocar o executavel no c:\windows;
//-- 2- nos outros sistemas EX. ´SISTEMA.BC" basta colocar em
// Editor = LE_ERRO, caso ao compilar ´sitema´ e tenha erro
// so vai aparecer as linhas com ERRO
// (inves do grande Edit aparecer com variOs prg´s
function main
parameters arq_log
arq_erro:= 'arq_erro.txt'
tab_erro:= {}
tam_lin:= 79 // FIXADO PELO COMPILADOR
//---------------------------- INICIAIS DA TABELA DE ERRO -----
aadd(tab_erro,'ERRO DE COMPILACAO - '+ARQ_LOG)
aadd(tab_erro,' ')
//---------------------------- LOCALIZA ERROS -----
c_memo:= memoread(arq_log)
tot_lin:= mlcount(c_memo,tam_lin,1,.t.)
num_erro:= 00
for num_lin = 1 to tot_lin
linha:= memoline(c_memo,tam_lin,num_lin,1,.t.)
if at(' error: ',linha) > 0
num_erro:= num_erro + 1
aadd(tab_erro,'----[ Erro N. '+str(num_erro,2)+' ]----')
aadd(tab_erro,linha)
//--------------------
num_lin:= num_lin + 1
linha:= memoline(c_memo,tam_lin,num_lin,1,.t.)
aadd(tab_erro,linha)
aadd(tab_erro,'--------')
aadd(tab_erro,' ')
endif
next
tot_tab:= len(tab_erro)
C_MEMO2:= ''
for num_tab = 1 to tot_tab
c_memo2:= c_memo2 + tab_erro[num_tab] + chr(13)+chr(10)
next
tst:= memowrit(arq_erro,c_memo2)
//-----------------
clear
? c_memo2
wait '[>> tecle algo <<]'
//------------------
// run edit &arq_erro
return
====================================

se valer a pena, e que posso contrbiuir no inicio, gostaria opiniao ??

-:]