run.m File Reference

Functions
function	run (s) if(nargin!
	if (!isempty(d)) if(exist(d
	rethrow (lasterror())")
unwind_protect_cleanup	cd (wd)
end_unwind_protect else	error ("run: the path %s doesn't exist", d)
endif else	if (exist(f,"file")) evalin("caller"
else	error ("run: %s not found", s)
Variables
	endif [d, f, ext] = fileparts (s)
dir	wd = pwd ()
unwind_protect	cd (d)
	if (!exist(f,"file")||!strcmp(ext,".m")) error("run

---

Function Documentation

unwind_protect_cleanup cd

(

wd

)

else error	(	"run: %s not found"	,
		s
	)

end_unwind_protect else error	(	"run: the path %s doesn't exist"	,
		d
	)

endif else if

(

exist(f,"file")

)

if

(

!

isemptyd

)

endif else rethrow

(

lasterror()

)

Type Constraints

function run

(

s

)

---

Variable Documentation

unwind_protect cd(d)

endif[d, f, ext] = fileparts (s)

if(!exist(f,"file")||!strcmp(ext,".m")) error("run

dir wd = pwd ()