create table bit_op (
   b0 bit(8), b1 bit(8), band bit(8), bor bit(8),
   bxor bit(8), bnot0 bit(8), bnot1 bit(8)
);
create function bt(integer, integer) returns bit_op as '
   b0 = BitString.new(args[0], 8)
   b1 = BitString.new(args[1], 8)
   [b0, b1, b0 & b1, b0 | b1, b0 ^ b1, ~b0, ~b1]
' language 'plruby';
select * from bt(12, 24);
    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
----------+----------+----------+----------+----------+----------+----------
 00001100 | 00011000 | 00001000 | 00011100 | 00010100 | 11110011 | 11100111
(1 row)

select * from bt(12, 32);
    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
----------+----------+----------+----------+----------+----------+----------
 00001100 | 00100000 | 00000000 | 00101100 | 00101100 | 11110011 | 11011111
(1 row)

select * from bt(15, 278);
    b0    |    b1    |   band   |   bor    |   bxor   |  bnot0   |  bnot1   
----------+----------+----------+----------+----------+----------+----------
 00001111 | 00010110 | 00000110 | 00011111 | 00011001 | 11110000 | 11101001
(1 row)

create function be(integer) returns setof integer as '
   BitString.new(args[0], 8).each {|i| yield i}
' language 'plruby';
select * from be(12);
 be 
----
  0
  0
  0
  0
  1
  1
  0
  0
(8 rows)

select * from be(257);
 be 
----
  0
  0
  0
  0
  0
  0
  0
  1
(8 rows)

create function bx(integer, integer) returns bit varying as '
   BitString.new(*args)
' language 'plruby';
select bx(12, 6);
   bx   
--------
 001100
(1 row)

select bx(12, 8);
    bx    
----------
 00001100
(1 row)

create table bit_sht (
   b0 bit(8), shft int, bl bit(8), br bit(8), bs text, bi integer,
   sz integer, osz integer
);
create function bs(integer, integer) returns bit_sht as '
   b0 = BitString.new(args[0], 8)
   [b0, args[1], b0 << args[1], b0 >> args[1], b0.to_s, b0.to_i,
    b0.size, b0.octet_size]
' language 'plruby';
select * from bs(12, 2);
    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
----------+------+----------+----------+----------+----+----+-----
 00001100 |    2 | 00110000 | 00000011 | 00001100 | 12 |  8 |   1
(1 row)

select * from bs(277, -3);
    b0    | shft |    bl    |    br    |    bs    | bi | sz | osz 
----------+------+----------+----------+----------+----+----+-----
 00010101 |   -3 | 00000010 | 10101000 | 00010101 | 21 |  8 |   1
(1 row)

create function ext(text, integer) returns integer as '
   b0 = BitString.new(args[0])
   b0[args[1]]
' language 'plruby';
select ext('011110', 0);
 ext 
-----
   0
(1 row)

select ext('011110', -1);
 ext 
-----
   0
(1 row)

select ext('011110', 1);
 ext 
-----
   1
(1 row)

select ext('011110', 4);
 ext 
-----
   1
(1 row)

create function ext2(text, integer, integer) returns bit varying(8) as '
   b0 = BitString.new(args[0])
   b0[args[1], args[2]]
' language 'plruby';
select ext2('0111101', 0, 2);
 ext2 
------
 01
(1 row)

select ext2('0111101', -1, 3);
 ext2 
------
 1
(1 row)

select ext2('0111101', 1, 2);
 ext2 
------
 11
(1 row)

select ext2('0111101', 4, 1);
 ext2 
------
 1
(1 row)