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

Changeset: 229 fdbozzo - 29/04/2014 22:43:44:

Browse Source 
- Optimización de búsqueda del programa de capitalización al procesar proyectos
This commit is contained in:
fdbozzo
2014-04-29 22:56:37 +02:00
parent 17954bcc26
commit 47436e90cf
1 changed files with 24 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
foxbin2prg.prg
View File

@@ -424,6 +424,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ [<memberdata name="l_showprogress" display="l_ShowProgress"/>] ; + [<memberdata name="l_showprogress" display="l_ShowProgress"/>] ;
+ [<memberdata name="l_notimestamps" display="l_NoTimestamps"/>] ; + [<memberdata name="l_notimestamps" display="l_NoTimestamps"/>] ;
+ [<memberdata name="normalizarcapitalizacionarchivos" display="normalizarCapitalizacionArchivos"/>] ; + [<memberdata name="normalizarcapitalizacionarchivos" display="normalizarCapitalizacionArchivos"/>] ;
+ [<memberdata name="n_existecapitalizacion" display="n_ExisteCapitalizacion"/>] ;
+ [<memberdata name="n_extrabackuplevels" display="n_ExtraBackupLevels"/>] ; + [<memberdata name="n_extrabackuplevels" display="n_ExtraBackupLevels"/>] ;
+ [<memberdata name="n_fb2prg_version" display="n_FB2PRG_Version"/>] ; + [<memberdata name="n_fb2prg_version" display="n_FB2PRG_Version"/>] ;
+ [<memberdata name="o_conversor" display="o_Conversor"/>] ; + [<memberdata name="o_conversor" display="o_Conversor"/>] ;
@@ -458,6 +459,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
c_OutputFile = '' c_OutputFile = ''
c_Type = '' c_Type = ''
lFileMode = .F. lFileMode = .F.
n_ExisteCapitalizacion = -1
l_ConfigEvaluated = .F. l_ConfigEvaluated = .F.
l_Debug = .F. l_Debug = .F.
l_Test = .F. l_Test = .F.
@@ -1480,15 +1482,29 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
lcEXE_CAPS = FORCEPATH( 'filename_caps.exe', lcPath ) lcEXE_CAPS = FORCEPATH( 'filename_caps.exe', lcPath )
loFSO = .o_FSO loFSO = .o_FSO
IF FILE(lcEXE_CAPS) DO CASE
*.writeLog( '* Se ha encontrado el programa de capitalizaci<63>n de nombres [' + lcEXE_CAPS + ']' ) CASE .n_ExisteCapitalizacion = -1
.writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC) ) *-- La primera vez vale -1, hace la verificaci<63>n por <20>nica vez y cachea la respuesta
ELSE IF FILE(lcEXE_CAPS)
*-- No existe el programa de capitalizaci<63>n, as<61> que no se capitalizan los nombres. *.writeLog( '* Se ha encontrado el programa de capitalizaci<63>n de nombres [' + lcEXE_CAPS + ']' )
*.writeLog( '* No se ha encontrado el programa de capitalizaci<63>n de nombres [' + lcEXE_CAPS + ']' ) .writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_FOUND_LOC) )
.writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_NOT_FOUND_LOC) ) .n_ExisteCapitalizacion = 1
ELSE
*-- No existe el programa de capitalizaci<63>n, as<61> que no se capitalizan los nombres.
*.writeLog( '* No se ha encontrado el programa de capitalizaci<63>n de nombres [' + lcEXE_CAPS + ']' )
.writeLog( TEXTMERGE(C_NAMES_CAPITALIZATION_PROGRAM_NOT_FOUND_LOC) )
.n_ExisteCapitalizacion = 0
EXIT
ENDIF
CASE .n_ExisteCapitalizacion = 0
*-- Segunda pasada en adelante: No hay programa de capitalizaci<63>n
EXIT EXIT
ENDIF
OTHERWISE
*-- Segunda pasada en adelante: Hay programa de capitalizaci<63>n
ENDCASE
.RenameFile( .c_OutputFile, lcEXE_CAPS, loFSO ) .RenameFile( .c_OutputFile, lcEXE_CAPS, loFSO )