valarray.cpp

Go to the documentation of this file.

 
#define _RWSTD_LIB_SRC
 
#include <valarray>
#include <string.h>   // for memset()
 
#include <rw/_defs.h>
 
 
_RWSTD_NAMESPACE (std) { 
 
 
_RWSTD_SIZE_T gslice::next_ind ()
{
    _RWSTD_SIZE_T __n = _C_length.size ();
 
    for (; __n; --__n)
    {
        if (   _C_length [__n - 1]
            && _C_r_length [__n - 1] != _C_length [__n - 1] - 1)
            break;
    }
 
    if (0 == __n) {
        _C_reset    = true;
        _C_r_length = 0;
        return _C_start;
    }
     
    if (_C_reset) {
        _C_reset = false;
        return _C_start;
    }
 
    _RWSTD_ASSERT (0 < __n);
 
    ++_C_r_length [__n - 1];
 
    if (__n < _C_r_length.size ())
        ::memset (&_C_r_length [__n], 0,
                  (_C_r_length.size () - __n) * sizeof _C_r_length [__n]);
    else
        __n = _C_r_length.size ();
 
    _RWSTD_SIZE_T __inx = _C_start;
    for (_RWSTD_SIZE_T __i = 0; __i != __n; ++__i)
        __inx += _C_r_length [__i] * _C_stride [__i];
 
    return __inx;
}
 
}   // namespace std