-- RopeEditingBLT.mesa
-- written by Bill Paxton, March 1981
-- last edit by Bill Paxton, 3-Jun-81 14:33:04

DIRECTORY
	Rope,
	RopeReader;

RopeEditingBLT: DEFINITIONS =
BEGIN

CharsArray: TYPE = RopeReader.CharsArray;
Text: TYPE = Rope.Text;
String: TYPE = REF TEXT;

ArrayToArrayBlt: PROC [
	from: REF READONLY CharsArray, fromLoc: NAT,
	to: REF CharsArray, toLoc: NAT,
	nChars: NAT];

ArrayToTextBlt: PROC [
	from: REF READONLY CharsArray, fromLoc: NAT,
	to: Text, toLoc: NAT,
	nChars: NAT];

ArrayToStringBlt: PROC [
	from: REF READONLY CharsArray, fromLoc: NAT,
	to: String, toLoc: NAT,
	nChars: NAT];

TextToArrayBlt: PROC [
	from: Text, fromLoc: NAT,
	to: REF CharsArray, toLoc: NAT,
	nChars: NAT];

TextToTextBlt: PROC [
	from: Text, fromLoc: NAT,
	to: Text, toLoc: NAT,
	nChars: NAT];

TextToStringBlt: PROC [
	from: Text, fromLoc: NAT,
	to: String, toLoc: NAT,
	nChars: NAT];

StringToArrayBlt: PROC [
	from: REF READONLY TEXT, fromLoc: NAT,
	to: REF CharsArray, toLoc: NAT,
	nChars: NAT];

StringToStringBlt: PROC [
	from: REF READONLY TEXT, fromLoc: NAT,
	to: String, toLoc: NAT,
	nChars: NAT];

-- ***** Initialization

Start: PROC; -- for initialization only

END.