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,32 +1,6 @@
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_Config.cfg TO FoxBin2Prg.cfg
*Create config templates
*!* DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt",FULLPATH("","")+"Create_FoxBin2Prg.cfg"
*!* DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbc.txt",FULLPATH("","")+"Create_FoxBin2Prg.cfg"
DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt"
DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbc.txt"
DO FoxBin2Prg.prg WITH "-c","foxbin2prg.cfg.txt",FULLPATH("Create_FoxBin2Prg.cfg","")
DO FoxBin2Prg.prg WITH "-t","foxbin2prg.dbc.txt",FULLPATH("Create_FoxBin2Prg.cfg","")
*Create all FoxBin2Prg files to there text to commit them
DELETE FILE FoxBin2Prg.cfg
COPY FILE Create_FoxBin2Prg.cfg TO FoxBin2Prg.cfg
*!* DO FOXBIN2PRG.PRG WITH JUSTPATH(FULLPATH("","")),"Bin2Prg",,,,,,,,,FULLPATH("","")+"Create_FoxBin2Prg.cfg"
DO FOXBIN2PRG.PRG WITH JUSTPATH(FULLPATH("","")),"Bin2Prg"
DELETE FILE FoxBin2Prg.cfg
IF m.llReplace THEN
RENAME xFoxBin2Prg.cfg TO FoxBin2Prg.cfg
ENDIF &&llReplace
*create binaries
DO FOXBIN2PRG.PRG WITH JUSTPATH(FULLPATH("","")),"Bin2Prg",,,,,,,,,FULLPATH("Create_FoxBin2Prg.cfg","")