Yo he desarrollado en relacion a este tema
Aun faltan algunas pruebas y que funcione con todos los ficheros abiertos
[img=http://s1.postimg.org/3m9ko01p7/Title114.jpg]
CLASS TFunctionUse
METHOD New()
METHOD FunctionNameFromSymbol() // Statics functions not included
METHOD CreateFunctionList() // Creates array function use
METHOD SaveFunctionListToDbf() // Save array function list to dbf
DATA lSearchInPpo INIT .T // .F. for search in .prg
DATA aFilesSearch // Search in files, or ...
DATA aDirSearch // Seach in directories
ENDCLASS
hmpaquito wrote:Sacar el nombre de las funciones del .map no es la mejor de las ideas, pudiendo sacarlas de la tabla de symbolos de (x)harbour.
¿ Alguien puede indicar como sacar los nombres de las funciones usadas ? A ser posible, que sea compatible harbour/ xharbour. Habria que ver que hacer con las funciones static... ademas de distinguir las que son, de momento las obviaria dado su "corto" alcance en el programa.
#ifdef __NO_USADO__
FUNCTION FunX(); RETURN NIL
#endif
/*
FUNCTION FunX(); RETURN NIL
*/
// FUNCTION FunX(); RETURN NIL
* FUNCTION FunX(); RETURN NIL
#Define FUN_DEF FunX()
FUNCTION FUN_DEF; RETURN NIL
Function HCadFunction( nOp )
Local nSymbols
Local nFunctions
Local n
Local aFunc := {}
Local oWnd
Local oBrw
Local cCad := ""
DEFAULT nOp := 0
nSymbols := __dynsCount()
nFunctions := 0
for n := 1 to nSymbols
if __dynsIsFun( n )
AAdd( aFunc, __dynsGetName( n ) + "()" )
cCad := __dynsGetName( n ) + " "
nFunctions++
else
endif
next
return IF( Empty( nOp ), cCad, aFunc )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 30 guests