home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume40 / remind / patch10b / patch.10.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-25  |  49.0 KB  |  1,482 lines
  1. *** ../prev/makefile.os2    Mon Sep 20 15:00:08 1993
  2. --- ./makefile.os2    Tue Oct 12 16:28:52 1993
  3. ***************
  4. *** 25,31 ****
  5.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  6.   # in config.h; then, you should be able to type 'make'.
  7.   #-----------------------------------------------------------------------------
  8. ! VERSION= 03.00.09
  9.   
  10.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  11.   lang.h english.h german.h dutch.h finish.h french.h norwgian.h
  12. --- 25,31 ----
  13.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  14.   # in config.h; then, you should be able to type 'make'.
  15.   #-----------------------------------------------------------------------------
  16. ! VERSION= 03.00.10
  17.   
  18.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  19.   lang.h english.h german.h dutch.h finish.h french.h norwgian.h
  20. ***************
  21. *** 41,47 ****
  22.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  23.   makefile.msc lnk.msc lnk.tc MANIFEST.UNX MANIFEST.DOS WHATSNEW.30 kall kall.1 \
  24.   defs.rem README.OS2 makefile.os2 rem2ps.c rem2ps.h remind.def rem2ps.1 \
  25. ! tstlang.rem
  26.   
  27.   OBJS= $(SRCS:.c=$O)
  28.   
  29. --- 41,49 ----
  30.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  31.   makefile.msc lnk.msc lnk.tc MANIFEST.UNX MANIFEST.DOS WHATSNEW.30 kall kall.1 \
  32.   defs.rem README.OS2 makefile.os2 rem2ps.c rem2ps.h remind.def rem2ps.1 \
  33. ! tstlang.rem README.BCC lnk.bcc makefile.bcc os2func.c \
  34. ! test-rem.bat test-rem.cmd test1.cmp test2.cmp
  35. ! 
  36.   
  37.   OBJS= $(SRCS:.c=$O)
  38.   
  39. *** ../prev/makefile.tc    Thu Sep 30 15:50:25 1993
  40. --- ./makefile.tc    Tue Oct 12 16:28:35 1993
  41. ***************
  42. *** 1,6 ****
  43.   # Makefile for REMIND for Turbo C for MSDOS
  44.   
  45. ! VERSION= 03.00.09
  46.   
  47.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  48.   lang.h english.h german.h dutch.h finnish.h french.h norwgian.h
  49. --- 1,7 ----
  50.   # Makefile for REMIND for Turbo C for MSDOS
  51.   
  52. ! CC= tcc
  53. ! VERSION= 03.00.10
  54.   
  55.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  56.   lang.h english.h german.h dutch.h finnish.h french.h norwgian.h
  57. ***************
  58. *** 20,37 ****
  59.   remind.1 remind-a.csh remind-a.sh test.rem test-rem test.cmp makefile.tc \
  60.   makefile.msc lnk.msc lnk.tc manifest.dos manifest.unx whatsnew.30 kall kall.1 \
  61.   tstlang.rem defs.rem readme.os2 makefile.os2 rem2ps.c rem2ps.h remind.def \
  62. ! rem2ps.1
  63.   
  64.   all: remind.exe rem2ps.exe
  65.   
  66.   remind.exe: $(OBJS)
  67. !     tcc @lnk.tc
  68.   
  69.   rem2ps.exe: rem2ps.obj
  70. !     tcc -erem2ps.exe rem2ps.obj
  71.   
  72.   .c.obj:
  73. !     tcc -A -w-pia -c -O -mm {$< }
  74.   
  75.   rem2ps.obj: rem2ps.c rem2ps.h config.h lang.h
  76.   
  77. --- 21,40 ----
  78.   remind.1 remind-a.csh remind-a.sh test.rem test-rem test.cmp makefile.tc \
  79.   makefile.msc lnk.msc lnk.tc manifest.dos manifest.unx whatsnew.30 kall kall.1 \
  80.   tstlang.rem defs.rem readme.os2 makefile.os2 rem2ps.c rem2ps.h remind.def \
  81. ! rem2ps.1 README.BCC lnk.bcc makefile.bcc os2func.c \
  82. ! test-rem.bat test-rem.cmd test1.cmp test2.cmp
  83.   
  84. + 
  85.   all: remind.exe rem2ps.exe
  86.   
  87.   remind.exe: $(OBJS)
  88. !     $(CC) @lnk.tc
  89.   
  90.   rem2ps.exe: rem2ps.obj
  91. !     $(CC) -erem2ps.exe rem2ps.obj
  92.   
  93.   .c.obj:
  94. !     $(CC) -w-pia -c -O -mm {$< }
  95.   
  96.   rem2ps.obj: rem2ps.c rem2ps.h config.h lang.h
  97.   
  98. *** ../prev/moon.c    Thu Sep 30 15:50:08 1993
  99. --- ./moon.c    Tue Oct 12 16:22:48 1993
  100. ***************
  101. *** 274,288 ****
  102.   double *usek;
  103.   #endif
  104.   {
  105. -    int yy, mm, dd;
  106.      double k, t, t2, t3, nt1;
  107.   
  108. !    jyear(sdate, &yy, &mm, &dd);
  109.   
  110. !    k = (yy + ((mm - 1) * (1.0 / 12.0)) - 1900) * 12.3685;
  111.   
  112.      /* Time in Julian centuries from 1900 January 0.5 */
  113. !    t = (sdate - 2415020.0) / 36525;
  114.      t2 = t * t;           /* Square for frequent use */
  115.      t3 = t2 * t;           /* Cube for frequent use */
  116.   
  117. --- 274,291 ----
  118.   double *usek;
  119.   #endif
  120.   {
  121.      double k, t, t2, t3, nt1;
  122.   
  123. ! /*** The following was the original code:  It gave roundoff errors
  124. !      causing moonphase info to fail for Dec 1994.  ***/
  125. ! /*    jyear(sdate, &yy, &mm, &dd);
  126. !       k = (yy + (mm/12.0) - 1900) * 12.368531; */
  127.   
  128. ! /*** The next line is the replacement ***/
  129. !    k = (sdate - 2415020.0) / synmonth;
  130.   
  131.      /* Time in Julian centuries from 1900 January 0.5 */
  132. !    t = (sdate - 2415020.0) / 36525.0;
  133.      t2 = t * t;           /* Square for frequent use */
  134.      t3 = t2 * t;           /* Cube for frequent use */
  135.   
  136. ***************
  137. *** 316,322 ****
  138.      int apcor = 0;
  139.   
  140.      k += phase;           /* Add phase to new moon time */
  141. !    t = k / 1236.85;       /* Time in Julian centuries from
  142.                        1900 January 0.5 */
  143.      t2 = t * t;           /* Square for frequent use */
  144.      t3 = t2 * t;           /* Cube for frequent use */
  145. --- 319,325 ----
  146.      int apcor = 0;
  147.   
  148.      k += phase;           /* Add phase to new moon time */
  149. !    t = k / 1236.8531;       /* Time in Julian centuries from
  150.                        1900 January 0.5 */
  151.      t2 = t * t;           /* Square for frequent use */
  152.      t3 = t2 * t;           /* Cube for frequent use */
  153. ***************
  154. *** 602,616 ****
  155.      int d1, t1;
  156.      double k1, k2, jd, jdorig;
  157.      double nt1, nt2;
  158.      /* Convert from local to UTC */
  159.      LocalToUTC(startdate, starttim, &utcd, &utct);
  160.   
  161.      /* Convert from Remind representation to year/mon/day */
  162.      FromJulian(utcd, &y, &m, &d);
  163. - 
  164.      /* Convert to a true Julian date -- sorry for the name clashes! */
  165.      jdorig = jtime(y, m, d, (utct / 60), (utct % 60), 0);   
  166. !    jd = jdorig - 45;
  167.      nt1 = meanphase(jd, 0.0, &k1);
  168.      while(1) {
  169.         jd += synmonth;
  170. --- 605,619 ----
  171.      int d1, t1;
  172.      double k1, k2, jd, jdorig;
  173.      double nt1, nt2;
  174. + 
  175.      /* Convert from local to UTC */
  176.      LocalToUTC(startdate, starttim, &utcd, &utct);
  177.   
  178.      /* Convert from Remind representation to year/mon/day */
  179.      FromJulian(utcd, &y, &m, &d);
  180.      /* Convert to a true Julian date -- sorry for the name clashes! */
  181.      jdorig = jtime(y, m, d, (utct / 60), (utct % 60), 0);   
  182. !    jd = jdorig - 45.0;
  183.      nt1 = meanphase(jd, 0.0, &k1);
  184.      while(1) {
  185.         jd += synmonth;
  186. *** ../prev/omit.c    Thu Aug 19 16:16:33 1993
  187. --- ./omit.c    Tue Oct 12 16:22:49 1993
  188. ***************
  189. *** 324,329 ****
  190. --- 324,330 ----
  191.        case T_Empty:
  192.        case T_Comment:
  193.        case T_RemType:
  194. +      case T_Priority:
  195.           parsing = 0;
  196.           break;
  197.   
  198. ***************
  199. *** 353,359 ****
  200.            NumFullOmits++;
  201.         }
  202.      }
  203. !    if (tok.type == T_RemType) return E_PARSE_AS_REM;
  204.      return OK;
  205.   
  206.   }
  207. --- 354,360 ----
  208.            NumFullOmits++;
  209.         }
  210.      }
  211. !    if (tok.type == T_RemType || tok.type == T_Priority) return E_PARSE_AS_REM;
  212.      return OK;
  213.   
  214.   }
  215. *** ../prev/protos.h    Mon Sep 20 16:53:13 1993
  216. --- ./protos.h    Wed Oct 20 11:54:30 1993
  217. ***************
  218. *** 86,92 ****
  219.   int PopOmitContext ARGS ((ParsePtr p));
  220.   int IsOmitted ARGS ((int jul, int localomit));
  221.   int DoOmit ARGS ((ParsePtr p));
  222. ! int QueueReminder ARGS ((ParsePtr p, int typ, TimeTrig *tim));
  223.   void HandleQueuedReminders ARGS ((void));
  224.   char *FindInitialToken ARGS ((Token *tok, char *s));
  225.   void FindToken ARGS ((const char *s, Token *tok));
  226. --- 86,92 ----
  227.   int PopOmitContext ARGS ((ParsePtr p));
  228.   int IsOmitted ARGS ((int jul, int localomit));
  229.   int DoOmit ARGS ((ParsePtr p));
  230. ! int QueueReminder ARGS ((ParsePtr p, int typ, TimeTrig *tim, const char *sched));
  231.   void HandleQueuedReminders ARGS ((void));
  232.   char *FindInitialToken ARGS ((Token *tok, char *s));
  233.   void FindToken ARGS ((const char *s, Token *tok));
  234. ***************
  235. *** 113,119 ****
  236.   unsigned int HashVal ARGS ((const char *str));
  237.   int DateOK ARGS ((int y, int m, int d));
  238.   Operator *FindFunc ARGS ((char *name, Operator where[], int num));
  239. ! int InsertIntoSortBuffer ARGS ((int jul, int tim, char *body, int typ));
  240.   void IssueSortedReminders ARGS ((void));    
  241.   int UserFuncExists ARGS ((char *fn));
  242.   void JulToHeb ARGS((int jul, int *hy, int *hm, int *hd));
  243. --- 113,119 ----
  244.   unsigned int HashVal ARGS ((const char *str));
  245.   int DateOK ARGS ((int y, int m, int d));
  246.   Operator *FindFunc ARGS ((char *name, Operator where[], int num));
  247. ! int InsertIntoSortBuffer ARGS ((int jul, int tim, char *body, int typ, int prio));
  248.   void IssueSortedReminders ARGS ((void));    
  249.   int UserFuncExists ARGS ((char *fn));
  250.   void JulToHeb ARGS((int jul, int *hy, int *hm, int *hd));
  251. ***************
  252. *** 136,138 ****
  253. --- 136,148 ----
  254.   void UTCToLocal ARGS ((int utcdate, int utctime, int *locdate, int *loctime));
  255.   int MoonPhase ARGS ((int date, int time));
  256.   void HuntPhase ARGS ((int startdate, int starttim, int phas, int *date, int *time));
  257. + int CompareRems ARGS ((int dat1, int tim1, int prio1, int dat2, int tim2, int prio2, int bydate, int bytime, int byprio));
  258. + 
  259. + #if defined(__OS2__)
  260. + int fork ARGS ((void));
  261. + void StartPopUp ARGS ((void));
  262. + void EndPopUp ARGS ((void));
  263. + int PutcPopUp ARGS ((int c));
  264. + int PutlPopUp ARGS ((char *s));
  265. + int PutsPopUp ARGS ((char *s));
  266. + #endif
  267. *** ../prev/queue.c    Thu Aug 19 16:12:20 1993
  268. --- ./queue.c    Wed Oct 20 13:16:43 1993
  269. ***************
  270. *** 22,31 ****
  271. --- 22,39 ----
  272.   #ifdef HAVE_UNISTD
  273.   #include <unistd.h>
  274.   #endif
  275. + 
  276. + #ifdef __BORLANDC__
  277. + #include <io.h>
  278. + #include <dos.h>
  279. + #include <process.h>
  280. + #endif
  281. + 
  282.   #include "globals.h"
  283.   #include "err.h"
  284.   #include "types.h"
  285.   #include "protos.h"
  286. + #include "expr.h"
  287.   
  288.   /* List structure for holding queued reminders */
  289.   typedef struct queuedrem {
  290. ***************
  291. *** 32,38 ****
  292. --- 40,48 ----
  293.      struct queuedrem *next;
  294.      int typ;
  295.      int RunDisabled;
  296. +    int ntrig;
  297.      char *text;
  298. +    char sched[VAR_NAME_LEN+1];
  299.      TimeTrig tt;
  300.   } QueuedRem;
  301.   
  302. ***************
  303. *** 45,51 ****
  304. --- 55,67 ----
  305.   PRIVATE void CheckInitialFile ARGS ((void));
  306.   PRIVATE int CalculateNextTime ARGS ((QueuedRem *q));
  307.   PRIVATE QueuedRem *FindNextReminder ARGS ((void));
  308. + PRIVATE int CalculateNextTimeUsingSched ARGS ((QueuedRem *q));
  309. + 
  310. + #ifdef __OS2__
  311. + void (__cdecl SigIntHandler(int));
  312. + #else
  313.   PRIVATE void SigIntHandler ARGS ((void));
  314. + #endif
  315.   
  316.   /***************************************************************/
  317.   /*                                                             */
  318. ***************
  319. *** 56,67 ****
  320.   /*                                                             */
  321.   /***************************************************************/
  322.   #ifdef HAVE_PROTOS
  323. ! PUBLIC int QueueReminder(ParsePtr p, int typ, TimeTrig *tim)
  324.   #else
  325. ! int QueueReminder(p, typ, tim)
  326.   ParsePtr p;
  327.   int typ;
  328.   TimeTrig *tim;
  329.   #endif
  330.   {
  331.      QueuedRem *qelem;
  332. --- 72,84 ----
  333.   /*                                                             */
  334.   /***************************************************************/
  335.   #ifdef HAVE_PROTOS
  336. ! PUBLIC int QueueReminder(ParsePtr p, int typ, TimeTrig *tim, const char *sched)
  337.   #else
  338. ! int QueueReminder(p, typ, tim, sched)
  339.   ParsePtr p;
  340.   int typ;
  341.   TimeTrig *tim;
  342. + char *sched;
  343.   #endif
  344.   {
  345.      QueuedRem *qelem;
  346. ***************
  347. *** 85,90 ****
  348. --- 102,109 ----
  349.      qelem->tt = *tim;
  350.      qelem->next = QueueHead;
  351.      qelem->RunDisabled = RunDisabled;
  352. +    qelem->ntrig = 0;
  353. +    strcpy(qelem->sched, sched);
  354.      QueueHead = qelem;
  355.      NumQueued++;
  356.      return OK;
  357. ***************
  358. *** 191,196 ****
  359. --- 210,218 ----
  360.   /*                                                             */
  361.   /*  Calculate the next time when a reminder should be issued.  */
  362.   /*  Return NO_TIME if reminder expired.                        */
  363. + /*  Strategy is:  If a sched() function is defined, call it.   */
  364. + /*  Otherwise, use AT time with delta and rep.  If sched()     */
  365. + /*  fails, revert to AT with delta and rep.                    */
  366.   /*                                                             */
  367.   /***************************************************************/
  368.   #ifdef HAVE_PROTOS
  369. ***************
  370. *** 204,210 ****
  371. --- 226,239 ----
  372.      int rep = q->tt.rep;
  373.      int delta = q->tt.delta;
  374.      int curtime = q->tt.nexttime+1;
  375. +    int r;
  376.   
  377. + /* Increment number of times this one has been triggered */
  378. +    q->ntrig++;
  379. +    if (q->sched[0]) {
  380. +       r = CalculateNextTimeUsingSched(q);
  381. +       if (r != NO_TIME) return r;
  382. +    }
  383.      if (delta == NO_DELTA)
  384.         if (tim < curtime) return NO_TIME; else return tim;
  385.   
  386. ***************
  387. *** 253,263 ****
  388. --- 282,296 ----
  389.   /* command-line flag is supplied.                              */
  390.   /*                                                             */
  391.   /***************************************************************/
  392. + #ifdef __OS2__
  393. + void __cdecl SigIntHandler(int d)
  394. + #else
  395.   #ifdef HAVE_PROTOS
  396.   PRIVATE void SigIntHandler(void)
  397.   #else
  398.   static void SigIntHandler()
  399.   #endif
  400. + #endif
  401.   {
  402.      QueuedRem *q = QueueHead;
  403.   
  404. ***************
  405. *** 269,278 ****
  406.   
  407.      while (q) {
  408.         if (q->tt.nexttime != NO_TIME) {
  409. !          printf("Trigger: %02d%c%02d  Activate: %02d%c%02d  Rep: %d  Delta: %d%s",
  410.                    q->tt.ttime / 60, TIMESEP, q->tt.ttime % 60,
  411.                    q->tt.nexttime / 60, TIMESEP, q->tt.nexttime % 60,
  412. !                  q->tt.rep, q->tt.delta, NL);
  413.                    printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" :
  414.                                      ((q->typ == MSF_TYPE) ? "MSF" :"RUN")),
  415.                    q->text,
  416. --- 302,311 ----
  417.   
  418.      while (q) {
  419.         if (q->tt.nexttime != NO_TIME) {
  420. !          printf("Trigger: %02d%c%02d  Activate: %02d%c%02d  Rep: %d  Delta: %d  Sched: %s%s",
  421.                    q->tt.ttime / 60, TIMESEP, q->tt.ttime % 60,
  422.                    q->tt.nexttime / 60, TIMESEP, q->tt.nexttime % 60,
  423. !                  q->tt.rep, q->tt.delta, q->sched, NL);
  424.                    printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" :
  425.                                      ((q->typ == MSF_TYPE) ? "MSF" :"RUN")),
  426.                    q->text,
  427. ***************
  428. *** 306,308 ****
  429. --- 339,401 ----
  430.             execvp(ArgV[0], ArgV);
  431.   }
  432.   
  433. + /***************************************************************/
  434. + /*                                                             */
  435. + /*  CalculateNextTimeUsingSched                                */
  436. + /*                                                             */
  437. + /*  Call the scheduling function.                              */
  438. + /*                                                             */
  439. + /***************************************************************/
  440. + #ifdef HAVE_PROTOS
  441. + PRIVATE int CalculateNextTimeUsingSched(QueuedRem *q)
  442. + #else
  443. + static int CalculateNextTimeUsingSched(q)
  444. + QueuedRem *q;
  445. + #endif
  446. + {
  447. +    /* Use LineBuffer for temp. string storage. */
  448. +    int r;
  449. +    Value v;
  450. +    char *s;
  451. +    int LastTime = -1;
  452. +    int ThisTime;
  453. + 
  454. +    if (UserFuncExists(q->sched) != 1) {
  455. +       q->sched[0] = 0;
  456. +       return NO_TIME;
  457. +    }
  458. + 
  459. +    RunDisabled = q->RunDisabled;  /* Don't want weird scheduling functions
  460. +                      to be a security hole!                */
  461. +    while(1) {
  462. +       sprintf(LineBuffer, "%s(%d)", q->sched, q->ntrig);
  463. +       s = LineBuffer;
  464. +       r = EvalExpr(&s, &v);
  465. +       if (r) {
  466. +          q->sched[0] = 0;
  467. +          return NO_TIME;
  468. +       }
  469. +       if (v.type == TIM_TYPE) {
  470. +          ThisTime = v.v.val;
  471. +       } else if (v.type == INT_TYPE) {
  472. +          if (v.v.val > 0) 
  473. +         ThisTime = q->tt.nexttime + v.v.val;
  474. +          else
  475. +         ThisTime = q->tt.ttime + v.v.val;
  476. + 
  477. +       } else {
  478. +          DestroyValue(&v);
  479. +      q->sched[0] = 0;
  480. +      return NO_TIME;
  481. +       }
  482. +       if (ThisTime < 0) ThisTime = 0;        /* Can't be less than 00:00 */
  483. +       if (ThisTime > 1439) ThisTime = 1439;  /* or greater than 11:59 */
  484. +       if (ThisTime > q->tt.nexttime) return ThisTime;
  485. +       if (ThisTime <= LastTime) {
  486. +          q->sched[0] = 0;
  487. +      return NO_TIME;
  488. +       }
  489. +       LastTime = ThisTime;
  490. +       q->ntrig++;
  491. +    }
  492. + }
  493. *** ../prev/rem2ps.c    Tue Sep 28 12:33:59 1993
  494. --- ./rem2ps.c    Wed Oct 13 10:46:21 1993
  495. ***************
  496. *** 24,29 ****
  497. --- 24,33 ----
  498.   #include <stdlib.h>
  499.   #endif
  500.   
  501. + #ifdef __TURBOC__
  502. + #include <io.h>
  503. + #endif
  504. + 
  505.   #ifdef HAVE_PROTOS
  506.   #define ARGS(x) x
  507.   #else
  508. ***************
  509. *** 183,189 ****
  510.      int is_ps;
  511.      CalEntry *c, *d;
  512.   
  513. -    printf("%%%%Page: %d %d\n", validfile, validfile);
  514.   /* Read the month and year name, followed by # days in month and 1st day of
  515.      month, followed by the MondayFirst flag */
  516.      gets(LineBuffer);
  517. --- 187,192 ----
  518. ***************
  519. *** 195,200 ****
  520. --- 198,206 ----
  521.      MaxDay = days;
  522.      FirstWkDay = wkday;
  523.   
  524. +    printf("%%%%Page: %c%c%c%c%c %d\n", month[0], month[1], month[2],
  525. +              year[2], year[3], validfile);
  526. + 
  527.   /* Emit PostScript to do the heading */
  528.      if (!PortraitMode) printf("XSIZE 0 translate 90 rotate\n");
  529.      printf("/SAVESTATE save def (%s) (%s) PreCal SAVESTATE restore\n", month, year);
  530. ***************
  531. *** 255,262 ****
  532.         if (is_ps) {
  533.   /* Save the 'P' or 'F' flag */
  534.            *(c->entry) = *LineBuffer;
  535. !      c->next = PsEntries[DayNum];
  536. !      PsEntries[DayNum] = c;
  537.         } else {
  538.   /* Put on linked list */
  539.            if (!CurEntries) CurEntries = c;
  540. --- 261,272 ----
  541.         if (is_ps) {
  542.   /* Save the 'P' or 'F' flag */
  543.            *(c->entry) = *LineBuffer;
  544. !          if (!PsEntries[DayNum]) PsEntries[DayNum] = c;
  545. !      else {
  546. !         d = PsEntries[DayNum];
  547. !         while(d->next) d = d->next;
  548. !         d->next = c;
  549. !          }
  550.         } else {
  551.   /* Put on linked list */
  552.            if (!CurEntries) CurEntries = c;
  553. *** ../prev/remind.1    Thu Sep 30 15:25:03 1993
  554. --- ./remind.1    Wed Oct 20 13:27:12 1993
  555. ***************
  556. *** 1,4 ****
  557. ! .TH REMIND 1 "30 September 1993"
  558.   .UC 4
  559.   .SH NAME
  560.   remind \- a sophisticated reminder service
  561. --- 1,4 ----
  562. ! .TH REMIND 1 "13 October 1993"
  563.   .UC 4
  564.   .SH NAME
  565.   remind \- a sophisticated reminder service
  566. ***************
  567. *** 119,130 ****
  568.   Echo lines when displaying error messages
  569.   .RE
  570.   .TP
  571. ! \fB\-g\fR[\fBa|d\fR[\fBa|d\fR]]
  572.   Normally, reminders are issued in the order in which they are encountered
  573.   in the reminder script.  The \fB\-g\fR option cause \fBRemind\fR to
  574.   sort reminders by date and time prior to issuing them.  The optional
  575.   \fBa\fR and \fBd\fR characters specify the sort order (ascending or
  576. ! descending) for the date and time fields.  See the section "Sorting
  577.   Reminders" for more information.
  578.   .TP
  579.   \fB\-b\fR[\fIn\fR]
  580. --- 119,130 ----
  581.   Echo lines when displaying error messages
  582.   .RE
  583.   .TP
  584. ! \fB\-g\fR[\fBa|d\fR[\fBa|d\fR[\fBa|d\fR]]]
  585.   Normally, reminders are issued in the order in which they are encountered
  586.   in the reminder script.  The \fB\-g\fR option cause \fBRemind\fR to
  587.   sort reminders by date and time prior to issuing them.  The optional
  588.   \fBa\fR and \fBd\fR characters specify the sort order (ascending or
  589. ! descending) for the date, time and priority fields.  See the section "Sorting
  590.   Reminders" for more information.
  591.   .TP
  592.   \fB\-b\fR[\fIn\fR]
  593. ***************
  594. *** 257,265 ****
  595. --- 257,267 ----
  596.   [\fIback\fR]
  597.   [\fIdelta\fR]
  598.   [\fIrepeat\fR]
  599. + [\fBPRIORITY\fR \fIprio\fR]
  600.   [\fBSKIP\fR | \fBBEFORE\fR | \fBAFTER\fR]
  601.   [\fBOMIT\fR \fIomit_list\fR]
  602.   [\fBAT\fR \fItime\fR [\fItdelta\fR] [\fItrepeat\fR]]
  603. + [\fBSCHED\fR \fIsched_function\fR]
  604.   [\fBUNTIL\fR \fIexpiry_date\fR]
  605.   [\fBSCANFROM\fR \fIscan_date\fR]
  606.   \fBMSG\fR | \fBMSF\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR |
  607. ***************
  608. *** 602,607 ****
  609. --- 604,617 ----
  610.   near the end of this manual.  Note that \fBSCANFROM\fR is available only
  611.   in versions of \fBRemind\fR from 03.00.04 up.
  612.   .PP
  613. + .B PRIORITY
  614. + .PP
  615. + The \fBPRIORITY\fR keyword must be followed by a number from 0 to 9999.
  616. + It is used in calendar mode and when sorting reminders.  If two reminders
  617. + have the same trigger date and time, then they are sorted by priority.
  618. + If the \fBPRIORITY\fR keyword is not supplied, a default priority of 5000
  619. + is used.
  620. + .PP
  621.   .B EXPIRY DATES
  622.   .PP
  623.   Some reminders should be issued periodically for a certain time, but then
  624. ***************
  625. *** 767,772 ****
  626. --- 777,789 ----
  627.   \fInot\fR necessarily be those which were in effect at the time the reminder
  628.   was queued.
  629.   .PP
  630. + .B THE SCHED KEYWORD
  631. + .PP
  632. + The \fBSCHED\fR keyword allows more precise control over the triggering
  633. + of timed reminders.  However, discussion must be deferred until after
  634. + expressions and user-defined functions are explained.  See the subsection
  635. + "Precise Scheduling" further on.
  636. + .PP
  637.   .SH THE SUBSTITUTION FILTER
  638.   .PP
  639.   Before being processed, the body of a
  640. ***************
  641. *** 1503,1512 ****
  642.   .TP
  643.   .B $CalcUTC 
  644.   If 1 (the default), then \fBRemind\fR uses C library functions
  645. ! to calculate the number of minutes between local and universal time.
  646.   This affects astronomical calculations (\fBsunrise()\fR for example.)
  647.   If 0, then you must supply the number of minutes between local and
  648. ! universal time in the \fB$MinsFromUTC\fR system variable.
  649.   .TP
  650.   .B $CalMode (read-only)
  651.   If non-zero, then the \fB\-c\fR option was supplied on the command line.
  652. --- 1520,1530 ----
  653.   .TP
  654.   .B $CalcUTC 
  655.   If 1 (the default), then \fBRemind\fR uses C library functions
  656. ! to calculate the number of minutes between local and Universal Time
  657. ! Coordinated.
  658.   This affects astronomical calculations (\fBsunrise()\fR for example.)
  659.   If 0, then you must supply the number of minutes between local and
  660. ! Universal Time Coordinated in the \fB$MinsFromUTC\fR system variable.
  661.   .TP
  662.   .B $CalMode (read-only)
  663.   If non-zero, then the \fB\-c\fR option was supplied on the command line.
  664. ***************
  665. *** 1613,1619 ****
  666.   (described later.)  Must be at least 10.
  667.   .TP
  668.   .B $MinsFromUTC
  669. ! The number of minutes between Universal Time and local time.  If
  670.   \fB$CalcUTC\fR is non-zero, this is calculated upon startup of \fBRemind\fR.
  671.   Otherwise, you must set it explicitly.  If \fB$CalcUTC\fR is zero,
  672.   then \fB$MinsFromUTC\fR is used in the astronomical calculations.  You
  673. --- 1631,1637 ----
  674.   (described later.)  Must be at least 10.
  675.   .TP
  676.   .B $MinsFromUTC
  677. ! The number of minutes between Universal Time Coordinated and local time.  If
  678.   \fB$CalcUTC\fR is non-zero, this is calculated upon startup of \fBRemind\fR.
  679.   Otherwise, you must set it explicitly.  If \fB$CalcUTC\fR is zero,
  680.   then \fB$MinsFromUTC\fR is used in the astronomical calculations.  You
  681. ***************
  682. *** 1656,1661 ****
  683. --- 1674,1691 ----
  684.   Set to a non-zero value if \fIeither\fR of the \fB\-p\fR or \fB\-s\fR
  685.   command-line options was supplied.
  686.   .TP
  687. + .B $SortByDate (read-only)
  688. + Set to 0 if no \fB\-g\fR option is used, 1 if sorting by date in ascending
  689. + order, or 2 if sorting by date in descending order.
  690. + .TP
  691. + .B $SortByPrio (read-only)
  692. + Set to 0 if no \fB\-g\fR option is used, 1 if sorting by priority in ascending
  693. + order, or 2 if sorting by priority in descending order.
  694. + .TP
  695. + .B $SortByTime (read-only)
  696. + Set to 0 if no \fB\-g\fR option is used, 1 if sorting by time in ascending
  697. + order, or 2 if sorting by time in descending order.
  698. + .TP
  699.   .B $SubsIndent
  700.   The number of spaces by which all lines (except the first) of an
  701.   \fBMSF\fR-type reminder should be indented.  The default is 0.
  702. ***************
  703. *** 1935,1944 ****
  704.   as with the < operator.
  705.   .TP
  706.   .B minsfromutc([d_date [,t_time]])
  707. ! Returns the number of minutes from Universal Time (formerly GMT) to
  708.   local time on the specified date and time.  \fIDate\fR defaults to
  709.   \fBtoday()\fR and \fItime\fR defaults to midnight.  If local time
  710. ! is before UT, the result is negative.  Otherwise, the result is
  711.   positive.
  712.   .RS
  713.   .PP
  714. --- 1965,1975 ----
  715.   as with the < operator.
  716.   .TP
  717.   .B minsfromutc([d_date [,t_time]])
  718. ! Returns the number of minutes from Universal Time Coordinated 
  719. ! (formerly GMT) to
  720.   local time on the specified date and time.  \fIDate\fR defaults to
  721.   \fBtoday()\fR and \fItime\fR defaults to midnight.  If local time
  722. ! is before UTC, the result is negative.  Otherwise, the result is
  723.   positive.
  724.   .RS
  725.   .PP
  726. ***************
  727. *** 1982,1989 ****
  728.   quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  729.   it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  730.   to midnight.  \fBMoontime()\fR is intended to be used in conjunction
  731. ! with \fBmoondate()\fR.  Don't take the time too seriously - it's only
  732. ! accurate to within 15-20 minutes.
  733.   .RS
  734.   .PP
  735.   For example, the following returns the date and time of the next full moon:
  736. --- 2013,2021 ----
  737.   quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  738.   it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  739.   to midnight.  \fBMoontime()\fR is intended to be used in conjunction
  740. ! with \fBmoondate()\fR.  The \fBmoondate()\fR and \fBmoontime()\fR
  741. ! functions are accurate to within a couple of minutes of the
  742. ! times in "Old Farmer's Almanac" for Ottawa, Ontario.
  743.   .RS
  744.   .PP
  745.   For example, the following returns the date and time of the next full moon:
  746. ***************
  747. *** 2122,2131 ****
  748.   or \fBIFTRIG\fR command.  If used
  749.   in the \fIbody\fR of a \fBREM\fR command, returns that command's trigger date.
  750.   .TP
  751. ! .B trigger(d_date)
  752.   Returns a string suitable for use in a \fBREM\fR command, allowing you to
  753. ! calculate trigger dates in advance.  See the section "Expression pasting"
  754. ! for more information.
  755.   .TP
  756.   .B trigtime()
  757.   Returns the time of the last \fBREM\fR command with an \fBAT\fR clause.
  758. --- 2154,2181 ----
  759.   or \fBIFTRIG\fR command.  If used
  760.   in the \fIbody\fR of a \fBREM\fR command, returns that command's trigger date.
  761.   .TP
  762. ! .B trigger(d_date [,t_time [,i_utcflag]])
  763.   Returns a string suitable for use in a \fBREM\fR command, allowing you to
  764. ! calculate trigger dates in advance.  (See the section "Expression pasting"
  765. ! for more information.)  Normally, the \fIdate\fR and \fItime\fR are
  766. ! the local date and time; however, if \fIutcflag\fR is non-zero, the
  767. ! \fIdate\fR and \fItime\fR are interpreted as UTC times, and are
  768. ! converted to local time.  Examples:
  769. ! .RS
  770. ! .PP
  771. ! trigger('1993/04/01')
  772. ! .PP
  773. ! returns "1 April 1993",
  774. ! .PP
  775. ! trigger('1994/08/09', 12:33)
  776. ! .PP
  777. ! returns "9 August 1994 AT 12:33", and
  778. ! .PP
  779. ! trigger('1994/12/01', 03:00, 1)
  780. ! .PP
  781. ! returns "30 November 1994 AT 22:00" for EST, which is 5 hours behind UTC.
  782. ! The value for your time zone may differ.
  783. ! .RE
  784.   .TP
  785.   .B trigtime()
  786.   Returns the time of the last \fBREM\fR command with an \fBAT\fR clause.
  787. ***************
  788. *** 2410,2415 ****
  789. --- 2460,2533 ----
  790.   functions), you may wish to name all user-defined functions beginning
  791.   with an underscore.
  792.   .PP
  793. + .SH PRECISE SCHEDULING
  794. + .PP
  795. + The \fBSCHED\fR keyword allows precise control over the scheduling of timed
  796. + reminders.  It should be followed by the name of a user-defined function,
  797. + \fIsched_function\fR.
  798. + .PP
  799. + If a scheduling function is supplied, then it must take one argument of
  800. + type \fBINT\fR.  Rather than using the \fBAT\fR time, time \fIdelta\fR, and
  801. + time \fIrepeat\fR, \fBRemind\fR calls the scheduling function to determine
  802. + when to trigger the reminder.  The first time the reminder is queued, the
  803. + scheduling function is called with an argument of 1.  Each time the reminder
  804. + is triggered, it is re-scheduled by calling the scheduling function again.
  805. + On each call, the argument is incremented by one.
  806. + .PP
  807. + The return value of the scheduling function must be an \fBINT\fR or a
  808. + \fBTIME\fR.  If the return value is a \fBTIME\fR, then the reminder is
  809. + re-queued to trigger at that time.  If it is a positive integer \fIn\fR,
  810. + then the reminder is re-queued to trigger at the previous trigger time
  811. + plus \fIn\fR minutes.  Finally, if it is a negative integer or zero, then
  812. + the reminder is re-queued to trigger \fIn\fR minutes before the \fBAT\fR
  813. + time.  Note that there must be an \fBAT\fR clause for the \fBSCHED\fR
  814. + clause to do anything.
  815. + .PP
  816. + Here's an example:
  817. + .PP
  818. + .nf
  819. +     FSET _sfun(x) choose(x, -60, 30, 15, 10, 3, 1, 1, 1, 1, 0)
  820. +     REM AT 13:00 SCHED _sfun MSG foo
  821. + .fi
  822. + .PP
  823. + The reminder would first be triggered at 13:00-60 minutes, or at 12:00.
  824. + It would next be triggered 30 minutes later, at 12:30.  Then, it would
  825. + be triggered at 12:45, 12:55, 12:58, 12:59, 13:00, 13:01 and 13:02.
  826. + .PP
  827. + .B NOTES
  828. + .TP
  829. + 1
  830. + If an error occurs during the evaluation of \fIsched_func\fR, then
  831. + \fBRemind\fR reverts to using the \fBAT\fR time and the \fIdelta\fR
  832. + and \fIrepeat\fR values, and never calls \fIsched_func\fR again.
  833. + .TP
  834. + 2
  835. + If processing \fIsched_func\fR yields a time earlier than the current
  836. + system time, it is repeatedly called with increasing argument until it
  837. + yields a value greater than or equal to the current time.  However, if
  838. + the sequence of values calculated during the repetition is not strictly
  839. + increasing, then \fBRemind\fR reverts to the default behaviour and
  840. + never calls \fIsched_func\fR again.
  841. + .TP
  842. + 3
  843. + It is quite possible using \fIsched_func\fR to keep triggering a reminder
  844. + even after the \fBAT\fR-time.  However, it is not possible to reschedule
  845. + a reminder past midnight \- no crossing of date boundaries is allowed.
  846. + Also, it is quite possible to \fBnot\fR trigger a reminder on the \fBAT\fR
  847. + time when you use a scheduling function.  However, if your scheduling
  848. + function is terminated (for reasons 1 and 2) before the \fBAT\fR time of
  849. + the reminder, it \fIwill\fR be triggered at the \fBAT\fR time, because
  850. + normal processing takes over.
  851. + .TP
  852. + 4
  853. + Your scheduling functions should (as a matter of good style) return
  854. + 0 when no more scheduling is required.  See the example.
  855. + .TP
  856. + 5
  857. + All scheduling functions are evaluated \fIafter\fR the entire Remind
  858. + script has been read in.  So whatever function definitions are in effect
  859. + at the end of the script are used.
  860. + .PP
  861.   .SH THE SATISFY CLAUSE
  862.   .PP
  863.   The form of \fBREM\fR which uses \fBSATISFY\fR is as follows:
  864. ***************
  865. *** 2699,2705 ****
  866.   Timed reminders are sorted and placed into the calendar in time order.
  867.   These are followed by non-timed reminders.  \fBRemind\fR automatically
  868.   places the time of timed reminders in the calendar according to the
  869. ! \fB\-b\fR command-line option.
  870.   .PP
  871.   .B REPEATED EXECUTION
  872.   .PP
  873. --- 2817,2826 ----
  874.   Timed reminders are sorted and placed into the calendar in time order.
  875.   These are followed by non-timed reminders.  \fBRemind\fR automatically
  876.   places the time of timed reminders in the calendar according to the
  877. ! \fB\-b\fR command-line option.  Reminders in calendar mode are sorted as
  878. ! if the \fB\-g\fR option had been used; you can change the sort order
  879. ! in calendar mode by explicitly using the \fB\-g\fR option to specify
  880. ! a different order from the default.
  881.   .PP
  882.   .B REPEATED EXECUTION
  883.   .PP
  884. ***************
  885. *** 2763,2770 ****
  886.   the PostScript output.
  887.   .PP
  888.   The PostScript-type reminders for a particular day are included in the
  889. ! PostScript output in the same order they were triggered in the \fBRemind\fR
  890. ! script file.  All of the PostScript code for a particular date is enclosed
  891.   in a \fBsave\fR-\fBrestore\fR pair.  However, if several PostScript-type
  892.   reminders are triggered for a single day, each section of PostScript is
  893.   not enclosed in a \fBsave\fR-\fBrestore\fR pair - instead, the entire
  894. --- 2884,2902 ----
  895.   the PostScript output.
  896.   .PP
  897.   The PostScript-type reminders for a particular day are included in the
  898. ! PostScript output in sorted order of priority.  Note that the order
  899. ! of PostScript commands has a \fImajor\fR impact on the appearance of the
  900. ! calendars.  For example, PostScript code to shade a calendar box will
  901. ! obliterate code to draw a moon symbol if the moon symbol code is placed
  902. ! in the calendar first.  For this reason, you should not provide \fBPS\fR
  903. ! or \fBPSFILE\fR-type reminders with priorities; instead, you should
  904. ! ensure that they appear in the reminder script in the correct order.
  905. ! PostScript code should draw objects working from the background to the
  906. ! foreground, so that foreground objects properly overlay background ones.
  907. ! If you prioritize these reminders and run the script using descending
  908. ! sort order for priorities, the PostScript output will not work.
  909. ! .PP
  910. ! All of the PostScript code for a particular date is enclosed
  911.   in a \fBsave\fR-\fBrestore\fR pair.  However, if several PostScript-type
  912.   reminders are triggered for a single day, each section of PostScript is
  913.   not enclosed in a \fBsave\fR-\fBrestore\fR pair - instead, the entire
  914. ***************
  915. *** 2855,2875 ****
  916.   .SH SORTING REMINDERS
  917.   .PP
  918.   The \fB\-g\fR option causes \fBRemind\fR to sort reminders by
  919. ! trigger date and time before issuing them.  Note that reminders are
  920.   still calculated in the order encountered in the script.  However, rather
  921.   than being issued immediately, they are saved in an internal buffer.
  922.   When \fBRemind\fR has finished processing the script, it issues the
  923.   saved reminders in sorted order.  The \fB\-g\fR option can be followed
  924. ! by one or two characters, which must be "a" or "d".  The first character
  925. ! specifies the sort order by trigger date (ascending or descending) and
  926. ! the second specifies the sort order by trigger time.  The default is
  927. ! to sort both fields in ascending order.
  928.   .PP
  929.   In ascending order, reminders are issued with the most imminent first.
  930.   Descending order is the reverse.  Reminders are always sorted by
  931.   trigger date, and reminders with the same trigger date are then sorted
  932.   by trigger time.  Non-timed reminders are always issued after timed
  933. ! reminders in this mode.
  934.   .PP
  935.   You can define a user-defined function called SORTBANNER which takes one
  936.   \fBDATE\fR-type argument.  In sort mode, the following sequence happens:
  937. --- 2987,3010 ----
  938.   .SH SORTING REMINDERS
  939.   .PP
  940.   The \fB\-g\fR option causes \fBRemind\fR to sort reminders by
  941. ! trigger date, time and priority before issuing them.  Note that reminders are
  942.   still calculated in the order encountered in the script.  However, rather
  943.   than being issued immediately, they are saved in an internal buffer.
  944.   When \fBRemind\fR has finished processing the script, it issues the
  945.   saved reminders in sorted order.  The \fB\-g\fR option can be followed
  946. ! by up to three characters, which must be "a" or "d".  The first character
  947. ! specifies the sort order by trigger date (ascending or descending),
  948. ! the second specifies the sort order by trigger time and the third
  949. ! specifies the sort order by priority.  The default is
  950. ! to sort all fields in ascending order.
  951.   .PP
  952.   In ascending order, reminders are issued with the most imminent first.
  953.   Descending order is the reverse.  Reminders are always sorted by
  954.   trigger date, and reminders with the same trigger date are then sorted
  955.   by trigger time.  Non-timed reminders are always issued after timed
  956. ! reminders in this mode.  If two reminders have the same date and time,
  957. ! then the priority is used to break ties.  Reminders with the same date,
  958. ! time and priority are issued in the order they were encountered.
  959.   .PP
  960.   You can define a user-defined function called SORTBANNER which takes one
  961.   \fBDATE\fR-type argument.  In sort mode, the following sequence happens:
  962. ***************
  963. *** 2926,2931 ****
  964. --- 3061,3121 ----
  965.       endif
  966.   .fi
  967.   .PP
  968. + .SH MSGPREFIX() AND MSGSUFFIX()
  969. + .PP
  970. + You can define two functions in your script called \fBmsgprefix()\fR
  971. + and \fBmsgsuffix()\fR.  They should each accept one argument, a number
  972. + from 0 to 9999.
  973. + .PP
  974. + In normal mode, for \fBMSG\fR- and \fBMSF\fR-type reminders,
  975. + the following sequence occurs when
  976. + \fBRemind\fR triggers a reminder:
  977. + .TP
  978. + o
  979. + If \fBmsgprefix()\fR is defined, it is evaluated with the priority
  980. + of the reminder as its argument.  The result is printed.  It is
  981. + \fInot\fR passed through the substitution filter.
  982. + .TP
  983. + o
  984. + The body of the reminder is printed.
  985. + .TP
  986. + o
  987. + If \fBmsgsuffix()\fR is defined, it is evaluated with the priority
  988. + of the reminder as its argument.  The result is printed.  It is
  989. + \fInot\fR passed through the substitution filter.
  990. + .PP
  991. + Here's an example:  The following definition causes priority-0
  992. + reminders to be preceded by "URGENT", and priority-6000 reminders to
  993. + be preceded by "(not important)".
  994. + .PP
  995. + .nf
  996. +     fset msgprefix(x) iif(x==0, "URGENT: ", \\
  997. +          x==6000, "(not important) ", "")
  998. + .fi
  999. + .PP
  1000. + In Calendar Mode (with the \fB\-c\fR, \fB\-s\fR or \fB\-p\fR options),
  1001. + an analagous pair of functions named \fBcalprefix()\fR and
  1002. + \fBcalsuffix()\fR can be defined.  They work with all reminders which
  1003. + produce an entry in the calendar (i.e., \fBCAL\fR- and possibly
  1004. + \fBRUN\fR-type reminders as well as \fBMSG\fR-type reminders.)
  1005. + .PP
  1006. + .B NOTES
  1007. + .PP
  1008. + Normally, the body of a reminder is followed by a carriage return.
  1009. + Thus, the results of \fBmsgsuffix()\fR will appear on the next
  1010. + line.  If you don't want this, end the body of the reminder with a
  1011. + percentage sign, "%".  If you want a space between your reminders,
  1012. + simply include a carriage return (\fBchar(13)\fR) as part of the
  1013. + \fBmsgsuffix()\fR return value.
  1014. + .PP
  1015. + If \fBRemind\fR has problems evaluating \fBmsgprefix()\fR,
  1016. + \fBmsgsuffix()\fR or \fBsortbanner()\fR, you will see a lot of
  1017. + error messages.  For an example of this, define the following:
  1018. + .PP
  1019. + .nf
  1020. +     fset msgprefix(x) x/0
  1021. + .fi
  1022. + .PP
  1023.   .SH FOREIGN LANGUAGE SUPPORT
  1024.   .PP
  1025.   Your version of \fBRemind\fR may have been compiled to support a
  1026. ***************
  1027. *** 2992,2998 ****
  1028.   .TP
  1029.   .B hebdate(i_day, s_hebmon [,id_yrstart [,i_jahr [,i_aflag]]])
  1030.   The \fBhebdate()\fR function is the most complex of the Hebrew support
  1031. ! functions.  It can take from 2 to 4 arguments.  It returns a \fBDATE\fR
  1032.   corresponding to the Hebrew date.
  1033.   .PP
  1034.   .RS
  1035. --- 3182,3188 ----
  1036.   .TP
  1037.   .B hebdate(i_day, s_hebmon [,id_yrstart [,i_jahr [,i_aflag]]])
  1038.   The \fBhebdate()\fR function is the most complex of the Hebrew support
  1039. ! functions.  It can take from 2 to 5 arguments.  It returns a \fBDATE\fR
  1040.   corresponding to the Hebrew date.
  1041.   .PP
  1042.   .RS
  1043. ***************
  1044. *** 3307,3316 ****
  1045.   versions of \fBRemind\fR prior to 03.00.01.
  1046.   .SH AUTHOR
  1047.   .PP
  1048. ! David F. Skoll wrote \fBRemind\fR.  The moon code was copied largely verbatim
  1049. ! from "moontool" by John Walker.  The Hebrew calendar support was taken
  1050. ! from "hdate" by Amos Shapir.  The authors of the language files are
  1051. ! listed in the header file "lang.h" which comes with \fBRemind\fR.
  1052.   .SH BUGS
  1053.   .PP
  1054.   There's no good reason why read-only system variables are not
  1055. --- 3497,3508 ----
  1056.   versions of \fBRemind\fR prior to 03.00.01.
  1057.   .SH AUTHOR
  1058.   .PP
  1059. ! David F. Skoll wrote \fBRemind\fR.  The moon code was copied largely
  1060. ! unmodified from "moontool" by John Walker.  The Hebrew calendar
  1061. ! support was taken from "hdate" by Amos Shapir.  The authors of the
  1062. ! language files are listed in the header file "lang.h" which comes with
  1063. ! \fBRemind\fR.  OS/2 support was provided initially by Darrel
  1064. ! Hankerson; more complete OS/2 support was done by Russ Herman.
  1065.   .SH BUGS
  1066.   .PP
  1067.   There's no good reason why read-only system variables are not
  1068. ***************
  1069. *** 3321,3327 ****
  1070.   .PP
  1071.   The UTC functions are not reliable under MS-DOS.
  1072.   .PP
  1073. ! The MS-DOS and OS/2 versions of \fBRemind\fR do not support queuing or timed
  1074.   activation of reminders.
  1075.   .PP
  1076.   \fBRemind\fR has some built-in limits on total line length,
  1077. --- 3513,3519 ----
  1078.   .PP
  1079.   The UTC functions are not reliable under MS-DOS.
  1080.   .PP
  1081. ! The MS-DOS version of \fBRemind\fR does not support queuing or timed
  1082.   activation of reminders.
  1083.   .PP
  1084.   \fBRemind\fR has some built-in limits on total line length,
  1085. *** ../prev/sort.c    Tue Aug 31 16:28:20 1993
  1086. --- ./sort.c    Tue Oct 19 11:19:14 1993
  1087. ***************
  1088. *** 33,44 ****
  1089.      int trigdate;
  1090.      int trigtime;
  1091.      int typ;
  1092.   } Sortrem;
  1093.   
  1094.   /* The sorted reminder queue */
  1095.   static Sortrem *SortedQueue = (Sortrem *) NULL;
  1096.   
  1097. ! PRIVATE Sortrem *MakeSortRem ARGS ((int jul, int tim, char *body, int typ));
  1098.   PRIVATE void IssueSortBanner ARGS ((int jul));
  1099.   
  1100.   /***************************************************************/
  1101. --- 33,45 ----
  1102.      int trigdate;
  1103.      int trigtime;
  1104.      int typ;
  1105. +    int priority;
  1106.   } Sortrem;
  1107.   
  1108.   /* The sorted reminder queue */
  1109.   static Sortrem *SortedQueue = (Sortrem *) NULL;
  1110.   
  1111. ! PRIVATE Sortrem *MakeSortRem ARGS ((int jul, int tim, char *body, int typ, int prio));
  1112.   PRIVATE void IssueSortBanner ARGS ((int jul));
  1113.   
  1114.   /***************************************************************/
  1115. ***************
  1116. *** 49,60 ****
  1117.   /*                                                             */
  1118.   /***************************************************************/
  1119.   #ifdef HAVE_PROTOS
  1120. ! PRIVATE Sortrem *MakeSortRem(int jul, int tim, char *body, int typ)
  1121.   #else
  1122. ! static Sortrem *MakeSortRem(jul, tim, body, typ)
  1123.   int jul, tim;
  1124.   char *body;
  1125. ! int typ;
  1126.   #endif
  1127.   {
  1128.      Sortrem *new = NEW(Sortrem);
  1129. --- 50,61 ----
  1130.   /*                                                             */
  1131.   /***************************************************************/
  1132.   #ifdef HAVE_PROTOS
  1133. ! PRIVATE Sortrem *MakeSortRem(int jul, int tim, char *body, int typ, int prio)
  1134.   #else
  1135. ! static Sortrem *MakeSortRem(jul, tim, body, typ, prio)
  1136.   int jul, tim;
  1137.   char *body;
  1138. ! int typ, prio;
  1139.   #endif
  1140.   {
  1141.      Sortrem *new = NEW(Sortrem);
  1142. ***************
  1143. *** 69,74 ****
  1144. --- 70,76 ----
  1145.      new->trigdate = jul;
  1146.      new->trigtime = tim;
  1147.      new->typ = typ;
  1148. +    new->priority = prio;
  1149.      new->next = NULL;
  1150.      return new;
  1151.   }
  1152. ***************
  1153. *** 81,96 ****
  1154.   /*                                                             */
  1155.   /***************************************************************/
  1156.   #ifdef HAVE_PROTOS
  1157. ! PUBLIC int InsertIntoSortBuffer(int jul, int tim, char *body, int typ)
  1158.   #else
  1159. ! int InsertIntoSortBuffer(jul, tim, body, typ)
  1160.   int jul;
  1161.   int tim;
  1162.   char *body;
  1163. ! int typ;
  1164.   #endif
  1165.   {
  1166. !    Sortrem *new = MakeSortRem(jul, tim, body, typ);
  1167.      Sortrem *cur = SortedQueue, *prev = NULL;
  1168.      int ShouldGoAfter;
  1169.   
  1170. --- 83,98 ----
  1171.   /*                                                             */
  1172.   /***************************************************************/
  1173.   #ifdef HAVE_PROTOS
  1174. ! PUBLIC int InsertIntoSortBuffer(int jul, int tim, char *body, int typ, int prio)
  1175.   #else
  1176. ! int InsertIntoSortBuffer(jul, tim, body, typ, prio)
  1177.   int jul;
  1178.   int tim;
  1179.   char *body;
  1180. ! int typ, prio;
  1181.   #endif
  1182.   {
  1183. !    Sortrem *new = MakeSortRem(jul, tim, body, typ, prio);
  1184.      Sortrem *cur = SortedQueue, *prev = NULL;
  1185.      int ShouldGoAfter;
  1186.   
  1187. ***************
  1188. *** 99,104 ****
  1189. --- 101,107 ----
  1190.         IssueSortedReminders();
  1191.         SortByDate = 0;
  1192.         SortByTime = 0;
  1193. +       SortByPrio = 0;
  1194.         return E_NO_MEM;
  1195.      }
  1196.   
  1197. ***************
  1198. *** 108,126 ****
  1199.         return OK;
  1200.      }
  1201.      while (cur) {
  1202. !       if (cur->trigdate == new->trigdate) {
  1203. !          ShouldGoAfter =
  1204. !         (SortByTime == SORT_ASCEND) ?
  1205. !            (new->trigtime >= cur->trigtime) :
  1206. !            ((new->trigtime == NO_TIME) || (new->trigtime <= cur->trigtime));
  1207. !       } else {
  1208. !          ShouldGoAfter =
  1209. !         (SortByDate == SORT_ASCEND) ?
  1210. !            (new->trigdate >= cur->trigdate) :
  1211. !            (new->trigdate <= cur->trigdate);
  1212. !       }
  1213. ! 
  1214. !       if (ShouldGoAfter) {
  1215.            prev = cur;
  1216.        cur = cur->next;
  1217.         } else {
  1218. --- 111,121 ----
  1219.         return OK;
  1220.      }
  1221.      while (cur) {
  1222. !       ShouldGoAfter = CompareRems(new->trigdate, new->trigtime, new->priority,
  1223. !               cur->trigdate, cur->trigtime, cur->priority,
  1224. !               SortByDate, SortByTime, SortByPrio);
  1225. !               
  1226. !       if (ShouldGoAfter <= 0) {
  1227.            prev = cur;
  1228.        cur = cur->next;
  1229.         } else {
  1230. ***************
  1231. *** 160,183 ****
  1232.   
  1233.      while (cur) {
  1234.         next = cur->next;
  1235. !       if (cur->typ == MSG_TYPE || cur->typ == MSF_TYPE) {
  1236. !     if (!MsgCommand) {
  1237. !             if (cur->trigdate != olddate) {
  1238. !                IssueSortBanner(cur->trigdate);
  1239. !            olddate = cur->trigdate;
  1240.               }
  1241. !         if (cur->typ == MSG_TYPE)
  1242. !                printf("%s\n", cur->text);
  1243. !             else
  1244. !            FillParagraph(cur->text);
  1245. !          } else {
  1246. !             char buf[LINELEN+TOKSIZE];
  1247. !             sprintf(buf, MsgCommand, cur->text);
  1248. !         system(buf);
  1249. !          }
  1250. !       } else { /* Must be RUN_TYPE */
  1251. !          system(cur->text);
  1252.         }
  1253.         free(cur->text);
  1254.         free(cur);
  1255.         cur = next;
  1256. --- 155,194 ----
  1257.   
  1258.      while (cur) {
  1259.         next = cur->next;
  1260. !       switch(cur->typ) {
  1261. !          case MSG_TYPE:
  1262. !         if (MsgCommand) {
  1263. !            char buf[LINELEN+TOKSIZE];
  1264. !            sprintf(buf, MsgCommand, cur->text);
  1265. !            system(buf);
  1266. !             } else {
  1267. !            if (cur->trigdate != olddate) {
  1268. !               IssueSortBanner(cur->trigdate);
  1269. !           olddate = cur->trigdate;
  1270. !                }
  1271. ! #ifdef __OS2__
  1272. !                PutlPopUp(cur->text);
  1273. ! #else
  1274. !                printf("%s", cur->text);
  1275. ! #endif
  1276.               }
  1277. !         break;
  1278. ! 
  1279. !      case MSF_TYPE:
  1280. ! #ifdef __OS2__
  1281. !             StartPopUp();
  1282. ! #endif
  1283. !         FillParagraph(cur->text);
  1284. ! #ifdef __OS2__
  1285. !             EndPopUp();
  1286. ! #endif
  1287. !         break;
  1288. ! 
  1289. !      case RUN_TYPE:
  1290. !         system(cur->text);
  1291. !         break;
  1292.         }
  1293. + 
  1294.         free(cur->text);
  1295.         free(cur);
  1296.         cur = next;
  1297. ***************
  1298. *** 214,217 ****
  1299. --- 225,267 ----
  1300.      if (!DoSubstFromString(v.v.str, SubstBuffer, jul, NO_TIME))
  1301.         if (*SubstBuffer) printf("%s\n", SubstBuffer);
  1302.      DestroyValue(&v);
  1303. + }
  1304. + 
  1305. + /***************************************************************/
  1306. + /*                                                             */
  1307. + /*  CompareRems                                                */
  1308. + /*                                                             */
  1309. + /*  Compare two reminders for sorting.  Return 0 if they       */
  1310. + /*  compare equal; 1 if rem2 should come after rem1, -1 if     */
  1311. + /*  rem1 should come after rem2.  bydate and bytime control    */
  1312. + /*  sorting direction by date and time, resp.                  */
  1313. + /*                                                             */
  1314. + /***************************************************************/
  1315. + #ifdef HAVE_PROTOS
  1316. + PUBLIC int CompareRems(int dat1, int tim1, int prio1,
  1317. +                        int dat2, int tim2, int prio2,
  1318. +                int bydate, int bytime, int byprio)
  1319. + #else
  1320. + int CompareRems(dat1, tim1, prio1, dat2, tim2, prio2, bydate, bytime, byprio)
  1321. + int dat1, tim1, prio1, dat2, tim2, prio2, bydate, bytime, byprio;
  1322. + #endif
  1323. + {
  1324. +    int dafter, tafter, pafter;
  1325. + 
  1326. +    dafter = (bydate != SORT_DESCEND) ? 1 : -1;
  1327. +    tafter = (bytime != SORT_DESCEND) ? 1 : -1;
  1328. +    pafter = (byprio != SORT_DESCEND) ? 1 : -1;
  1329. + 
  1330. +    if (dat1 < dat2) return dafter;
  1331. +    if (dat1 > dat2) return -dafter;
  1332. + 
  1333. +    if (tim1 == NO_TIME && tim2 != NO_TIME) return -1;
  1334. +    if (tim1 != NO_TIME && tim2 == NO_TIME) return 1;
  1335. +    if (tim1 < tim2) return tafter;
  1336. +    if (tim1 > tim2) return -tafter;
  1337. + 
  1338. +    if (prio1 < prio2) return pafter;
  1339. +    if (prio1 > prio2) return -pafter;
  1340. + 
  1341. +    return 0;
  1342.   }
  1343. *** ../prev/test.cmp    Tue Aug 31 13:22:46 1993
  1344. --- ./test.cmp    Tue Oct 12 16:22:53 1993
  1345. ***************
  1346. *** 631,637 ****
  1347.   "a05" + "6" => "a056"
  1348.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1349.   set a058 version()
  1350. ! version() => "03.00.09"
  1351.   set a059 wkday(today())
  1352.   today() => 1991/02/16
  1353.   wkday(1991/02/16) => "Saturday"
  1354. --- 631,637 ----
  1355.   "a05" + "6" => "a056"
  1356.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1357.   set a058 version()
  1358. ! version() => "03.00.10"
  1359.   set a059 wkday(today())
  1360.   today() => 1991/02/16
  1361.   wkday(1991/02/16) => "Saturday"
  1362. ***************
  1363. *** 772,778 ****
  1364.           a048  "foo"
  1365.           a067  "INT"
  1366.           a039  "February"
  1367. !         a058  "03.00.09"
  1368.           a077  "1992 92
  1369.   "
  1370.           a049  21
  1371. --- 772,778 ----
  1372.           a048  "foo"
  1373.           a067  "INT"
  1374.           a039  "February"
  1375. !         a058  "03.00.10"
  1376.           a077  "1992 92
  1377.   "
  1378.           a049  21
  1379. *** ../prev/token.c    Fri Sep  3 11:50:53 1993
  1380. --- ./token.c    Wed Oct 20 11:45:09 1993
  1381. ***************
  1382. *** 11,16 ****
  1383. --- 11,17 ----
  1384.   /***************************************************************/
  1385.   #include "config.h"
  1386.   #include <stdio.h>
  1387. + #include <string.h>
  1388.   #include <ctype.h>
  1389.   #ifdef HAVE_STDLIB_H
  1390.   #include <stdlib.h>
  1391. ***************
  1392. *** 77,82 ****
  1393. --- 78,84 ----
  1394.      { "once",         3,     T_Once,        0 },
  1395.      { "pop-omit-context", 3,    T_Pop,        0 },
  1396.      { "preserve",        8,      T_Preserve,     0 },
  1397. +    { "priority",    8,    T_Priority,    0 },
  1398.      { "ps",         2,     T_RemType,     PS_TYPE },
  1399.      { "psfile",         6,     T_RemType,     PSF_TYPE },
  1400.      { "push-omit-context", 4,     T_Push,        0 },
  1401. ***************
  1402. *** 85,90 ****
  1403. --- 87,93 ----
  1404.      { "satisfy",        7,    T_RemType,      SAT_TYPE },
  1405.      { "saturday",    3,    T_WkDay,    5 },
  1406.      { "scanfrom",    4,    T_Scanfrom,    0 },
  1407. +    { "sched",        5,    T_Sched,    0 },
  1408.      { "september",     3,     T_Month,     8 },
  1409.      { "set",        3,    T_Set,        0 },
  1410.      { "skip",         3,     T_Skip,     SKIP_SKIP },
  1411. *** ../prev/types.h    Fri Sep  3 11:50:48 1993
  1412. --- ./types.h    Wed Oct 20 11:50:55 1993
  1413. ***************
  1414. *** 52,57 ****
  1415. --- 52,59 ----
  1416.      int typ;
  1417.      int once;
  1418.      int scanfrom;
  1419. +    int priority;
  1420. +    char sched[VAR_NAME_LEN+1];  /* Scheduling function */
  1421.   } Trigger;
  1422.   
  1423.   /* A time trigger */
  1424. ***************
  1425. *** 93,98 ****
  1426. --- 95,102 ----
  1427.   
  1428.   #define NO_TIME 1500 /* >1440, ie > than the largest possible legal time */
  1429.   
  1430. + #define NO_PRIORITY 5000 /* Default priority is midway between 0 and 9999 */
  1431. + 
  1432.   #define NO_TYPE  0
  1433.   #define MSG_TYPE 1
  1434.   #define RUN_TYPE 2
  1435. ***************
  1436. *** 127,133 ****
  1437.     T_Debug,
  1438.     T_Dumpvars,
  1439.     T_Scanfrom,
  1440. !   T_Flush
  1441.   };
  1442.   
  1443.   /* The structure of a token */
  1444. --- 131,139 ----
  1445.     T_Debug,
  1446.     T_Dumpvars,
  1447.     T_Scanfrom,
  1448. !   T_Flush,
  1449. !   T_Priority,
  1450. !   T_Sched
  1451.   };
  1452.   
  1453.   /* The structure of a token */
  1454. ***************
  1455. *** 162,166 ****
  1456.   #define SC_NOTIME 2   /* Do not display time in SC format. */
  1457.   
  1458.   /* Flags for sorting */
  1459. ! #define SORT_ASCEND 1
  1460.   #define SORT_DESCEND 2
  1461. --- 168,173 ----
  1462.   #define SC_NOTIME 2   /* Do not display time in SC format. */
  1463.   
  1464.   /* Flags for sorting */
  1465. ! #define SORT_NONE    0
  1466. ! #define SORT_ASCEND  1
  1467.   #define SORT_DESCEND 2
  1468. *** ../prev/var.c    Tue Sep 28 16:16:07 1993
  1469. --- ./var.c    Thu Oct 14 10:21:45 1993
  1470. ***************
  1471. *** 474,479 ****
  1472. --- 474,482 ----
  1473.      {   "PSCal",          0,    INT_TYPE,    &PsCal,        0,    0   },
  1474.      {   "RunOff",      0,    INT_TYPE,    &RunDisabled,    0,    0   },
  1475.      {   "SimpleCal",      0,    INT_TYPE,    &DoSimpleCalendar,    0,  0 },
  1476. +    {   "SortByDate",      0,    INT_TYPE,    &SortByDate,    0,    0},
  1477. +    {   "SortByPrio",      0,    INT_TYPE,    &SortByPrio,    0,    0},
  1478. +    {   "SortByTime",      0,    INT_TYPE,    &SortByTime,    0,    0},
  1479.      {   "SubsIndent",      1,    INT_TYPE,    &SubsIndent,    0,    132}
  1480.   };
  1481.   
  1482.