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

Changeset: 328 fdbozzo - 24/06/2014 19:58:49:

Browse Source 
- Agregado log de configuración de cache de lectura CFG para mejorar información de depuración
This commit is contained in:
fdbozzo
2014-06-25 00:31:55 +02:00
parent 77fdfd3d15
commit 65640ee6ca
1 changed files with 227 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
foxbin2prg.prg
View File

@@ -1042,10 +1042,12 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
, tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt, lcValue ;
LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt, lcValue, lc_CFG_Path ;
, lo_CFG AS CL_CFG OF 'FOXBIN2PRG.PRG' ;
, lo_Configuration AS Collection
, lo_Configuration AS Collection ;
, loEx as Exception
TRY
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
STORE 0 TO lnKey
tcRecompile = EVL(tcRecompile,'1')
@@ -1062,9 +1064,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
lo_Configuration = .o_Configuration
.n_CFG_Actual = 0
.l_CFG_CachedAccess = .F.
lc_CFG_Path = UPPER( JUSTPATH( lcConfigFile ) )
IF .l_Main_CFG_Loaded AND lo_Configuration.Count > 0
.n_CFG_Actual = lo_Configuration.GetKey( UPPER( JUSTPATH( lcConfigFile ) ) )
.n_CFG_Actual = lo_Configuration.GetKey( lc_CFG_Path )
.l_CFG_CachedAccess = (.n_CFG_Actual > 0)
ENDIF
@@ -1080,9 +1083,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF .l_AllowMultiConfig AND .l_ConfigEvaluated AND .l_Main_CFG_Loaded
lo_CFG = CREATEOBJECT('CL_CFG')
lo_Configuration.Add( lo_CFG, UPPER( JUSTPATH( lcConfigFile ) ) )
lo_Configuration.Add( lo_CFG, lc_CFG_Path )
ELSE
lo_Configuration.Add( NULL, UPPER( JUSTPATH( lcConfigFile ) ) )
lo_Configuration.Add( NULL, lc_CFG_Path )
ENDIF
FOR I = 1 TO ALINES( laConfig, FILETOSTR( lcConfigFile ), 1+4 )
@@ -1265,9 +1268,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF .n_CFG_Actual > 0 AND ISNULL( .o_Configuration( .n_CFG_Actual ) ) THEN
.n_CFG_Actual = 0
ENDIF
.writeLog( '> l_CFG_CachedAccess: ' + TRANSFORM(.l_CFG_CachedAccess) + ' ( InputFile=' + tc_InputFile + ', CFG=' + FORCEPATH( 'foxbin2prg.cfg', lc_CFG_Path ) + ' )' )
IF NOT llExisteConfig OR .n_CFG_Actual = 0 THEN
.l_CFG_CachedAccess = .T. && Es acceso cacheado porque usa config.por defecto sin archivo CFG
ENDIF
IF NOT .l_Main_CFG_Loaded THEN
.l_Main_CFG_Loaded = .T.
ENDIF
@@ -1276,6 +1283,19 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*ENDIF && .l_ConfigEvaluated
ENDWITH && THIS
CATCH TO loEx
IF THIS.l_Debug AND _VFP.STARTMODE = 0
SET STEP ON
ENDIF
THROW
FINALLY
STORE NULL TO lo_Configuration, lo_CFG
RELEASE lo_Configuration, lo_CFG
ENDTRY
RETURN
ENDPROC
@@ -1388,10 +1408,10 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ C_TAB + 'tlRelanzarError: ' + TRANSFORM(tlRelanzarError) + CR_LF ;
+ C_TAB + 'tcOriginalFileName: ' + TRANSFORM(tcOriginalFileName) + CR_LF ;
+ C_TAB + 'tcRecompile: ' + TRANSFORM(tcRecompile) + CR_LF ;
+ C_TAB + 'tcNoTimestamps: ' + TRANSFORM(tcNoTimestamps) ;
+ C_TAB + 'tcBackupLevels: ' + TRANSFORM(tcBackupLevels) ;
+ C_TAB + 'tcClearUniqueID: ' + TRANSFORM(tcClearUniqueID) ;
+ C_TAB + 'tcOptimizeByFilestamp: ' + TRANSFORM(tcOptimizeByFilestamp) )
+ C_TAB + 'tcNoTimestamps: ' + TRANSFORM(tcNoTimestamps) + CR_LF ;
+ C_TAB + 'tcBackupLevels: ' + TRANSFORM(tcBackupLevels) + CR_LF ;
+ C_TAB + 'tcClearUniqueID: ' + TRANSFORM(tcClearUniqueID) + CR_LF ;
+ C_TAB + 'tcOptimizeByFilestamp: ' + TRANSFORM(tcOptimizeByFilestamp) + CR_LF )
IF _VFP.STARTMODE > 0
SET ESCAPE OFF
@@ -1697,6 +1717,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
STORE NULL TO THIS.o_Frm_Avance
ENDIF
CD (JUSTPATH(THIS.c_CurDir))
STORE NULL TO loFSO
RELEASE loFSO
ENDTRY
RETURN lnCodError