<> <> <> <> DIRECTORY GVPDefs: TYPE USING [GetEditBuffer, PutEditBuffer, WordSeq]; <> 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.