diff matlab/db/dbload.m @ 0:0dd31a8c66bd

Initial check in to Mercurial, V.1
author samer
date Fri, 13 Jan 2012 15:29:02 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/matlab/db/dbload.m	Fri Jan 13 15:29:02 2012 +0000
@@ -0,0 +1,13 @@
+% dbload - Load value from given matbase locator
+%
+% dbload :: locator(A) -> A.
+
+% SA: 2008-06 - much simplified by using functional form of load
+function x=dbload(loc)
+	n=strfind(loc,'|');
+
+	if n>1, 
+		x=getfield(load(fullfile(dbroot,loc(1:n-1))),loc(n+1:end));
+	else
+		error('dbload:badlocator',sprintf('%s is not a valid locator',loc));
+	end