filesep extension

[Jaroslav Hajek]

On Wed, Nov 12, 2008 at 11:37 AM, Michael Goffioul
<michael.goffioul at gmail.com> wrote:
> On Tue, Nov 11, 2008 at 6:28 PM, Jaroslav Hajek <highegg at gmail.com> wrote:
>> It seems I tried an ugly trick that wouldn't work. So here's a
>> hopefully working version:
>>
>>  function varargout = strchr (str, chars, varargin)
>>  if (nargin < 2 || ! ischar (str) || ! ischar (chars))
>>   print_usage ();
>>  endif
>>  f = false (1, 256);
>>  f(chars+1) = true;
>>  varargout = cell (1, nargout);
>>  varagout{1} = [];
>>  [varargout{:}] = find (reshape (f(str+1), size (str)), varargin{:});
>> endfunction
>
> I like this one. Why do you need to reshape?

If f and str happen to be both vectors, f(str+1) will inherit the
orientation of f rather than str. In all other cases, the reshape
operation does nothing.

> How about commiting?

OK. There is still a correction to be made to make the 3rd output
argument (if present) what one wants it to be - a char array rather
than a logical array.
I'll commit a changeset.

>
> Michael.
>



-- 
RNDr. Jaroslav Hajek
computing expert
Aeronautical Research and Test Institute (VZLU)
Prague, Czech Republic
url: www.highegg.matfyz.cz