Construi um utilitário para listar variáveis em prg com o objetivo de procurar possíveis problemas na migração de clipper para harbour com relação ao tamanho do nome declarado das variáveis (>10) e seu uso.
O utilitário que eu fiz gera um banco com todas variáveis encontradas em um prg e depois lista estas variáveis em um arquivo de saída txt.
Código: Selecionar todos
#include "inkey.ch"
#include "wvtwin.ch"
#include "hbcompat.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
#include "dbinfo.ch"
#include "fileio.ch"
#include "hbdyn.ch"
#include "common.ch"
#include "directry.ch"
FUNCTION MAIN
TRY
USE LISTVAR ALIAS LISTVAR EXCLUSIVE NEW
ZAP
INDEX ON FONTE+STRZERO(LINHA,6) TAG TESTE TO LISTVAR
SET INDEX TO LISTVAR
USE LISTVARX ALIAS LISTVARX EXCLUSIVE NEW
ZAP
INDEX ON FONTE+STRZERO(LINHA,6) TAG TESTE TO LISTVARX
SET INDEX TO LISTVARX
CATCH
MsgInfo("O dbf LISTVAR.DBF est em uso.")
QUIT
END
DO WHILE .T.
//X1234567890:=""
@00,00 SAY PADC(cTituloJanela,MaxCol()+1) COLOR "B/W*"
@01,00 TO 01,MaxCol() COLOR "B+/N"
aPRG:={}
aDir:=Directory("*.PRG")
ASort( aDir ,,, {|x,y| y[1] > x[1] } )
IF Len(aDir) > 0
AEval(aDir,{|f| AAdd(aPRG,Upper(f[F_NAME]))})
ASort(aPRG)
ENDIF
FOR X:=1 TO Len(aPRG)
FT_FUSE( aPrg[X], FO_READWRITE + FO_SHARED )
FT_FGOTOP()
@02,00 SAY PADR("Processando PRG",40)+": " COLOR "W+/N"
@02,42 SAY PADL(aPRG[X],MaxCol()-42) COLOR "W+/N"
@03,00 SAY PADR("Total de Linhas",40)+": " COLOR "W+/N"
@03,42 SAY PADL(Transform(FT_FLASTRE(),"999999999"),MaxCol()-42) COLOR "W+/N"
aVar:={}
DO WHILE !FT_FEOF()
FT_FSKIP()
ENDDO
FT_FGOTOP()
DO WHILE !FT_FEOF()
cLinha:=Upper(FT_FREADLN())
LISTVARX->(DbAppend())
LISTVARX->Fonte :=aPrg[X]
LISTVARX->Variavel:=cLinha
LISTVARX->Linha :=FT_FRECNO()
lSkip:=.F.
//Retirar coment rios
IF Left(cLinha,2) == "//" .OR. ;
Right(cLinha,2) == "//" .OR. ;
Left(cLinha,1) == "*" .OR. ;
Right(cLinha,1) == "*" .OR. ;
Left(cLinha,1) == "."
FT_FSKIP()
LOOP
ENDIF
cLinha:=LTRIM(cLinha)
cLinha:=RTRIM(cLinha)
cCaracterEspecial:=',+-=:"'
IF HB_AT("FILTER",cLinha) > 0
FT_FSKIP()
LOOP
ENDIF
IF HB_AT("INDEX",cLinha) > 0
FT_FSKIP()
LOOP
ENDIF
IF HB_AT("SET INDEX",cLinha) > 0
FT_FSKIP()
LOOP
ENDIF
IF HB_AT("@",cLinha) > 0
IF HB_AT("SAY",cLinha) > 0
FT_FSKIP()
LOOP
ENDIF
ENDIF
lSkip:=.T.
FOR I:=1 TO Len(cLinha)
IF SubStr(cLinha,I,2) == ":=" .OR. SubStr(cLinha,I,1) == "="
lSkip:=.F.
ENDIF
NEXT
IF lSkip
FT_FSKIP()
LOOP
ENDIF
cCaracterNormal:=""
FOR A:=65 TO 90
cCaracterNormal+=CHR(A)
NEXT
lSair:=.F.
nPosI:=0
nPosF:=0
lPorVirgula:=.T.
IF HB_AT("FOR",cLinha) > 0 .AND. HB_AT("TO",cLinha) > 0
FOR L:=1 TO Len(cLinha)
IF SubStr(cLinha,L,3) == "FOR"
cLinha:=SubStr(cLinha,L+4)
ENDIF
IF SubStr(cLinha,L,1) == "="
cLinha:=SubStr(cLinha,1,L)
ENDIF
NEXT
ENDIF
IF HB_AT("-",cLinha) > 0
FOR L:=1 TO Len(cLinha)
IF SubStr(cLinha,L,1) == "-" .AND. ! SubStr(cLinha,L+1,1) == ">"
cLinha:=SubStr(cLinha,1,L-1)+","+SubStr(cLinha,L+1)
ENDIF
NEXT
ENDIF
IF HB_AT("+",cLinha) > 0
FOR L:=1 TO Len(cLinha)
IF SubStr(cLinha,L,1) == "+"
cLinha:=SubStr(cLinha,1,L-1)+" "+SubStr(cLinha,L+1)
ENDIF
NEXT
ENDIF
nPos:=HB_AT("/",cLinha)
IF nPos > 0
FOR C:=nPos-1 TO 1 STEP -1
IF SubStr(cLinha,C,1) == '"' .OR.;
SubStr(cLinha,C,1) == "'" .OR.;
SubStr(cLinha,C,1) == "="
nPos:=0
EXIT
ENDIF
NEXT
IF nPos > 0
cLinha:=SubStr(cLinha,1,nPos-1)
ENDIF
ENDIF
nPos:=HB_AT("{",cLinha)
IF nPos > 0
IF !SubStr(cLinha,nPos-1,1) == '"' .OR. !SubStr(cLinha,nPos-1,1) == "'"
cLinha:=SubStr(cLinha,1,nPos-1)
ENDIF
ENDIF
FOR K:=Len(cLinha) TO 1 STEP -1
IF RIGHT(cLinha,K) == ";"
lPorVirgula:=.F.
EXIT
ENDIF
NEXT
cVar:=""
//Retirar fun‡Æo ()
nPosIni:=0
nPosFim:=0
I:=1
DO WHILE I < LEN(cLinha)
IF SubStr(cLinha,I,1) == '('
FOR C:=I TO 1 STEP -1
IF SubStr(cLinha,C,1) == '='
nPosIni:=C
EXIT
ENDIF
NEXT
ENDIF
IF SubStr(cLinha,I,1) == ')'
nPosFim:=I
ENDIF
IF nPosIni > 0 .AND. nPosFim > 0
cLinha:=SubStr(cLinha,1,nPosIni)+SubStr(cLinha,nPosFim+1)
nPosIni:=0
nPosFim:=0
ENDIF
I++
ENDDO
I:=1
DO WHILE I < LEN(cLinha)
IF SubStr(cLinha,I,1) == '"' .OR. SubStr(cLinha,I,1) == "'"
nPosFim:=0
nPosIni:=0
FOR C:=1 TO Len(cLinha)
IF SubStr(cLinha,C,1) == '"' .OR. SubStr(cLinha,C,1) == "'"
IF nPosIni = 0
nPosIni:= C
ENDIF
nPosFim:=C
ENDIF
NEXT
IF nPosIni > 1 .AND. nPosFim > 0
cLinha:=SubStr(cLinha,1,nPosIni-1)+SubStr(cLinha,nPosFim+1)
ENDIF
ENDIF
I++
ENDDO
cLinha:=StrTran(cLinha," ")
cLinha+=IF(lPorVirgula,", ","")
I:=1
DO WHILE I < LEN(cLinha)
IF SubStr(cLinha,1,1) $ ',:=()0123456789'
cVar:=""
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
IF SubStr(cLinha,1,1) == ","
cLinha:=SubStr(cLinha,2)
ENDIF
I:=1
ENDIF
IF SubStr(cLinha,I,1) == "," .AND. I > 1
cVar:=AllTrim(SubStr(cLinha,1,I-1))
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
I:=1
ENDIF
IF SubStr(cLinha,I,1) == ":" .AND. I > 1
cVar:=AllTrim(SubStr(cLinha,1,I-1))
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
I:=1
ENDIF
IF SubStr(cLinha,I,1) == "=" .AND. I > 1
cVar:=AllTrim(SubStr(cLinha,1,I-1))
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
I:=1
ENDIF
IF SubStr(cLinha,I,1) == "(" .AND. I > 1
cVar:=""
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
I:=1
ENDIF
IF SubStr(cLinha,I,1) == ")" .AND. I > 1
cVar:=""
cLinha:=SubStr(cLinha,I+1)
cLinha:=LTRIM(cLinha)
I:=1
ENDIF
IF !Empty(cVar) .AND. ASCAN(aVar,{|AVAL|AVAL[2] == AllTrim(cVar)}) < 1
AADD(aVar,{aPRG[X],AllTrim(cVar),FT_FRECNO()})
cVar:=""
I:=1
LOOP
ENDIF
I++
ENDDO
FT_FSKIP()
ENDDO
FT_FUSE()
IF Len(aVar) > 0
//aSort( aVar,,,{|x,y| x[1]+x[2] < y[1]+y[2] })
TRY
FOR A:=1 TO Len(aVar)
LISTVAR->(DbAppend())
LISTVAR->Fonte :=aVar[A,1]
LISTVAR->Variavel:=aVar[A,2]
LISTVAR->Linha :=aVar[A,3]
LISTVAR->Maior10 :=IF(Len(AllTrim(aVar[A,2]))>=10,"*",LISTVAR->Maior10)
NEXT
CATCH
MsgInfo("Erro na grava‡„o.","Aten‡„o")
MsgInfo()
END
ENDIF
NEXT
EXIT
ENDDO
SET FILTER TO LISTVAR->MAIOR10 = "*"
LISTVAR->(DbGoTop())
FERASE("Variavel.txt")
cFonte:=""
aVetor:={}
DO WHILE !LISTVAR->(Eof())
cVar:=AllTrim(LISTVAR->Variavel)
IF Len(cVar) >= 10
SELECT LISTVARX
LOCATE FOR HB_AT(cVar,LISTVARX->Variavel) > 0
IF Found()
DO WHILE !LISTVARX->(Eof()) .AND. HB_AT(cVar,LISTVARX->Variavel) > 0
AADD(aVetor,{PADR(LISTVAR->Fonte,15),StrZero(LISTVAR->Linha,6),PADR(cVar,20),PADR(LISTVARX->Fonte,15)+"("+StrZero(LISTVARX->Linha,6)+")",LISTVARX->Variavel})
CONTINUE
ENDDO
ENDIF
ENDIF
LISTVAR->(DbSkip())
ENDDO
IF Len(aVetor) > 0
StrFile("FONTE LINHA VARIAVEL OCORRENCIA","VARIAVEL.TXT",.T.)
StrFile(""+HB_EOL(),"VARIAVEL.TXT",.T.)
StrFile(REPLICATE("-",Len(aVetor[I,1]+" - "+aVetor[I,2]+" - "+aVetor[I,3]+" - "+aVetor[I,4]+" - "+aVetor[I,5])),"VARIAVEL.TXT",.T.)
StrFile(""+HB_EOL(),"VARIAVEL.TXT",.T.)
aSort( aVetor,,,{|a,b| a[1]+a[3] < b[1]+b[3] })
FOR I:=1 TO Len(aVetor)
StrFile(aVetor[I,1]+" - "+aVetor[I,2]+" - "+aVetor[I,3]+" - "+aVetor[I,4]+" - "+aVetor[I,5],"VARIAVEL.TXT",.T.)
StrFile(""+HB_EOL(),"VARIAVEL.TXT",.T.)
NEXT
ENDIF
RETURN Nil
INIT FUNCTION AppSetup()
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_GUI_DEFAULT
REQUEST HB_GT_WVG
REQUEST HB_GT_WVT
REQUEST HB_GT_WGU
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" )
SET(_SET_DBFLOCKSCHEME,DB_DBFLOCK_DEFAULT)
SETMODE(25,80)
REQUEST DBFCDX
RddSetDefault("DBFCDX")
IniciaJanela()
RETURN Nil
FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
LOCAL oCrt
PUBLIC cTituloJanela:="ListVar - Listar Vari veis de PRG"
DEFAULT nLi TO 0,;
nCi TO 0,;
nLf TO MaxRow(),;
nCf TO MaxCol()
oCrt := WvgCrt():New( , , { nLi,nCi }, { nLf,nCf}, , .T. )
oCrt:lModal := .F.
oCrt:icon := "P:\GERAL\HARBOUR\HARB_WIN.ICO"
oCrt:create()
oCrt:resizable :=.F.
WVT_SetFont("Lucida Console")
WVT_SetTitle(cTituloJanela)
WVT_SetAltF4Close(.F. )
HB_gtInfo( HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
RETURN Nil