#TEMPLATE(ClarionXTemplates,'ClarionX Dev Tools 1.0')
#EXTENSION(ClarionXGlobal,'ClarionX Dev Tools 1.0 Global'),APPLICATION
 #DISPLAY('ClarionX Dev Tools are Enabled'),AT(10,,,)
 #PROMPT('Generate Include File ' & %Application & '.inc',CHECK),%GenerateAppIncludeFile,DEFAULT(1),AT(10,20,,)
 #PROMPT('Generate TXA File ' & %Application & '.txa',CHECK),%GenerateTxaFile,DEFAULT(0),AT(10,30,,)
 #PROMPT('Generate TXD File ' & %Application & '.txd',CHECK),%GenerateTxdFile,DEFAULT(0),AT(10,40,,)
 #PROMPT('Auto Backup eg. TXA ' & %Application & '_yyyymmdd_hhmmss.txa',CHECK),%AutoBackups,DEFAULT(1),AT(10,50,,)

#ATSTART

#IF (%GenerateAppIncludeFile = 1)
#MESSAGE('ClarionX- INC Generator',0)
#MESSAGE('Generating INC File',1)
#MESSAGE('',2)
#MESSAGE('',3)
#DECLARE(%AppIncludeFile)
#SET(%AppIncludeFile,%Application & '.inc')
#CREATE(%AppIncludeFile)
#FOR(%Procedure),WHERE(%ProcedureExported = 1)
  %(%Procedure & %Prototype)
#ENDFOR
#CLOSE(%AppIncludeFile)
#ENDIF

#IF (%GenerateTxaFile = 1)
#MESSAGE('ClarionX - TXA Generator',0)
#MESSAGE('Generating TXA File',1)
#MESSAGE('',2)
#MESSAGE('',3)
#DECLARE(%TxaFile)
#SET(%TxaFile,%Application & '.txa')
#CREATE(%TxaFile)
#EXPORT
#CLOSE(%TxaFile)
#ENDIF
#IF (%GenerateTxdFile = 1)
#MESSAGE('ClarionX - TXD Generator',0)
#MESSAGE('Generating TXD File',1)
#MESSAGE('',2)
#MESSAGE('',3)
#DECLARE(%TxdFile)
#SET(%TxdFile,%Application & '.txd')
#CREATE(%TxdFile)
#MESSAGE('Exporting Dictionary...',2)
#EXPORT(%DictionaryFile)
#CLOSE(%TxdFile)
#ENDIF
#ENDAT
#ATEND

#IF (%AutoBackups = 1)
#MESSAGE('ClarionX - Auto Backups',0)
#MESSAGE('Generating Backup File',1)
#MESSAGE('',2)
#MESSAGE('',3)
#DECLARE(%BackupFile)
#SET(%BackupFile,%Application & '_' & CLIP(FORMAT(%ProgramDateChanged,@d12)) & '_' & CLIP(FORMAT(%ProgramTimeChanged,@t5))&'.txa')
#CREATE(%BackupFile)
#MESSAGE('Backing Up Program Settings...',2)
#EXPORT
#CLOSE(%BackupFile)
#ENDIF
#ENDAT