Article View: comp.lang.postscript
Article #7069Re: PostScript Calendar - Correction Required
From: Ze'ev
Date: Mon, 18 Apr 1988 10:45
Date: Mon, 18 Apr 1988 10:45
59 lines
2432 bytes
2432 bytes
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
Technical Details
Message-ID:
<3789@techunix.BITNET>Path:
arc1-ca.pugleaf.net!utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!techunix.BITNET!steedReferences:
<8804112027.AA19801@decwrl.dec.com>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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