function name = machineName
%name = machineName
%
%  Returns the name of the hard disk of the current Mac
%  (i.e. 'Ochre') by returning the characters of the path 
%  up to the first colon (':').

%18-Dec-1997 gmb  Wrote it.

thePath = path;
colonPos = findstr(thePath,':');
if ~isempty(colonPos)
	name = thePath(1:colonPos(1)-1);
else
	disp(['Warning: Unable to find a colon (:) in path.']);
	name  = '';
end	
