home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume38 / remind / patch07b / patch.07.A
Text File  |  1993-07-22  |  39KB  |  1,184 lines
  1. Prereq: "03.00.06"
  2. See the patched file "WHATSNEW.30" for a list of
  3. changes in this patch.
  4. *** ../p6/version.h    Fri Apr 23 12:59:49 1993
  5. --- ./version.h    Mon Jun 28 12:29:33 1993
  6. ***************
  7. *** 9,12 ****
  8.   /*                                                             */
  9.   /***************************************************************/
  10.   
  11. ! #define VERSION "03.00.06"
  12. --- 9,12 ----
  13.   /*                                                             */
  14.   /***************************************************************/
  15.   
  16. ! #define VERSION "03.00.07"
  17. *** ../p6/Makefile    Fri Apr 23 13:00:44 1993
  18. --- ./Makefile    Mon Jun 28 12:30:00 1993
  19. ***************
  20. *** 12,18 ****
  21.   
  22.   # Uncomment the next line if you want to use gcc instead of default compiler
  23.   CC= gcc
  24. ! 
  25.   # Put any additional flags for the C compiler or linker here
  26.   CFLAGS= -O -ansi
  27.   CDEFS=
  28. --- 12,18 ----
  29.   
  30.   # Uncomment the next line if you want to use gcc instead of default compiler
  31.   CC= gcc
  32. ! LD= gcc
  33.   # Put any additional flags for the C compiler or linker here
  34.   CFLAGS= -O -ansi
  35.   CDEFS=
  36. ***************
  37. *** 46,52 ****
  38.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  39.   # in config.h; then, you should be able to type 'make'.
  40.   #-----------------------------------------------------------------------------
  41. ! VERSION= 03.00.06
  42.   
  43.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  44.   lang.h english.h german.h dutch.h finnish.h
  45. --- 46,53 ----
  46.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  47.   # in config.h; then, you should be able to type 'make'.
  48.   #-----------------------------------------------------------------------------
  49. ! VERSION= 03.00.07
  50. ! MATHLIB= -lm
  51.   
  52.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  53.   lang.h english.h german.h dutch.h finnish.h
  54. ***************
  55. *** 70,79 ****
  56.       $(CC) $(UNIX) $(SYSV) -c -o $*.o $(CFLAGS) $(CDEFS) $*.c
  57.   
  58.   rem2ps: rem2ps.o
  59. !     $(CC) $(LDFLAGS) -o rem2ps rem2ps.o
  60.   
  61.   remind: $(OBJS)
  62. !     $(CC) $(LDFLAGS) -o remind $(OBJS)
  63.   
  64.   clean:
  65.       rm -f *.o *~
  66. --- 71,80 ----
  67.       $(CC) $(UNIX) $(SYSV) -c -o $*.o $(CFLAGS) $(CDEFS) $*.c
  68.   
  69.   rem2ps: rem2ps.o
  70. !     $(LD) $(LDFLAGS) -o rem2ps rem2ps.o
  71.   
  72.   remind: $(OBJS)
  73. !     $(LD) $(LDFLAGS) -o remind $(OBJS) $(MATHLIB)
  74.   
  75.   clean:
  76.       rm -f *.o *~
  77. ***************
  78. *** 105,112 ****
  79.   var.o: var.c $(STDHDRS) expr.h
  80.   
  81.   tarZ:
  82. !     tar cvf remind-3.0.6.tar $(MANIFEST)
  83. !     compress -v remind-3.0.6.tar
  84.   
  85.   shar:
  86.       shar -x -n"Remind $(VERSION)" -l45 -o./Shar $(MANIFEST)
  87. --- 106,113 ----
  88.   var.o: var.c $(STDHDRS) expr.h
  89.   
  90.   tarZ:
  91. !     tar cvf remind-3.0.7.tar $(MANIFEST)
  92. !     compress -v remind-3.0.7.tar
  93.   
  94.   shar:
  95.       shar -x -n"Remind $(VERSION)" -l45 -o./Shar $(MANIFEST)
  96. *** ../p6/README.UNIX    Thu Apr 22 10:24:13 1993
  97. --- ./README.UNIX    Mon Jun 28 12:29:27 1993
  98. ***************
  99. *** 32,38 ****
  100.   script.
  101.   
  102.   *** NOTE *** Please be aware that "remind-all.csh" and "remind-all.sh"
  103. ! have been changed since the last release of Remind.  If you install
  104.   the new remind executable, make sure you switch over to the new
  105.   "remind-all" scripts.
  106.   
  107. --- 32,38 ----
  108.   script.
  109.   
  110.   *** NOTE *** Please be aware that "remind-all.csh" and "remind-all.sh"
  111. ! have been changed since version 03.00.05 of Remind.  If you install
  112.   the new remind executable, make sure you switch over to the new
  113.   "remind-all" scripts.
  114.   
  115. *** ../p6/WHATSNEW.30    Mon May  3 11:00:51 1993
  116. --- ./WHATSNEW.30    Mon Jul 19 10:59:32 1993
  117. ***************
  118. *** 1,5 ****
  119. --- 1,48 ----
  120.   CHANGES TO REMIND
  121.   
  122. + * Version 3.0 Patch 7
  123. + 
  124. + + MAJOR ENHANCEMENTS
  125. + 
  126. + - Added "system variables" to allow the user more control over
  127. +   Remind operation, and to allow queries about the command-line
  128. +   options from within a reminder script.  They allow for specification
  129. +   of longitude and latitude for use by sunrise/sunset calculations.
  130. + 
  131. + - Added sunrise(), sunset(), isdst() and minsfromutc() functions -
  132. +   these are needed to support sunrise and sunset calculations.
  133. + 
  134. + + MINOR ENHANCEMENTS
  135. + 
  136. + - Allowed the MSG, RUN, CAL, PS and PSF keywords to be used in the
  137. +   same reminder as the SATISFY keyword.  This makes many complex
  138. +   reminders more compact.
  139. + 
  140. + - Added the filedir() function to enable Remind's include to emulate
  141. +   CPP's #include more closely.
  142. + 
  143. + - Allowed non-root users to use the "-u" option.  It only affects
  144. +   the "SHELL", "HOME", "USER" and "LOGNAME" environment variables -
  145. +   it doesn't change the effective uid and gid when run by non-root.
  146. + 
  147. + - Added built-in function "easterdate" to calculate date of Easter
  148. +   Sunday - function courtesy of Michael Salmon.
  149. + 
  150. + - Improved the Jewish holiday reminders in "defs.rem" to give advance
  151. +   notice of holidays.
  152. + 
  153. + - Allowed the "simple calendar" option (-s) to specify a number of
  154. +   weeks as well as a number of months, in the same fashion as the
  155. +   -c option.  Thanks to Dave Rickel.
  156. + 
  157. + + BUG FIXES
  158. + 
  159. + - Corrected the behaviour of "hebdate" for jahrzeits; added an additional
  160. +   parameter to specify the behaviour of dates in Adar during leap years.
  161. + 
  162. + - Changed kall so that "kall sh" doesn't commit suicide - patch courtesy
  163. +   of Michael Salmon.
  164. + 
  165.   * Version 3.0 Patch 6
  166.   
  167.   + MINOR ENHANCEMENTS
  168. *** ../p6/calendar.c    Mon May  3 12:01:29 1993
  169. --- ./calendar.c    Mon Jun 28 13:08:26 1993
  170. ***************
  171. *** 83,91 ****
  172.      } else {
  173.         JulianToday -= ((JulianToday+1)%7);
  174.   
  175. !       WriteIntermediateCalLine();
  176. !       WriteCalDays();
  177. !       WriteIntermediateCalLine();
  178.   
  179.         while (CalWeeks--)
  180.            DoCalendarOneWeek();
  181. --- 83,93 ----
  182.      } else {
  183.         JulianToday -= ((JulianToday+1)%7);
  184.   
  185. !       if (!DoSimpleCalendar) {
  186. !          WriteIntermediateCalLine();
  187. !          WriteCalDays();
  188. !          WriteIntermediateCalLine();
  189. !       }
  190.   
  191.         while (CalWeeks--)
  192.            DoCalendarOneWeek();
  193. ***************
  194. *** 106,112 ****
  195.   static void DoCalendarOneWeek()
  196.   #endif
  197.   {
  198. !    int y, m, d, done, i, l;
  199.      char buf[81];
  200.      int LinesWritten = 0;
  201.      int OrigJul = JulianToday;
  202. --- 108,114 ----
  203.   static void DoCalendarOneWeek()
  204.   #endif
  205.   {
  206. !    int y, m, d, done, i, l, wd;
  207.      char buf[81];
  208.      int LinesWritten = 0;
  209.      int OrigJul = JulianToday;
  210. ***************
  211. *** 119,124 ****
  212. --- 121,135 ----
  213.   
  214.   /* Output the entries */
  215.   
  216. + /* If it's "Simple Calendar" format, do it simply... */
  217. +    if (DoSimpleCalendar) {
  218. +       wd = (JulianToday + 1) % 7;
  219. +       for (i=0; i<7; i++) {
  220. +          WriteSimpleEntries(i, OrigJul+i-wd);
  221. +       }
  222. +       return;
  223. +    }
  224. + 
  225.   /* Here come the first few lines... */
  226.      putchar('|');
  227.      for (i=0; i<7; i++) {
  228. ***************
  229. *** 464,469 ****
  230. --- 475,481 ----
  231.      ClearGlobalOmits();
  232.      DestroyOmitContexts();
  233.      DestroyVars();
  234. +    NumTriggered = 0;
  235.   
  236.      r=OpenFile(InitialFile);
  237.      if (r) {
  238. ***************
  239. *** 618,623 ****
  240. --- 630,637 ----
  241.      CalEntry *CurPs = CalPs[col];
  242.      CalEntry *e;
  243.      char *s;
  244. +    char buf[TOKSIZE];
  245. +    Token tok;
  246.   
  247.      /* Parse the trigger date and time */
  248.      if ( (r=ParseRem(p, &trig, &tim)) ) return r;
  249. ***************
  250. *** 627,637 ****
  251.      if (DontIssueAts && tim.ttime != NO_TIME) return OK;
  252.   #endif
  253.      if (trig.typ == NO_TYPE) return E_EOLN;
  254. !    if (trig.typ == SAT_TYPE) return DoSatRemind(&trig, &tim, p);
  255. ! 
  256.      /* Calculate the trigger date */
  257. !    jul = ComputeTrigger(trig.scanfrom, &trig, &r);
  258. !    if (r) return r;
  259.      if (!PsCal && (trig.typ == PS_TYPE || trig.typ == PSF_TYPE)) return OK;
  260.   
  261.      /* Remove any "at" times from PS or PSFILE reminders */
  262. --- 641,663 ----
  263.      if (DontIssueAts && tim.ttime != NO_TIME) return OK;
  264.   #endif
  265.      if (trig.typ == NO_TYPE) return E_EOLN;
  266. !    if (trig.typ == SAT_TYPE) {
  267. !       r=DoSatRemind(&trig, &tim, p);
  268. !       if (r) return r;
  269. !       r=ParseToken(p, buf);
  270. !       if (r) return r;
  271. !       FindToken(buf, &tok);
  272. !       if (tok.type == T_Empty || tok.type == T_Comment) return OK;
  273. !       if (tok.type != T_RemType || tok.val == SAT_TYPE) return E_PARSE_ERR;
  274. !       trig.typ = tok.val;
  275. !       jul = LastTriggerDate;
  276. !       if (!LastTrigValid) return OK;
  277. !    } else {
  278.      /* Calculate the trigger date */
  279. !       jul = ComputeTrigger(trig.scanfrom, &trig, &r);
  280. !       if (r) return r;
  281. !    }
  282. ! 
  283.      if (!PsCal && (trig.typ == PS_TYPE || trig.typ == PSF_TYPE)) return OK;
  284.   
  285.      /* Remove any "at" times from PS or PSFILE reminders */
  286. ***************
  287. *** 639,644 ****
  288. --- 665,671 ----
  289.   
  290.      /* If trigger date == today, add it to the current entry */   
  291.      if (jul == JulianToday) {
  292. +       NumTriggered++;
  293.         s = SubstBuffer;
  294.         if (DoSimpleCalendar || tim.ttime != NO_TIME)
  295.            s += strlen(SimpleTime(tim.ttime, s));
  296. *** ../p6/config.h    Thu Apr 22 10:24:02 1993
  297. --- ./config.h    Mon Jun 28 12:29:29 1993
  298. ***************
  299. *** 12,17 ****
  300. --- 12,41 ----
  301.   /***************************************************************/
  302.   
  303.   /*---------------------------------------------------------------------*/
  304. + /* LAT_DEG, LAT_MIN and LAT_SEC:  Latitude of your location            */
  305. + /* LONG_DEG, LONG_MIN and LONG_SEC: Longitude of your location         */
  306. + /* For latitude, north is positive, south is negative.                 */
  307. + /* For longitude, west is positive, east is negative.                  */
  308. + /* NOTE:  For negative numbers, all three of DEG, MIN, SEC should be   */
  309. + /*        negative.  To indicate -20deg22'33" use                      */
  310. + /*        DEG=-20, MIN=-22 and SEC=-33.                                */
  311. + /* The default values are initially set to Ottawa, Ontario, Canada.    */
  312. + /*---------------------------------------------------------------------*/
  313. + #define LAT_DEG  45
  314. + #define LAT_MIN  24
  315. + #define LAT_SEC  00
  316. + #define LONG_DEG 75
  317. + #define LONG_MIN 39
  318. + #define LONG_SEC  0
  319. + 
  320. + /*---------------------------------------------------------------------*/
  321. + /* HAVE_MKTIME: Define this if your C library includes the mktime()    */
  322. + /*              function.  Otherwise, will attempt to use the Unix     */
  323. + /*              style time manipulations.                              */
  324. + /*---------------------------------------------------------------------*/
  325. + #define HAVE_MKTIME 1
  326. + 
  327. + /*---------------------------------------------------------------------*/
  328.   /* DEFAULT_PAGE:  The default page size to use for Rem2PS.             */
  329.   /* The Letter version is appropriate for North America; the A4 version */
  330.   /* is appropriate for Europe.                                          */
  331. ***************
  332. *** 72,78 ****
  333.   /*       IMPORTANT NOTE:  The Hebrew date routines depend on BASE      */
  334.   /*       being set to 1990.  If you change it, you'll have to add the  */
  335.   /*       number of days between 1 Jan <NEWBASE> and 1 Jan 1990 to the  */
  336. ! /*       manifest constant CORRECTION in hbcal.c                       */
  337.   /*---------------------------------------------------------------------*/
  338.   #define BASE 1990
  339.   
  340. --- 96,103 ----
  341.   /*       IMPORTANT NOTE:  The Hebrew date routines depend on BASE      */
  342.   /*       being set to 1990.  If you change it, you'll have to add the  */
  343.   /*       number of days between 1 Jan <NEWBASE> and 1 Jan 1990 to the  */
  344. ! /*       manifest constant CORRECTION in hbcal.c.  Also, the year      */
  345. ! /*       folding mechanism in main.c depends on BASE<2001.             */
  346.   /*---------------------------------------------------------------------*/
  347.   #define BASE 1990
  348.   
  349. ***************
  350. *** 86,92 ****
  351.   #define YR_RANGE 88
  352.   
  353.   /*---------------------------------------------------------------------*/
  354. ! /* VAR_NAME_LEN: The maximum length of variable names                  */
  355.   /*---------------------------------------------------------------------*/
  356.   #define VAR_NAME_LEN 12
  357.   
  358. --- 111,118 ----
  359.   #define YR_RANGE 88
  360.   
  361.   /*---------------------------------------------------------------------*/
  362. ! /* VAR_NAME_LEN: The maximum length of variable names.  Don't make it  */
  363. ! /*               any less than 12.                                     */
  364.   /*---------------------------------------------------------------------*/
  365.   #define VAR_NAME_LEN 12
  366.   
  367. *** ../p6/defs.rem    Mon May  3 10:29:12 1993
  368. --- ./defs.rem    Fri Jul 16 15:28:09 1993
  369. ***************
  370. *** 25,32 ****
  371.   ################################################
  372.   # Ensure required version of remind is used... #
  373.   ################################################
  374. ! IF version() < "03.00.06"
  375. !    ERRMSG This file requires at least version 03.00.06 of Remind.%
  376.      ERRMSG This version is version [version()].
  377.      EXIT
  378.   ENDIF
  379. --- 25,32 ----
  380.   ################################################
  381.   # Ensure required version of remind is used... #
  382.   ################################################
  383. ! IF version() < "03.00.07"
  384. !    ERRMSG This file requires at least version 03.00.07 of Remind.%
  385.      ERRMSG This version is version [version()].
  386.      EXIT
  387.   ENDIF
  388. ***************
  389. *** 100,105 ****
  390. --- 100,145 ----
  391.   FSET _back(days)    TRIGGER(TODAY()-days)
  392.   
  393.   ###########################################################
  394. + # On MS-DOS systems, the standard C library functions are #
  395. + # not reliable for computing offsets from local time to   #
  396. + # UTC.  The following provides a work-around for the      #
  397. + # sunrise() and sunset() functions.  Note, however, that  #
  398. + # if Daylight Savings Time is in effect for today(), the  #
  399. + # sun functions return times in DST even for dates on     #
  400. + # which DST is not in effect; the converse can also occur.#
  401. + #                                                         #
  402. + # Change the timezone to your timezone - the default is   #
  403. + # for EST which is 5 hours (300 minutes) behind UTC.      #
  404. + # The code is correct for places in which Daylight Savings#
  405. + # Time begins on the last Sunday in March and ends on the #
  406. + # last Sunday in October.                                 #
  407. + ###########################################################
  408. + 
  409. + IF OSTYPE() == "MSDOS"
  410. +     # Eastern Standard Time
  411. +     SET TimeZone -300
  412. + 
  413. +     # Use --8 rather than --7 because we want the last day BEFORE
  414. +     # the time switch occurs.
  415. +     REM Sun 1 Apr --8 SATISFY 1
  416. +     SET BegDst TRIGDATE()
  417. + 
  418. +     REM Sun 1 Nov --8 SATISFY 1
  419. +     SET EndDst TRIGDATE()
  420. + 
  421. +     SET $CalcUTC 0
  422. + 
  423. +     # Check out the following IF statement and figure out why it works!
  424. +     IF EndDst < BegDst
  425. +         # Daylight Savings Time
  426. +         SET $MinsFromUTC TimeZone+60
  427. +     ELSE
  428. +         # Standard Time
  429. +         SET $MinsFromUTC TimeZone
  430. +     ENDIF
  431. + ENDIF
  432. + 
  433. + ###########################################################
  434.   # Function which returns a string in "am/pm" format based #
  435.   # on the time.  For example, set a am_pm(NOW())...        #
  436.   ###########################################################
  437. ***************
  438. *** 219,226 ****
  439.   # on 2 Jan rather than 8 Jan.  We add 6 to TRIGDATE() in _IsMortDate to
  440.   # compensate.
  441.   
  442. ! REM 2 Jan 1993 *14 SATISFY _IsMortDate(TRIGDATE()+6)
  443. ! REM [TRIGGER(TRIGDATE())] ++4 MSG %"Schedule mortgage payment%" for %a.
  444.   
  445.   # Now the mail reminder two weeks before the payment date - because two
  446.   # weeks before a payment date is also a payment date, no pre-compensation
  447. --- 259,266 ----
  448.   # on 2 Jan rather than 8 Jan.  We add 6 to TRIGDATE() in _IsMortDate to
  449.   # compensate.
  450.   
  451. ! REM 2 Jan 1993 *14 ++4 SATISFY [_IsMortDate(TRIGDATE()+6)] \
  452. !     MSG %"Schedule mortgage payment%" for %a.
  453.   
  454.   # Now the mail reminder two weeks before the payment date - because two
  455.   # weeks before a payment date is also a payment date, no pre-compensation
  456. ***************
  457. *** 227,242 ****
  458.   # in the starting date of 8 Jan is necessary - convince yourself of this!
  459.   # This uses the _mail() function defined earlier.
  460.   
  461. ! REM 8 Jan 1993 *14 SATISFY _IsMortDate(TRIGDATE()+14)
  462. ! REM [TRIGGER(TRIGDATE())] ONCE RUN [_mail("Decatur Federal", \
  463. !     "Pay mortgage by the " + ORD(DAY(TRIGDATE()+14)))]
  464.   
  465.   # Make an entry on the calendar when the mortgage should be paid
  466.   
  467. ! REM 8 Jan 1993 *14 SATISFY _IsMortDate(TRIGDATE())
  468. ! REM [TRIGGER(TRIGDATE())] CAL Mortgage payment
  469.   
  470.   
  471.   #USHOLS
  472.   #############################################################################
  473.   #                                           #
  474. --- 267,312 ----
  475.   # in the starting date of 8 Jan is necessary - convince yourself of this!
  476.   # This uses the _mail() function defined earlier.
  477.   
  478. ! REM ONCE 8 Jan 1993 *14 SATISFY [_IsMortDate(TRIGDATE()+14)] \
  479. !     RUN [_mail("Decatur Federal", \
  480. !         "Pay mortgage by the " + ORD(DAY(TRIGDATE()+14)))]
  481.   
  482.   # Make an entry on the calendar when the mortgage should be paid
  483.   
  484. ! REM 8 Jan 1993 *14 SATISFY [_IsMortDate(TRIGDATE())] \
  485. !     CAL Mortgage payment
  486.   
  487. + #PSSTUFF
  488. + ##########################################################################
  489. + #                                         #
  490. + # This portion of the file contains some cute examples of the new        #
  491. + # PS-type reminders.  You need a PostScript printer or viewer to         #
  492. + # appreciate these.  To use them, pipe the output of remind -p into the  #
  493. + # rem2ps program.                                                        #
  494. + #                                         #
  495. + ##########################################################################
  496.   
  497. + # Convenient to stick all the PostScript code in a string var - makes
  498. + # reminders easier to understand.  The variable "shade" will contain
  499. + # PostScript code to shade in a particular box on the calendar.
  500. + SET shade \
  501. + "/_A LineWidth 2 div def \
  502. + _A _A moveto \
  503. + BoxWidth _A sub _A lineto \
  504. + BoxWidth _A sub BoxHeight _A sub lineto \
  505. + _A BoxHeight _A sub lineto \
  506. + closepath 0.95 setgray fill 0.0 setgray"
  507. + 
  508. + # The following reminder will shade the Saturday and Sunday calendar
  509. + # entries. 
  510. + REM Sat Sun PS [shade]
  511. + 
  512. + # The following will fill in the Hebrew dates on the calendar.  For this
  513. + # example, I recommend that you use the "-sd 10" option for rem2ps.
  514. + REM PS Border BoxHeight Border sub DaySize sub moveto \
  515. +    /DayFont findfont DaySize scalefont setfont \
  516. +    ([hebday(today())] [hebmon(today())]) show
  517. + 
  518.   #USHOLS
  519.   #############################################################################
  520.   #                                           #
  521. ***************
  522. *** 245,260 ****
  523.   #                                        #
  524.   #############################################################################
  525.   
  526. ! IF !DEFINED("easter")
  527. !     SET a YEAR(TODAY())
  528. !     SET b (a/100 - (a/100 + 8) % 25 + 1) / 3
  529. !     SET c (a%19*19 + a/100 - a/400 - b + 15) % 30
  530. !     SET d (32 + a/100%4*2 + (a%100/4*2) - c - a%100%4) % 7
  531. !     SET e c + d - (((a%19) + c*11 + d*22) / 451) * 7 + 114
  532. !     SET easter DATE(a, e / 31, e % 31 + 1)
  533. !     PRESERVE easter
  534. ! ENDIF
  535. ! 
  536.   REM  [TRIGGER(easter-46)] MSG %"Ash Wednesday%"
  537.   REM  [TRIGGER(easter-7)]  MSG %"Palm Sunday%"
  538.   OMIT [TRIGGER(easter-2)]  MSG %"Good Friday%"
  539. --- 315,322 ----
  540.   #                                        #
  541.   #############################################################################
  542.   
  543. ! SET SaveTrig $NumTrig
  544. ! SET easter EASTERDATE(YEAR(TODAY()))
  545.   REM  [TRIGGER(easter-46)] MSG %"Ash Wednesday%"
  546.   REM  [TRIGGER(easter-7)]  MSG %"Palm Sunday%"
  547.   OMIT [TRIGGER(easter-2)]  MSG %"Good Friday%"
  548. ***************
  549. *** 292,299 ****
  550.   REM  Sun [_last(Oct)]    MSG Daylight Savings Time - %"DST over%"
  551.   REM      Oct 30        MSG %"Mischief Night%"
  552.   REM      Oct 31        MSG %"Halloween%"
  553. ! REM  Tue Nov  2        SCANFROM [_back(7)] SATISFY (YEAR(TRIGDATE()) % 4) == 0
  554. !             REM [_trig()] MSG %"Election%" Day
  555.   REM  Thu Nov [Week_4]    SCANFROM [_back(7)] SATISFY 1
  556.               OMIT [_trig()] MSG %"Thanksgiving%" Day
  557.   REM  Fri Nov [Week_4+1]    SCANFROM [_back(7)] SATISFY 1
  558. --- 354,362 ----
  559.   REM  Sun [_last(Oct)]    MSG Daylight Savings Time - %"DST over%"
  560.   REM      Oct 30        MSG %"Mischief Night%"
  561.   REM      Oct 31        MSG %"Halloween%"
  562. ! REM  Tue Nov  2        SCANFROM [_back(7)] \
  563. !     SATISFY [(YEAR(TRIGDATE()) % 4) == 0] \
  564. !     MSG %"Election%" Day
  565.   REM  Thu Nov [Week_4]    SCANFROM [_back(7)] SATISFY 1
  566.               OMIT [_trig()] MSG %"Thanksgiving%" Day
  567.   REM  Fri Nov [Week_4+1]    SCANFROM [_back(7)] SATISFY 1
  568. ***************
  569. *** 301,306 ****
  570. --- 364,381 ----
  571.   OMIT     Dec 24        MSG %"Christmas Eve%"
  572.   OMIT     Dec 25        MSG %"Christmas%" Day
  573.   
  574. + ##########################################################################
  575. + #                                         #
  576. + # The next block uses the shade variable defined in PSSTUFF above.       #
  577. + # If any US holidays were triggered above, shade in the calendar         #
  578. + # entry in PostScript.  This is not quite correct, as it blots out the   #
  579. + # other PostScript stuff above.  I was too lazy to do it properly :-)    #
  580. + #                                         #
  581. + ##########################################################################
  582. + if $NumTrig > SaveTrig
  583. +     REM PS [shade]
  584. + endif
  585. + 
  586.   # Seasons (valid from 1992 to 2000)...
  587.   REM Mar 20 MSG %"Spring%" begins
  588.   REM Jun [IIF(YEAR(TODAY())%4, 21, 20)] MSG %"Summer%" begins
  589. ***************
  590. *** 315,325 ****
  591.   # dates were obtained from "The First Jewish Catalog" by Richard Siegel     #
  592.   # and Michael and Sharon Strassfeld, published by the Jewish Publication #
  593.   # Society of America.  The Reform version of the calendar was guessed     #
  594. ! # at by David Skoll based on experience # I welcome corrections.     #
  595.   #                                     #
  596. - # You (probably) want to add deltas to some of the reminders so that     #
  597. - # you are given advance notice of Jewish holidays.             #
  598. - #                                         #
  599.   ##########################################################################
  600.   
  601.   # Here are some general functions that you might find nice to use
  602. --- 390,397 ----
  603.   # dates were obtained from "The First Jewish Catalog" by Richard Siegel     #
  604.   # and Michael and Sharon Strassfeld, published by the Jewish Publication #
  605.   # Society of America.  The Reform version of the calendar was guessed     #
  606. ! # at by David Skoll based on experience.  I welcome corrections.         #
  607.   #                                     #
  608.   ##########################################################################
  609.   
  610.   # Here are some general functions that you might find nice to use
  611. ***************
  612. *** 348,429 ****
  613.   SET InIsrael VALUE("InIsrael", 0)
  614.   SET Reform   VALUE("Reform", 0)
  615.   
  616. ! [_h(1,  "Tishrey")] MSG Rosh Hashana 1
  617.   
  618.   # No RH-2 or Tzom Gedalia in Reform
  619.   IF !Reform
  620. !    [_h(2,  "Tishrey")] MSG Rosh Hashana 2
  621. !    [_h(3,  "Tishrey")] MSG Tzom Gedalia
  622.   ENDIF
  623.   
  624. ! [_h(10, "Tishrey")] MSG Yom Kippur
  625. ! [_h(15, "Tishrey")] MSG Sukkot 1
  626.   
  627.   IF !InIsrael
  628. !    [_h(16, "Tishrey")] MSG Sukkot 2
  629.   ENDIF
  630.   
  631. ! [_h(21, "Tishrey")] MSG Hashana Rabba
  632. ! [_h(22, "Tishrey")] MSG Shemini Atzeret
  633.   
  634.   IF InIsrael
  635. !    [_h(22, "Tishrey")] MSG Simchat Torah
  636.   ELSE
  637. !    [_h(23, "Tishrey")] MSG Simchat Torah
  638.   ENDIF
  639.   
  640.   # Because Kislev can change length, we must be more careful about Chanukah
  641.   FSET _chan(x) TRIGGER(HEBDATE(24, "Kislev", today()-9)+x)
  642. ! [_chan(1)] MSG Chanukah 1
  643. ! [_chan(2)] MSG Chanukah 2
  644. ! [_chan(3)] MSG Chanukah 3
  645. ! [_chan(4)] MSG Chanukah 4
  646. ! [_chan(5)] MSG Chanukah 5
  647. ! [_chan(6)] MSG Chanukah 6
  648. ! [_chan(7)] MSG Chanukah 7
  649. ! [_chan(8)] MSG Chanukah 8
  650.   
  651.   # Not sure about Reform's position on the next one.
  652.   IF !Reform
  653. !    [_h(10, "Tevet")] MSG Asara B'Tevet
  654.   ENDIF
  655.   
  656. ! [_h(15, "Shvat")] MSG Tu B'Shvat
  657. ! [_h(15, "Adar A")] MSG Purim Katan
  658. ! [_h(13, "Adar")] MSG Fast of Esther
  659. ! [_h(14, "Adar")] MSG Purim
  660. ! [_h(15, "Nisan")] MSG Pesach
  661.   
  662.   IF !InIsrael
  663. !    [_h(16, "Nisan")] MSG Pesach 2
  664.   ENDIF
  665.   
  666. ! [_h(21, "Nisan")] MSG Pesach 7
  667.   
  668.   IF !InIsrael && !Reform
  669. !    [_h(22, "Nisan")] MSG Pesach 8
  670.   ENDIF
  671.   
  672. ! [_h(27, "Nisan")] MSG Yom HaShoah
  673. ! [_h(4,  "Iyar")] MSG Yom HaZikaron
  674. ! [_h(5,  "Iyar")] MSG Yom Ha'atzmaut
  675.   
  676.   # Not sure about Reform's position on Lag B'Omer
  677.   IF !Reform
  678. !    [_h(18, "Iyar")] MSG Lag B'Omer
  679.   ENDIF
  680.   
  681. ! [_h(28, "Iyar")] MSG Yom Yerushalayim
  682. ! [_h(6,  "Sivan")] MSG Shavuot
  683.   
  684.   IF !InIsrael && !Reform
  685. !    [_h(7, "Sivan")] MSG Shavuot 2
  686.   ENDIF
  687.   
  688.   # Fairly sure Reform Jews don't observe the next two
  689.   IF !Reform
  690. !    [_h(17, "Tamuz")] MSG Fast of 17th of Tammuz
  691. !    [_h(9,  "Av")] MSG Tish'a B'Av
  692.   ENDIF
  693.   
  694.   # Counting the omer - do the whole spiel, i.e:
  695. --- 420,501 ----
  696.   SET InIsrael VALUE("InIsrael", 0)
  697.   SET Reform   VALUE("Reform", 0)
  698.   
  699. ! [_h(1,  "Tishrey")] ++4 MSG %"Rosh Hashana 1%" is %b.
  700.   
  701.   # No RH-2 or Tzom Gedalia in Reform
  702.   IF !Reform
  703. !    [_h(2,  "Tishrey")] ++4 MSG %"Rosh Hashana 2%" is %b.
  704. !    [_h(3,  "Tishrey")] ++4 MSG %"Tzom Gedalia%" is %b.
  705.   ENDIF
  706.   
  707. ! [_h(10, "Tishrey")] ++4 MSG %"Yom Kippur%" is %b.
  708. ! [_h(15, "Tishrey")] ++4 MSG %"Sukkot 1%" is %b.
  709.   
  710.   IF !InIsrael
  711. !    [_h(16, "Tishrey")] MSG %"Sukkot 2%"
  712.   ENDIF
  713.   
  714. ! [_h(21, "Tishrey")] ++4 MSG %"Hashana Rabba%" is %b.
  715. ! [_h(22, "Tishrey")] ++4 MSG %"Shemini Atzeret%" is %b.
  716.   
  717.   IF InIsrael
  718. !    [_h(22, "Tishrey")] ++4 MSG %"Simchat Torah%" is %b.
  719.   ELSE
  720. !    [_h(23, "Tishrey")] ++4 MSG %"Simchat Torah%" is %b.
  721.   ENDIF
  722.   
  723.   # Because Kislev can change length, we must be more careful about Chanukah
  724.   FSET _chan(x) TRIGGER(HEBDATE(24, "Kislev", today()-9)+x)
  725. ! [_chan(1)] ++4 MSG %"Chanukah 1%" is %b.
  726. ! [_chan(2)] MSG %"Chanukah 2%"
  727. ! [_chan(3)] MSG %"Chanukah 3%"
  728. ! [_chan(4)] MSG %"Chanukah 4%"
  729. ! [_chan(5)] MSG %"Chanukah 5%"
  730. ! [_chan(6)] MSG %"Chanukah 6%"
  731. ! [_chan(7)] MSG %"Chanukah 7%"
  732. ! [_chan(8)] MSG %"Chanukah 8%"
  733.   
  734.   # Not sure about Reform's position on the next one.
  735.   IF !Reform
  736. !    [_h(10, "Tevet")] ++4 MSG %"Asara B'Tevet%" is %b.
  737.   ENDIF
  738.   
  739. ! [_h(15, "Shvat")] ++4 MSG %"Tu B'Shvat%" is %b.
  740. ! [_h(15, "Adar A")] ++4 MSG %"Purim Katan%" is %b.
  741. ! [_h(13, "Adar")] ++4 MSG %"Fast of Esther%" is %b.
  742. ! [_h(14, "Adar")] ++4 MSG %"Purim%" is %b.
  743. ! [_h(15, "Nisan")] ++4 MSG %"Pesach%" is %b.
  744.   
  745.   IF !InIsrael
  746. !    [_h(16, "Nisan")] MSG %"Pesach 2%"
  747.   ENDIF
  748.   
  749. ! [_h(21, "Nisan")] MSG %"Pesach 7%"
  750.   
  751.   IF !InIsrael && !Reform
  752. !    [_h(22, "Nisan")] MSG %"Pesach 8%"
  753.   ENDIF
  754.   
  755. ! [_h(27, "Nisan")] ++4 MSG %"Yom HaShoah%" is %b.
  756. ! [_h(4,  "Iyar")] ++4 MSG %"Yom HaZikaron%" is %b.
  757. ! [_h(5,  "Iyar")] ++4 MSG %"Yom Ha'atzmaut%" is %b.
  758.   
  759.   # Not sure about Reform's position on Lag B'Omer
  760.   IF !Reform
  761. !    [_h(18, "Iyar")] ++4 MSG %"Lag B'Omer%" is %b.
  762.   ENDIF
  763.   
  764. ! [_h(28, "Iyar")] ++4 MSG %"Yom Yerushalayim%" is %b.
  765. ! [_h(6,  "Sivan")] ++4 MSG %"Shavuot%" is %b.
  766.   
  767.   IF !InIsrael && !Reform
  768. !    [_h(7, "Sivan")] MSG %"Shavuot 2%"
  769.   ENDIF
  770.   
  771.   # Fairly sure Reform Jews don't observe the next two
  772.   IF !Reform
  773. !    [_h(17, "Tamuz")] ++4 MSG %"Fast of 17th of Tammuz%" is %b.
  774. !    [_h(9,  "Av")] ++4 MSG %"Tish'a B'Av%" is %b.
  775.   ENDIF
  776.   
  777.   # Counting the omer - do the whole spiel, i.e:
  778. ***************
  779. *** 444,476 ****
  780.      CAL [ORD(odays)] of Omer
  781.   ENDIF
  782.   
  783. ! #PSSTUFF
  784. ! ##########################################################################
  785. ! #                                         #
  786. ! # This portion of the file contains some cute examples of the new        #
  787. ! # PS-type reminders.  You need a PostScript printer or viewer to         #
  788. ! # appreciate these.  To use them, pipe the output of remind -p into the  #
  789. ! # rem2ps program.                                                        #
  790. ! #                                         #
  791. ! ##########################################################################
  792.   
  793. ! # Convenient to stick all the PostScript code in a string var - makes
  794. ! # reminders easier to understand.  The variable "shade" will contain
  795. ! # PostScript code to shade in a particular box on the calendar.
  796. ! SET shade \
  797. ! "/_A LineWidth 2 div def \
  798. ! _A _A moveto \
  799. ! BoxWidth _A sub _A lineto \
  800. ! BoxWidth _A sub BoxHeight _A sub lineto \
  801. ! _A BoxHeight _A sub lineto \
  802. ! closepath 0.95 setgray fill 0.0 setgray"
  803. ! 
  804. ! # The following reminder will shade the Saturday and Sunday calendar
  805. ! # entries. 
  806. ! REM Sat Sun PS [shade]
  807. ! 
  808. ! # The following will fill in the Hebrew dates on the calendar.  For this
  809. ! # example, I recommend that you use the "-sd 10" option for rem2ps.
  810. ! REM PS Border BoxHeight Border sub DaySize sub moveto \
  811. !    /DayFont findfont DaySize scalefont setfont \
  812. !    ([hebday(today())] [hebmon(today())]) show
  813. --- 516,525 ----
  814.      CAL [ORD(odays)] of Omer
  815.   ENDIF
  816.   
  817. ! ### Candle lighting and Havdalah.  You should probably add candle lighting
  818. ! ### for other holidays besides Shabbat.  These just create calendar entries
  819. ! ### for Friday and Saturday.  Note:  You must set your latitude, longitude
  820. ! ### and possibly time zone for these to work properly!
  821.   
  822. ! REM Friday   CAL Candle lighting at [sunset(trigdate())-18]
  823. ! REM Saturday CAL Havdalah at [sunset(trigdate())+42]
  824. *** ../p6/dorem.c    Fri Apr 30 13:16:27 1993
  825. --- ./dorem.c    Mon Jun 28 12:58:03 1993
  826. ***************
  827. *** 48,62 ****
  828.      TimeTrig tim;
  829.      int r;
  830.      int jul;
  831.   
  832.      /* Parse the trigger date and time */
  833.      if ( (r=ParseRem(p, &trig, &tim)) ) return r;
  834.   
  835.      if (trig.typ == NO_TYPE) return E_EOLN;
  836. !    if (trig.typ == SAT_TYPE) return DoSatRemind(&trig, &tim, p);
  837.      /* Calculate the trigger date */
  838. !    jul = ComputeTrigger(trig.scanfrom, &trig, &r);
  839. !    if (r) return r;
  840.      
  841.   /* Queue the reminder, if necessary */
  842.   #ifdef HAVE_QUEUED
  843. --- 48,76 ----
  844.      TimeTrig tim;
  845.      int r;
  846.      int jul;
  847. +    char buf[TOKSIZE];
  848. +    Token tok;
  849.   
  850.      /* Parse the trigger date and time */
  851.      if ( (r=ParseRem(p, &trig, &tim)) ) return r;
  852.   
  853.      if (trig.typ == NO_TYPE) return E_EOLN;
  854. !    if (trig.typ == SAT_TYPE) {
  855. !       r=DoSatRemind(&trig, &tim, p);
  856. !       if (r) return r;
  857. !       r=ParseToken(p, buf);
  858. !       if (r) return r;
  859. !       FindToken(buf, &tok);
  860. !       if (tok.type == T_Empty || tok.type == T_Comment) return OK;
  861. !       if (tok.type != T_RemType || tok.val == SAT_TYPE) return E_PARSE_ERR;
  862. !       trig.typ = tok.val;
  863. !       jul = LastTriggerDate;
  864. !       if (!LastTrigValid) return OK;
  865. !    } else {
  866.      /* Calculate the trigger date */
  867. !       jul = ComputeTrigger(trig.scanfrom, &trig, &r);
  868. !       if (r) return r;
  869. !    }
  870.      
  871.   /* Queue the reminder, if necessary */
  872.   #ifdef HAVE_QUEUED
  873. ***************
  874. *** 228,234 ****
  875.           return OK;
  876.   
  877.        default:
  878. !         Eprint("Unknown token in REM command: %s", TokBuffer);
  879.           return E_PARSE_ERR;
  880.         }
  881.      }
  882. --- 242,248 ----
  883.           return OK;
  884.   
  885.        default:
  886. !         Eprint("Unknown token in trigger: %s", TokBuffer);
  887.           return E_PARSE_ERR;
  888.         }
  889.      }
  890. ***************
  891. *** 601,608 ****
  892.   {
  893.      int iter, jul, r;
  894.      Value v;
  895. !    char *s;
  896.   
  897.      iter = 0;
  898.      jul = trig->scanfrom;
  899.      while (iter++ < MaxSatIter) {
  900. --- 615,623 ----
  901.   {
  902.      int iter, jul, r;
  903.      Value v;
  904. !    char *s, *t;
  905.   
  906. +    t = p->pos;
  907.      iter = 0;
  908.      jul = trig->scanfrom;
  909.      while (iter++ < MaxSatIter) {
  910. ***************
  911. *** 612,624 ****
  912.         }
  913.         s = p->pos;
  914.         r = EvaluateExpr(p, &v);
  915. !       p->pos = s;
  916.         if (r) return r;
  917.         if (v.type != INT_TYPE && v.type != STR_TYPE) return E_BAD_TYPE;
  918.         if (v.type == INT_TYPE && v.v.val) return OK;
  919.         if (v.type == STR_TYPE && *v.v.str) return OK;
  920.         jul++;
  921.      }
  922.      LastTrigValid = 0;
  923.      return OK;
  924.   }
  925. --- 627,641 ----
  926.         }
  927.         s = p->pos;
  928.         r = EvaluateExpr(p, &v);
  929. !       t = p->pos;
  930.         if (r) return r;
  931.         if (v.type != INT_TYPE && v.type != STR_TYPE) return E_BAD_TYPE;
  932.         if (v.type == INT_TYPE && v.v.val) return OK;
  933.         if (v.type == STR_TYPE && *v.v.str) return OK;
  934. +       p->pos = s;
  935.         jul++;
  936.      }
  937. +    p->pos = t;
  938.      LastTrigValid = 0;
  939.      return OK;
  940.   }
  941. *** ../p6/err.h    Thu Apr 22 10:24:04 1993
  942. --- ./err.h    Mon Jun 28 12:29:30 1993
  943. ***************
  944. *** 56,61 ****
  945. --- 56,63 ----
  946.   #define E_PARSE_AS_REM       44 /* Not really an error - just returned by
  947.                                      DoOmit to indicate line should be executed
  948.                                      as a REM statement, also. */
  949. + #define E_CANT_MODIFY        45
  950. + #define E_MKTIME_PROBLEM     46
  951.   #ifdef MK_GLOBALS
  952.   #undef EXTERN
  953.   #define EXTERN
  954. ***************
  955. *** 112,118 ****
  956.      "Domain error",
  957.      "Invalid identifier",
  958.      "Recursive function call detected",
  959. !    ""
  960.   }
  961.   #endif
  962.   ;
  963. --- 114,122 ----
  964.      "Domain error",
  965.      "Invalid identifier",
  966.      "Recursive function call detected",
  967. !    "",
  968. !    "Cannot modify system variable",
  969. !    "C library function can't represent date/time"
  970.   }
  971.   #endif
  972.   ;
  973. *** ../p6/expr.c    Thu Apr 22 11:00:23 1993
  974. --- ./expr.c    Mon Jun 28 12:29:43 1993
  975. ***************
  976. *** 239,245 ****
  977.         if (c == '\'') return OK ; else return E_MISS_QUOTE;
  978.      }
  979.   
  980. !    if (!ISID(c)) {
  981.         Eprint("%s '%c'", ErrMsg[E_ILLEGAL_CHAR], c);
  982.         return E_ILLEGAL_CHAR;
  983.      }
  984. --- 239,245 ----
  985.         if (c == '\'') return OK ; else return E_MISS_QUOTE;
  986.      }
  987.   
  988. !    if (!ISID(c) && c != '$') {
  989.         Eprint("%s '%c'", ErrMsg[E_ILLEGAL_CHAR], c);
  990.         return E_ILLEGAL_CHAR;
  991.      }
  992. ***************
  993. *** 306,312 ****
  994.      int args; /* Number of function arguments */
  995.      Operator op, op2;
  996.      Value va;
  997. !    char *ufname;
  998.      
  999.      OpBase = OpStackPtr;
  1000.      ValBase = ValStackPtr;
  1001. --- 306,312 ----
  1002.      int args; /* Number of function arguments */
  1003.      Operator op, op2;
  1004.      Value va;
  1005. !    char *ufname = NULL; /* Stop GCC from complaining about use of uninit var */
  1006.      
  1007.      OpBase = OpStackPtr;
  1008.      ValBase = ValStackPtr;
  1009. ***************
  1010. *** 366,372 ****
  1011.               r = PushOpStack(f);
  1012.               if (r) return r;
  1013.           continue;  /* Still looking for an atomic vlue */
  1014. !      } else if (!ISID(*ExprBuf) && *ExprBuf != '"' && *ExprBuf != '\'') {
  1015.               Eprint("%s '%c'", ErrMsg[E_ILLEGAL_CHAR], *ExprBuf);
  1016.           return E_ILLEGAL_CHAR;
  1017.        } else { /* Must be a literal value */
  1018. --- 366,373 ----
  1019.               r = PushOpStack(f);
  1020.               if (r) return r;
  1021.           continue;  /* Still looking for an atomic vlue */
  1022. !      } else if (!ISID(*ExprBuf) && *ExprBuf != '$' 
  1023. !                 && *ExprBuf != '"' && *ExprBuf != '\'') {
  1024.               Eprint("%s '%c'", ErrMsg[E_ILLEGAL_CHAR], *ExprBuf);
  1025.           return E_ILLEGAL_CHAR;
  1026.        } else { /* Must be a literal value */
  1027. ***************
  1028. *** 483,488 ****
  1029. --- 484,500 ----
  1030.         v->type = INT_TYPE;
  1031.         v->v.val = len;
  1032.         return OK;
  1033. +    } else if (*s == '$') { /* A system variable */
  1034. +      if (DebugFlag & DB_PRTEXPR)
  1035. +         fprintf(ErrFp, "%s => ", s);
  1036. +      r = GetSysVar(s+1, v);
  1037. +    
  1038. +      if (! (DebugFlag & DB_PRTEXPR)) return r;
  1039. +      if (r == OK) {
  1040. +         PrintValue(v, ErrFp);
  1041. +     putc('\n', ErrFp);
  1042. +      }
  1043. +      return r;
  1044.      } else /* Must be a symbol */
  1045.        if (DebugFlag & DB_PRTEXPR)
  1046.           fprintf(ErrFp, "%s => ", s);
  1047. *** ../p6/funcs.c    Mon May  3 12:30:00 1993
  1048. --- ./funcs.c    Fri Jul 16 15:23:44 1993
  1049. ***************
  1050. *** 19,24 ****
  1051. --- 19,25 ----
  1052.   #endif
  1053.   #include <string.h>
  1054.   #include <ctype.h>
  1055. + #include <math.h>
  1056.   #ifdef UNIX
  1057.   #ifdef HAVE_UNISTD
  1058.   #include <unistd.h>
  1059. ***************
  1060. *** 58,63 ****
  1061. --- 59,66 ----
  1062.   PRIVATE    int    FDaysinmon    ARGS ((void));
  1063.   PRIVATE    int    FDefined    ARGS ((void));
  1064.   PRIVATE    int    FDosubst    ARGS ((void));
  1065. + PRIVATE    int    FEasterdate    ARGS ((void));
  1066. + PRIVATE    int    FFiledir    ARGS ((void));
  1067.   PRIVATE    int    FFilename    ARGS ((void));
  1068.   PRIVATE    int    FGetenv        ARGS ((void));
  1069.   PRIVATE int     FHebdate    ARGS ((void));
  1070. ***************
  1071. *** 67,77 ****
  1072. --- 70,82 ----
  1073.   PRIVATE    int    FHour        ARGS ((void));
  1074.   PRIVATE    int    FIif        ARGS ((void));
  1075.   PRIVATE    int    FIndex        ARGS ((void));
  1076. + PRIVATE    int    FIsdst        ARGS ((void));
  1077.   PRIVATE    int    FIsomitted    ARGS ((void));
  1078.   PRIVATE    int    FLanguage    ARGS ((void));
  1079.   PRIVATE    int    FMax        ARGS ((void));
  1080.   PRIVATE    int    FMin        ARGS ((void));
  1081.   PRIVATE    int    FMinute        ARGS ((void));
  1082. + PRIVATE    int    FMinsfromutc    ARGS ((void));
  1083.   PRIVATE    int    FMon        ARGS ((void));
  1084.   PRIVATE    int    FMonnum        ARGS ((void));
  1085.   PRIVATE    int    FOrd        ARGS ((void));
  1086. ***************
  1087. *** 81,86 ****
  1088. --- 86,93 ----
  1089.   PRIVATE    int    FShell        ARGS ((void));
  1090.   PRIVATE    int    FStrlen        ARGS ((void));
  1091.   PRIVATE    int    FSubstr        ARGS ((void));
  1092. + PRIVATE    int    FSunrise    ARGS ((void));
  1093. + PRIVATE    int    FSunset        ARGS ((void));
  1094.   PRIVATE    int    FTime        ARGS ((void));
  1095.   PRIVATE    int    FTrigdate    ARGS ((void));
  1096.   PRIVATE    int    FTrigtime    ARGS ((void));
  1097. ***************
  1098. *** 100,105 ****
  1099. --- 107,113 ----
  1100.   PRIVATE int    FTrigger        ARGS ((void));
  1101.   PRIVATE int    CheckArgs       ARGS ((Operator *f, int nargs));
  1102.   PRIVATE int    CleanUpAfterFunc ARGS ((void));
  1103. + PRIVATE int    SunStuff    ARGS ((int rise, double cosz, int jul));
  1104.   
  1105.   #ifdef __MSDOS__
  1106.   PRIVATE FILE *popen  ARGS((char *cmd, char *mode));
  1107. ***************
  1108. *** 161,169 ****
  1109.       {   "daysinmon",    2,    2,    FDaysinmon },
  1110.       {   "defined",    1,    1,    FDefined },
  1111.       {   "dosubst",    1,    3,    FDosubst },
  1112.       {   "filename",    0,    0,    FFilename },
  1113.       {   "getenv",    1,    1,    FGetenv },
  1114. !     {   "hebdate",    2,    4,    FHebdate },
  1115.       {   "hebday",    1,    1,    FHebday },
  1116.       {   "hebmon",    1,    1,    FHebmon },
  1117.       {   "hebyear",    1,    1,    FHebyear },
  1118. --- 169,179 ----
  1119.       {   "daysinmon",    2,    2,    FDaysinmon },
  1120.       {   "defined",    1,    1,    FDefined },
  1121.       {   "dosubst",    1,    3,    FDosubst },
  1122. +     {   "easterdate",    1,    1,    FEasterdate },
  1123. +     {    "filedir",    0,    0,    FFiledir },
  1124.       {   "filename",    0,    0,    FFilename },
  1125.       {   "getenv",    1,    1,    FGetenv },
  1126. !     {   "hebdate",    2,    5,    FHebdate },
  1127.       {   "hebday",    1,    1,    FHebday },
  1128.       {   "hebmon",    1,    1,    FHebmon },
  1129.       {   "hebyear",    1,    1,    FHebyear },
  1130. ***************
  1131. *** 170,175 ****
  1132. --- 180,186 ----
  1133.       {   "hour",        1,    1,    FHour    },
  1134.       {   "iif",        1,    NO_MAX,    FIif    },
  1135.       {   "index",    2,    3,    FIndex     },
  1136. +     {   "isdst",    0,    2,    FIsdst },
  1137.       {   "isleap",    1,    1,    FIsleap },
  1138.       {   "isomitted",    1,    1,    FIsomitted },
  1139.       {   "language",     0,      0,      FLanguage },
  1140. ***************
  1141. *** 176,181 ****
  1142. --- 187,193 ----
  1143.       {   "lower",    1,    1,    FLower    },
  1144.       {   "max",        1,    NO_MAX,    FMax    },
  1145.       {   "min",        1,    NO_MAX, FMin    },
  1146. +     {   "minsfromutc",    0,    2,    FMinsfromutc },
  1147.       {   "minute",    1,    1,    FMinute },
  1148.       {   "mon",        1,    1,    FMon    },
  1149.       {   "monnum",    1,    1,    FMonnum },
  1150. ***************
  1151. *** 188,193 ****
  1152. --- 200,207 ----
  1153.       {   "shell",    1,    1,    FShell    },
  1154.       {   "strlen",    1,    1,    FStrlen    },
  1155.       {   "substr",    2,    3,    FSubstr    },
  1156. +     {   "sunrise",    0,    1,    FSunrise},
  1157. +     {   "sunset",    0,    1,    FSunset },
  1158.       {   "time",        2,    2,    FTime    },
  1159.       {   "today",    0,    0,    FToday    },
  1160.       {   "trigdate",    0,    0,    FTrigdate },
  1161. ***************
  1162. *** 417,426 ****
  1163.         it won't be destroyed */
  1164.      DCOPYVAL(RetVal, ARG(1));
  1165.   
  1166. !    if (StriEq(s, "int")) return DoCoerce(INT_TYPE, &RetVal);
  1167. !    else if (StriEq(s, "date")) return DoCoerce(DATE_TYPE, &RetVal);
  1168. !    else if (StriEq(s, "time")) return DoCoerce(TIM_TYPE, &RetVal);
  1169. !    else if (StriEq(s, "string")) return DoCoerce(STR_TYPE, &RetVal);
  1170.      else return E_CANT_COERCE;
  1171.   }
  1172.   
  1173. --- 431,440 ----
  1174.         it won't be destroyed */
  1175.      DCOPYVAL(RetVal, ARG(1));
  1176.   
  1177. !    if (! StrCmpi(s, "int")) return DoCoerce(INT_TYPE, &RetVal);
  1178. !    else if (! StrCmpi(s, "date")) return DoCoerce(DATE_TYPE, &RetVal);
  1179. !    else if (! StrCmpi(s, "time")) return DoCoerce(TIM_TYPE, &RetVal);
  1180. !    else if (! StrCmpi(s, "string")) return DoCoerce(STR_TYPE, &RetVal);
  1181.      else return E_CANT_COERCE;
  1182.   }
  1183.   
  1184.