32 #ifndef __INDIRECT_ARRAY__
33 #define __INDIRECT_ARRAY__
37 template <class _Tp
> class indirect_array
40 typedef _Tp value_type
;
42 void operator= (const valarray
<_Tp
>&) const;
43 void operator*= (const valarray
<_Tp
>&) const;
44 void operator/= (const valarray
<_Tp
>&) const;
45 void operator%= (const valarray
<_Tp
>&) const;
46 void operator+= (const valarray
<_Tp
>&) const;
47 void operator-= (const valarray
<_Tp
>&) const;
48 void operator^= (const valarray
<_Tp
>&) const;
49 void operator&= (const valarray
<_Tp
>&) const;
50 void operator|= (const valarray
<_Tp
>&) const;
51 void operator<<= (const valarray
<_Tp
>&) const;
52 void operator>>= (const valarray
<_Tp
>&) const;
53 void operator= (const _Tp
&);
56 void operator= (const _Expr
<_Dom
, _Tp
>&) const;
58 void operator*= (const _Expr
<_Dom
, _Tp
>&) const;
60 void operator/= (const _Expr
<_Dom
, _Tp
>&) const;
62 void operator%= (const _Expr
<_Dom
, _Tp
>&) const;
64 void operator+= (const _Expr
<_Dom
, _Tp
>&) const;
66 void operator-= (const _Expr
<_Dom
, _Tp
>&) const;
68 void operator^= (const _Expr
<_Dom
, _Tp
>&) const;
70 void operator&= (const _Expr
<_Dom
, _Tp
>&) const;
72 void operator|= (const _Expr
<_Dom
, _Tp
>&) const;
74 void operator<<= (const _Expr
<_Dom
, _Tp
>&) const;
76 void operator>>= (const _Expr
<_Dom
, _Tp
>&) const;
79 indirect_array (const indirect_array
&);
80 indirect_array (_Array
<_Tp
>, size_t, _Array
<size_t>);
82 friend class valarray
<_Tp
>;
83 friend class gslice_array
<_Tp
>;
86 const _Array
<size_t> _M_index
;
87 const _Array
<_Tp
> _M_array
;
91 indirect_array
& operator= (const indirect_array
&);
94 template<typename _Tp
>
95 inline indirect_array
<_Tp
>::indirect_array(const indirect_array
<_Tp
>& __a
)
96 : _M_sz (__a
._M_sz
), _M_index (__a
._M_index
),
97 _M_array (__a
._M_array
) {}
99 template<typename _Tp
>
101 indirect_array
<_Tp
>::indirect_array (_Array
<_Tp
> __a
, size_t __s
,
103 : _M_sz (__s
), _M_index (__i
), _M_array (__a
) {}
106 template<typename _Tp
>
108 indirect_array
<_Tp
>::operator= (const _Tp
& __t
)
109 { __valarray_fill(_M_array
, _M_index
, _M_sz
, __t
); }
111 template<typename _Tp
>
113 indirect_array
<_Tp
>::operator= (const valarray
<_Tp
>& __v
) const
114 { __valarray_copy (_Array
<_Tp
> (__v
), _M_sz
, _M_array
, _M_index
); }
116 template<typename _Tp
>
119 indirect_array
<_Tp
>::operator= (const _Expr
<_Dom
,_Tp
>& __e
) const
120 { __valarray_copy (__e
, _M_sz
, _M_array
, _M_index
); }
122 #undef _DEFINE_VALARRAY_OPERATOR
123 #define _DEFINE_VALARRAY_OPERATOR(op, name) \
124 template<typename _Tp> \
126 indirect_array<_Tp>::operator##op##= (const valarray<_Tp>& __v) const \
128 _Array_augmented_##name (_M_array, _M_index, _Array<_Tp> (__v), _M_sz); \
131 template<typename _Tp> template<class _Dom> \
133 indirect_array<_Tp>::operator##op##= (const _Expr<_Dom,_Tp>& __e) const \
135 _Array_augmented_##name (_M_array, _M_index, __e, _M_sz); \
138 _DEFINE_VALARRAY_OPERATOR(*, multiplies
)
139 _DEFINE_VALARRAY_OPERATOR(/, divides
)
140 _DEFINE_VALARRAY_OPERATOR(%, modulus
)
141 _DEFINE_VALARRAY_OPERATOR(+, plus
)
142 _DEFINE_VALARRAY_OPERATOR(-, minus
)
143 _DEFINE_VALARRAY_OPERATOR(^, xor)
144 _DEFINE_VALARRAY_OPERATOR(&, and)
145 _DEFINE_VALARRAY_OPERATOR(|, or)
146 _DEFINE_VALARRAY_OPERATOR(<<, shift_left
)
147 _DEFINE_VALARRAY_OPERATOR(>>, shift_right
)
149 #undef _DEFINE_VALARRAY_OPERATOR