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

Changeset: 141 v1.19.4

Browse Source 
- Encapsulada la recompilación de binarios según la extensión en nuevo método compileFoxProBinary()
This commit is contained in:
fernando
2014-01-23 12:44:50 +01:00
parent a5a866df3c
commit 31cd7c999f
4 changed files with 33 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
foxbin2prg.prg
View File

@@ -343,6 +343,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
+ [<memberdata name="c_pj2" display="c_PJ2"/>] ;
+ [<memberdata name="c_sc2" display="c_SC2"/>] ;
+ [<memberdata name="c_vc2" display="c_VC2"/>] ;
+ [<memberdata name="compilefoxprobinary" display="compileFoxProBinary"/>] ;
+ [<memberdata name="dobackup" display="doBackup"/>] ;
+ [<memberdata name="ejecutar" display="Ejecutar"/>] ;
+ [<memberdata name="exception2str" display="Exception2Str"/>] ;
@@ -434,6 +435,32 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDPROC
PROCEDURE compileFoxProBinary
LPARAMETERS tcFilename
LOCAL lcType
tcFilename = EVL(tcFilename, THIS.c_OutputFile)
lcType = UPPER(JUSTEXT(tcFilename))
DO CASE
CASE lcType = 'VCX'
COMPILE CLASSLIB (tcFilename)
CASE lcType = 'SCX'
COMPILE FORM (tcFilename)
CASE lcType = 'FRX'
COMPILE REPORT (tcFilename)
CASE lcType = 'LBX'
COMPILE LABEL (tcFilename)
CASE lcType = 'DBC'
COMPILE DATABASE (tcFilename)
ENDCASE
ENDPROC
PROCEDURE doBackup
*---------------------------------------------------------------------------------------------------
* PAR<41>METROS: (!=Obligatorio | ?=Opcional) (@=Pasar por referencia | v=Pasar por valor) (IN/OUT)
@@ -4328,7 +4355,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
COMPILE CLASSLIB (THIS.c_OutputFile)
toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -4610,7 +4637,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
COMPILE FORM (THIS.c_OutputFile)
toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -5482,11 +5509,7 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin
USE IN (SELECT("TABLABIN"))
IF toFoxbin2prg.l_Recompile
IF THIS.c_Type = 'FRX'
COMPILE REPORT (THIS.c_OutputFile)
ELSE
COMPILE LABEL (THIS.c_OutputFile)
ENDIF
toFoxbin2prg.compileFoxProBinary()
ENDIF
@@ -6113,7 +6136,7 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
toDatabase.updateDBC( THIS.c_OutputFile )
IF toFoxbin2prg.l_Recompile
COMPILE DATABASE (THIS.c_OutputFile)
toFoxbin2prg.compileFoxProBinary()
ENDIF