*! 28oct2010
program cdl 
version 11.1

mata: DoIt()
end

version 11.1
mata:
void DoIt() {
	class prefs scalar pr
	
	path=st_local("0")
	if (path=="") {
		pr.make("recentfiles","path")
		if (!pr.r) errel("There is no CURRENT FILE to reference")
		else path=pp1(pr.body[pr.r])
		}
	pr.make("recentdirs","path")
	if (mark=strpos(path,"<")) {
		m=strtoreal(substr(path,mark+1))
		if (!missing(m) & m<pr.r) path=pr.body[pr.r-m]
		else path=""
		}
	path=pp1(pcanon(path,"dir"))
	//bug: stata doesn't update status bar from chdir, so might as well use stata(cd) for all
	stata(sprintf(`"cd "%s""',path))
	if (subvec(pr.body,(-1,.))!=path) pr.body=subvec((pr.body\path),(pr.r==recentmax(),.))
	pr.write()
	}

end