GVPatchExternal.mesa
HGM, May 23, 1984 11:44:01 pm PDT
Steve Temple, November 2, 1982 11:00 am
last edit on November 19, 1982 1:34 pm
DIRECTORY GVPDefs: TYPE USING [GetEditBuffer, PutEditBuffer, WordSeq];
WordSeq: TYPE = RECORD[SEQUENCE CARDINAL: length OF CARDINAL]
GVPatchExternal: CEDAR PROGRAM IMPORTS GVPDefs = BEGIN
buffer: REF GVPDefs.WordSeq ← NIL;
buffer ← GVPDefs.GetEditBuffer[];
IF buffer#
NIL
THEN
BEGIN
FOR i: CARDINAL IN [0..buffer.length) DO buffer[i] ← 0 ENDLOOP;
GVPDefs.PutEditBuffer[buffer, "zeroed"]
END
ELSE GVPDefs.PutEditBuffer[buffer, NIL]
END.