OpenEuphoria

1. Judith's EuIDE : A Change Request

• Posted by Rad Feb 16, 2009
• 835 views

Hi All,

Is anybody maintaining Judith's EuIDE?

One change suggested regarding the options for backup files:

Though the Backup directory can be defined, currently only "Back Project before save" option is using it for saving .bak files.

The option "Backup Project after MenuRun when no errors" does not make use of this path, storing the .bak files in the present directory.

I modified the IDE.exw file as follows (in sync with "before save" option) to use backup directory for "after MenuRun with no errors" option:

-- 
procedure click_MenuRun(integer Self, integer Event, sequence Params) 
integer at 
sequence fName 
 
--rad start 2009-02-16 
sequence budate 
--rad end 2009-02-16 
 
    -- save it, if it needs saving... 
    -- if project has not been saved then force a temporary run 
    if not length( openFileName ) then 
        ok=invokeHandler(MenuRunTemp, w32HClick,{}) 
		return 
	else 
        ok=invokeHandler(MenuSave, w32HClick, {}) 
        if StopRun then 
        	showWindow(Controls, SW_RESTORE) 
        	if CodeWinOpen then 
    			setFocus (CodeWin) 
    		end if 
        	return 
    	end if 
	end if 
 
	--    AFD: to try and stop freeze at F5 or MenuRun click 
    for i=1 to 1000 do 
        doEvents(0) 
    end for 
	--    End AFD 
 
    actualMenuRun(openFileName, w32False) 
 
    if atom( err ) then 
    	--there was no ex.err or crash file 
	    if isChecked( MenuBackupAfterSave ) then 
	        --copy file to 'after save' backup 
	        shortName=reverse(shortName) 
    		at=match(".", shortName) 
		    if at then 
		        backup=shortName[at+1..length(shortName)] 
		        backup=reverse(backup) 
		    end if 
		    shortName=reverse(shortName) 
	        backup &= ".AfterSave.bak" 
	        if isChecked(ReuseBak2File) then 
--rad start 2009-02-16 
--	        fName=pathName & backup 
	      		fName=pathName & getText(BackupFolderName) & "\\" & backup 
--rad end 2009-02-16 
	        else 
--rad start 2009-02-16 
--	        fName = getSaveFileName ( Form, pathName & backup, {IDEText[1098][1],".bak"} )--"Backup After Project Good Run" 
	        	budate = date() 
    	    	budate[1] += 1900 
        		budate = sprintf(".%04d-%02d-%02d.%02d-%02d-%02d",budate) 
        		fName = pathName & getText(BackupFolderName) & "\\" & backup & budate 
--rad end 2009-02-16 
        	end if 
        	if length(fName) then 
	        	ok=copyFile ( pathName & copyName, fName, w32False ) 
				if not ok then 
	            	ok=displayErrorMessage(9,{pathName & copyName,fName}) 
	        	end if 
		    end if 
		    if CodeWinOpen then 
    			setFocus (CodeWin) 
    		end if 
		end if 
	end if 
 
end procedure 
setHandler({MenuRun,ToolRun}, w32HClick, routine_id( "click_MenuRun" )) 
-- 

A small change, if incorporated in IDE code, it can segregate backup files in a single directory.

Thanks & Regards, Rad.