Changeset 820 for trunk/src/@xmltree/private/xml_findstr.m

Timestamp:

Oct 8, 2014, 8:51:12 PM (10 years ago)

Author:

sommeria

Message:

xmltree_updated

File:

• trunk/src/@xmltree/private/xml_findstr.m (modified) (1 diff)

trunk/src/@xmltree/private/xml_findstr.m

@@ -20 +20 @@
 %
 %   See also STRFIND, FINDSTR
+%_______________________________________________________________________
+% Copyright (C) 2002-2008  http://www.artefact.tk/
 
-%   Guillaume Flandin
-%   Copyright 2002 INRIA Sophia Antipolis
-%   $Revision: 1.0 $  $Date: 2002/04/10 22:50:32 $
-%   Implemented in a MATLAB mex file.
+% Guillaume Flandin <guillaume@artefact.tk>
+% $Id: xml_findstr.m 2271 2008-09-30 21:19:47Z guillaume $
 
-error(sprintf('Missing MEX-file: %s', mfilename));
+%error(sprintf('Missing MEX-file: %s', mfilename));
+
+persistent runonce
+if isempty(runonce)
+    warning(sprintf(['xml_findstr is not compiled for your platform.\n'...
+    'This will result in a slowdown of the XML parsing.']));
+    runonce = 1;
+end
+
+% k = regexp(s(i:end),p,'once') + i - 1;
+if nargin < 3, i = 1;   end
+if nargin < 4, n = Inf; end
+j = strfind(s,p);
+k = j(j>=i);
+if ~isempty(k), k = k(1:min(n,length(k))); end