-- -- tree_leaf_key_to_int/1 -- create or replace function tree_leaf_key_to_int( p_tree_key bit varying ) returns int4 as $$ -- Convert the bitstring for the last, or leaf, node represented by this key -- to an integer. DECLARE v_leaf_pos integer default 1; v_pos integer default 1; BEGIN -- Find the leaf key first while v_pos < length(p_tree_key) loop v_leaf_pos := v_pos; if substring(p_tree_key, v_pos, 1) = '1' then v_pos := v_pos + 32; else v_pos := v_pos + 8; end if; end loop; if substring(p_tree_key, v_leaf_pos, 1) = '1' then return substring(p_tree_key, v_leaf_pos + 1, 31)::bit(31)::integer; else return substring(p_tree_key, v_leaf_pos, 8)::bit(8)::integer; end if; END; $$ language plpgsql;