SVN (Subversion) Update

Function SVNUpdate()
	DoAlert 1,"Close all procedure files, update, and reload them?  Unsaved changes to procedure files will be lost."
	Variable i
	if(V_flag==1)		
                String cmdList=CloseAllProcs(exec=0); // Generate a list of procedure closing commands.  For some reason directly executing CloseAllProcs(exec=1) in the execute queue doesn't work correctly.  
		for(i=0;i<ItemsInList(cmdList);i+=1)
			String cmd=StringFromList(i,cmdList)
			Execute /Q/P cmd // Execute each procedure closing.  
		endfor
		cmd="TortoiseProc /command:update /path:"
		String codePath="C:Documents and Settings:rick:Application Data:Wavemetrics:Igor Pro 6:Packages:Code"
		NewPath /O/Q CodePath, codePath
		Execute /Q/P "ExecuteScriptText /B/Z \""+cmd+"\\\""+codePath+"\\\"\"" // Run the SVN update.  Extra slashes needed to escape the quotes in the command.  
		Execute /Q/P "OpenProc /P=CodePath /V=1 \"Master.ipf\"" // Assume that master.ipf will #include the other procedure files.  
		Execute /Q/P "Silent 101" // Recompile.  
	endif
End

Function /S CloseAllProcs([except,exec])
	String except
	Variable exec
	
	if(ParamIsDefault(except))
		except=""
	endif
	exec=ParamIsDefault(exec) ? 1 : exec
	Execute /Q "SetIgorOption IndependentModuleDev=1"
	String currProcs=WinList("*",";","WIN:128,INDEPENDENTMODULE:1")
	Variable i=0
	String cmdList=""
	for(i=0;i<ItemsInList(currProcs);i+=1)
		String procName=StringFromList(i,currProcs)
		Variable pos=strsearch(procName,"[",0)
		if(pos>=0) // If this has an independent module name. 
			procName=procName[0,pos-2]// Truncate it to be compatible with CloseProc.  
		endif
		if(WhichListItem(except,procName)>=0)
			continue // Do not close procedures on the except list.  
		endif
		if(StringMatch(procName,"Procedure"))
			continue // Do not close experiment procedure file.  
		endif
		
		String cmd
		sprintf cmd, "CloseProc /NAME=\"%s\"",procName
		if(exec)
			Execute /Q/P cmd
		endif
		cmdList+=cmd+";"
	endfor
	Execute /Q "SetIgorOption independentModuleDev=0"
	if(exec)
		Execute /Q/P "Silent 101"
	endif
	return cmdList
End