vw->stride = isSub ? Slice_stride(slc) : Slice_stride(slc)*vec->stride; vecv->ref = vec; return vw; } // ----- view constructors defalias (OBJ, (ginitWith2)gnewWith2, mView, T, Slice); defmethod(OBJ, ginitWith2 , mView, T, Slice) // vector view retmethod(ginitWith3(galloc(TV),_2,_3,aInt(NO))); endmethod defalias (OBJ, (ginitWith2)gnewWith2, mView, T, Range); defmethod(OBJ, ginitWith2 , mView, T, Range) // vector view struct Slice *slice = Slice_fromRange(atSlice(0), self3, &self2->size); retmethod(ginitWith3(galloc(TV),_2,(OBJ)slice,aInt(NO))); endmethod defalias (OBJ, (ginitWith2)gnewWith2, mSubView, T, Slice); defmethod(OBJ, ginitWith2 , mSubView, T, Slice) // vector view retmethod(ginitWith3(galloc(TW),_2,_3,aInt(YES))); endmethod defalias (OBJ, (ginitWith2)gnewWith2, mSubView, T, Range); defmethod(OBJ, ginitWith2 , mSubView, T, Range) // vector view struct Slice *slice = Slice_fromRange(atSlice(0), self3, &self2->size); retmethod(ginitWith3(galloc(TW),_2,(OBJ)slice,aInt(YES))); endmethod
void ut_slice(void) { useclass(Slice); UTEST_START("Slice") // equality and default args UTEST( Slice_isEqual(atSlice(10) , atSlice(0,10, 1)) ); UTEST( Slice_isEqual(atSlice(0,10), atSlice(0,10, 1)) ); UTEST(!Slice_isEqual(atSlice(0,10), atSlice(0,10,-1)) ); UTEST( Slice_isEqual(atSlice(0,10), atSlice(0,10, 0)) ); UTEST( gisEqual(aSlice(10) , aSlice(0,10, 1)) == True ); UTEST( gisEqual(aSlice(0,10), aSlice(0,10, 1)) == True ); UTEST( gisEqual(aSlice(0,10), aSlice(0,10,-1)) == False ); // new vs auto UTEST( isEq(gnewSlc(Slice, 0, 10, 1), aSlice(0,10,1)) ); UTEST(!isEq(gnewSlc(Slice, 0, 10, 1), aSlice(0,10,-1)) ); // clone vs auto UTEST( isEq(gclone(aSlice(10)), aSlice(10)) ); UTEST( isEq(gclone(aSlice(0,10)), aSlice(0,10)) ); UTEST( isEq(gclone(aSlice(0,10,-1)), aSlice(0,10,-1)) ); // eval UTEST( Slice_eval(atSlice(10),0) == 0 ); UTEST( Slice_eval(atSlice(10),1) == 1 ); UTEST( Slice_eval(atSlice(10),10) == 10 ); UTEST( Slice_eval(atSlice(1,10),0) == 1 ); UTEST( Slice_eval(atSlice(1,10),1) == 2 ); UTEST( Slice_eval(atSlice(1,10),10) == 11 ); UTEST( Slice_eval(atSlice(1,10,2),0) == 1 ); UTEST( Slice_eval(atSlice(1,10,2),1) == 3 ); UTEST( Slice_eval(atSlice(1,10,2),10) == 21 ); UTEST( Slice_eval(atSlice(10,1,-2),0) == 10 ); UTEST( Slice_eval(atSlice(10,1,-2),1) == 8 ); UTEST( Slice_eval(atSlice(10,1,-2),10) == -10 ); // first UTEST( Slice_first(atSlice(10)) == 0 ); UTEST( Slice_first(atSlice(1,10)) == 1 ); UTEST( Slice_first(atSlice(-1,10)) == (U32)-1 ); UTEST( Slice_first(atSlice(-1,-10)) == (U32)-1 ); // last UTEST( Slice_last(atSlice(10)) == 9 ); UTEST( Slice_last(atSlice(1,10)) == 10 ); UTEST( Slice_last(atSlice(1,10,2)) == 19 ); UTEST( Slice_last(atSlice(0,-10)) == (U32)-11 ); UTEST( Slice_last(atSlice(-1,-10)) == (U32)-12 ); // size UTEST( Slice_size(atSlice(0,9,1)) == 9 ); UTEST( Slice_size(atSlice(1,10,1)) == 10 ); UTEST( Slice_size(atSlice(1,10,2)) == 10 ); UTEST( Slice_size(atSlice(1,10,3)) == 10 ); UTEST( Slice_size(atSlice(1,9,3)) == 9 ); UTEST( Slice_size(atSlice(9,0,-1)) == 0 ); UTEST( Slice_size(atSlice(10,1,-1)) == 1 ); UTEST( Slice_size(atSlice(10,1,-2)) == 1 ); UTEST( Slice_size(atSlice(10,1,-3)) == 1 ); UTEST( Slice_size(atSlice(9,1,-3)) == 1 ); // slice vs range UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,1,1), 0), atSlice(-1,3,1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,1,2), 0), atSlice(-1,2,2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,5,3), 0), atSlice(-1,3,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,4,3), 0), atSlice(-1,2,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange( 1,5,3), 0), atSlice( 1,2,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,0,-1), 0), atSlice(9,10,-1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,1,-2), 0), atSlice(9,5,-2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,0,-3), 0), atSlice(9,4,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,3,-3), 0), atSlice(9,3,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(0,9,1) , 0), atSlice(0,10,1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(1,10,1), 0), atSlice(1,10,1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(1,9,2) , 0), atSlice(1,5,2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(1,10,3), 0), atSlice(1,4,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(1,7,3) , 0), atSlice(1,3,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,0,-1) , 0), atSlice(9,10,-1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(10,1,-1), 0), atSlice(10,10,-1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(10,2,-2), 0), atSlice(10,5,-2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(10,1,-3), 0), atSlice(10,4,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(9,3,-3) , 0), atSlice(9,3,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,-10,-1), 0), atSlice(-1,10,-1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,-9,-2) , 0), atSlice(-1,5,-2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,-10,-3), 0), atSlice(-1,4,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-1,-7,-3) , 0), atSlice(-1,3,-3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-10,-1,1), 0), atSlice(-10,10,1)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-10,-2,2), 0), atSlice(-10,5,2)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-10,-1,3), 0), atSlice(-10,4,3)) ); UTEST( eq(Slice_fromRange(atSlice(0), atRange(-9,-3,3) , 0), atSlice(-9,3,3)) ); UTEST_END }