Pasted

function TotallyNotTheRightName(varargin)
 
     if nargin >= 2
          
          TargetFile     = varargin{1};
          BreakStr       = varargin{2};
          
                   
     elseif nargin == 1
          
          if isempty(strfind(varargin{1},';'))
          
               TargetFile     = varargin{1};
               BreakStr       = 'x = 1;';   
 
          else
 
               BreakStr       = varargin{1};
               StackList      = dbstack;
               TargetFile     = StackList(2).file;
 
          end
          
     else 
          
          BreakStr       = 'x = 1;';
          StackList      = dbstack;
          TargetFile     = StackList(2).file;
          
          
     end
     
     BreakLines     = [];     
     
     FileID         = fopen(TargetFile,'r');
 
     NewLine        = fgetl(FileID);
     LineNum        = 1;
 
     while ischar(NewLine)
          
          if isempty(strfind(NewLine,'ActivateBreakpoints')) &&...
             ~isempty(strfind(NewLine,BreakStr)) &&...
             isempty(strfind(NewLine,char(37)))
               
               BreakLines(end+1) = LineNum;
               
          end
          
          LineNum = LineNum + 1;
          NewLine = fgetl(FileID);
          
     end
     
     fclose(FileID);
     
     for i = 1:numel(BreakLines)
          
          evalin('caller',sprintf('dbstop in %s at %g\n',TargetFile,BreakLines(i)));
          
     end
     
end