seq.h

#pragma once

#include "utilities.h"
#include "alloc.h"
#include <initializer_list>
#include <iterator>

#ifdef CONCEPTS
template<typename T>
concept bool Seq =
  requires(T t, size_t u) {
  typename T::value_type;
  { t.size() } -> size_t;
  { t.slice() };
  { t[u] };
};

template<typename T>
concept bool Range =
  Seq<T> && requires(T t, size_t u) {
  { t[u] } -> typename T::value_type&;
  typename T::iterator;
};
#define SEQ Seq
#define RANGE Range
#else
#define SEQ typename
#define RANGE typename
#endif

namespace pbbs {

  constexpr bool report_copy = false;
  constexpr bool bounds_check = false;
  
  template <typename Iterator>
  struct range {
  public:
    using value_type = typename std::iterator_traits<Iterator>::value_type;
    using iterator = Iterator;
    range() {};
    range(iterator s, iterator e) : s(s), e(e) {};
    value_type& operator[] (const size_t i) const {return s[i];}
    range slice(size_t ss, size_t ee) const {
      return range(s + ss, s + ee); }
    range slice() const {return range(s,e);};
    size_t size() const { return e - s;}
    iterator begin() const {return s;}
    iterator end() const {return e;}

    range<std::reverse_iterator<value_type*>>
    rslice(size_t ss, size_t ee) const {
      auto i = std::make_reverse_iterator(e);
      return range<decltype(i)>(i + ss, i + ee);
    }
    range<std::reverse_iterator<value_type*>>
    rslice() const {return rslice(0, std::distance(s,e));};

  private:
    iterator s;
    iterator e;
  };

  template <class Iter>
  range<Iter> make_range(Iter s, Iter e) {
    return range<Iter>(s,e);
  }

  template <typename T, typename F>
  struct delayed_sequence {
    using value_type = T;
    delayed_sequence(size_t n, F _f) : f(_f), s(0), e(n) {};
    delayed_sequence(size_t n, value_type v) : f([&] (size_t i) {return v;}), s(0), e(n) {};
    delayed_sequence(size_t s, size_t e, F _f) : f(_f), s(s), e(e) {};
    const value_type operator[] (size_t i) const {return (f)(i+s);}
    delayed_sequence<T,F> slice(size_t ss, size_t ee) const {
      return delayed_sequence<T,F>(s+ss,s+ee,f); }
    delayed_sequence<T,F> slice() const {
      return delayed_sequence<T,F>(s,e,f); }
    size_t size() const { return e - s;}
  private:
    F f;
    const size_t s, e;
  };

  // used so second template argument can be inferred
  template <class T, class F>
  delayed_sequence<T,F> delayed_seq (size_t n, F f) {
    return delayed_sequence<T,F>(n,f);
  }

  template <class F>
  auto dseq (size_t n, F f) -> delayed_sequence<decltype(f(0)),F>
  {
    using T = decltype(f(0));
    return delayed_sequence<T,F>(n,f);
  }

  template <typename T, typename Allocator=pbbs::allocator<T>>
  struct sequence {
  public:
    using value_type = T;
    //using iterator = T*;

    sequence() { empty(); }

    // copy constructor
    sequence(const sequence& a) {
      if (report_copy && !a.is_small())
	cout << "copy constructor: len: " << a.size()
	     << " element size: " << sizeof(value_type) << endl;
      if (a.is_small()) val = a.val;
      else copy_from(a.val.large.s, a.val.large.n);
    }

    // move constructor
    sequence(sequence&& a) {
      val = a.val; a.empty();}

    // // copy assignment
    // sequence& operator = (const sequence& a) {
    //   if (report_copy && !a.is_small())
    // 	cout << "copy assignment: len: " << a.size()
    // 	     << " element size: " << sizeof(T) << endl;
    //   if (this != &a) {
    // 	clear(); 
    // 	if (a.is_small()) val = a.val;
    // 	else copy_from(a.val.large.s, a.val.large.n);}
    //   return *this;
    // }

    // //move assignment
    // sequence& operator = (sequence&& a) {
    //   if (this != &a) {clear(); val = a.val; a.empty();}
    //   return *this;
    // }

    // unified copy/move assignment using the copy and swap idiom
    // now safer for exceptions
    sequence& operator = (sequence a) {
      swap(a);
      return *this;
    }

    // constructs a sequence of length sz
    // with each element default constructed
    sequence(const size_t sz) {
      alloc(sz);}

    // constructs a sequence of length sz initialized with v
    sequence(const size_t sz, value_type v) {
      T* start = alloc_no_init(sz);
      parallel_for(0, sz, [=] (size_t i) {
	  assign_uninitialized(start[i], (value_type) v);}, 300);
    };

    // constructs a sequence by applying f to indices [0, ..., sz-1]
    template <typename Func>
    sequence(const size_t sz, Func f, size_t granularity=300) {
      value_type* start = alloc_no_init(sz);
      parallel_for(0, sz, [&] (size_t i) {
	  assign_uninitialized<value_type>(start[i], f(i));}, granularity);
    };

    // construct a sequence from initializer list
    sequence(std::initializer_list<value_type> l) {
      size_t sz = l.end() - l.begin();
      value_type* start = alloc(sz);
      size_t i = 0;
      for (value_type a : l) start[i++] = a;
    }

    // constructs from a range
    template <typename Iter>
    sequence(range<Iter> const &a) {
      copy_from(a.begin(), a.size());
    }

    // constructs from a delayed sequence
    template <class F>
    sequence(delayed_sequence<value_type,F> const &a) {
      copy_from(a, a.size());
    }

    // uninitialized sequence of length sz
    // dangerous if non primitive types and not immediately initialized
    static sequence<value_type> no_init(const size_t sz) {
      sequence<value_type> r;
      r.alloc_no_init(sz);
      return r;
    };

    // Constructs a sequence by taking ownership of an
    // allocated value_type array.
    // Only use if a is allocated by the same allocator as 
    // the sequence since the sequence delete will destruct it.
    sequence(value_type* a, const size_t sz) {
      set(a, sz);
      // cout << "dangerous: " << size();
    };

    // Copies a Seq type 
    // Uses enable_if to avoid matching on integer argument, which creates
    // a sequece of the specified length
    //template <class Seq, typename std::enable_if_t<!std::is_integral<Seq>::value>>
    //sequence(Seq const &a) {
    //  copy_from(a.begin(), a.size());
    //}

    ~sequence() { clear();}

    range<value_type*> slice(size_t ss, size_t ee) const {
      return range<value_type*>(begin() + ss, begin() + ee);
    }

    range<std::reverse_iterator<value_type*>>
    rslice(size_t ss, size_t ee) const {
      auto iter = std::make_reverse_iterator(begin() + size());
      return range<decltype(iter)>(iter + ss, iter + ee);
    }

    range<std::reverse_iterator<value_type*>>
    rslice() const {return rslice(0, size());};

    range<value_type*> slice() const {
      return range<value_type*>(begin(), begin() + size());
    }

    // gives up ownership, returning an array of the elements
    // only use if will be freed by same allocator as sequence
    value_type* to_array() {
      value_type* r = begin(); empty(); return r;}

    // frees the memory assuming elements are already destructed,
    // and sets pointer to Null (empty());
    void clear_no_destruct() {
      if (size() != 0 && !is_small()) 
	//pbbs::free_array(val.large.s);
	Allocator().deallocate(val.large.s, val.large.n);
      empty();
    }

    // destructs the sequence
    void clear() {
      delete_elements();
      clear_no_destruct();
    }
    
    value_type& operator[] (const size_t i) const {
      if (bounds_check && i >= size()) 
      	throw std::out_of_range("in sequence access: length = "
				+ std::to_string(size())
				+ " index = " + std::to_string(i));
      return begin()[i];
    }

    value_type& get(const size_t i) const {
      return begin()[i];
    }

    void swap(sequence& b) {
      std::swap(val.large.s, b.val.large.s);
      std::swap(val.large.n, b.val.large.n);
    }

    size_t size() const {
      if (is_small()) return val.small[flag_loc];
      return val.large.n;}

    value_type* begin() const {
      if (is_small()) return (value_type*) &val.small;
      return val.large.s;}

    value_type* end() const {return begin() + size();}

  private:

    struct lg { value_type *s; size_t n; };
    static constexpr size_t lg_size = sizeof(lg);
    static constexpr size_t T_size = sizeof(value_type);
    static constexpr size_t max_sso_size = 8;
    static constexpr size_t flag_loc = 15;
    // For future use in c++20
    // --- (std::endian::native == std::endian::big) ? 8 : 15;

    // Uses short string optimization (SSO).
    // Applied if T_size <= max_sso_size
    // Stores flag in byte 15 (flag_loc) of the small array
    // It assumes the machine is little_endian so this is
    // the high order bits of the size field (n)
    union {
      lg large;
      char small[lg_size]; // for SSO
    } val;

    // sets start and size
    void set(value_type* start, size_t sz) {
      val.large.n = sz;
      val.large.s = start;
    }
      
    // marks as empty
    void empty() {set(NULL, 0);}

    // is a given size small
    inline bool is_small(size_t sz) const {
      return ((T_size <= max_sso_size) &&
	      sz < (lg_size/T_size) &&
	      sz > 0); }

    // am I small
    inline bool is_small() const {
      //return is_small(val.small[flag_loc]);
      if (T_size <= max_sso_size) {
      	size_t sz = val.small[flag_loc];
      	return (sz > 0 && sz < (lg_size/T_size));
      }
      return false;
    }
    
    void initialize_elements() {
      if (!std::is_trivially_default_constructible<value_type>::value) 
	parallel_for(0, size(), [&] (size_t i) {
	    new ((void*) (begin()+i)) value_type;});
    }

    void delete_elements() {
      if (!std::is_trivially_destructible<value_type>::value)
	parallel_for(0, size(), [&] (size_t i) {
	    (begin()+i)->~value_type();});
    }

    // allocate and set size without initialization
    value_type* alloc_no_init(size_t sz) {
      if (is_small(sz)) {
	val.small[flag_loc] = sz;
	return (value_type*) &val.small;
      } else {
	//T* loc = (sz == 0) ? NULL : pbbs::new_array_no_init<T>(sz);
	value_type* loc = (sz == 0) ? NULL : Allocator().allocate(sz); 
	set(loc, sz);
	return loc;
      }
    }

    // allocate and set size with initialization
    value_type* alloc(size_t sz) {
      value_type* loc = alloc_no_init(sz);
      initialize_elements();
      return loc;
    }

    // Allocates and copies sequence from random access iterator
    // Only used if not short string optimized.
    template <class Iter>
    void copy_from(Iter a, size_t sz) {
      value_type* start = alloc_no_init(sz); 
      parallel_for(0, sz, [&] (size_t i) {
	  assign_uninitialized(start[i], a[i]);}, 1000);
    }

  };

  template <class Iter>
  bool slice_eq(range<Iter> a, range<Iter> b) {
    return a.begin() == b.begin();}

  template <class SeqA, class SeqB>
  bool slice_eq(SeqA a, SeqB b) { return false;}

  template <class Seq>
  auto to_sequence(Seq const &s) -> sequence<typename Seq::value_type> {
    using T = typename Seq::value_type;
    return sequence<T>(s.size(), [&] (size_t i) {
	return s[i];});
  }

  template <class F>
  auto seq (size_t n, F f) -> sequence<decltype(f(0))>
  {
    return sequence<decltype(f(0))>(n,f);
  }

  std::ostream& operator<<(std::ostream& os, sequence<char> const &s)
  {
    // pad with a zero
    sequence<char> out(s.size()+1, [&] (size_t i) {
	return i == s.size() ? 0 : s[i];});
    os << out.begin();
    return os;
  }
}