source: trunk/lib/pabloSupport.hpp @ 2705

#ifndef PABLOSUPPORT_HPP_
#define PABLOSUPPORT_HPP_

#include "bitblock.hpp"

#define BitBlock_declare(name)  BitBlock name

#define ubitblock_declare(name, n) \
  ubitblock name[n];\
  do {int i;\
      for (i = 0; i < n; i++) name[i]._128 = simd<1>::constant<0>();\
     }\
  while (0)
     

IDISA_ALWAYS_INLINE BitBlock pablo_blk_Advance(BitBlock strm, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout;
        adv_ci_co(strm, carryin, carryout, rslt);
        return carryout;
}

template <int n> IDISA_ALWAYS_INLINE BitBlock pablo_blk_Advance_n_(BitBlock strm, BitBlock pending_in, BitBlock & rslt) {
        BitBlock half_block_shifted = esimd<BLOCK_SIZE/2>::mergel(strm, pending_in);
        rslt = simd_or(simd<BLOCK_SIZE/2>::srli<(BLOCK_SIZE/2)-n>(half_block_shifted),
                       simd<BLOCK_SIZE/2>::slli<n>(strm));
        return strm;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_ScanThru(BitBlock marker, BitBlock charclass, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, sum;
        add_ci_co(marker, charclass, carryin, carryout, sum);
        rslt = simd_andc(sum, charclass);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_AdvanceThenScanThru(BitBlock marker, BitBlock charclass, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, sum;
        add_ci_co(marker, simd_or(charclass, marker), carryin, carryout, sum);
        rslt = simd_andc(sum, charclass);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_ScanTo(BitBlock marker, BitBlock charclass, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, sum;
        add_ci_co(marker, simd_not(charclass), carryin, carryout, sum);
        rslt = simd_and(sum, charclass);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_AdvanceThenScanTo(BitBlock marker, BitBlock charclass, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, sum;
        add_ci_co(marker, simd_or(marker, simd_not(charclass)), carryin, carryout, sum);
        rslt = simd_and(sum, charclass);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_ScanToFirst(BitBlock charclass, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, sum;
        add_ci_co(simd<BLOCK_SIZE>::constant<0>(), simd_not(charclass), carryin, carryout, sum);
        rslt = simd_and(sum, charclass);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_SpanUpTo(BitBlock starts, BitBlock follows, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout;
        sub_bi_bo(follows, starts, carryin, carryout, rslt);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_InclusiveSpan(BitBlock starts, BitBlock follows, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, span;
        sub_bi_bo(follows, starts, carryin, carryout, span);
        rslt = simd_or(span, follows);
        return carryout;
}

IDISA_ALWAYS_INLINE BitBlock pablo_blk_ExclusiveSpan(BitBlock starts, BitBlock follows, BitBlock carryin, BitBlock & rslt) {
        BitBlock carryout, span;
        sub_bi_bo(follows, starts, carryin, carryout, span);
        rslt = simd_andc(span, starts);
        return carryout;
}



#endif // PABLOSUPPORT_HPP_