vfpx / beautify Goto Github PK

LPARAMETERS m.inFile, m.options
*m.options is something special and cannot be read by me - nor can we pass it manually. It has to be passed by the Beautify dialog box from the VFP Menu
IF VARTYPE(inFile) = "L"  
	=MESSAGEBOX("No filename passed to beautify",65,"Beautify Settings")
ENDIF 

LOCAL llCalledManually
LOCAL gnFile,gnSize,gnPath
gnPath = JUSTPATH(SYS(16)) &&path of beautify.prg - Store/Retrieve the beautify.settings here
gnPath = ADDBS(gnPath)
IF VARTYPE(options) = "L"  or VARTYPE(inFile) = "L"
	*This program has been called manually but parameters are missing. I will make use of the
	*previously stored beautify.settings
	IF !FILE(gnpath+"beautify.settings")
		=MESSAGEBOX("Beautify Settings not found"+CHR(13)+CHR(13)+;
					"1. Change the file location for  Beautify (Tools,Options,File Location) to the beautify.prg which you have downloaded from github.com/VFPX/Beautify/tree/master/beautify"+CHR(13)+CHR(13)+;
					"2. Open any prg file and run Beautify from Tools"+CHR(13)+CHR(13)+;
					"3. Select your favourite settings and click on Run"+CHR(13)+CHR(13)+;
					"This will create the beautify settings file",64,"Beautify Settings")
		RETURN 
	ELSE 
		gnFile= FOPEN(gnpath+"beautify.settings",12)
		gnSize= FSEEK(gnFile, 0, 2)
		=FSEEK(gnFile, 0, 0) && Move pointer to BOF
		m.options = FREAD(gnFile, gnSize)
		=FCLOSE(gnFile)
		llCalledManually = .T.
	ENDIF 	
ELSE
	*This is being called by the Menu item, so the m.options is properly filled
	*store the options parameter in a local file using low level file functions
	*I can use this file when I am calling the beautify manually
	gnFile = FCREATE(gnpath+"beautify.settings")
	=FWRITE(gnFile , m.options)
	=FCLOSE(gnFile)
ENDIF	
RELEASE gnFile,gnSize,gnPath

IF llCalledManually 
	LOCAL oldsafety
	IF SET("SAFETY") = "ON"
		SET SAFETY OFF
		m.oldsafety= "ON"
	ELSE
		m.oldsafety = "OFF"
	ENDIF
	SET SAFETY OFF
	&&replace the original file with the formatted file
	TRY 
		COPY FILE (retval) TO (infile)
	CATCH
		=MESSAGEBOX("Could not store the formatted file!. File is open?",64,"Beautify")
	ENDTRY	
	SET SAFETY &oldsafety
	RETURN
ELSE
	RETURN (m.retVal)	&& output file name
ENDIF