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

4
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG"
_MajorVer = "1"
_MinorVer = "19"
_Revision = " 207"
_Revision = " 208"
_LanguageID = "1034"
_AutoIncrement = "1"
*</DevInfo>
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144431831" ID="1130644423" ObjRev="544" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144481002" ID="1130644423" ObjRev="544" />
*</BuildProj>
.ITEM('__newproject.f2b').Remove()

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

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