%PRTRACE Trace PRTools routines
%
% Routine is outdated and will directly return
%
%	PRTRACE ON              Tracing of the PRTools routines is switched on
% PRTRACE OFF             Tracing of the PRTools routines is switched off
%	PRTRACE(MESSAGE,LEVEL)  
%
% INPUT
%   MESSAGE  String 
%   LEVEL    Trace level (optional; default: 1/0 if PRTRACE is ON/OFF)   
%
% DESCRIPTION
% Note that PRTRACE describes both a global variable (ON/OFF) and a function.
% If PRTRACE is ON, each access to each PRTools routine is reported. 
% Additional trace messages may be added by PRTRACE(MESSAGE) in which MESSAGE
% is a string, listed when the command is encountered and PRTRACE is ON. The 
% standard MESSAGE is the name of the executing m-file (MFILENAME).
%
%	PRTRACE(MESSAGE,LEVEL) lists the traced message above some level. If 
% PRTRACE is switched ON, the trace-level is increased by one. Only 
% if LEVEL >= trace-level, MESSAGE is displayed. If PRTRACE is switched 
% OFF, the trace-level is reset to 0. For all main routines of PRTools, 
% LEVEL is set to 1. All basic routines defining MAPPINGS and DATASETS 
% (except for MAPPING and DATASET themselves) have the trace-level of 2.

% Copyright: R.P.W. Duin, duin@ph.tn.tudelft.nl
% Faculty of Applied Sciences, Delft University of Technology
% P.O. Box 5046, 2600 GA Delft, The Netherlands

% $Id: prtrace.m,v 1.4 2008/07/28 09:02:30 duin Exp $

function prtrace(message,level)

return
% 	persistent PRTRACEGLOBAL
% 
% 	% If PRTRACEGLOBAL was not defined, do it now.
% 	if isempty(PRTRACEGLOBAL)
% 		PRTRACEGLOBAL = 0;
% 		dataset;   % make sure that PRTools is activated
% 	end
% 
% 	% Check the input arguments.
% 	if (nargin == 0)
% 		;
% 	elseif (~ischar(message))
% 		error('No MESSAGE string found.')
% 	else
% 		% Depending on message, we should turn the messaging ON or OFF, or we
% 		% have to increase the trace-level and show the message when the
% 		% trace-level is high enough.
% 
% 		switch message
% 		case {'on','ON'}
% 			PRTRACEGLOBAL = PRTRACEGLOBAL+1;
% 		case {'off','OFF'}
% 			PRTRACEGLOBAL = 0;
% 		otherwise
% 			if (PRTRACEGLOBAL)
% 				if (nargin == 1) 
% 					level = 1;
% 				end
% 		 		if (PRTRACEGLOBAL >= level)
% 					disp(message);
% 				end
% 			end
% 		end
% 	end
% 
% return;
