-- /ivy/binding/calendar/calendar.mesa
-- Last edited by: Binding, July 12, 1984 12:27:03 pm PDT
DIRECTORY
BasicTime USING [ MonthOfYear, DayOfWeek]
;
Calendar: CEDAR DEFINITIONS
= BEGIN
Global Types
Days: TYPE = [0..31];
Weekdays: TYPE = BasicTime.DayOfWeek;
Months: TYPE = BasicTime.MonthOfYear;
Years: TYPE = [1968..2036];
Date:
TYPE =
RECORD [
Day: Days,
Month: Months,
Year: Years
];
ZoomLevel: TYPE = { Day, Month, Year, Event, unspecified };
END.