/**************************************************************************
 *
 * gslice.cpp - Generalized slice example program.
 *
 * $Id: //stdlib/dev/examples/stdlib/manual/gslice.cpp#13 $
 *
 ***************************************************************************
 *
 * Copyright (c) 1994-2005 Quovadx,  Inc., acting through its  Rogue Wave
 * Software division. Licensed under the Apache License, Version 2.0 (the
 * "License");  you may  not use this file except  in compliance with the
 * License.    You    may   obtain   a   copy   of    the   License    at
 * http://www.apache.org/licenses/LICENSE-2.0.    Unless   required    by
 * applicable law  or agreed to  in writing,  software  distributed under
 * the License is distributed on an "AS IS" BASIS,  WITHOUT WARRANTIES OR
 * CONDITIONS OF  ANY KIND, either  express or implied.  See  the License
 * for the specific language governing permissions  and limitations under
 * the License.
 * 
 **************************************************************************/

#include <iostream>    // fo cout, endl
#include <valarray.h>  // Includes valarray and provides stream inserter.
#include <examples.h>  // Generic header for all examples.

typedef std::valarray<int>    valarray_t;
typedef std::valarray<std::size_t> selector_t;

int main(void) {

  // Create a valarray of ints.
  valarray_t::value_type ibuf[27] = { 0,  1,  2,  3,  4,  5,  6,  7,  8,
                                      9,  10, 11, 12, 13, 14, 15, 16, 17,
                                      18, 19, 20, 21, 22, 23, 24, 25, 26 };
  valarray_t  vi(ibuf, 27);

  // Create length and stride valarray
  selector_t::value_type length_buf[3] = {3,3,3};
  selector_t::value_type stride_buf[3] = {9,3,1};
  selector_t length_val(length_buf, 3);
  selector_t stride_val(stride_buf, 3);

  // Print out the valarray<int>.
  std::cout << "original valarray vi\n\n" << vi << "\n\n";

  // Print out all three dimensions (the entire valarray).
  std::cout << "vi[gslice(0,{3,3,3},{9,3,1})]\n\n"
            << vi[std::gslice(0,length_val,stride_val)] << "\n\n";

  // Print a two dimensional slice out of the middle.
  selector_t::value_type length_buf2[] = {3, 3};
  selector_t::value_type stride_buf2[] = {3, 1};
  selector_t             length_val2(length_buf2, 2);
  selector_t             stride_val2(stride_buf2, 2);

  std::cout << "vi[gslice(9,{3,3},{3,1})]\n\n"
            << vi[std::gslice(9,length_val2,stride_val2)] << "\n\n";

  // Print another two dimensional slice out of the middle but
  // orthoganal to one we just did.
  stride_val2[0] = 9;
  stride_val2[1] = 1;

  std::cout << "vi[gslice(3,{3,3},{9,1})]\n\n"
            << vi[std::gslice(3,length_val2,stride_val2)] << "\n\n";

  // Print out the last plane in the middle -- orthoganal to both
  // of the previous ones.
  stride_val2[0] = 3;
  stride_val2[1] = 9;

  std::cout << "vi[gslice(1,{3,3},{3,9})]\n\n"
            << vi[std::gslice(1,length_val2,stride_val2)] << "\n\n";

  // Now how about a diagonal slice, upper left front to lower right
  // back.
  stride_val2[0] = 3;
  stride_val2[1] = 10;

  std::cout << "vi[gslice(0,{3,3},{3,10})]\n\n"
            << vi[std::gslice(0,length_val2,stride_val2)] << "\n\n";

  return 0;
}