--- ./pom/pom.6.orig 2001-08-29 10:11:31.000000000 -0500
+++ ./pom/pom.6 2006-09-08 19:36:28.000000000 -0500
@@ -33,7 +33,7 @@
.\"
.\" @(#)pom.6 8.1 (Berkeley) 5/31/93
.\"
-.Dd January 9, 1999
+.Dd September 8, 2006
.Dt POM 6
.Os
.Sh NAME
@@ -41,7 +41,8 @@
.Nd display the phase of the moon
.Sh SYNOPSIS
.Nm
-.Op [[[[[cc]yy]mm]dd]HH]
+.Op Fl d Ar num
+.Op Ar [[[[cc]yy]mm]dd]HH
.Sh DESCRIPTION
The
.Nm
@@ -49,6 +50,13 @@
Useful for selecting software completion target dates and predicting
managerial behavior.
.Pp
+.Bl -tag -width [-d num]
+.It Ar [-d num]
+Display the percentage with
+.Ar num
+decimals (within reasonable limits).
+The default is to display an integer percentage.
+.El
.Bl -tag -width [[[[[cc]yy]mm]dd]HH]
.It Ar [[[[[cc]yy]mm]dd]HH]
Display the phase of the moon for a given time. The format is similar to
@@ -67,6 +75,9 @@
.Pp
This program does not allow for the difference between the TDT and
UTC timescales (about one minute at the time of writing).
+.Sh NOTES
+.Nm
+recognizes 3321 as being within reasonable limits.
.Sh ACKNOWLEDGEMENTS
This program is based on algorithms from
.%B Practical Astronomy with Your Calculator, Third Edition
--- ./pom/pom.c.orig 2000-08-03 19:12:33.000000000 -0500
+++ ./pom/pom.c 2006-09-08 19:47:09.000000000 -0500
@@ -59,11 +59,14 @@
*
* Updated to the Third Edition of Duffett-Smith's book, Paul Janzen, IX 1998
*
+ * Modified for Slackware by Eric Hameleers <alien@slackware.com> 09-09-2006
+ *
*/
#include <ctype.h>
#include <err.h>
#include <math.h>
+#include <limits.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
@@ -101,16 +104,36 @@
char *argv[];
{
time_t tmpt, now;
- double days, today, tomorrow;
+ double days, today, tomorrow, accuracy;
char buf[1024];
+ int ch, decimals=0;
/* Revoke setgid privileges */
setregid(getgid(), getgid());
+ while ((ch = getopt(argc, argv, "d:h?")) != -1)
+ switch (ch) {
+ case 'd':
+ decimals = atoi(optarg);
+ if (decimals < 0 || (decimals != 3321 && decimals > __DBL_DIG__))
+ errx(1, "illegal argument for -d option");
+ break;
+ case 'h':
+ case '?':
+ (void)fprintf(stderr, "usage: pom [-d digits] [[[[[cc]yy]mm]dd]HH]\n");
+ exit(1);
+ default:
+ break;
+ }
+ argc -= optind;
+ argv += optind;
+
+ accuracy = ( decimals == 3321 ? 0.5: 0.5 / pow(10, decimals) );
+
if (time(&now) == (time_t)-1)
err(1, "time");
- if (argc > 1) {
- tmpt = parsetime(argv[1]);
+ if (argc > 0) {
+ tmpt = parsetime(argv[0]);
strftime(buf, sizeof(buf), "%a %Y %b %e %H:%M:%S (%Z)",
localtime(&tmpt));
printf("%s: ", buf);
@@ -118,15 +141,20 @@
tmpt = now;
}
days = (tmpt - EPOCH_MINUS_1970 * 86400) / 86400.0;
- today = potm(days) + .5;
+ today = potm(days) + accuracy;
if (tmpt < now)
(void)printf("The Moon was ");
else if (tmpt == now)
(void)printf("The Moon is ");
else
(void)printf("The Moon will be ");
- if ((int)today == 100)
+ if ((int)today == 100) {
(void)printf("Full\n");
+ if (decimals == 3321)
+ /* (void)printf("Howl!!! Know me, I am PJV.\n"); */
+ /* PJV's number is not 3321, and shan't be revealed here */
+ (void)printf("I saw the best minds of my generation destroyed by\n");
+ }
else if (!(int)today)
(void)printf("New\n");
else {
@@ -134,19 +162,19 @@
if ((int)today == 50)
(void)printf("%s\n", tomorrow > today ?
"at the First Quarter" : "at the Last Quarter");
- /* today is 0.5 too big, but it doesn't matter here
- * since the phase is changing fast enough
+ /* today is "accuracy" too big, but it doesn't matter
+ * here since the phase is changing fast enough
*/
else {
- today -= 0.5; /* Now it might matter */
+ today -= accuracy; /* Now it might matter */
(void)printf("%s ", tomorrow > today ?
"Waxing" : "Waning");
if (today > 50)
- (void)printf("Gibbous (%1.0f%% of Full)\n",
- today);
+ (void)printf("Gibbous (%1.*f%% of Full)\n",
+ decimals, today);
else if (today < 50)
- (void)printf("Crescent (%1.0f%% of Full)\n",
- today);
+ (void)printf("Crescent (%1.*f%% of Full)\n",
+ decimals, today);
}
}
exit(0);
