RelativeTimesImpl.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, February 13, 1992 4:07 pm PST
DIRECTORY RelativeTimes;
RelativeTimesImpl:
CEDAR
MONITOR
IMPORTS RelativeTimes
EXPORTS RelativeTimes ~
BEGIN OPEN RelativeTimes;
Period:
PUBLIC
PROC [from, to: TimeStamp]
RETURNS [DeltaTime] = {
RETURN [InlinePeriod[from, to]]
};
IsLaterTime:
PUBLIC
PROC [t1, t2: TimeStamp]
RETURNS [
BOOL] = {
RETURN [InlineIsLaterTime[t1, t2]]
};
END.