%PRTRACE Trace PRTools routines%%	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.3 2006/12/19 12:10:06 duin Exp $function prtrace(message,level)	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 (~isstr(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	endreturn;