- Agregado soporte de errOut DOS e implementado en writeErrorLog cuando se loguean errores
- Mejora: Agregado soporte total de comodines *? en nombres de archivo para procesar múltiples archivos de la misma extensión - Mejora: Agregado nuevo parámetro para permitir un CFG alternativo (Lutz Scheffler) - Mejora: Agregado nuevo método API get_Target() para obtener información de los archivos procesados (Lutz Scheffler) - Mejora: Agregada nueva salida de archivos procesados a stdOut (Lutz Scheffler) - Bug Fix: Arreglada la cancelación del procesamiento con tecla Esc
This commit is contained in:
fdbozzo
Binary file not shown.
Binary file not shown.
BIN
foxbin2prg.exe
BIN
foxbin2prg.exe
Binary file not shown.
@@ -103,7 +103,6 @@ WITH loProject.FILES
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__dobackup.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__gettimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__identificarbloquesdecodigo.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
.ADD('tests\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" />
|
||||
@@ -135,7 +134,6 @@ WITH loProject.FILES
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__dobackup.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__get_separatedpropandvalue.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__gettimestamp.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__identificarbloquesdecodigo.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__identificarbloquesdeexclusion.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__normalizarvalorpropiedad.prg').Exclude = .T.
|
||||
.ITEM(lcCurdir + 'tests\ut__foxbin2prg__c_conversor_base__rowtimestamp.prg').Exclude = .T.
|
||||
|
||||
BIN
foxbin2prg.pjt
BIN
foxbin2prg.pjt
Binary file not shown.
BIN
foxbin2prg.pjx
BIN
foxbin2prg.pjx
Binary file not shown.
390
foxbin2prg.prg
390
foxbin2prg.prg
@@ -143,6 +143,12 @@
|
||||
* 05/03/2015 FDBOZZO v1.19.42 Mejora: Cambiada la clase de base de FoxBin2Prg de custom a session (Lutz Scheffler)
|
||||
* 05/03/2015 FDBOZZO v1.19.42 Mejora: Permitir procesar los archivos de un proyecto sin convertir el PJX/2 (Lutz Scheffler)
|
||||
* 06/03/2015 FDBOZZO v1.19.42 Bug Fix pjx: Permitir usar fin de linea (CR/LF) en los atributos de versi<73>n del PJX
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Mejora: Agregado soporte de errOut e implementado en writeErrorLog
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Mejora: Agregado soporte total de comodines *? en nombres de archivo para procesar m<>ltiples archivos de la misma extensi<73>n
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Mejora: Nuevo par<61>metro para permitir un CFG alternativo (Lutz Scheffler)
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Mejora: Nuevo m<>todo API get_Target() para obtener informaci<63>n de los archivos procesados (Lutz Scheffler)
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Mejora: Nueva salida de archivos procesados a stdOut (Lutz Scheffler)
|
||||
* 10/03/2015 FDBOZZO v1.19.42 Bug Fix: Arreglada la cancelaci<63>n del procesamiento con tecla Esc
|
||||
* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -212,6 +218,9 @@
|
||||
* 03/03/2015 Lutz Scheffler Mejora v1.19.41: Permitir proceso multi-proyecto (*.PJX, *.PJ2) cuando se especifica "file.pjx", "*" (Agregado en v1.19.42)
|
||||
* 05/03/2015 Lutz Scheffler Mejora v1.19.41: Cambiar clase de base de FoxBin2Prg de custom a session (Agregado en v1.19.42)
|
||||
* 05/03/2015 Lutz Scheffler Mejora v1.19.41: Permitir procesar los archivos de un proyecto sin convertir el PJX/2 (Agregado en v1.19.42)
|
||||
* 10/03/2015 Lutz Scheffler Mejora v1.19.41: Permitir configurar un CFG alternativo (Agregado en v1.19.42)
|
||||
* 10/03/2015 Lutz Scheffler Mejora v1.19.41: Crear un m<>todo API get_Target() para obtener informaci<63>n de los archivos procesados (Agregado en v1.19.42)
|
||||
* 10/03/2015 Lutz Scheffler Mejora v1.19.41: Permitir salida de archivos procesados a stdOut (Agregado en v1.19.42)
|
||||
* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
|
||||
*
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
@@ -240,11 +249,12 @@
|
||||
* generar errores de compilaci<63>n, t<>picamente los #include.
|
||||
* NOTA: Si en vez de '1' se indica un Path (p.ej, el del proyecto, se usar<61> como base para recompilar
|
||||
* tcNoTimestamps (v? IN ) Indica si se debe anular el timestamp ('1') o no ('0' <20> vac<61>o)
|
||||
*
|
||||
* tcCFG_File (v? IN ) Indica si se debe usar un archivo de configuraci<63>n distinto al predeterminado
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* Ej: DO FOXBIN2PRG.PRG WITH "C:\DESA\INTEGRACION\LIBRERIA.VCX"
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress, tcOriginalFileName ;
|
||||
, tcRecompile, tcNoTimestamps
|
||||
, tcRecompile, tcNoTimestamps, tcCFG_File
|
||||
|
||||
*-- NO modificar! / Do NOT change!
|
||||
#DEFINE C_CMT_I '*--'
|
||||
@@ -462,16 +472,14 @@ loCnv = CREATEOBJECT("c_foxbin2prg")
|
||||
|
||||
loEx = NULL
|
||||
lnResp = loCnv.ejecutar( tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug ;
|
||||
, tcDontShowProgress, NULL, @loEx, .F., tcOriginalFileName, tcRecompile, tcNoTimestamps )
|
||||
, tcDontShowProgress, NULL, @loEx, .F., tcOriginalFileName, tcRecompile, tcNoTimestamps ;
|
||||
, .F., .F., .F., tcCFG_File )
|
||||
|
||||
ADDPROPERTY(_SCREEN, 'ExitCode', lnResp)
|
||||
*IF _VFP.STARTMODE <= 1
|
||||
* RETURN lnResp
|
||||
*ENDIF
|
||||
|
||||
SET COVERAGE TO
|
||||
|
||||
IF _VFP.STARTMODE # 4
|
||||
IF _VFP.STARTMODE <> 4 && 4 = Visual FoxPro was started as a distributable .app or .exe file.
|
||||
STORE NULL TO loEx, loCnv
|
||||
RELEASE loEx, loCnv
|
||||
RETURN lnResp
|
||||
@@ -487,7 +495,7 @@ STORE NULL TO loEx, loCnv
|
||||
RELEASE loEx, loCnv
|
||||
|
||||
*-- Muy <20>til para procesos batch que capturan el c<>digo de error
|
||||
DECLARE ExitProcess IN Win32API INTEGER ExitCode
|
||||
DECLARE ExitProcess IN Win32API INTEGER ExitCode && To read returned error code with ERRORLEVEL from Windows
|
||||
ExitProcess(1) && Esta debe ser de las <20>ltimas instrucciones
|
||||
QUIT
|
||||
|
||||
@@ -498,9 +506,10 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
LOCAL THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
_MEMBERDATA = [<VFPData>] ;
|
||||
+ [<memberdata name="a_processedfiles" display="a_ProcessedFiles"/>] ;
|
||||
+ [<memberdata name="a_processedfiles_0" display="a_ProcessedFiles_0"/>] ;
|
||||
+ [<memberdata name="addprocessedfile" display="addProcessedFile"/>] ;
|
||||
+ [<memberdata name="avancedelproceso" display="AvanceDelProceso"/>] ;
|
||||
+ [<memberdata name="a_processedfiles" display="a_ProcessedFiles"/>] ;
|
||||
+ [<memberdata name="clearprocessedfiles" display="ClearProcessedFiles"/>] ;
|
||||
+ [<memberdata name="convertir" display="Convertir"/>] ;
|
||||
+ [<memberdata name="c_fb2prg_exe_version" display="c_FB2PRG_EXE_Version"/>] ;
|
||||
+ [<memberdata name="c_curdir" display="c_CurDir"/>] ;
|
||||
@@ -541,11 +550,14 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [<memberdata name="get_ext2fromext" display="Get_Ext2FromExt"/>] ;
|
||||
+ [<memberdata name="get_program_header" display="get_PROGRAM_HEADER"/>] ;
|
||||
+ [<memberdata name="get_separatedlineandcomment" display="get_SeparatedLineAndComment"/>] ;
|
||||
+ [<memberdata name="get_target" display="get_Target"/>] ;
|
||||
+ [<memberdata name="getnext_bak" display="getNext_BAK"/>] ;
|
||||
+ [<memberdata name="run_aftercreatetable" display="run_AfterCreateTable"/>] ;
|
||||
+ [<memberdata name="run_aftercreate_db2" display="run_AfterCreate_DB2"/>] ;
|
||||
+ [<memberdata name="lfilemode" display="lFileMode"/>] ;
|
||||
+ [<memberdata name="l_allowmulticonfig" display="l_AllowMultiConfig"/>] ;
|
||||
+ [<memberdata name="l_autoclearprocessedfiles" display="l_AutoClearProcessedFiles"/>] ;
|
||||
+ [<memberdata name="l_cancelwithesckey" display="l_CancelWithEscKey"/>] ;
|
||||
+ [<memberdata name="l_cfg_cachedaccess" display="l_CFG_CachedAccess"/>] ;
|
||||
+ [<memberdata name="l_classperfilecheck" display="l_ClassPerFileCheck"/>] ;
|
||||
+ [<memberdata name="l_clearuniqueid" display="l_ClearUniqueID"/>] ;
|
||||
@@ -564,6 +576,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [<memberdata name="l_reportsort_enabled" display="l_ReportSort_Enabled"/>] ;
|
||||
+ [<memberdata name="l_showerrors" display="l_ShowErrors"/>] ;
|
||||
+ [<memberdata name="n_showprogressbar" display="n_ShowProgressbar"/>] ;
|
||||
+ [<memberdata name="l_stdouthabilitado" display="l_StdOutHabilitado"/>] ;
|
||||
+ [<memberdata name="l_test" display="l_Test"/>] ;
|
||||
+ [<memberdata name="l_useclassperfile" display="l_UseClassPerFile"/>] ;
|
||||
+ [<memberdata name="n_cfg_actual" display="n_CFG_Actual"/>] ;
|
||||
@@ -572,7 +585,6 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [<memberdata name="n_fb2prg_version" display="n_FB2PRG_Version"/>] ;
|
||||
+ [<memberdata name="n_filehandle" display="n_FileHandle"/>] ;
|
||||
+ [<memberdata name="n_forcewriteifreadonly" display="n_ForceWriteIfReadOnly"/>] ;
|
||||
+ [<memberdata name="n_processedfiles_0" display="n_ProcessedFiles_0"/>] ;
|
||||
+ [<memberdata name="n_processedfiles" display="n_ProcessedFiles"/>] ;
|
||||
+ [<memberdata name="n_processedfilescount" display="n_ProcessedFilesCount"/>] ;
|
||||
+ [<memberdata name="normalizarcapitalizacionarchivos" display="normalizarCapitalizacionArchivos"/>] ;
|
||||
@@ -597,10 +609,13 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [<memberdata name="renamefile" display="RenameFile"/>] ;
|
||||
+ [<memberdata name="renametmpfile2tx2file" display="RenameTmpFile2Tx2File"/>] ;
|
||||
+ [<memberdata name="set_line" display="set_Line"/>] ;
|
||||
+ [<memberdata name="errout" display="errOut"/>] ;
|
||||
+ [<memberdata name="stdout" display="stdOut"/>] ;
|
||||
+ [<memberdata name="tienesoporte_bin2prg" display="TieneSoporte_Bin2Prg"/>] ;
|
||||
+ [<memberdata name="tienesoporte_prg2bin" display="TieneSoporte_Prg2Bin"/>] ;
|
||||
+ [<memberdata name="t_inputfile_timestamp" display="t_InputFile_TimeStamp"/>] ;
|
||||
+ [<memberdata name="t_outputfile_timestamp" display="t_OutputFile_TimeStamp"/>] ;
|
||||
+ [<memberdata name="updateprocessedfile" display="updateProcessedFile"/>] ;
|
||||
+ [<memberdata name="writeerrorlog" display="writeErrorLog"/>] ;
|
||||
+ [<memberdata name="writeerrorlog_flush" display="writeErrorLog_Flush"/>] ;
|
||||
+ [<memberdata name="writelog" display="writeLog"/>] ;
|
||||
@@ -608,7 +623,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
+ [</VFPData>]
|
||||
|
||||
|
||||
DIMENSION a_ProcessedFiles(1), a_ProcessedFiles_0(1)
|
||||
DIMENSION a_ProcessedFiles(1, 5)
|
||||
PROTECTED l_ConfigEvaluated, n_CFG_Actual, l_Main_CFG_Loaded, o_Configuration, l_CFG_CachedAccess
|
||||
*--
|
||||
n_FB2PRG_Version = 1.19
|
||||
@@ -642,6 +657,8 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
n_ShowProgressbar = 1
|
||||
n_ForceWriteIfReadOnly = 0
|
||||
l_AllowMultiConfig = .T.
|
||||
l_AutoClearProcessedFiles = .T. && Por defecto limpia archivos procesados entre ejecuci<63>n y ejecuci<63>n
|
||||
l_CancelWithEscKey = .T.
|
||||
l_DropNullCharsFromCode = .T.
|
||||
l_Recompile = .T.
|
||||
l_UseClassPerFile = .F.
|
||||
@@ -654,6 +671,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
l_MethodSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias
|
||||
l_PropSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias
|
||||
l_ReportSort_Enabled = .T. && Para Unit Testing se puede cambiar a .F. para buscar diferencias
|
||||
l_StdOutHabilitado = .T.
|
||||
l_Main_CFG_Loaded = .F.
|
||||
n_ExtraBackupLevels = 1
|
||||
n_ClassTimeStamp = 1130668032 && 2013/11/04 20:00:00
|
||||
@@ -662,7 +680,6 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
n_FileHandle = 0
|
||||
n_ProcessedFiles = 0 && Contador usado para los archivos file.class.ext
|
||||
n_ProcessedFilesCount = 0 && Contador gen<65>rico de procesados
|
||||
n_ProcessedFiles_0 = 0 && Contador usado para los archivos file.ext
|
||||
o_Conversor = NULL
|
||||
o_Frm_Avance = NULL
|
||||
o_WSH = NULL
|
||||
@@ -692,7 +709,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
|
||||
|
||||
PROCEDURE INIT
|
||||
LPARAMETERS tcCFG_File
|
||||
LPARAMETERS tcCFG_File, tcCancelWithEscKey
|
||||
|
||||
LOCAL lcSys16, lnPosProg, lc_Foxbin2prg_EXE, laValues(1,5)
|
||||
SET DELETED ON
|
||||
@@ -704,8 +721,21 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
SET TABLEPROMPT OFF
|
||||
SET POINT TO '.'
|
||||
SET SEPARATOR TO ','
|
||||
tcCancelWithEscKey = EVL(tcCancelWithEscKey, '')
|
||||
|
||||
IF NOT EMPTY(tcCancelWithEscKey)
|
||||
THIS.l_CancelWithEscKey = ( tcCancelWithEscKey == '1' )
|
||||
ENDIF
|
||||
|
||||
IF THIS.l_CancelWithEscKey THEN
|
||||
ON ESCAPE ERROR 1799
|
||||
SET ESCAPE ON
|
||||
ENDIF
|
||||
|
||||
*-- Funciones para escribir en StdOut
|
||||
DECLARE INTEGER GetStdHandle IN Win32API INTEGER nHandleType
|
||||
DECLARE INTEGER WriteFile IN Win32API INTEGER hFile, STRING @ cBuffer ;
|
||||
, INTEGER nBytes, INTEGER @ nBytes2, INTEGER @ nBytes3
|
||||
|
||||
ERASE (THIS.c_ErrorLogFile)
|
||||
ERASE (THIS.c_LogFile)
|
||||
@@ -765,6 +795,39 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE addProcessedFile
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
|
||||
* tcInputFile (v? IN ) Path del archivo (ej: 'C:\DESA\pruebas varias\lib.vcx')
|
||||
* tcProcessed (v? IN ) Procesado ("P0"=Not Processed, "P1"=Processed, "P2"=Expanded)
|
||||
* tcHasErrors (v? IN ) Tuvo Errores ("E0"=No Errors, "E1"=Has Errors)
|
||||
* tcSupported (v? IN ) Archivo soportado ("S0"=Unsupported, "S1"=Supported)
|
||||
* tcReserved (v? IN ) Reservado
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved
|
||||
|
||||
LOCAL llAdded
|
||||
|
||||
IF NOT EMPTY(tcInputFile) THEN
|
||||
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
*-- Buscar si fue procesado antes
|
||||
IF .n_ProcessedFiles = 0 OR ASCAN( .a_ProcessedFiles, tcInputFile, 1, 0, 1, 1+2+4 ) = 0 THEN
|
||||
.n_ProcessedFiles = .n_ProcessedFiles + 1
|
||||
DIMENSION .a_ProcessedFiles(.n_ProcessedFiles, 5)
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 1) = tcInputFile
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 2) = EVL(tcProcessed, '')
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 3) = EVL(tcHasErrors, '')
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 4) = EVL(tcSupported, '')
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 5) = EVL(tcReserved, '')
|
||||
llAdded = .T.
|
||||
ENDIF
|
||||
ENDWITH
|
||||
ENDIF
|
||||
|
||||
RETURN llAdded
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE AvanceDelProceso
|
||||
LPARAMETERS tcTexto, tnValor, tnTotal, tnTipo
|
||||
|
||||
@@ -794,6 +857,19 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE ClearProcessedFiles
|
||||
*-- Limpia las estad<61>sticas de archivos procesados que se usan para optimizar
|
||||
*-- el procesamiento y evitar el reproceso de los mismos archivos, por ejemplo,
|
||||
*-- de un mismo VCX compartido por 2 <20> m<>s proyectos.
|
||||
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
.n_ProcessedFilesCount = 0
|
||||
.n_ProcessedFiles = 0
|
||||
DIMENSION .a_ProcessedFiles(1, 5)
|
||||
.a_ProcessedFiles = ''
|
||||
ENDWITH
|
||||
ENDPROC
|
||||
|
||||
|
||||
FUNCTION get_l_ConfigEvaluated
|
||||
RETURN THIS.l_ConfigEvaluated
|
||||
ENDFUNC
|
||||
@@ -804,6 +880,33 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDFUNC
|
||||
|
||||
|
||||
FUNCTION get_Target
|
||||
LPARAMETERS taTargets, tcFileMask
|
||||
|
||||
EXTERNAL ARRAY taTargets
|
||||
|
||||
LOCAL lnCount, I
|
||||
lnCount = 0
|
||||
|
||||
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
tcFileMask = EVL(tcFileMask, '*')
|
||||
|
||||
FOR I = 1 TO .n_ProcessedFiles
|
||||
IF LIKE( tcFileMask, .a_ProcessedFiles(I,1) ) THEN
|
||||
lnCount = lnCount + 1
|
||||
DIMENSION taTargets(lnCount,5)
|
||||
taTargets(lnCount,1) = .a_ProcessedFiles(I,1)
|
||||
taTargets(lnCount,2) = .a_ProcessedFiles(I,2)
|
||||
taTargets(lnCount,3) = .a_ProcessedFiles(I,3)
|
||||
taTargets(lnCount,4) = .a_ProcessedFiles(I,4)
|
||||
taTargets(lnCount,5) = .a_ProcessedFiles(I,5)
|
||||
ENDIF
|
||||
ENDFOR
|
||||
ENDWITH
|
||||
|
||||
RETURN lnCount
|
||||
ENDFUNC
|
||||
|
||||
PROCEDURE l_Debug_ACCESS
|
||||
IF THIS.n_CFG_Actual = 0 OR ISNULL( THIS.o_Configuration( THIS.n_CFG_Actual ) )
|
||||
RETURN THIS.l_Debug
|
||||
@@ -1836,7 +1939,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
, tcExt == 'MNX', .c_MN2 ;
|
||||
, tcExt == 'DBF', .c_DB2 ;
|
||||
, tcExt == 'DBC', .c_DC2 ;
|
||||
, 'XXX' )
|
||||
, tcExt )
|
||||
ENDWITH && THIS
|
||||
|
||||
RELEASE tcExt
|
||||
@@ -1916,14 +2019,15 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
* tcBackupLevels (v? IN ) Indica la cantidad de niveles de backup a realizar (por defecto '1')
|
||||
* tcClearUniqueID (v? IN ) Indica si se debe limpiar el UniqueID ('1') o no ('0' <20> vac<61>o)
|
||||
* tcOptimizeByFilestamp (v? IN ) Indica si se debe optimizar por filestamp ('1') o no ('0' <20> vac<61>o)
|
||||
* tcCFG_File (v? IN ) Indica si se debe usar un archivo de configuraci<63>n distinto al predeterminado
|
||||
*--------------------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress ;
|
||||
, toModulo, toEx AS EXCEPTION, tlRelanzarError, tcOriginalFileName, tcRecompile, tcNoTimestamps ;
|
||||
, tcBackupLevels, tcClearUniqueID, tcOptimizeByFilestamp
|
||||
, tcBackupLevels, tcClearUniqueID, tcOptimizeByFilestamp, tcCFG_File
|
||||
|
||||
TRY
|
||||
LOCAL I, lcPath, lnCodError, lcFileSpec, lcFile, laFiles(1,5), laDirInfo(1,5), lcInputFile_Type ;
|
||||
, lnFileCount, lcErrorInfo, lcErrorFile, lnPCount, laParams(1), lnConversionOption ;
|
||||
, lnFileCount, lcErrorInfo, lcErrorFile, lnPCount, laParams(1), lnConversionOption, lnErrorIcon ;
|
||||
, loEx AS EXCEPTION ;
|
||||
, loFSO AS Scripting.FileSystemObject ;
|
||||
, loLang AS CL_LANG OF 'FOXBIN2PRG.PRG' ;
|
||||
@@ -1935,11 +2039,13 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
loLang = _SCREEN.o_FoxBin2Prg_Lang
|
||||
loFSO = .o_FSO
|
||||
loWSH = .o_WSH
|
||||
DIMENSION .a_ProcessedFiles_0(1)
|
||||
.n_ProcessedFiles_0 = 0
|
||||
lnPCount = 0
|
||||
lcInputFile_Type = ''
|
||||
|
||||
IF .l_AutoClearProcessedFiles THEN
|
||||
.ClearProcessedFiles() && Para evitar acumular procesos anteriores
|
||||
ENDIF
|
||||
|
||||
*-- Funciona y lee los par<61>metros, pero no le veo un caso de uso claro, ya que si se eligen
|
||||
*-- varios directorios de proyecto, la compilaci<63>n ser<65> err<72>nea. 12/12/2014
|
||||
*.ReadInputVFPParams( @laParams, @lnPCount )
|
||||
@@ -1952,6 +2058,8 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
* EXIT
|
||||
*ENDIF
|
||||
|
||||
.c_Foxbin2prg_ConfigFile = EVL( tcCFG_File, .c_Foxbin2prg_ConfigFile )
|
||||
|
||||
IF VERSION(5) < 900 OR INT( VAL( SUBSTR( VERSION(4), RAT('.', VERSION(4)) + 1 ) ) ) < 3504
|
||||
ERROR C_INCORRECT_VFP9_VERSION__MISSING_SP1_LOC
|
||||
ENDIF
|
||||
@@ -2069,7 +2177,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDIF
|
||||
|
||||
|
||||
CASE lcInputFile_Type == C_FILETYPE_FILE AND '*' $ JUSTSTEM( tc_InputFile )
|
||||
CASE lcInputFile_Type == C_FILETYPE_FILE AND ( '*' $ JUSTSTEM( tc_InputFile ) OR '?' $ JUSTSTEM( tc_InputFile ) )
|
||||
*-- SE QUIEREN TODOS LOS ARCHIVOS DE UNA EXTENSI<53>N
|
||||
lcFileSpec = FULLPATH( tc_InputFile )
|
||||
.c_LogFile = ADDBS( JUSTPATH( lcFileSpec ) ) + STRTRAN( JUSTFNAME( lcFileSpec ), '*', '_ALL' ) + '.LOG'
|
||||
@@ -2213,7 +2321,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDIF
|
||||
|
||||
.AvanceDelProceso( loLang.C_PROCESSING_LOC + ' ' + lcFile + '...', I, lnFileCount, 0 )
|
||||
lnCodError = .Convertir( lcFile, @toModulo, @toEx, .T., tcOriginalFileName )
|
||||
lnCodError = .Convertir( lcFile, @toModulo, @toEx, .F., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
|
||||
DO CASE
|
||||
@@ -2333,19 +2441,27 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
|
||||
CATCH TO toEx
|
||||
lnCodError = toEx.ERRORNO
|
||||
lnErrorIcon = 64
|
||||
|
||||
IF VARTYPE(loLang) <> 'O' THEN
|
||||
loLang = CREATEOBJECT("CL_LANG","EN")
|
||||
ENDIF
|
||||
|
||||
IF lnCodError <> 1799 THEN && Conversion Cancelled
|
||||
toEx.UserValue = toEx.UserValue + 'FoxBin2Prg: [' + THIS.c_Foxbin2prg_FullPath + '] (EXE Version: ' + THIS.c_FB2PRG_EXE_Version + ')' + CR_LF
|
||||
lnErrorIcon = 16
|
||||
ENDIF
|
||||
|
||||
IF ATC('-SHOWMSG', ('-' + tcType)) >= 1 THEN
|
||||
IF lnCodError <> 1799 THEN && Conversion Cancelled
|
||||
toEx.UserValue = toEx.UserValue + 'lcInputFile_Type = [' + TRANSFORM(lcInputFile_Type) + ']' + CR_LF
|
||||
ENDIF
|
||||
THIS.l_ShowErrors = .F. && La opci<63>n "SHOWMSG" muestra su propio mensaje
|
||||
ENDIF
|
||||
|
||||
IF lnCodError <> 1799 THEN && Conversion Cancelled
|
||||
toEx.USERVALUE = toEx.USERVALUE + 'tc_InputFile = [' + TRANSFORM(tc_InputFile) + ']' + CR_LF
|
||||
ENDIF
|
||||
|
||||
THIS.ejecutar_WriteErrorLog( @toEx, @lcErrorInfo )
|
||||
|
||||
@@ -2356,7 +2472,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDIF
|
||||
|
||||
IF THIS.l_ShowErrors
|
||||
MESSAGEBOX( lcErrorInfo, 0+16+4096, loLang.C_FOXBIN2PRG_ERROR_CAPTION_LOC, 60000 )
|
||||
MESSAGEBOX( lcErrorInfo, 0 + lnErrorIcon + 4096, loLang.C_FOXBIN2PRG_ERROR_CAPTION_LOC, 60000 )
|
||||
ENDIF
|
||||
|
||||
IF tlRelanzarError
|
||||
@@ -2460,7 +2576,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
USE (tc_InputFile) SHARED AGAIN NOUPDATE ALIAS TABLABIN
|
||||
lnFileCount = 0
|
||||
|
||||
SCAN FOR NOT DELETED()
|
||||
SCAN FOR NOT DELETED() AND Type <> 'H'
|
||||
lnFileCount = lnFileCount + 1
|
||||
DIMENSION laFiles(lnFileCount,1)
|
||||
laFiles(lnFileCount,1) = ADDBS( JUSTPATH( lcFileSpec ) ) + ALLTRIM( NAME, 0, ' ', CHR(0) )
|
||||
@@ -2471,11 +2587,9 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
*-- Convierto primero el proyecto
|
||||
IF tcType <> '*-' THEN
|
||||
lcFile = tc_InputFile
|
||||
IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
*-- Luego convierto los archivos incluidos
|
||||
FOR I = 1 TO lnFileCount
|
||||
@@ -2483,18 +2597,24 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
.AvanceDelProceso( loLang.C_PROCESSING_LOC + ' ' + lcFile + '...', I, lnFileCount, 0 )
|
||||
|
||||
IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
|
||||
IF .n_ProcessedFiles_0 > 0 THEN
|
||||
*-- Buscar si fue procesado antes
|
||||
IF ASCAN( .a_ProcessedFiles_0, lcFile, 1, 0, 0, 1+2+4 ) > 0 THEN
|
||||
*.writeLog( 'OPTIMIZACI<43>N: saltando archivo ya procesado [' + (lcFile) + ']' )
|
||||
.writeLog( TEXTMERGE( loLang.C_OPTIMIZATION_SKIPPING_ALREADY_PROCESSED_FILE_LOC ) )
|
||||
LOOP
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .F., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
|
||||
DO CASE
|
||||
CASE lnCodError = 1799 && Conversion Cancelled
|
||||
ERROR 1799
|
||||
|
||||
CASE lnCodError > 0
|
||||
.ejecutar_WriteErrorLog( @toEx )
|
||||
ENDCASE
|
||||
ELSE
|
||||
*-- addProcessedFile( tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
IF .addProcessedFile( lcFile, 'P0', 'E0', 'S0', 'RR' )
|
||||
.updateProcessedFile()
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
ENDIF
|
||||
ENDFOR
|
||||
ENDWITH
|
||||
ENDTRY
|
||||
@@ -2569,11 +2689,9 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
*-- Convierto primero el proyecto
|
||||
IF tcType <> '*-' THEN
|
||||
lcFile = tc_InputFile
|
||||
IF .TieneSoporte_Bin2Prg( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
*-- Luego convierto los archivos incluidos
|
||||
FOR I = 1 TO lnFileCount
|
||||
@@ -2581,18 +2699,24 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
.AvanceDelProceso( loLang.C_PROCESSING_LOC + ' ' + lcFile + '...', I, lnFileCount, 0 )
|
||||
|
||||
IF .TieneSoporte_Prg2Bin( UPPER(JUSTEXT(lcFile)) ) AND FILE( lcFile )
|
||||
IF .n_ProcessedFiles_0 > 0 THEN
|
||||
*-- Buscar si fue procesado antes
|
||||
IF ASCAN( .a_ProcessedFiles_0, lcFile, 1, 0, 0, 1+2+4 ) > 0 THEN
|
||||
*.writeLog( 'OPTIMIZACI<43>N: saltando archivo ya procesado [' + (lcFile) + ']' )
|
||||
.writeLog( TEXTMERGE( loLang.C_OPTIMIZATION_SKIPPING_ALREADY_PROCESSED_FILE_LOC ) )
|
||||
LOOP
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .F., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
|
||||
DO CASE
|
||||
CASE lnCodError = 1799 && Conversion Cancelled
|
||||
ERROR 1799
|
||||
|
||||
CASE lnCodError > 0
|
||||
.ejecutar_WriteErrorLog( @toEx )
|
||||
ENDCASE
|
||||
ELSE
|
||||
*-- addProcessedFile( tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
IF .addProcessedFile( lcFile, 'P0', 'E0', 'S0', 'RR' )
|
||||
.updateProcessedFile()
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
lnCodError = .Convertir( lcFile, toModulo, @toEx, .T., tcOriginalFileName )
|
||||
.writeLog_Flush()
|
||||
ENDIF
|
||||
ENDFOR
|
||||
ENDWITH
|
||||
ENDTRY
|
||||
@@ -2600,11 +2724,17 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
|
||||
|
||||
HIDDEN PROCEDURE ejecutar_WriteErrorLog
|
||||
LPARAMETERS toEx, tcErrorInfo
|
||||
LPARAMETERS toEx as Exception, tcErrorInfo
|
||||
|
||||
LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
|
||||
loLang = _SCREEN.o_FoxBin2Prg_Lang
|
||||
|
||||
IF toEx.ErrorNo = 1799 THEN && Conversion Cancelled
|
||||
tcErrorInfo = loLang.C_CONVERSION_CANCELLED_BY_USER_LOC
|
||||
ELSE
|
||||
tcErrorInfo = THIS.Exception2Str(@toEx) + CR_LF + loLang.C_SOURCEFILE_LOC + TRANSFORM(THIS.c_InputFile) + CR_LF
|
||||
ENDIF
|
||||
|
||||
ADDPROPERTY(_SCREEN, 'ExitCode', toEx.ERRORNO)
|
||||
|
||||
*-- Escribo la informaci<63>n de error en la variable log de errores
|
||||
@@ -2676,19 +2806,6 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
lc_BaseFile = FORCEPATH( FORCEEXT( JUSTSTEM( JUSTSTEM(.c_InputFile) ), JUSTEXT(.c_InputFile)) , JUSTPATH(.c_InputFile) )
|
||||
ENDIF
|
||||
|
||||
IF .n_ProcessedFiles > 0 THEN
|
||||
*-- Buscar si fue procesado antes
|
||||
IF ASCAN( .a_ProcessedFiles, lc_BaseFile, 1, 0, 0, 1+2+4 ) > 0 THEN
|
||||
*.writeLog( 'OPTIMIZACI<43>N: El archivo Base [' + JUSTFNAME(lc_BaseFile) + '] ya fue procesado, por lo que no se procesar<61> [' + JUSTFNAME(.c_InputFile) + ']' )
|
||||
.writeLog( TEXTMERGE( loLang.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC ) )
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
.n_ProcessedFiles = .n_ProcessedFiles + 1
|
||||
DIMENSION .a_ProcessedFiles(.n_ProcessedFiles)
|
||||
.a_ProcessedFiles(.n_ProcessedFiles) = lc_BaseFile
|
||||
|
||||
*-- Verifico si se debe forzar la redirecci<63>n al archivo principal
|
||||
IF '.' $ JUSTSTEM(.c_InputFile)
|
||||
.c_InputFile = lc_BaseFile
|
||||
@@ -2705,10 +2822,12 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
.c_OriginalFileName = FORCEEXT(.c_OriginalFileName,'pjx')
|
||||
ENDIF
|
||||
|
||||
*-- Conteo de archivos normales procesados
|
||||
.n_ProcessedFiles_0 = .n_ProcessedFiles_0 + 1
|
||||
DIMENSION .a_ProcessedFiles_0(.n_ProcessedFiles_0)
|
||||
.a_ProcessedFiles_0(.n_ProcessedFiles_0) = .c_InputFile
|
||||
*-- addProcessedFile( tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
IF NOT .addProcessedFile( .c_InputFile, 'P1', 'E0', 'S1', 'RR' ) THEN
|
||||
*.writeLog( 'OPTIMIZACI<43>N: El archivo Base [' + JUSTFNAME(lc_BaseFile) + '] ya fue procesado, por lo que no se procesar<61> [' + JUSTFNAME(.c_InputFile) + ']' )
|
||||
.writeLog( TEXTMERGE( loLang.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC ) )
|
||||
EXIT
|
||||
ENDIF
|
||||
|
||||
.writeLog( C_TAB + 'c_OriginalFileName: ' + .c_OriginalFileName )
|
||||
.writeLog( )
|
||||
@@ -2952,12 +3071,16 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDIF
|
||||
|
||||
.normalizarCapitalizacionArchivos()
|
||||
.updateProcessedFile()
|
||||
ENDWITH && THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
|
||||
CATCH TO toEx
|
||||
lnCodError = toEx.ERRORNO
|
||||
*lcErrorInfo = THIS.Exception2Str(toEx) + CR_LF + CR_LF + loLang.C_SOURCEFILE_LOC + THIS.c_InputFile
|
||||
|
||||
*-- updateProcessedFile( tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
THIS.updateProcessedFile( '', 'E1' )
|
||||
|
||||
IF THIS.l_Debug
|
||||
IF _VFP.STARTMODE = 0
|
||||
SET STEP ON
|
||||
@@ -3281,6 +3404,82 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE errOut
|
||||
*-- DEVOLUCI<43>N DE SALIDA A ERROUT (-12)
|
||||
LPARAMETERS tcTexto
|
||||
|
||||
TRY
|
||||
IF THIS.l_StdOutHabilitado
|
||||
LOCAL loException as Exception, lcOutput, lnOutHandle, lnBytesWritten, lnOverlappedIO
|
||||
lcOutput = EVL(tcTexto,'') + CR_LF
|
||||
lnOutHandle = GetStdHandle(-12) && CAPTURAR ERROR DESDE CONSOLA: FOXBIN2PRG.EXE PARAMS 2>&1 | FIND /V ""
|
||||
lnBytesWritten = 0
|
||||
lnOverlappedIO = 0
|
||||
WriteFile(lnOutHandle, @lcOutput, LEN(lcOutput), @lnBytesWritten, @lnOverlappedIO)
|
||||
ENDIF
|
||||
|
||||
CATCH TO loException
|
||||
THIS.l_StdOutHabilitado = .F.
|
||||
|
||||
ENDTRY
|
||||
|
||||
RETURN
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE stdOut
|
||||
*-- DEVOLUCI<43>N DE SALIDA A STDOUT (-11)
|
||||
LPARAMETERS tcTexto
|
||||
|
||||
TRY
|
||||
IF THIS.l_StdOutHabilitado
|
||||
LOCAL loException as Exception, lcOutput, lnOutHandle, lnBytesWritten, lnOverlappedIO
|
||||
lcOutput = EVL(tcTexto,'') + CR_LF
|
||||
lnOutHandle = GetStdHandle(-11) && CAPTURAR STDOUT DESDE CONSOLA: FOXBIN2PRG.EXE PARAMS | FIND /V ""
|
||||
lnBytesWritten = 0
|
||||
lnOverlappedIO = 0
|
||||
WriteFile(lnOutHandle, @lcOutput, LEN(lcOutput), @lnBytesWritten, @lnOverlappedIO)
|
||||
ENDIF
|
||||
|
||||
CATCH TO loException
|
||||
THIS.l_StdOutHabilitado = .F.
|
||||
|
||||
ENDTRY
|
||||
|
||||
RETURN
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE updateProcessedFile
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* ACTUALIZA ALGUNOS DATOS DEL ARCHIVO PROCESADO ACTUAL
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
|
||||
* tcProcessed (v? IN ) Fue Procesado ("P")
|
||||
* tcHasErrors (v? IN ) Tuvo Errores ("E")
|
||||
* tcSupported (v? IN ) Archivo soportado ("U"=Unsupported)
|
||||
* tcReserved (v? IN ) Reservado
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS tcProcessed, tcHasErrors, tcSupported, tcReserved
|
||||
|
||||
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
IF NOT EMPTY(tcProcessed)
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 2) = EVL(tcProcessed, '')
|
||||
ENDIF
|
||||
IF NOT EMPTY(tcHasErrors)
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 3) = EVL(tcHasErrors, '')
|
||||
ENDIF
|
||||
IF NOT EMPTY(tcSupported)
|
||||
.a_ProcessedFiles(.n_ProcessedFiles, 4) = EVL(tcSupported, '')
|
||||
ENDIF
|
||||
.stdOut( .a_ProcessedFiles(.n_ProcessedFiles,2) ;
|
||||
+ ',' + .a_ProcessedFiles(.n_ProcessedFiles,3) ;
|
||||
+ ',' + .a_ProcessedFiles(.n_ProcessedFiles,4) ;
|
||||
+ ',' + .a_ProcessedFiles(.n_ProcessedFiles,5) ;
|
||||
+ ',' + LOWER(.a_ProcessedFiles(.n_ProcessedFiles,1)) )
|
||||
ENDWITH
|
||||
ENDPROC
|
||||
|
||||
|
||||
PROCEDURE writeErrorLog
|
||||
LPARAMETERS tcText, tnTimestamp
|
||||
@@ -3291,6 +3490,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
|
||||
ENDIF
|
||||
|
||||
THIS.c_TextErr = THIS.c_TextErr + EVL(tcText,'') + CR_LF
|
||||
THIS.errOut(tcText)
|
||||
THIS.l_Error = .T.
|
||||
CATCH
|
||||
ENDTRY
|
||||
@@ -4188,7 +4388,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
|
||||
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
|
||||
* toModulo (!@ OUT) Objeto generado de clase correspondiente con la informaci<63>n leida del texto
|
||||
* toEx (!@ OUT) Objeto con informaci<63>n del error
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
* toFoxBin2Prg (!@ IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toModulo, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
#IF .F.
|
||||
@@ -5444,13 +5644,13 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
|
||||
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
|
||||
* toModulo (!@ OUT) Objeto generado de clase correspondiente con la informaci<63>n leida del texto
|
||||
* toEx (!@ OUT) Objeto con informaci<63>n del error
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
* toFoxBin2Prg (!@ IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toModulo, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
ENDPROC
|
||||
|
||||
|
||||
@@ -7681,7 +7881,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, laCodeLines(1), lnCodeLines, lcInputFile, lcInputFile_Class, lnFileCount, laFiles(1,5) ;
|
||||
@@ -7718,10 +7918,16 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
IF toFoxBin2Prg.l_ClassPerFileCheck AND ASCAN( toModulo._ExternalClasses , JUSTEXT( JUSTSTEM( lcInputFile_Class ) ), 1, 0, 1, 1+2+4 ) = 0
|
||||
.writeLog( C_TAB + '- ' + loLang.C_OUTER_CLASS_DOES_NOT_MATCH_INNER_CLASSES_LOC + ' [' + lcInputFile_Class + ']' )
|
||||
.writeErrorLog( C_TAB + '- ' + loLang.C_WARNING_LOC + ' ' + loLang.C_OUTER_CLASS_DOES_NOT_MATCH_INNER_CLASSES_LOC + ' [' + lcInputFile_Class + ']' )
|
||||
LOOP && Salteo esta clase
|
||||
LOOP && Salteo esta clase porque no concuerda con las anotadas
|
||||
ENDIF
|
||||
|
||||
.writeLog( C_TAB + '+ ' + loLang.C_INCLUDING_CLASS_LOC + ' ' + JUSTFNAME( lcInputFile_Class ) )
|
||||
|
||||
*-- addProcessedFile( tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
IF toFoxBin2Prg.addProcessedFile( lcInputFile_Class, 'P2', 'E0', 'S1', 'RR' ) THEN
|
||||
toFoxBin2Prg.updateProcessedFile()
|
||||
ENDIF
|
||||
|
||||
toFoxBin2Prg.normalizarCapitalizacionArchivos( .T., lcInputFile_Class )
|
||||
C_FB2PRG_CODE = C_FB2PRG_CODE + FILETOSTR( lcInputFile_Class )
|
||||
ENDFOR
|
||||
@@ -8037,7 +8243,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
|
||||
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, laCodeLines(1), lnCodeLines, lcInputFile, lcInputFile_Class, lnFileCount, laFiles(1,5) ;
|
||||
@@ -8078,6 +8284,12 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
|
||||
ENDIF
|
||||
|
||||
.writeLog( C_TAB + '+ ' + loLang.C_INCLUDING_CLASS_LOC + ' ' + JUSTFNAME( lcInputFile_Class ) )
|
||||
|
||||
*-- addProcessedFile( tcInputFile, tcProcessed, tcHasErrors, tcSupported, tcReserved )
|
||||
IF toFoxBin2Prg.addProcessedFile( lcInputFile_Class, 'P2', 'E0', 'S1', 'RR' ) THEN
|
||||
toFoxBin2Prg.updateProcessedFile()
|
||||
ENDIF
|
||||
|
||||
toFoxBin2Prg.normalizarCapitalizacionArchivos( .T., lcInputFile_Class )
|
||||
C_FB2PRG_CODE = C_FB2PRG_CODE + FILETOSTR( lcInputFile_Class )
|
||||
ENDFOR
|
||||
@@ -8395,7 +8607,7 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toProject, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toProject, @toEx )
|
||||
DODEFAULT( @toProject, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toProject AS CL_PROJECT OF 'FOXBIN2PRG.PRG'
|
||||
@@ -9195,7 +9407,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toReport, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toReport, @toEx )
|
||||
DODEFAULT( @toReport, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toReport AS CL_REPORT OF 'FOXBIN2PRG.PRG'
|
||||
@@ -9637,7 +9849,7 @@ DEFINE CLASS c_conversor_prg_a_dbf AS c_conversor_prg_a_bin
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toTable, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toTable, @toEx )
|
||||
DODEFAULT( @toTable, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toTable AS CL_DBF_TABLE OF 'FOXBIN2PRG.PRG'
|
||||
@@ -9936,7 +10148,7 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toDatabase, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toDatabase, @toEx )
|
||||
DODEFAULT( @toDatabase, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toDatabase AS CL_DBC OF 'FOXBIN2PRG.PRG'
|
||||
@@ -10119,7 +10331,7 @@ DEFINE CLASS c_conversor_prg_a_mnx AS c_conversor_prg_a_bin
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toMenu, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toMenu, @toEx )
|
||||
DODEFAULT( @toMenu, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toMenu AS CL_MENU OF 'FOXBIN2PRG.PRG'
|
||||
@@ -10341,7 +10553,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
ENDPROC
|
||||
|
||||
|
||||
@@ -12098,7 +12310,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, loRegClass, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1), lnLen, lnObjCount ;
|
||||
@@ -12401,7 +12613,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toModulo, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toModulo AS CL_MODULO OF 'FOXBIN2PRG.PRG'
|
||||
@@ -12729,7 +12941,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
|
||||
@@ -13075,7 +13287,7 @@ DEFINE CLASS c_conversor_pjm_a_prg AS c_conversor_bin_a_prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, lcStr, lnPos, lnLen, lnServerCount, loReg, lcDevInfo, lnLen ;
|
||||
@@ -13470,7 +13682,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, loRegCab, loRegDataEnv, loRegCur, loRegObj, lnMethodCount, laMethods(1), laCode(1), laProtected(1), lnLen ;
|
||||
@@ -13640,7 +13852,7 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg
|
||||
#IF .F.
|
||||
LOCAL toFoxBin2Prg AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
|
||||
#ENDIF
|
||||
DODEFAULT( @toModulo, @toEx )
|
||||
DODEFAULT( @toModulo, @toEx, @toFoxBin2Prg )
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, laDatabases(1), lnDatabases_Count, laDatabases2(1), lnLen, lc_FileTypeDesc, laLines(1), lcOutputFile ;
|
||||
@@ -13809,7 +14021,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toDatabase, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toDatabase, @toEx )
|
||||
DODEFAULT( @toDatabase, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toDatabase AS CL_DBC OF 'FOXBIN2PRG.PRG'
|
||||
@@ -13882,7 +14094,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg
|
||||
* toFoxBin2Prg (v! IN ) Referencia al objeto principal
|
||||
*---------------------------------------------------------------------------------------------------
|
||||
LPARAMETERS toMenu, toEx AS EXCEPTION, toFoxBin2Prg
|
||||
DODEFAULT( @toMenu, @toEx )
|
||||
DODEFAULT( @toMenu, @toEx, @toFoxBin2Prg )
|
||||
|
||||
#IF .F.
|
||||
LOCAL toMenu AS CL_MENU OF 'FOXBIN2PRG.PRG'
|
||||
@@ -22667,7 +22879,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_BACKLINK_OF_TABLE_LOC = "de la table"
|
||||
.C_BACKUP_OF_LOC = "Faire de sauvegarde des: "
|
||||
.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "Vous ne pouvez pas g<>n<EFBFBD>rer un fichier [<<THIS.c_OutputFile>>] car il est en lecture seule"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "OPTIMISATION: Fichier de base [<<JUSTFNAME(lc_BaseFile)>>] D<>j<EFBFBD> trait<69>e, en sautant traitement de fichier [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "OPTIMISATION: Fichier de base [<<JUSTFNAME(.c_InputFile)>>] D<>j<EFBFBD> trait<69>e, en sautant traitement de fichier [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CONFIGFILE_LOC = "Utilisation du fichier de configuration:"
|
||||
.C_CONVERSION_CANCELLED_BY_USER_LOC = "Conversion Annul<75> par l'utilisateur"
|
||||
.C_CONVERT_ALL_FILES_IN_A_PROJECT_LOC = "Convertir tous les fichiers dans un Projet"
|
||||
@@ -22695,7 +22907,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_FILE_NAME_IS_NOT_SUPPORTED_LOC = "File [<<.c_InputFile>>] ne est pas support<72>"
|
||||
.C_FILE_NOT_FOUND_LOC = "Fichier introuvable"
|
||||
.C_FILENAME_LOC = "Fichier"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERREUR!!"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERREUR"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_LOC = "FOXBIN2PRG: SYNTAX INFO"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC = "FOXBIN2PRG <cFileSpec.Ext> [,cType ,cTextName ,cGenText ,cDontShowErrors ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
|
||||
+ "Exemple pour g<>n<EFBFBD>rer TXT de tous VCX dans 'c:\development\classes', sans montrer la fen<65>tre d'erreur et g<>n<EFBFBD>rer fichier LOG: " + CR_LF ;
|
||||
@@ -22752,7 +22964,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_BACKLINK_OF_TABLE_LOC = "de la tabla"
|
||||
.C_BACKUP_OF_LOC = "Haciendo Backup de: "
|
||||
.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "No se puede generar el archivo [<<THIS.c_OutputFile>>] porque es ReadOnly"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "OPTIMIZACI<43>N: El archivo Base [<<JUSTFNAME(lc_BaseFile)>>] ya fue procesado, ignorando el procesamiento del archivo [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "OPTIMIZACI<43>N: El archivo Base [<<JUSTFNAME(.c_InputFile)>>] ya fue procesado, ignorando el procesamiento del archivo [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CONFIGFILE_LOC = "Usando archivo de configuraci<63>n:"
|
||||
.C_CONVERSION_CANCELLED_BY_USER_LOC = "Conversi<73>n Cancelada por el usuario"
|
||||
.C_CONVERT_ALL_FILES_IN_A_PROJECT_LOC = "Convertir todos los archivos de un Proyecto"
|
||||
@@ -22780,7 +22992,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_FILE_NAME_IS_NOT_SUPPORTED_LOC = "El archivo [<<.c_InputFile>>] no est<73> soportado"
|
||||
.C_FILE_NOT_FOUND_LOC = "No se encontr<74> el archivo"
|
||||
.C_FILENAME_LOC = "Archivo"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERROR!!"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERROR"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_LOC = "FOXBIN2PRG: INFORMACI<43>N DE SINTAXIS"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC = "FOXBIN2PRG <cEspecArchivo.Ext> [,cType ,cTextName ,cGenText ,cNoMostrarErrores ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
|
||||
+ "Ejemplo para generar los TXT de todos los VCX de 'c:\desa\clases', sin mostrar ventana de error y generando archivo LOG: " + CR_LF ;
|
||||
@@ -22837,7 +23049,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_BACKLINK_OF_TABLE_LOC = "von Tabelle"
|
||||
.C_BACKUP_OF_LOC = "Erzeuge Backup von: "
|
||||
.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "Kann Datei [<<THIS.c_OutputFile>>] nicht generieren, da sie schreibgesch<63>tzt ist"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "Optimierung: Grund Datei [<<JUSTFNAME(lc_BaseFile)>>] Schon verarbeitet, das <20>berspringen Verarbeitung der Datei [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "Optimierung: Grund Datei [<<JUSTFNAME(.c_InputFile)>>] Schon verarbeitet, das <20>berspringen Verarbeitung der Datei [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CONFIGFILE_LOC = "Benutze Konfigurationsdatei:"
|
||||
.C_CONVERSION_CANCELLED_BY_USER_LOC = "Konvertierung durch den Benutzer abgebrochen"
|
||||
.C_CONVERT_ALL_FILES_IN_A_PROJECT_LOC = "alle Dateien in einem Projekt zu konvertieren"
|
||||
@@ -22865,7 +23077,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_FILE_NAME_IS_NOT_SUPPORTED_LOC = "Datei [<<.c_InputFile>>] wird nicht unterst<73>tzt"
|
||||
.C_FILE_NOT_FOUND_LOC = "Datei nicht gefunden"
|
||||
.C_FILENAME_LOC = "Datei"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: FEHLER!!"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: FEHLER"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_LOC = "FOXBIN2PRG: SYNTAX INFO"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC = "FOXBIN2PRG <cFileSpec.Ext> [,cType ,cTextName ,cGenText ,cDontShowErrors ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
|
||||
+ "Ein Beispiel f<>r die Generierung der TXT von allen VCX in 'c:\development\classes', ohne Anzeige des Fehlerfensters und Generierung der LOG Datei: " + CR_LF ;
|
||||
@@ -22922,7 +23134,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_BACKLINK_OF_TABLE_LOC = "of table"
|
||||
.C_BACKUP_OF_LOC = "Doing Backup of: "
|
||||
.C_CANT_GENERATE_FILE_BECAUSE_IT_IS_READONLY_LOC = "Cannot generate file [<<THIS.c_OutputFile>>] because it is ReadOnly"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "Optimization: Base File [<<JUSTFNAME(lc_BaseFile)>>] already processed, skipping processing of file [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CLASSPERFILE_OPTIMIZATION_BASE_ALREADY_PROCESSED_LOC = "Optimization: Base File [<<JUSTFNAME(.c_InputFile)>>] already processed, skipping processing of file [<<JUSTFNAME(.c_InputFile)>>]"
|
||||
.C_CONFIGFILE_LOC = "Using configuration file:"
|
||||
.C_CONVERSION_CANCELLED_BY_USER_LOC = "Conversion Cancelled by the user"
|
||||
.C_CONVERT_ALL_FILES_IN_A_PROJECT_LOC = "Convert all files in a Project"
|
||||
@@ -22950,7 +23162,7 @@ DEFINE CLASS CL_LANG AS Custom
|
||||
.C_FILE_NAME_IS_NOT_SUPPORTED_LOC = "File [<<.c_InputFile>>] is not supported"
|
||||
.C_FILE_NOT_FOUND_LOC = "File not found"
|
||||
.C_FILENAME_LOC = "File"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERROR!!"
|
||||
.C_FOXBIN2PRG_ERROR_CAPTION_LOC = "FOXBIN2PRG: ERROR"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_LOC = "FOXBIN2PRG: SYNTAX INFO"
|
||||
.C_FOXBIN2PRG_INFO_SINTAX_EXAMPLE_LOC = "FOXBIN2PRG <cFileSpec.Ext> [,cType ,cTextName ,cGenText ,cDontShowErrors ,cDebug, cDontShowProgress, cOriginalFileName, cRecompile, cNoTimestamps]" + CR_LF + CR_LF ;
|
||||
+ "Example of generating TXT from all VCX in 'c:\development\classes', without showing error window and generating LOG file: " + CR_LF ;
|
||||
|
||||
Reference in New Issue
Block a user