Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!techunix.BITNET!steed
From: steed@techunix.BITNET (Ze'ev)
Newsgroups: comp.lang.postscript
Subject: Re: PostScript Calendar - Correction Required
Message-ID: <3789@techunix.BITNET>
Date: 18 Apr 88 10:45:51 GMT
References: <8804112027.AA19801@decwrl.dec.com>
Sender: usenet@ucbvax.BERKELEY.EDU
Lines: 58
Summary: Correction enclosed

os.rutgers.edu> <240@uwovax.uwo.cdn>
Reply-To: steed@techunix.UUCP (Ze'ev (Steed) Shtadler)
Organization: Technion, Israel Inst. Tech., Haifa Israel
Lines: 53
Apparently-To: post-usenet@ucbvax.berkeley.edu

In article <240@uwovax.uwo.cdn> 3021_4346@uwovax.uwo.cdn writes:
>
> With regard to the revised PostScript monthly calendar, has
> anybody noticed that it is producing incorrect calendars
> for the months of April 1988 onwards?
>
> Does anybody have the corrected version available yet?

The bug is a small one: it checks the month in a leap year to be equal
to 3 (March) instead of greater or equal (March or later).  As a result
the first day of the month of the months after March are not shifted as
it should have been.

Here is the diff for the change.  Line numbers may differ, but PScal can
also be corrected using an editor of your choice: change the "eq" to a
"ge" in the right place.

----------- text of diff follows -----------------
*** /tmp/,RCSt1007388   Mon Apr 18 13:28:51 1988
--- /tmp/,RCSt2007388   Mon Apr 18 13:28:51 1988
***************
*** 183,189 ****
        /off exch def
        1 1 month 1 sub {
                days_month exch 1 sub get
!               month 3 eq
                isleap and
                firsttime and
                {
--- 183,189 ----
        /off exch def
        1 1 month 1 sub {
                days_month exch 1 sub get
!               month 3 ge
                isleap and
                firsttime and
                {
----------- End of diff text ---------------------

                                Good Luck,
                                        Ze'ev.
----
Ze'ev Shtadler.
Computer Science Faculty,
Technion, Israel Institute of Thechnology,
Haifa Israel
Phone (work):   (+972) 4-293849

BITNET:  steed@techunix
Domain:  steed@techunix.technion.ac.il
UUCP:    ...!psuvax1!techunix.bitnet!steed
ARPANET: steed%techunix.bitnet@cunyvm.cuny.edu
CSNET:   steed%techunix.bitnet@csnet-relay.csnet