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

Changeset: 674 - Permitir procesar los archivos de un proyecto sin convertir el PJX/2 (Lutz Scheffler)

Browse Source
This commit is contained in:
fdbozzo
2015-03-05 21:03:16 +01:00
parent 80910569b2
commit ec12d0c7d7
2 changed files with 26 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

41
foxbin2prg.prg
View File

@@ -1884,7 +1884,8 @@ DEFINE CLASS c_foxbin2prg AS SESSION
* 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)
* tc_InputFile (v! IN ) Nombre completo (fullpath) del archivo a convertir o nombre del directorio a procesar * tc_InputFile (v! IN ) Nombre completo (fullpath) del archivo a convertir o nombre del directorio a procesar
* tcType (v? IN ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG * tcType (v? IN ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG
* - Si se indica "*" y tc_InputFile es un PJX, se procesa todo el proyecto * - Si se indica "*" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto y el PJX/2
* - Si se indica "*-" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto sin el PJX/2
* - Si se indica "BIN2PRG", se procesa el directorio indicado en tc_InputFile para generar los TX2 * - Si se indica "BIN2PRG", se procesa el directorio indicado en tc_InputFile para generar los TX2
* - Si se indica "PRG2BIN", se procesa el directorio indicado en tc_InputFile para generar los BIN * - Si se indica "PRG2BIN", se procesa el directorio indicado en tc_InputFile para generar los BIN
* tcTextName (v? IN ) Nombre del archivo texto. Compatibilidad con SCCTEXT.PRG * tcTextName (v? IN ) Nombre del archivo texto. Compatibilidad con SCCTEXT.PRG
@@ -2087,15 +2088,15 @@ DEFINE CLASS c_foxbin2prg AS SESSION
lcFile = FORCEPATH( laFiles(I,1), JUSTPATH( lcFileSpec ) ) lcFile = FORCEPATH( laFiles(I,1), JUSTPATH( lcFileSpec ) )
DO CASE DO CASE
CASE UPPER( JUSTEXT( EVL(tc_InputFile,'') ) ) == 'PJX' AND EVL(tcType,'0') == '*' CASE UPPER( JUSTEXT( EVL(tc_InputFile,'') ) ) == 'PJX' AND LEFT(EVL(tcType,'0'),1) == '*'
*-- SE QUIEREN CONVERTIR A TEXTO TODOS LOS ARCHIVOS DE UNO O M<>S PROYECTOS PJX *-- SE QUIEREN CONVERTIR A TEXTO TODOS LOS ARCHIVOS DE UNO O M<>S PROYECTOS PJX
*-- Filespec: "*.PJX", "*" *-- Filespec: "*.PJX", "*"
.Evaluate_Full_PJX(lcFile, tcRecompile, @toModulo, @toEx, tcOriginalFileName, .c_LogFile) .Evaluate_Full_PJX(lcFile, tcRecompile, @toModulo, @toEx, tcOriginalFileName, .c_LogFile, tcType)
CASE UPPER( JUSTEXT( EVL(tc_InputFile,'') ) ) == 'PJ2' AND EVL(tcType,'0') == '*' CASE UPPER( JUSTEXT( EVL(tc_InputFile,'') ) ) == 'PJ2' AND LEFT(EVL(tcType,'0'),1) == '*'
*-- SE QUIEREN CONVERTIR A BINARIO TODOS LOS ARCHIVOS DE UNO O M<>S PROYECTOS PJ2 *-- SE QUIEREN CONVERTIR A BINARIO TODOS LOS ARCHIVOS DE UNO O M<>S PROYECTOS PJ2
*-- Filespec: "*.PJ2", "*" *-- Filespec: "*.PJ2", "*"
.Evaluate_Full_PJ2(lcFile, tcRecompile, @toModulo, @toEx, tcOriginalFileName, .c_LogFile) .Evaluate_Full_PJ2(lcFile, tcRecompile, @toModulo, @toEx, tcOriginalFileName, .c_LogFile, tcType)
OTHERWISE OTHERWISE
*-- DEM<45>S ARCHIVOS *-- DEM<45>S ARCHIVOS
@@ -2410,8 +2411,11 @@ DEFINE CLASS c_foxbin2prg AS SESSION
* tcOriginalFileName (v? IN ) Sirve para los casos en los que inputFile es un nombre temporal y se quiere generar * tcOriginalFileName (v? IN ) Sirve para los casos en los que inputFile es un nombre temporal y se quiere generar
* el nombre correcto dentro de la versi<73>n texto (por ej: en los PJ2 y las cabeceras) * el nombre correcto dentro de la versi<73>n texto (por ej: en los PJ2 y las cabeceras)
* tcLogFile (v? IN ) Nombre del log a usar * tcLogFile (v? IN ) Nombre del log a usar
* tcType (v? IN ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG
* - Si se indica "*" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto y el PJX/2
* - Si se indica "*-" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto sin el PJX/2
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS tc_InputFile, tcRecompile, toModulo, toEx, tcOriginalFileName, tcLogFile LPARAMETERS tc_InputFile, tcRecompile, toModulo, toEx, tcOriginalFileName, tcLogFile, tcType
LOCAL lcFileSpec, lnFileCount, laFiles(1,1), lcFile, lnCodError, I, lnFileCount ; LOCAL lcFileSpec, lnFileCount, laFiles(1,1), lcFile, lnCodError, I, lnFileCount ;
, loLang AS CL_LANG OF 'FOXBIN2PRG.PRG' , loLang AS CL_LANG OF 'FOXBIN2PRG.PRG'
@@ -2456,10 +2460,12 @@ DEFINE CLASS c_foxbin2prg AS SESSION
USE IN (SELECT("TABLABIN")) USE IN (SELECT("TABLABIN"))
*-- Convierto primero el proyecto *-- Convierto primero el proyecto
lcFile = tc_InputFile IF tcType <> '*-' THEN
IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile ) lcFile = tc_InputFile
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName ) IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
.writeLog_Flush() lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
.writeLog_Flush()
ENDIF
ENDIF ENDIF
*-- Luego convierto los archivos incluidos *-- Luego convierto los archivos incluidos
@@ -2502,8 +2508,11 @@ DEFINE CLASS c_foxbin2prg AS SESSION
* tcOriginalFileName (v? IN ) Sirve para los casos en los que inputFile es un nombre temporal y se quiere generar * tcOriginalFileName (v? IN ) Sirve para los casos en los que inputFile es un nombre temporal y se quiere generar
* el nombre correcto dentro de la versi<73>n texto (por ej: en los PJ2 y las cabeceras) * el nombre correcto dentro de la versi<73>n texto (por ej: en los PJ2 y las cabeceras)
* tcLogFile (v? IN ) Nombre del log a usar * tcLogFile (v? IN ) Nombre del log a usar
* tcType (v? IN ) Tipo de archivo de entrada. Compatibilidad con SCCTEXT.PRG
* - Si se indica "*" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto y el PJX/2
* - Si se indica "*-" y tc_InputFile es un PJX, se procesan todos los archivos del proyecto sin el PJX/2
*-------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------
LPARAMETERS tc_InputFile, tcRecompile, toModulo, toEx, tcOriginalFileName, tcLogFile LPARAMETERS tc_InputFile, tcRecompile, toModulo, toEx, tcOriginalFileName, tcLogFile, tcType
LOCAL lcFileSpec, lnFileCount, laFiles(1,1), lcFile, lnCodError, I, lnFileCount ; LOCAL lcFileSpec, lnFileCount, laFiles(1,1), lcFile, lnCodError, I, lnFileCount ;
, loLang AS CL_LANG OF 'FOXBIN2PRG.PRG' , loLang AS CL_LANG OF 'FOXBIN2PRG.PRG'
@@ -2549,10 +2558,12 @@ DEFINE CLASS c_foxbin2prg AS SESSION
ENDFOR ENDFOR
*-- Convierto primero el proyecto *-- Convierto primero el proyecto
lcFile = tc_InputFile IF tcType <> '*-' THEN
IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile ) lcFile = tc_InputFile
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName ) IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
.writeLog_Flush() lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
.writeLog_Flush()
ENDIF
ENDIF ENDIF
*-- Luego convierto los archivos incluidos *-- Luego convierto los archivos incluidos