1 // The template and inlines for the -*- C++ -*- gslice class.
3 // Copyright (C) 1997-1999 Cygnus Solutions
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 2, or (at your option)
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // You should have received a copy of the GNU General Public License along
17 // with this library; see the file COPYING. If not, write to the Free
18 // Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307,
21 // As a special exception, you may use this file as part of a free software
22 // library without restriction. Specifically, if other files instantiate
23 // templates or use macros or inline functions from this file, or you compile
24 // this file and link it with other files to produce an executable, this
25 // file does not by itself cause the resulting executable to be covered by
26 // the GNU General Public License. This exception does not however
27 // invalidate any other reasons why the executable file might be covered by
28 // the GNU General Public License.
30 // Written by Gabriel Dos Reis <Gabriel.Dos-Reis@DPTMaths.ENS-Cachan.Fr>
40 valarray
<size_t> _M_size
;
41 valarray
<size_t> _M_stride
;
42 valarray
<size_t> _M_index
;
43 _Indexer(size_t, const valarray
<size_t>&, const valarray
<size_t>&);
44 void _M_increment_use() { ++_M_count
; }
45 size_t _M_decrement_use() { return --_M_count
; }
53 gslice (size_t, const valarray
<size_t>&, const valarray
<size_t>&);
54 gslice(const gslice
&);
57 gslice
& operator= (const gslice
&);
58 size_t start () const;
59 valarray
<size_t> size () const;
60 valarray
<size_t> stride () const;
65 template<typename _Tp
> friend class valarray
;
69 gslice::start () const
70 { return _M_index
? _M_index
->_M_start
: 0; }
72 inline valarray
<size_t>
74 { return _M_index
? _M_index
->_M_size
: valarray
<size_t>(); }
76 inline valarray
<size_t>
77 gslice::stride () const
78 { return _M_index
? _M_index
->_M_stride
: valarray
<size_t>(); }
80 inline gslice::gslice () : _M_index(0) {}
83 gslice::gslice(size_t __o
, const valarray
<size_t>& __l
,
84 const valarray
<size_t>& __s
)
85 : _M_index(new _Indexer(__o
, __l
, __s
)) {}
88 gslice::gslice(const gslice
& __g
) : _M_index(__g
._M_index
)
89 { if (_M_index
) _M_index
->_M_increment_use(); }
93 { if (_M_index
&& _M_index
->_M_decrement_use() == 0) delete _M_index
; }
96 gslice::operator= (const gslice
& __g
)
98 if (__g
._M_index
) __g
._M_index
->_M_increment_use();
99 if (_M_index
&& _M_index
->_M_decrement_use() == 0) delete _M_index
;
100 _M_index
= __g
._M_index
;