Enhancement to config

Stuff mainly to adress run regeneration of FoxBin2Prg out of itself
This commit is contained in:
Lutz
2023-08-30 22:06:51 +02:00
parent 8c9d7e37a5
commit af6db043ed
16 changed files with 807 additions and 34104 deletions

View File

@@ -1,20 +1,6 @@
*ReCreate all FoxBin2Prg files from there text representation and compile
LOCAL ARRAY;
laDir[1]
LOCAL;
llReplace
IF ADIR(laDir,'FoxBin2Prg.cfg')>0 THEN
DELETE FILE xFoxBin2Prg.cfg
RENAME FoxBin2Prg.cfg TO xFoxBin2Prg.cfg
llReplace = .T.
ENDIF &&ADIR(laDir,,'FoxBin2Prg.cfg')>0
COPY FILE Create_FoxBin2Prg.cfg TO FoxBin2Prg.cfg
*!* DO FoxBin2Prg.PRG WITH JUSTPATH(FULLPATH("","")),"Prg2Bin",,,,,,,,,FULLPATH("","")+"Create_FoxBin2Prg.cfg"
DO FoxBin2Prg.PRG WITH JUSTPATH(FULLPATH("","")),"Prg2Bin"
DO FoxBin2Prg.PRG WITH JUSTPATH(FULLPATH("","")),"Prg2Bin",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","")
BUILD PROJECT FoxBin2Prg.EXE FROM FoxBin2Prg.pjx RECOMPILE
@@ -27,7 +13,3 @@ BUILD PROJECT FileName_Caps.EXE FROM FileName_Caps.pjx RECOMPILE
COPY FILE FileName_Caps.EXE TO ..\FileName_Caps.EXE
CD ..
DELETE FILE FoxBin2Prg.cfg
IF m.llReplace THEN
RENAME xFoxBin2Prg.cfg TO FoxBin2Prg.cfg
ENDIF &&llReplace