-- RopeEditingBLT.mesa
-- written by Bill Paxton, March 1981
-- last edit by Bill Paxton, 3-Jun-81 14:33:04
DIRECTORY
Rope,
RopeReader;
RopeEditingBLT: CEDAR 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.