Article View: comp.lang.postscript
Article #8784pscal correction
From: Stephen Mann
Date: Tue, 09 Jan 1990 22:17
Date: Tue, 09 Jan 1990 22:17
55 lines
1763 bytes
1763 bytes
I found a bug in the pscal program I posted. The lines
set fullmoon = `grep ^$month $home/.holiday.moon.$year ...
and
set newmoon = `grep ^$month $home/.holiday.moon.$year ...
should be changed to
set fullmoon = `grep "^$month " $home/.holiday.moon.$year ...
and
set newmoon = `grep "^$month " $home/.holiday.moon.$year ...
respectively (where '...' is the rest of the line). Without this change,
January will get two new and two full moons.
Also, I've modified pscal to accept names of months in the .holiday files
instead of numbers (it accepts numbers, too).
As this was just a bit of shell script hacking and had nothing
to do with PostScript, it didn't seem appropriate to post it. Send me
mail if you want the latest and "greatest."
Tagged to the end of this file are the full/new moons for 1990. Put this
in the file ~/.holiday.moon.1990, and the full/new moons will appear on your
calendars for the year.
Really, the phase of the moon calculation should be added in as PostScript,
but...
Steve
smann@june.cs.washington.edu
---------------
1 10 full
1 26 new
2 9 full
2 25 new
3 11 full
3 26 new
4 9 full
4 24 new
5 9 full
5 24 new
6 8 full
6 22 new
7 7 full
7 21 new
8 6 full
8 20 new
9 4 full
9 18 new
10 4 full
10 18 new
11 2 full
11 17 new
12 2 full
12 16 new
Technical Details
Message-ID:
<10319@june.cs.washington.edu>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!zephyr.ens.tek.com!uw-beaver!uw-june!smannShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!zephyr.ens.tek.com!uw-beaver!uw-june!smann From: smann@cs.washington.edu (Stephen Mann) Newsgroups: comp.lang.postscript Subject: pscal correction Keywords: csh, moon, postscript Message-ID: <10319@june.cs.washington.edu> Date: 9 Jan 90 22:17:17 GMT Distribution: na Organization: U of Washington, Computer Science, Seattle Lines: 55