rem
rem $Header: L:\\\\model\\repman40\\api\\RCS\\rmtext.opb 1.2 1998/12/16 16:22:06 cvanes Exp $
rem
Rem  Copyright (c) 1993 by Oracle Corporation
Rem    NAME
Rem      rmotext.pkb - <one-line expansion of the name>
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem    RETURNS
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem    MODIFIED   (MM/DD/YY)
rem     qttran     02/02/94 -  Add ref. argument for readncl procedure
rem     qttran     02/02/94 -  Add openl, readncl procedure
rem     dcaruana   14/12/93 -  Change mode of ref on Close
Rem     qttran     10/09/93 -  add remtxtype procedure, clean a texttype
Rem     dcaruana   08/05/93 -  Created from rmm/rmbtx.sql and rm3/rm3btxo.pkb

create or replace package body rmotext as

-- id constant number := 19;
-- name constant varchar2(60) := 'text';
procedure close(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM) is
begin
  rmmtxi.rmmtxicl(ref,stream_handle);
end;

procedure end_of_stream(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM,
  at_end  out rm.YESNO) is
begin
  rmmtxi.rmmtxies(ref,stream_handle,at_end);
end;

procedure open(
  ref in  rm.REFERENCE,
  txt_type IN        varchar2,
  element_type_for IN varchar2,
  stream_mode in  VARCHAR2,
  stream_handle out rm.STREAM) is
begin
  rmmtxi.rmmtxiop(ref, txt_type, stream_mode, element_type_for, stream_handle);
end;

procedure read_line(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM,
  buffer  in out  VARCHAR2,
  actualsize  out INTEGER) is
begin
  rmmtxi.rmmtxirl(ref,stream_handle,buffer,actualsize);
end;

procedure read_text(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM,
  textsize  in  INTEGER,
  buffer  in out  VARCHAR2,
  actualsize  out INTEGER) is
begin
  rmmtxi.rmmtxird(ref,stream_handle,textsize,buffer,actualsize);
end;

procedure readall(
  ref in  rm.REFERENCE,
  txt_type IN        varchar2,
  buffer  in out  VARCHAR2,
  buflen  in  INTEGER,
  bufret  out INTEGER) is
begin
  rmmtx.rmmtxra(ref,txt_type,buffer,buflen,bufret);
end;

procedure truncall(
  ref in  rm.REFERENCE,
        txt_type IN        varchar2) is
begin
rmmtx.rmmtxta(ref,txt_type);
end;

procedure write_newline(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM,
  actualsize  out INTEGER) is
begin
rmmtxi.rmmtxiwn(ref,stream_handle,actualsize);
end;

procedure write_text(
  ref in  rm.REFERENCE,
  stream_handle in  rm.STREAM,
  textsize  in  INTEGER,
  buffer  in  VARCHAR2,
  actualsize  out INTEGER) is
begin
rmmtxi.rmmtxiwr(ref,stream_handle,textsize,buffer,actualsize);
end;

procedure writeall(
  ref in  rm.REFERENCE,
  txt_type IN        varchar2,
  element_type_for IN varchar2,
  buffer  in  VARCHAR2,
  buflen  in  INTEGER,
  bufwrt  out INTEGER) is
begin
rmmtx.rmmtxwa(ref,txt_type,element_type_for,buffer,buflen,bufwrt);
end;

procedure remtxtype(txt_type IN  varchar2) is
begin
rmmtx.rmmtxrt(txt_type);
end remtxtype;

procedure openl(
  ref in  rm.REFERENCE,
  txt_type  in     varchar2,
  element_type_for IN varchar2,
  stream_mode in  VARCHAR2,
  stream_handle out rm.STREAM,
  txt_len  out INTEGER) is
  temp_stream rm.stream;
begin
  rmmtxi.rmmtxiop(ref,txt_type,stream_mode,element_type_for,temp_stream);
  rmmtxi.rmmtxila( ref, temp_stream, txt_len );
  stream_handle := temp_stream;
end openl;

procedure readncl(
  ref in  rm.REFERENCE,
  stream_handle in rm.STREAM,
  buflen  in  INTEGER,
  buffer  in out  VARCHAR2,
  bufret  out INTEGER) is
begin

  rmmtxi.rmmtxird( ref, stream_handle, buflen, buffer, bufret );

  /* Close the text stream */
  rmmtxi.rmmtxicl( ref, stream_handle );

end readncl;

end rmotext;
/