DFLogImpl.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
last edited by Levin on October 4, 1983 10:36 am
Doug Wyatt, March 6, 1985 12:52:15 pm PST
DIRECTORY
DFToolInternal
USING [],
IO
USING [
STREAM],
Rope
USING [
ROPE];
DFLogImpl:
CEDAR
PROGRAM
EXPORTS DFToolInternal
=
BEGIN
OPEN Tool: DFToolInternal;
ROPE:
TYPE = Rope.
ROPE;
User profile fields:
DFTool.MaxLogBytes: <maximum length of long-term log before wraparound>
AcquireLog:
PUBLIC
PROC
RETURNS [
IO.
STREAM] = {
RETURN[
NIL]
};
ReleaseLog:
PUBLIC
PROC [log:
IO.
STREAM] = {
IF log ~=
NIL
THEN
ERROR;
};
END.