- Allow importing/exporting a single class without requiring a CFG configuration
This commit is contained in:
fdbozzo
@@ -2870,7 +2870,8 @@ DEFINE CLASS c_foxbin2prg AS Session
|
||||
* Redefinir nombre archivo de entrada según el tipo de conversión (IMPORT/EXPORT)
|
||||
IF .c_ClassOperationType = 'I'
|
||||
* En el caso de importar, debo cambiar la sintaxis de tc_InputFile para poder usar
|
||||
* la conversión existente de clase vc2
|
||||
* la conversión existente de clase vc2.
|
||||
* Esto deja un archivo con sintaxis "classlib.vcx::classname::import" en "classlib.classname.vc2"
|
||||
IF .n_UseClassPerFile = 2
|
||||
tc_InputFile = FORCEEXT(tc_InputFile, '') + '.*.' + .c_ClassToConvert + '.' + .c_VC2
|
||||
|
||||
@@ -3706,9 +3707,11 @@ DEFINE CLASS c_foxbin2prg AS Session
|
||||
ENDIF
|
||||
|
||||
*-- OPTIMIZACIÓN VC2/SC2/DC2: VERIFICO SI EL ARCHIVO BASE FUE PROCESADO PARA DESCARTAR REPROCESOS
|
||||
IF .n_UseClassPerFile > 0 AND .l_RedirectClassPerFileToMain THEN
|
||||
IF .n_UseClassPerFile > 0 AND .l_RedirectClassPerFileToMain ;
|
||||
OR NOT EMPTY(.c_ClassToConvert)
|
||||
|
||||
DO CASE
|
||||
CASE .n_RedirectClassType = 1 && Redireccionar solo esta clase
|
||||
CASE .n_RedirectClassType = 1 OR NOT EMPTY(.c_ClassToConvert) && Redireccionar solo esta clase
|
||||
IF OCCURS('.', JUSTSTEM(.c_InputFile)) = 0 THEN
|
||||
lc_BaseFile = .c_InputFile
|
||||
ELSE
|
||||
@@ -3851,7 +3854,13 @@ DEFINE CLASS c_foxbin2prg AS Session
|
||||
IF .VCX_Conversion_Support <> 2
|
||||
ERROR (TEXTMERGE(loLang.C_FILE_NAME_IS_NOT_SUPPORTED_LOC))
|
||||
ENDIF
|
||||
.c_OutputFile = FORCEEXT( .c_InputFile, 'VCX' )
|
||||
IF EMPTY(.c_ClassToConvert)
|
||||
.c_OutputFile = FORCEEXT( .c_InputFile, 'VCX' )
|
||||
ELSE
|
||||
* Si se usó la sintaxis "classlib.vcx::clase::import", se define el OutputFile
|
||||
* con la Base "classlib.vcx" y no con el archivo entero.
|
||||
.c_OutputFile = FORCEEXT( lc_BaseFile, 'VCX' )
|
||||
ENDIF
|
||||
loConversor = CREATEOBJECT( 'c_conversor_prg_a_vcx' )
|
||||
.changeFileAttribute( FORCEEXT( .c_InputFile, 'VCX' ), lcForceAttribs )
|
||||
.changeFileAttribute( FORCEEXT( .c_InputFile, 'VCT' ), lcForceAttribs )
|
||||
@@ -10044,7 +10053,8 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
|
||||
TRY
|
||||
LOCAL lnCodError, laCodeLines(1), lnCodeLines, lcInputFile, lcInputFile_Class, lnFileCount, laFiles(1,5) ;
|
||||
, laLineasExclusion(1), lnBloquesExclusion, I, lcClassName, lnIDInputFile, llReplaceClass ;
|
||||
, laLineasExclusion(1), lnBloquesExclusion, I, lcClassName, lnIDInputFile, llReplaceClass, lnRow ;
|
||||
, loClase AS CL_CLASE OF 'FOXBIN2PRG.PRG' ;
|
||||
, loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
|
||||
|
||||
WITH THIS AS c_conversor_prg_a_vcx OF 'FOXBIN2PRG.PRG'
|
||||
@@ -10056,7 +10066,9 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
toModulo = CREATEOBJECT('CL_CLASSLIB')
|
||||
lnIDInputFile = toFoxBin2Prg.n_ProcessedFiles
|
||||
|
||||
IF toFoxBin2Prg.n_UseClassPerFile > 0 AND toFoxBin2Prg.l_RedirectClassPerFileToMain
|
||||
IF toFoxBin2Prg.n_UseClassPerFile > 0 AND toFoxBin2Prg.l_RedirectClassPerFileToMain ;
|
||||
AND EMPTY(toFoxBin2Prg.c_ClassToConvert)
|
||||
|
||||
IF toFoxBin2Prg.n_RedirectClassType = 0 && Redireccionar todas las clases
|
||||
C_FB2PRG_CODE = FILETOSTR( .c_InputFile )
|
||||
|
||||
@@ -10131,7 +10143,8 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
|
||||
lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE )
|
||||
ELSE
|
||||
*-- No es clase por archivo, o no se quiere redireccionar a Main.
|
||||
*-- No es clase por archivo, o no se quiere redireccionar a Main, o se usó
|
||||
*-- la sintaxis "classlib.vcx::classname::import"
|
||||
IF toFoxBin2Prg.l_ProcessFiles THEN
|
||||
C_FB2PRG_CODE = FILETOSTR( .c_InputFile )
|
||||
lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE )
|
||||
@@ -10173,9 +10186,25 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
toFoxBin2Prg.updateProcessedFile( lnIDInputFile )
|
||||
.updateProgressbar( loLang.C_GENERATING_BINARY_LOC + '...', 0, lnCodeLines, 1 )
|
||||
|
||||
IF toFoxBin2Prg.n_RedirectClassType = 1 && Redireccionar solo esta clase a main
|
||||
IF toFoxBin2Prg.n_RedirectClassType = 1 OR NOT EMPTY(toFoxBin2Prg.c_ClassToConvert) && Redireccionar solo esta clase a main
|
||||
llReplaceClass = .T.
|
||||
toFoxBin2Prg.c_OutputFile = FULLPATH( FORCEEXT( lcBaseFilename, 'VCX' ), .c_InputFile)
|
||||
|
||||
IF EMPTY(toFoxBin2Prg.c_ClassToConvert)
|
||||
toFoxBin2Prg.c_OutputFile = FULLPATH( FORCEEXT( lcBaseFilename, 'VCX' ), .c_InputFile)
|
||||
ELSE
|
||||
loClase = toModulo._Clases(1)
|
||||
* Ajusto el nombre interno de la clase al indicado en el nombre del archivo
|
||||
loClase._nombre = toFoxBin2Prg.c_ClassToConvert
|
||||
loClase._objname = toFoxBin2Prg.c_ClassToConvert
|
||||
* Reemplazo la propiedad Name
|
||||
lnRow = ASCAN(loClase._props, 'Name', 1, -1, 1, 2+4+8)
|
||||
IF lnRow > 0
|
||||
loClase._props(lnRow,2) = toFoxBin2Prg.c_ClassToConvert
|
||||
ENDIF
|
||||
* Y finalmente actualizo el memo
|
||||
loClase._PROPERTIES = .classProps2Memo( @loClase, @toFoxBin2Prg )
|
||||
ENDIF
|
||||
|
||||
toFoxBin2Prg.doBackup( .F., .T., '', '', '' )
|
||||
|
||||
IF ADIR( laFiles, toFoxBin2Prg.c_OutputFile, "", 1 ) = 1
|
||||
@@ -10201,6 +10230,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
|
||||
|
||||
FINALLY
|
||||
USE IN (SELECT("TABLABIN"))
|
||||
STORE NULL TO loClase
|
||||
RELEASE lnCodError, laCodeLines, lnCodeLines, lcInputFile, lcInputFile_Class, lnFileCount, laFiles ;
|
||||
, laLineasExclusion, lnBloquesExclusion, I
|
||||
ENDTRY
|
||||
@@ -15291,7 +15321,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
|
||||
WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG'
|
||||
USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG
|
||||
|
||||
IF toFoxBin2Prg.n_UseClassPerFile = 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
IF toFoxBin2Prg.n_UseClassPerFile = 0 AND EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
*-- Exportar la librería entera a texto
|
||||
SELECT _TABLAORIG.*,RECNO() regnum FROM _TABLAORIG INTO CURSOR TABLABIN
|
||||
ELSE
|
||||
@@ -15378,7 +15408,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
|
||||
|
||||
.write_CLASSMETADATA( @loRegClass, @lcCodigo )
|
||||
|
||||
IF toFoxBin2Prg.n_UseClassPerFile > 0 THEN
|
||||
IF toFoxBin2Prg.n_UseClassPerFile > 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
.write_EXTERNAL_CLASS_HEADER( @loRegClass, @toFoxBin2Prg, @lcExternalHeader )
|
||||
ENDIF
|
||||
|
||||
@@ -15551,8 +15581,15 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
|
||||
*toModulo = lcCodigo
|
||||
ELSE
|
||||
DO CASE
|
||||
CASE (toFoxBin2Prg.n_UseClassPerFile = 0 AND NOT EMPTY(toFoxBin2Prg.c_ClassToConvert)) && LibName.ClassName.SC2
|
||||
FOR I = 1 TO lnClassCount
|
||||
lcOutputFile = ADDBS( JUSTPATH( .c_OutputFile ) ) + JUSTSTEM( .c_OutputFile ) + '.' + laClasses(I,1) + '.' + JUSTEXT( .c_OutputFile )
|
||||
lcCodigo = toFoxBin2Prg.get_PROGRAM_HEADER() + laClasses(I,2)
|
||||
.write_OutputFile( @lcCodigo, lcOutputFile, @toFoxBin2Prg )
|
||||
ENDFOR
|
||||
|
||||
CASE toFoxBin2Prg.n_UseClassPerFile = 1 && LibName.ClassName.SC2
|
||||
IF toFoxBin2Prg.n_UseClassPerFile = 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
IF EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
.write_OutputFile( @lcCodigo, lcOutputFile, @toFoxBin2Prg )
|
||||
ENDIF
|
||||
|
||||
@@ -15563,7 +15600,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg
|
||||
ENDFOR
|
||||
|
||||
CASE toFoxBin2Prg.n_UseClassPerFile = 2 && LibName.BaseClass.ClassName.SC2
|
||||
IF toFoxBin2Prg.n_UseClassPerFile = 0 OR EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
IF EMPTY(toFoxBin2Prg.c_ClassToConvert) THEN
|
||||
.write_OutputFile( @lcCodigo, lcOutputFile, @toFoxBin2Prg )
|
||||
ENDIF
|
||||
|
||||
|
||||
Reference in New Issue
Block a user