romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 329 fdbozzo - 25/06/2014 00:31:56:

Browse Source 
- Limpieza de asignaciones sin uso ("..\..\" y "..\" sin nombre de archivo)
This commit is contained in:
fdbozzo
2014-06-25 01:43:35 +02:00
parent 65640ee6ca
commit 5d5bd0a76c
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
foxbin2prg.prg
View File

@@ -2598,10 +2598,17 @@ DEFINE CLASS c_conversor_base AS SESSION
******************************************************************************************************************* *******************************************************************************************************************
PROCEDURE desnormalizarValorPropiedad PROCEDURE desnormalizarValorPropiedad
*-- Este m<>todo se ejecuta cuando se regenera el binario desde el tx2
LPARAMETERS tcProp, tcValue, tcComentario LPARAMETERS tcProp, tcValue, tcComentario
LOCAL lnCodError, lnPos, lcValue LOCAL lnCodError, lnPos, lcValue
tcComentario = '' tcComentario = ''
*-- Limpieza de caracteres sin uso
IF INLIST(tcValue, '..\', '..\..\' ) THEN
*MESSAGEBOX( 'Encontrado valor "' + tcValue + '" en propiedad "' + tcProp, 4096, PROGRAM() )
tcValue = ''
ENDIF
*-- Ajustes de algunos casos especiales *-- Ajustes de algunos casos especiales
DO CASE DO CASE
CASE tcProp == '_memberdata' CASE tcProp == '_memberdata'
@@ -2813,7 +2820,7 @@ DEFINE CLASS c_conversor_base AS SESSION
PROCEDURE get_SeparatedPropAndValue PROCEDURE get_SeparatedPropAndValue
*-- Devuelve el valor separado de la propiedad. *-- Devuelve el valor separado de la propiedad.
*-- Si se indican m<>s de 3 par<61>metros, eval<61>a el valor completo a trav<61>s de las l<>neas de c<>digo *-- Si se indican m<>s de 3 par<61>metros, eval<61>a el valor completo a trav<61>s de las l<>neas de c<>digo (valores multi-l<>nea)
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) * PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
* taCodeLines (!@ IN ) El array con las l<>neas del c<>digo donde buscar * taCodeLines (!@ IN ) El array con las l<>neas del c<>digo donde buscar
@@ -2929,10 +2936,17 @@ DEFINE CLASS c_conversor_base AS SESSION
******************************************************************************************************************* *******************************************************************************************************************
PROCEDURE normalizarValorPropiedad PROCEDURE normalizarValorPropiedad
*-- Este m<>todo se ejecuta cuando se genera el tx2 desde el binario
LPARAMETERS tcProp, tcValue, tcComentario LPARAMETERS tcProp, tcValue, tcComentario
LOCAL lcValue, I LOCAL lcValue, I
tcComentario = '' tcComentario = ''
*-- Limpieza de caracteres sin uso
IF INLIST(tcValue, '..\', '..\..\' ) THEN
*MESSAGEBOX( 'Encontrado valor "' + tcValue + '" en propiedad "' + tcProp, 4096, PROGRAM() )
tcValue = ''
ENDIF
*-- Ajustes de algunos casos especiales *-- Ajustes de algunos casos especiales
DO CASE DO CASE
CASE tcProp == '_memberdata' CASE tcProp == '_memberdata'