TrickleChargeServer.mesa
Copyright Ó 1989, 1990, 1992 by Xerox Corporation. All rights reserved.
Willie-Sue Orr, June 28, 1989 11:08:41 am PDT -0100 -0100
Register a procedure with that will get called each time PFS.Error is raised
Willie-s, July 16, 1992 5:03 pm PDT
Type and Procedure
PFSErrorReportProc:
TYPE ~
PROC[srcFile, dstFile:
ROPE, error:
PFS.ErrorDesc, sleepSec:
NAT];
RegisterPFSErrorReportProc:
PROC [proc: PFSErrorReportProc];
proc will get called when PFS.Error has been raised
TCReportProc:
TYPE ~
PROC[what:
ROPE, finishedOK:
BOOL];
RegisterTCReportProc:
PROC [proc: TCReportProc, callIfOK:
BOOL ¬
FALSE];
proc will get called when (a) no df's are moved, (b) errors but df's moved anyway, (c) errors that make it to the outer loop (DoIt calls); these are things that may need attention.
proc will also get called with finishedOK: TRUE if no other calls were made to proc and callIfOK is TRUE.