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

- Agregado log de configuración de cache de lectura CFG para mejorar información de depuración

foxbin2prg.prg

@@ -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 + 'tcNoTimestamps:        ' + TRANSFORM(tcNoTimestamps) + CR_LF ;
-					+ C_TAB + 'tcBackupLevels:        ' + TRANSFORM(tcBackupLevels) ;
+					+ C_TAB + 'tcBackupLevels:        ' + TRANSFORM(tcBackupLevels) + CR_LF ;
-					+ C_TAB + 'tcClearUniqueID:       ' + TRANSFORM(tcClearUniqueID) ;
+					+ C_TAB + 'tcClearUniqueID:       ' + TRANSFORM(tcClearUniqueID) + CR_LF ;
-					+ C_TAB + 'tcOptimizeByFilestamp: ' + TRANSFORM(tcOptimizeByFilestamp) )
+					+ 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