[ 10g ] How to make dbms_lob.erase trim fragment away?

Question

Hello!
I'm trying to remove some parts of CLOB with DBMS_LOB.ERASE, and it obviously just replaces fragment with spaces. This behaviour is stated in manual, but the fact is I need to actually REMOVE this fragment. More to that, I also need to insert some data in the middle of the CLOB. Of which, obviously, DBMS_LOB.WRITE isn't capable to do.
I've googled that 11g has some vague new functions DBMS_LOB.FRAGMENT_DELETE and DBMS_LOB.FRAGMENT_INSERT, doing what I need. But I'm on 10g. So, is there way to do what I need without tedious blob copying/trimming?

Answer 1

I've written rough replacements for dbms_lob.fragment_delete and dbms_lob.fragment_insert. Be glad for any advise.
procedure clob_fragment_delete(l_clob in out clob, l_amount in integer, l_offset in integer)
is
  l_len integer := dbms_lob.getlength(l_clob);
begin
  dbms_lob.copy(l_clob, l_clob, l_len - l_offset - l_amount, l_offset, l_offset + l_amount);
  dbms_lob.trim(l_clob, l_len - l_amount);
end;
procedure clob_fragment_insert(l_clob in out clob, l_amount in integer, l_offset in integer,
                               l_buffer in varchar2 character set l_clob%charset)
is
  l_len integer := dbms_lob.getlength(l_clob);
begin
  dbms_lob.copy(l_clob, l_clob, l_len - l_offset, l_offset + l_amount, l_offset);
  dbms_lob.write(l_clob, l_amount, l_offset, l_buffer);
end;