DataMuseum.dk

top - metrics - download

    Length: 1573 (0x625)
    Types: TextFile
    Names: »V«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

-- Search through a calendar file for events, and print
-- them out.  There are several output options.

-- If Date is "", today's date is used for the search, and events
-- matching today are listed.  If Date is "1" - "12", the events for
-- that month are listed. If Date is "1900" or more, the entire year
-- is listed. If Date is "M/D/Y", the specified day is listed (the
-- 'Y' is optional).

-- The "" and the "M/D/Y" form can be prepended with a range character
-- 'M', 'D', 'Y', or 'W'.  These mean list the month containing the date,
-- exact day, year containing, or week containing.

-- The calendar file is a sequence of lines.  The first field is the date,
-- the second field is optionally a time in the form of N:M[A|P].
-- 7:00 is 7:00AM, 1:00 is 1:00PM, 13:00 is 1:00PM, 6:00 is 6:00PM,
-- 7:00A is 7:00AM, 7:00P is 7:00PM.  The output is sorted by time, if
-- provided.  Lines without times are first, in the same order as in the
-- file. The rest of the line is the event(s) on that day.

-- Dates in the file can be:
--  M/D   - print a message regardless of the year.  Might be used for
--          birthdays, etc.
--  M/D/Y - Print only for the specified year
--  1-7   - A day of the week.  Lists every time that day comes up.
--          1 is Monday.

-- There must be at least 1 space between the date and the text.  If a time
-- is provided, there must be at least one space between the time and the
-- text.  The same date can occur many times in the calendar file.

procedure Print_Events (On : in String := ""; Calendar_File : in String := "");