| 26 | namespace sugar{ |
| 27 | |
| 28 | class SeqLen : public VectorBase< INTSXP,false,SeqLen > { |
| 29 | public: |
| 30 | SeqLen( R_xlen_t len_ ) : len(len_){} |
| 31 | |
| 32 | inline R_xlen_t operator[]( R_xlen_t i ) const { |
| 33 | return 1 + i ; |
| 34 | } |
| 35 | inline R_xlen_t size() const { return len ; } |
| 36 | |
| 37 | private: |
| 38 | R_xlen_t len ; |
| 39 | } ; |
| 40 | |
| 41 | } // sugar |
| 42 |