int main(int argc, char* argv[])
{
date_t tempDate;
long startAbs, endAbs;
char *envStr;
int envArgc;
char *envArgv[40]; /* this should be big enough */
progname = argv[0];
set_default_city();
if ((envStr = getenv(ENV_OPTS)) && strcmp(envStr, ""))
{
int i;
tokenize(envStr, &envArgc, envArgv);
for (i = 1; i < argc; i++) /* append argv onto envArgv */
envArgv[envArgc++] = argv[i];
handleArgs(envArgc, envArgv);
}
else
handleArgs(argc, argv);
tempDate.yy = theYear;
if (theYear < (hebrewDates_sw ? 3761 : 1))
die("Sorry, hebcal can only handle dates in the common era.", "");
switch (rangeType)
{
case TODAY:
printHebDates_sw = 1;
tempDate.dd = theDay;
tempDate.mm = theMonth;
tempDate.yy = theYear;
startAbs = endAbs = greg2abs(tempDate);
break;
case DAY:
printHebDates_sw = 1;
tempDate.dd = theDay;
tempDate.mm = theMonth;
tempDate.yy = theYear;
if (hebrewDates_sw)
startAbs = endAbs = hebrew2abs(tempDate);
else
startAbs = endAbs = greg2abs(tempDate);
break;
case MONTH:
tempDate.dd = 1;
tempDate.mm = theMonth;
tempDate.yy = theYear;
if (hebrewDates_sw)
{
startAbs = hebrew2abs(tempDate);
tempDate.dd = max_days_in_heb_month(tempDate.mm, tempDate.yy);
endAbs = hebrew2abs(tempDate);
}
else
{
startAbs = greg2abs(tempDate);
tempDate.dd = MonthLengths[LEAP(theYear)][theMonth];
endAbs = greg2abs(tempDate);
}
break;
case YEAR:
if (hebrewDates_sw)
{
tempDate.dd = 1;
tempDate.mm = TISHREI;
tempDate.yy = theYear;
startAbs = hebrew2abs(tempDate);
/* start yearly calendar with the day before RH (i.e. Erev
* Rosh Hashanah)
*/
startAbs--;
tempDate.yy += numYears;
endAbs = hebrew2abs(tempDate) - 1;
}
else
{
tempDate.dd = 1;
tempDate.mm = JAN;
tempDate.yy = theYear;
startAbs = greg2abs(tempDate);
tempDate.yy += numYears;
endAbs = greg2abs(tempDate) - 1;
}
break;
default:
die("Oh, NO! internal error #17q!", "");
/* this is dead code, but it silences some uninitialized variable
warnings in gcc */
startAbs = endAbs =0;
}
tempDate = abs2hebrew(startAbs);
if (ok_to_run)
{
init_holidays(tempDate.yy); /* load the holiday array */
main_calendar(startAbs, endAbs);
return 0; /* success! Kol hakavod to thorough programmers */
}
else
return 1;
}
void hebcal_dafyomi( date_t *greg_day )
{
int dafcnt = 40;
int cno, dno, osday, nsday, total, count, j, cday, blatt;
date_t tmp_date;
char buffer[NM_LEN];
tmp_date.mm = 9;
tmp_date.dd = 11;
tmp_date.yy = 1923;
osday = greg2abs(tmp_date);
tmp_date.mm = 6;
tmp_date.dd = 24;
tmp_date.yy = 1975;
nsday = greg2abs(tmp_date);
cday = greg2abs(*greg_day);
/* No cycle, new cycle, old cycle */
if (cday < osday)
return; /* daf yomi hadn't started yet */
if (cday >= nsday)
{
cno = 8 + ( (cday - nsday) / 2711 );
dno = (cday - nsday) % 2711;
}
else
{
cno = 1 + ( (cday - osday) / 2702 );
dno = (cday - osday) / 2702;
}
/* Find the daf taking note that the cycle changed slightly after cycle 7. */
total = blatt = 0;
count = -1;
/* Fix Shekalim for old cycles */
if (cno <= 7)
shas[4].blatt = 13;
else
shas[4].blatt = 22;
/* Find the daf */
j = 0;
while (j < dafcnt)
{
count++;
total = total + shas[j].blatt - 1;
if (dno < total)
{
blatt = (shas[j].blatt + 1) - (total - dno);
/* fiddle with the weird ones near the end */
switch(count)
{
case 36:
blatt = blatt + 21;
break;
case 37:
blatt = blatt + 24;
break;
case 38:
blatt = blatt + 33;
break;
default:
break;
}
/* Bailout */
j = 1 + dafcnt;
}
j ++;
}
sprintf(buffer,
_("Daf Yomi: %s %d"),
_(shas[count].sname),
blatt );
PrintGregDate(*greg_day);
printf("%s\n", buffer);
}
void handleArgs(int argc, char *argv[])
{
date_t greg_today;
char **remain;
size_t remain_count;
char *cityNameArg = NULL;
char *inFileName = NULL;
char *tzid = NULL;
char *yahrtzeitFileName = NULL;
int today_sw = 0;
int zemanim_sw = 0;
int help_sw = 0;
int version_sw = 0;
int utf8_hebrew_sw = 0;
char *latitudeStr = NULL;
char *longitudeStr = NULL;
char *langStr = NULL;
static struct option long_options[] = {
{"24hour", no_argument, 0, 'E'},
{"abbreviated", no_argument, 0, 'W'},
{"add-hebrew-dates", no_argument, 0, 'd'},
{"add-hebrew-dates-for-events", no_argument, 0, 'D'},
{"ashkenazi", no_argument, 0, 'a'},
{"candle-mins", required_argument, 0, 'b'},
{"candlelighting", no_argument, 0, 'c'},
{"city", required_argument, 0, 'C'},
{"daf-yomi", no_argument, 0, 'F'},
{"daily-sedra", no_argument, 0, 'S'},
{"euro-dates", no_argument, 0, 'e'},
{"format", required_argument, 0, 'f'},
{"havdalah-mins", required_argument, 0, 'm'},
{"hebrew-date", no_argument, 0, 'H'},
{"help", no_argument, 0, 0},
{"infile", required_argument, 0, 'I'},
{"israeli", no_argument, 0, 'i'},
{"latitude", required_argument, 0, 'l'},
{"lang", required_argument, 0, 0},
{"longitude", required_argument, 0, 'L'},
{"molad", no_argument, 0, 'M'},
{"no-holidays", no_argument, 0, 'h'},
{"no-modern", no_argument, 0, 0},
{"no-rosh-chodesh", no_argument, 0, 'x'},
{"omer", no_argument, 0, 'o'},
{"sedrot", no_argument, 0, 's'},
{"sunrise-and-sunset", no_argument, 0, 'O'},
{"tabs", no_argument, 0, 'r'},
{"timezone", required_argument, 0, 'z'},
{"today", no_argument, 0, 't'},
{"today-brief", no_argument, 0, 'T'},
{"version", no_argument, 0, 0},
{"weekday", no_argument, 0, 'w'},
{"yahrtzeit", required_argument, 0, 'Y'},
{"years", required_argument, 0, 0},
{"year-abbrev", no_argument, 0, 'y'},
{"zmanim", no_argument, 0, 'Z'},
{NULL, 0, NULL, 0}
};
int c;
int option_index = 0;
setDate(&greg_today); /* keep the current greg. date here */
while ((c = getopt_long(argc, argv, "ab:cC:dDeEFhHI:il:L:m:MoOrsStTwWxyY:z:Z8",
long_options, &option_index)) != -1) {
switch (c) {
case 0: /* long option without short alias */
if (0 == strcmp("version", long_options[option_index].name)) {
version_sw = 1;
} else if (0 == strcmp("help", long_options[option_index].name)) {
help_sw = 1;
} else if (0 == strcmp("lang", long_options[option_index].name)) {
langStr = strdup(optarg);
} else if (0 == strcmp("years", long_options[option_index].name)) {
if (!(sscanf(optarg, "%d", &numYears) == 1)) {
die("unable to read --years argument: %s", optarg);
}
} else if (0 == strcmp("no-modern", long_options[option_index].name)) {
suppressModern_sw = 1;
} else {
shortUsage();
exit(1);
}
break;
case 'a':
ashkenazis_sw = 1;
break;
case '8':
utf8_hebrew_sw = 1;
break;
case 'b': /* candle_lighting_minutes_before_sundown */
if (!(sscanf(optarg, "%d", &light_offset) == 1))
die("unable to read candle_lighting_minutes_before_sundown argument: %s", optarg);
break;
case 'c': /* calculate candlelighting times on fridays */
candleLighting_sw = 1;
break;
case 'C':
cityNameArg = strdup(optarg);
break;
case 'd': /* print hebrew date */
printHebDates_sw = 1;
break;
case 'D': /* print hebrew date when there's */
/* something else to print */
printSomeHebDates_sw = 1;
break;
case 'I': /* input file */
inFileName = strdup(optarg);
break;
case 'e': /* european date format */
euroDates_sw = 1;
break;
case 'E': /* 24-hour time format */
twentyFourHour_sw = 1;
break;
case 'F': /* Daf Yomi */
dafYomi_sw = 1;
break;
case 'h': /* suppress internal holidays */
noHolidays_sw = 1;
break;
case 'H': /* suppress use hebrew range dates */
hebrewDates_sw = 1;
break;
case 'i': /* use Israeli sedra scheme */
israel_sw = 1;
break;
case 'l': /* latitude */
latitudeStr = strdup(optarg);
break;
case 'L': /* longitude */
longitudeStr = strdup(optarg);
break;
case 'm': /* havdalah_minutes */
if (!(sscanf(optarg, "%d", &havdalah_minutes) == 1))
die("unable to read havdalah_minutes argument: %s", optarg);
break;
case 'M': /* print the molad */
printMolad_sw = 1;
break;
case 'o': /* print the omer */
printOmer_sw = 1;
break;
case 'O': /* print sunrise and sunset */
printSunriseSunset_sw = 1;
break;
case 'r': /* Tab-delineated Format */
tabs_sw = 1;
break;
case 's': /* print sedrot */
sedrot_sw = 1;
break;
case 'S': /* print sedra every day. */
sedraAllWeek_sw = 1;
break;
case 'T': /* do hebcal for today, omit gregorian date. */
noGreg_sw = 1;
break;
case 't': /* do hebcal for today. */
today_sw = 1;
break;
case 'w': /* print days of the week */
weekday_sw = 1;
break;
case 'W': /* abbreviated week view */
abbrev_sw = 1;
break;
case 'y': /* Print only last 2 digits of year */
yearDigits_sw = 1;
break;
case 'Y': /* input file */
yahrtzeitFileName = strdup(optarg);
break;
case 'x': /* input file */
suppress_rosh_chodesh_sw = 1;
break;
case 'z': /* time zone */
tzid = strdup(optarg);
break;
case 'Z':
zemanim_sw = 1;
break;
default:
shortUsage();
exit(1);
break;
}
}
if (langStr != NULL) {
hebcal_lang lang = hebcal_get_language(langStr);
if (lang == HEBCAL_LANG_UNDEFINED) {
warn("Unknown lang '%s'; using default", langStr);
} else {
hebcal_set_language(lang);
}
free(langStr);
} else if (ashkenazis_sw) {
hebcal_set_language(HEBCAL_LANG_ASHKENAZI);
} else if (utf8_hebrew_sw) {
hebcal_set_language(HEBCAL_LANG_HE);
} else {
hebcal_set_language(HEBCAL_LANG_DEFAULT);
}
if (help_sw) {
displayHelp();
exit(0);
}
if (version_sw) {
printf("Hebcal version %s\n", VERSION);
exit(0);
}
errno = 0;
if (light_offset > 0) {
light_offset *= -1;
}
if (cityNameArg != NULL) {
candleLighting_sw = 1;
localize_to_city(cityNameArg);
free(cityNameArg);
}
if (inFileName != NULL) {
inputFile_sw = 1;
if (!(inFile = fopen(inFileName, "r"))) {
die("could not open input file %s.", inFileName);
}
free(inFileName);
}
if (noGreg_sw) {
today_sw = 1;
}
if (today_sw) {
printHebDates_sw = 1;
rangeType = TODAY;
theMonth = greg_today.mm; /* year and month specified */
theDay = greg_today.dd; /* printc theDay of theMonth */
yearDirty = 1;
printOmer_sw = 1;
}
if (yahrtzeitFileName != NULL) {
yahrtzeitFile_sw = 1;
if (!(yFile = fopen(yahrtzeitFileName, "r"))) {
die("could not open yahrtzeit input file %s.", yahrtzeitFileName);
}
free(yahrtzeitFileName);
}
if (latitudeStr != NULL) {
if (sscanf(latitudeStr, "%d,%d", &latdeg, &latmin) < 2) {
die("unable to read latitude argument: %s", latitudeStr);
}
latp = 1;
if ((abs(latdeg) > 90) || latmin > 60 || latmin < 0) {
die("Error, latitude argument out of range: %s", latitudeStr);
}
latmin = abs(latmin);
if (latdeg < 0) {
latmin = -latmin;
}
free(latitudeStr);
}
if (longitudeStr != NULL) {
if (sscanf(longitudeStr, "%d,%d", &longdeg, &longmin) < 2) {
die("unable to read longitude argument: %s", longitudeStr);
}
longp = 1;
if ((abs(longdeg) > 180) || longmin > 60 || longmin < 0) {
die("Error, longitude argument out of range: %s", longitudeStr);
}
longmin = abs(longmin);
if (longdeg < 0) {
longmin = -longmin;
}
free(longitudeStr);
}
if (tzid != NULL) {
TZ_INFO = timelib_parse_tzfile(tzid, timelib_builtin_db());
if (TZ_INFO == NULL) {
die("unable to read time zone argument: %s", tzid);
}
free(tzid);
}
if (zemanim_sw) {
default_zemanim = (ZMAN_SUNRISE | ZMAN_SZKS | ZMAN_TEFILAH |
ZMAN_CHATZOT |
ZMAN_MINCHA_GEDOLA | ZMAN_MINCHA_KETANA |
ZMAN_PLAG_HAMINCHA | ZMAN_SUNSET | ZMAN_TZAIT_42);
}
if (latp)
cityName = "User Defined City";
if (latp ^ longp)
die("You must enter BOTH the latitude and the longitude", "");
if( !strcmp(cityName, "Jerusalem" ))
light_offset = -40; /* does everyone hold by this? */
remain_count = argc - optind;
remain = argv + optind;
switch (remain_count) /* suck up the date */
{
case 0: /* process this year */
if (hebrewDates_sw)
theYear = abs2hebrew(greg2abs(greg_today)).yy;
else
theYear = greg_today.yy;
break;
case 1:
if (isAllNums(remain[0]))
{
theYear = atoi(remain[0]); /* just year specified */
yearDirty = 1; /* print whole year */
}
else if (0 == istrncasecmp(5, remain[0], "help"))
{
displayHelp();
exit(0);
}
else if (0 == istrncasecmp(3, remain[0], "info"))
{
print_version_data();
exit(0);
}
else if (0 == istrncasecmp(3, remain[0], "cities"))
{
print_city_data();
exit(0);
}
else if (0 == istrncasecmp(3, remain[0], "copying"))
{
print_copying();
exit(0);
}
else if (0 == istrncasecmp(3, remain[0], "warranty"))
{
print_warranty();
exit(0);
}
else
{
printf("%s: unrecognized command '%s'\n", progname, remain[0]);
shortUsage();
exit(1);
}
break;
case 2:
if (!isAllNums(remain[1])) {
shortUsage();
exit(1);
}
theYear = atoi(remain[1]); /* print theMonth of theYear */
theMonth = lookup_hebrew_month(remain[0]);
if (theMonth) {
hebrewDates_sw = 1; /* automagically turn it on */
if (theMonth == ADAR_II && !LEAP_YR_HEB(theYear)) {
theMonth = ADAR_I; /* silently fix this mistake */
}
} else if (isAllNums(remain[0])) {
if (hebrewDates_sw) {
die("Don't use numbers to specify Hebrew months.", "");
} else {
theMonth = atoi(remain[0]); /* gregorian month */
}
} else if (hebrewDates_sw) {
die("Unknown Hebrew month: %s", remain[0]);
} else {
die("bad gregorian month: %s", remain[0]);
}
yearDirty = 1;
rangeType = MONTH;
break;
case 3:
if (!(isAllNums(remain[1]) && isAllNums(remain[2]))) {
shortUsage();
exit(1);
}
theDay = atoi(remain[1]); /* print theDay of theMonth */
theYear = atoi(remain[2]); /* print theMonth of theYear */
theMonth = lookup_hebrew_month(remain[0]);
if (theMonth) {
hebrewDates_sw = 1; /* automagically turn it on */
if (theMonth == ADAR_II && !LEAP_YR_HEB(theYear)) {
theMonth = ADAR_I; /* silently fix this mistake */
}
} else if (isAllNums(remain[0])) {
if (hebrewDates_sw) {
die("Don't use numbers to specify Hebrew months.", "");
} else {
theMonth = atoi(remain[0]); /* gregorian month */
}
} else if (hebrewDates_sw) {
die("Unknown Hebrew month: %s", remain[0]);
} else {
die("bad gregorian month: %s", remain[0]);
}
if (theDay < 1)
die("The day of the month must be greater than 0", "");
if (theMonth < 1)
die("The month must be greater than 0", "");
if (hebrewDates_sw)
{
if (theDay > max_days_in_heb_month(theMonth, theYear))
die("Sorry, there aren't that many days in %s (then)",
LANGUAGE2(hMonths[LEAP_YR_HEB(theYear)][theMonth].name));
}
else
{
if (theMonth > 12)
die("The month must be less than 13", "");
if (theDay > MonthLengths[LEAP(theYear)][theMonth])
die("Sorry, there aren't that many days in %s (then)",
eMonths[theMonth]);
}
rangeType = DAY;
yearDirty = 1;
break;
default:
displayHelp();
exit(1);
}
if (numYears != 1 && rangeType != YEAR) {
die("Sorry, --years option works only with entire-year calendars", "");
}
}
void init_yahrtzeits( int hyear )
{
holstorep_t tmpholp;
char *s, *monthStr, *eventStr, nextChar;
int index, inMonth, inDay, inYear, lineNum = 1;
date_t hDeath, gDeath;
initStr (&s, MAX_LINE_LEN);
initStr (&monthStr, MAX_LINE_LEN);
rewind (yFile);
nextChar = (char) getc (yFile); /* priming getc */
for (; !feof (yFile);
lineNum++, nextChar = (char) getc (yFile))
{ /* force an EOF */
ungetc (nextChar, yFile);
if (!fgets (s, MAX_LINE_LEN, yFile))
{
warn ("yahrtzeit file read error. Skipping line %s", hc_itoa (lineNum));
continue;
}
if (s[0] == '\n') /* blank line */
continue;
if (sscanf (s, "%s %d %d%n", monthStr, &inDay, &inYear, &index) < 3)
{
warn ("Error in yahrtzeit file. Skipping line %s", hc_itoa (lineNum));
continue;
}
if (!isAllNums (monthStr))
{
warn ("Non-numeric month in yahrtzeit file. Skipping line %s",
hc_itoa (lineNum));
continue;
}
sscanf (monthStr, "%d", &inMonth);
if (inMonth > 12 || inMonth < 1 ||
inDay < 1 || inDay > MonthLengths[LEAP (inYear)][inMonth])
{
warn ("Date out of range in yahrtzeit file. Skipping line %s",
hc_itoa (lineNum));
continue;
}
gDeath.dd = inDay;
gDeath.mm = inMonth;
gDeath.yy = inYear;
hDeath = abs2hebrew (greg2abs (gDeath));
/* If it's Heshvan 30 it depends on the first anniversary; if
that was not Heshvan 30, use the day before Kislev 1. */
if (hDeath.mm == CHESHVAN && hDeath.dd == 30 &&
!long_cheshvan (hDeath.yy + 1))
{
hDeath.dd = 1;
hDeath.mm = KISLEV;
hDeath.yy = hyear;
hDeath = abs2hebrew (hebrew2abs (hDeath) - 1L);
}
/* If it's Kislev 30 it depends on the first anniversary; if
that was not Kislev 30, use the day before Teveth 1. */
else if (hDeath.mm == KISLEV && hDeath.dd == 30 &&
!short_kislev (hDeath.yy + 1))
{
hDeath.dd = 1;
hDeath.mm = TEVET;
hDeath.yy = hyear;
hDeath = abs2hebrew (hebrew2abs (hDeath) - 1L);
}
/* If it's Adar II, use the same day in last month of
year (Adar or Adar II). */
else if (hDeath.mm == ADAR_II)
{
hDeath.mm = MONTHS_IN_HEB (hyear);
}
/* If it's the 30th in Adar I and year is not a leap year
(so Adar has only 29 days), use the last day in Shevat. */
else if (hDeath.mm == ADAR_I && hDeath.dd == 30 &&
!LEAP_YR_HEB (hyear))
{
hDeath.dd = 30;
hDeath.mm = SHVAT;
}
/* In all other cases, use the normal anniversary of the date of death. */
/* advance day to rosh chodesh if needed */
if (hDeath.mm == CHESHVAN && hDeath.dd == 30
&& !long_cheshvan(hyear)) {
hDeath.mm = KISLEV;
hDeath.dd = 1;
} else if (hDeath.mm == KISLEV && hDeath.dd == 30
&& short_kislev(hyear)) {
hDeath.mm = TEVET;
hDeath.dd = 1;
}
eventStr = s + index + 1; /* get the name of the event */
/* if (eventStr[strlen(eventStr)-1] == '\n') */
eventStr[strlen (eventStr) - 1] = '\0'; /* chop off the \n */
/* store the holiday in the LUT */
tmpholp = getHolstorep ();
initStr (&tmpholp->name, MAX_LINE_LEN);
strcpy (tmpholp->name, eventStr); /* load the user holiday into it. */
tmpholp->typeMask = USER_EVENT;
PushHoliday (tmpholp, &var_holidays[hDeath.mm][hDeath.dd]);
}
}
char *formatLine( const date_t gregDate,
const date_t hebDate,
const char *text,
char *output,
size_t maxOutputLen
)
{
size_t formatLen = strlen(formatString);
int allocLength = 200 + formatLen * 2;
char autoBuf[allocLength];
char *buf = autoBuf;
char * bufEnd = buf + allocLength;
char * bufIter = buf;
char * formatEnd = formatString+ formatLen;
const char *formatIter;
if( ! buf )
die( "unable to allocate %s bytes to format line", hc_itoa(strlen(formatString)*2));
*buf = '\0';
if( bufEnd > buf )
*(bufEnd - 1) = '\0';
for( formatIter = formatString;
formatIter < formatEnd && *formatIter;
formatIter++)
{
switch( *formatIter )
{
case '\\':
formatIter++;
if( formatIter >=formatEnd || ! *formatIter)
break;
switch( *formatIter )
{
case 'n':
appendTo(&buf, &bufEnd, &bufIter, "\n");
break;
case 'b':
appendTo(&buf, &bufEnd, &bufIter, "\b");
break;
case 'e':
appendTo(&buf, &bufEnd, &bufIter, "\033");
break;
case 'f':
appendTo(&buf, &bufEnd, &bufIter, "\f");
break;
case 'r':
appendTo(&buf, &bufEnd, &bufIter, "\r");
break;
case 't':
appendTo(&buf, &bufEnd, &bufIter, "\t");
break;
case '\\':
appendTo(&buf, &bufEnd, &bufIter, "\\");
break;
}
break;
case '%':
formatIter++;
if( formatIter >=formatEnd || ! *formatIter)
break;
switch( *formatIter )
{
case '%':
appendTo(&buf, &bufEnd, &bufIter, "%");
break;
case 'a': /* abbreviated weekday name */
appendTo(&buf, &bufEnd, &bufIter, ShortDayNames[dayOfWeek(gregDate)]);
break;
case 'Y': /* year */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(gregDate.yy));
break;
case 'm': /* month */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(gregDate.mm));
break;
case 'd': /* day of month */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(gregDate.dd));
break;
case 'Q': /* hebrew year */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(hebDate.yy));
break;
case 'q': /* hebrew month */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(hebDate.mm));
break;
case 'k': /* hebrew day */
appendTo(&buf, &bufEnd, &bufIter, hc_itoa(hebDate.dd));
break;
case 'J': /* julian day number */
{
char numBuf[20];
snprintf(numBuf, 20, "%ld",greg2abs(gregDate));
numBuf[19] = '\0';
appendTo(&buf, &bufEnd, &bufIter, numBuf);
break;
}
case 't': /* holiday text */
appendTo(&buf, &bufEnd, &bufIter, text);
break;
/* default: */
/* die ("unknown %% escape: %s",formatIter); */
}
break;
default:
*bufIter++ = *formatIter;
break;
}
}
*bufIter++ = '\0';
strncpy( output, buf, maxOutputLen);
output[maxOutputLen-1] ='\0';
return output;
}
/* FIX: this wants to become gnu-ish */
void handleArgs(int argc, char *argv[])
{
char dummy[10];
date_t greg_today;
int option;
char *usage = /* not quite sure how compatible this is */
"usage: \n\
hebcal [-acdDehHiMoOrsStTwxy]\n\
[-b candle_lighting_minutes_before_sundown]\n\
[-I input_file]\n\
[-Y yahrtzeit_file]\n\
[-C city]\n\
[-L longitude -l latitude]\n\
[-m havdalah_minutes]\n\
[-z timezone]\n\
[-Z daylight_savings_scheme]\n\
[[month [day]] year]\n\
hebcal help\n\
hebcal info\n\
hebcal DST\n\
hebcal cities\n\
hebcal warranty\n\
hebcal copying\n";
setDate(&greg_today); /* keep the current greg. date here */
Getopt(argc, argv, "", 1);
while (EOF !=
(option = Getopt(argc, argv, "ab:cC:dDeFf:hHI:il:L:m:MoOrsStTwxyY:z:Z:8", 0)))
{
switch ((char) option)
{
case 'a': /* ashkenazis hebrew */
ashkenazis_sw = 1;
break;
case '8': /* ashkenazis hebrew */
iso8859_8_sw = 1;
break;
case 'b': /* candle_lighting_minutes_before_sundown */
if (!(sscanf(Optarg, "%d", &light_offset) == 1))
die("unable to read candle_lighting_minutes_before_sundown argument: %s", Optarg);
light_offset *= -1;
break;
case 'c': /* calculate candlelighting times on fridays */
candleLighting_sw = 1;
break;
case 'C':
localize_to_city(Optarg);
candleLighting_sw = 1;
break;
case 'd': /* print hebrew date */
printHebDates_sw = 1;
break;
case 'D': /* print hebrew date when there's */
/* something else to print */
printSomeHebDates_sw = 1;
break;
case 'I': /* input file */
inputFile_sw = 1;
if (!(inFile = fopen(Optarg, "r")))
die("could not open input file %s.", Optarg);
break;
case 'e': /* european date format */
euroDates_sw = 1;
break;
case 'f': /* output format */
formatString = strdup(Optarg);
break;
case 'F': /* Daf Yomi */
dafYomi_sw = 1;
break;
case 'h': /* suppress internal holidays */
noHolidays_sw = 1;
break;
case 'H': /* suppress use hebrew range dates */
hebrewDates_sw = 1;
break;
case 'i': /* use Israeli sedra scheme */
israel_sw = 1;
break;
case 'l': /* latitude */
latdeg = latmin = 0;
latp = 1;
if (sscanf(Optarg, "%d,%d", &latdeg, &latmin) < 2)
die("unable to read latitude argument: %s", Optarg);
if ((abs(latdeg) > 90) ||
latmin > 60 || latmin < 0)
die("latitude argument out of range", "");
latmin = abs(latmin);
if (latdeg < 0)
latmin = -latmin;
break;
case 'L': /* longitude */
longdeg = longmin = 0;
longp = 1;
if (sscanf(Optarg, "%d,%d", &longdeg, &longmin) < 2)
die("unable to read longitude argument: %s", Optarg);
if ((abs(longdeg) > 180) ||
longmin > 60 || longmin < 0)
die("longitude argument out of range", "");
longmin = abs(longmin);
if (longdeg < 0)
longmin = -longmin;
break;
case 'm': /* havdalah_minutes */
if (!(sscanf(Optarg, "%d", &havdalah_minutes) == 1))
die("unable to read havdalah_minutes argument: %s", Optarg);
break;
case 'M': /* print the molad */
printMolad_sw = 1;
break;
case 'o': /* print the omer */
printOmer_sw = 1;
break;
case 'O': /* print sunrise and sunset */
printSunriseSunset_sw = 1;
break;
case 'r': /* Tab-delineated Format */
tabs_sw = 1;
break;
case 's': /* print sedrot */
sedrot_sw = 1;
break;
case 'S': /* print sedra every day. */
sedraAllWeek_sw = 1;
break;
case 'T': /* do hebcal for today, omit gregorian date. */
noGreg_sw = 1;
/*** note this falls through to 't' case ***/
case 't': /* do hebcal for today. */
printHebDates_sw = 1;
rangeType = TODAY;
theMonth = greg_today.mm; /* year and month specified */
theDay = greg_today.dd; /* printc theDay of theMonth */
yearDirty = 1;
printOmer_sw = 1;
break;
case 'w': /* print days of the week */
weekday_sw = 1;
break;
case 'y': /* Print only last 2 digits of year */
yearDigits_sw = 1;
break;
case 'Y': /* input file */
yahrtzeitFile_sw = 1;
if (!(yFile = fopen(Optarg, "r")))
die("could not open yahrtzeit input file %s.", Optarg);
break;
case 'x': /* input file */
suppress_rosh_chodesh_sw = 1;
break;
case 'Z':
schemep = 1;
sscanf(Optarg, "%s", dummy);
set_DST_scheme(dummy);
break;
case 'z': /* time zone */
if (!(sscanf(Optarg, "%d", &TZ) == 1))
die("unable to read time zone argument: %s", Optarg);
if (!schemep)
DST_scheme = DST_NONE;
zonep = 1;
break;
default:
die(usage, "");
}
}
if (latp)
cityName = "User Defined City";
if (latp ^ longp)
die("You must enter BOTH the latitude and the longitude", "");
if( !strcmp(cityName, "Jerusalem" ))
light_offset = -40; /* does everyone hold by this? */
switch (argc - Optind) /* suck up the date */
{
case 0: /* process this year */
if (hebrewDates_sw)
theYear = abs2hebrew(greg2abs(greg_today)).yy;
else
theYear = greg_today.yy;
break;
case 1:
if (isAllNums(argv[Optind]))
{
theYear = atoi(argv[Optind]); /* just year specified */
yearDirty = 1; /* print whole year */
}
else if (0 == istrncasecmp(5, argv[Optind], "help"))
{
size_t lineNumber;
for (lineNumber = 0;
(lineNumber < sizeof(helpArray) / sizeof(char *));
lineNumber++)
{
puts(helpArray[lineNumber]);
}
exit(0);
}
else if (0 == istrncasecmp(3, argv[Optind], "info"))
{
print_version_data();
exit(0);
}
else if (0 == istrncasecmp(3, argv[Optind], "cities"))
{
print_city_data();
exit(0);
}
else if (0 == istrncasecmp(3, argv[Optind], "DST"))
{
print_DST_data();
exit(0);
}
else if (0 == istrncasecmp(3, argv[Optind], "copying"))
{
print_copying();
exit(0);
}
else if (0 == istrncasecmp(3, argv[Optind], "warranty"))
{
print_warranty();
exit(0);
}
else
die(usage, "");
break;
case 2:
if (!isAllNums(argv[Optind + 1]))
die(usage, "");
theYear = atoi(argv[Optind + 1]); /* print theMonth of theYear */
theMonth = lookup_hebrew_month(argv[Optind]);
if (theMonth)
{
hebrewDates_sw = 1; /* automagically turn it on */
if (theMonth == ADAR_II && !LEAP_YR_HEB(theYear))
theMonth = ADAR_I; /* silently fix this mistake */
}
else if (isAllNums(argv[Optind]))
if (hebrewDates_sw)
die("Don't use numbers to specify hebrew months.", "");
else
theMonth = atoi(argv[Optind]); /* gregorian month */
else if (hebrewDates_sw)
die("Unknown hebrew month: %s", argv[Optind]);
else
die(usage, ""); /* bad gregorian month. */
Optind++;
yearDirty = 1;
rangeType = MONTH;
break;
case 3:
if (!(isAllNums(argv[Optind + 1])
&& isAllNums(argv[Optind + 2])))
die(usage, "");
theDay = atoi(argv[Optind + 1]); /* print theDay of theMonth */
theYear = atoi(argv[Optind + 2]); /* print theMonth of theYear */
theMonth = lookup_hebrew_month(argv[Optind]);
if (theMonth)
{
hebrewDates_sw = 1; /* automagically turn it on */
if (theMonth == ADAR_II && !LEAP_YR_HEB(theYear))
theMonth = ADAR_I; /* silently fix this mistake */
}
else if (isAllNums(argv[Optind]))
if (hebrewDates_sw)
die("Don't use numbers to specify hebrew months.", "");
else
theMonth = atoi(argv[Optind]); /* gregorian month */
else if (hebrewDates_sw)
die("Unknown hebrew month: %s", argv[Optind]);
else
die("bad month.%s", usage); /* bad gregorian month. */
if (theDay < 1)
die("The day of the month must be greater than 0", "");
if (theMonth < 1)
die("The month must be greater than 0", "");
if (hebrewDates_sw)
{
if (theDay > max_days_in_heb_month(theMonth, theYear))
die("Sorry, there aren't that many days in %s (then)",
LANGUAGE2(hMonths[LEAP_YR_HEB(theYear)][theMonth].name));
}
else
{
if (theMonth > 12)
die("The month must be less than 13", "");
if (theDay > MonthLengths[LEAP(theYear)][theMonth])
die("Sorry, there aren't that many days in %s (then)",
eMonths[theMonth]);
}
rangeType = DAY;
yearDirty = 1;
break;
default:
die(usage, "");
}
}
int dayOfWeek(date_t d1) /* sunday = 0 */
{
return (int) (greg2abs (d1) % 7L);
}
void incDate (date_t *dt, long n) /* increments dt by n days */
{
*dt = abs2greg (greg2abs (*dt) + n);
}
