home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume36 / remind / patch04b / patch.04.B
Encoding:
Text File  |  1993-03-07  |  56.9 KB  |  1,794 lines
  1. ***************
  2. *** 81,85 ****
  3. --- 93,103 ----
  4.   
  5.   /* Define any overrides here, such as L_ORDINAL_OVERRIDE, L_A_OVER, etc.
  6.      See the file dosubst.c for more info. */
  7. + #define L_AMPM_OVERRIDE(ampm, hour)    ampm = (hour < 12) ? (hour<5) ? " nachts" : " vormittags" : (hour > 17) ? " abends" : " nachmittags";
  8. + #define L_ORDINAL_OVERRIDE        plu = ".";
  9. + #define L_A_OVER            sprintf(s, "%s %s, den %d. %s %d", L_ON, DayName[jul%7], d, MonthName[m], y);
  10. + #define    L_G_OVER            sprintf(s, "%s %s, den %d. %s", L_ON, DayName[jul%7], d, MonthName[m]);
  11. + #define L_U_OVER            L_A_OVER
  12. + #define L_V_OVER            L_G_OVER
  13.   
  14.   #endif /* L_IN_DOSUBST */
  15. *** ../patch3/globals.h    Thu Jan 21 16:02:55 1993
  16. --- ./globals.h    Mon Mar  1 16:56:30 1993
  17. ***************
  18. *** 36,41 ****
  19. --- 36,42 ----
  20.   EXTERN  char    LineBuffer[LINELEN];
  21.   EXTERN  char    SubstBuffer[LINELEN];
  22.   EXTERN  char    TokBuffer[TOKSIZE+1];
  23. + EXTERN  INIT(   char    *MsgCommand, NULL);
  24.   EXTERN  INIT(    char    ShowAllErrors, 0);
  25.   EXTERN  INIT(    int     DebugFlag, 0);
  26.   EXTERN  INIT(   char    DoCalendar, 0);
  27. ***************
  28. *** 50,55 ****
  29. --- 51,59 ----
  30.   EXTERN  INIT(   char    RunDisabled, 0);
  31.   EXTERN  INIT(   char    IgnoreOnce, 0);
  32.   EXTERN  INIT(   char    Banner[LINELEN], L_BANNER);
  33. + EXTERN  INIT(   char    SortByTime, 0);
  34. + EXTERN  INIT(   char    SortByDate, 0);
  35. + 
  36.   EXTERN    char    *InitialFile;
  37.   EXTERN    int    FileAccessDate;
  38.   
  39. *** ../patch3/init.c    Mon Feb  8 14:41:06 1993
  40. --- ./init.c    Mon Mar  1 17:37:26 1993
  41. ***************
  42. *** 62,67 ****
  43. --- 62,68 ----
  44.    *  -bn      = Time format for cal (0, 1, or 2)
  45.    *  -xn      = Max. number of iterations for SATISFY
  46.    *  -uname   = Run as user 'name' - only valid when run by root.
  47. +  *  -kcmd    = Run 'cmd' for MSG-type reminders instead of printing to stdout
  48.    *
  49.    **************************************************************/
  50.   
  51. ***************
  52. *** 156,161 ****
  53. --- 157,178 ----
  54.              Hush = 1;
  55.              break;
  56.   
  57. +         case 'g':
  58. +         case 'G':
  59. +            SortByDate = SORT_ASCEND;
  60. +            SortByTime = SORT_ASCEND;
  61. +            if (*arg) {
  62. +               if (*arg == 'D' || *arg == 'd')
  63. +              SortByDate = SORT_DESCEND;
  64. +           arg++;
  65. +                }
  66. +            if (*arg) {
  67. +               if (*arg == 'D' || *arg == 'd')
  68. +              SortByTime = SORT_DESCEND;
  69. +           arg++;
  70. +                }
  71. +            break;
  72. + 
  73.   #if defined(UNIX) && defined(WANT_U_OPTION)
  74.           case 'u':
  75.           case 'U':
  76. ***************
  77. *** 269,274 ****
  78. --- 286,297 ----
  79.              if (MaxSatIter < 10) MaxSatIter=10;
  80.              break;
  81.   
  82. +         case 'k':
  83. +         case 'K':
  84. +            MsgCommand = arg;
  85. +            while (*arg) arg++;  /* Chew up remaining chars in this arg */
  86. +            break;
  87. + 
  88.           default:
  89.              fprintf(ErrFp, "Unknown option '%c'\n", *(arg-1));
  90.        }
  91. ***************
  92. *** 345,352 ****
  93.   void Usage()
  94.   #endif
  95.   {
  96. !    fprintf(ErrFp, "\nREMIND %s (%s version) Copyright 1992, 1993 by David F. Skoll\n\n", VERSION, L_LANGNAME);
  97. !    fprintf(ErrFp, "        Usage: remind [options] filename [date]\n");
  98.      fprintf(ErrFp, "Options:\n");
  99.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  100.      fprintf(ErrFp, " -r     Disable RUN directives\n");
  101. --- 368,375 ----
  102.   void Usage()
  103.   #endif
  104.   {
  105. !    fprintf(ErrFp, "\nREMIND %s (%s version) Copyright 1992, 1993 by David F. Skoll\n", VERSION, L_LANGNAME);
  106. !    fprintf(ErrFp, "Usage: remind [options] filename [date]\n");
  107.      fprintf(ErrFp, "Options:\n");
  108.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  109.      fprintf(ErrFp, " -r     Disable RUN directives\n");
  110. ***************
  111. *** 369,374 ****
  112. --- 392,399 ----
  113.      fprintf(ErrFp, " -e     Divert messages normally sent to stderr to stdout\n");
  114.      fprintf(ErrFp, " -b[n]  Time format for cal: 0=am/pm, 1=24hr, 2=none\n");
  115.      fprintf(ErrFp, " -x[n]  Iteration limit for SATISFY clause (def=150)\n");
  116. +    fprintf(ErrFp, " -kcmd  Run 'cmd' for MSG-type reminders\n");
  117. +    fprintf(ErrFp, " -g[d[d]] Sort reminders by date and time before issuing\n");
  118.      exit(1);
  119.   }
  120.   
  121. ***************
  122. *** 399,405 ****
  123.   
  124.      static char *NoEnvMem = "Remind: Out of memory for environment\n";
  125.      struct passwd *pwent;
  126. !    static char *home, *shell, *username;
  127.   
  128.      myuid = getuid();
  129.      if (myuid) {
  130. --- 424,430 ----
  131.   
  132.      static char *NoEnvMem = "Remind: Out of memory for environment\n";
  133.      struct passwd *pwent;
  134. !    static char *home, *shell, *username, *logname;
  135.   
  136.      myuid = getuid();
  137.      if (myuid) {
  138. ***************
  139. *** 441,453 ****
  140.      putenv(shell);
  141.   
  142.      if (pwent->pw_uid) {
  143. !       username = malloc(strlen(pwent->pw_dir) + 6);
  144.         if (!username) {
  145.            fprintf(ErrFp, NoEnvMem);
  146.            exit(1);
  147.         }
  148. !       sprintf(username, "USER=%s", pwent->pw_dir);
  149.         putenv(username);
  150.      }
  151.   }
  152.   #endif /* UNIX && WANT_U_OPTION */
  153. --- 466,485 ----
  154.      putenv(shell);
  155.   
  156.      if (pwent->pw_uid) {
  157. !       username = malloc(strlen(pwent->pw_name) + 6);
  158.         if (!username) {
  159.            fprintf(ErrFp, NoEnvMem);
  160.            exit(1);
  161.         }
  162. !       sprintf(username, "USER=%s", pwent->pw_name);
  163.         putenv(username);
  164. +       logname= malloc(strlen(pwent->pw_name) + 9);
  165. +       if (!logname) {
  166. +          fprintf(ErrFp, NoEnvMem);
  167. +          exit(1);
  168. +       }
  169. +       sprintf(logname, "LOGNAME=%s", pwent->pw_name);
  170. +       putenv(logname);
  171.      }
  172.   }
  173.   #endif /* UNIX && WANT_U_OPTION */
  174. *** ../patch3/lang.h    Fri Jan 29 13:39:59 1993
  175. --- ./lang.h    Mon Feb 15 13:45:00 1993
  176. ***************
  177. *** 11,18 ****
  178.   
  179.   /* I'm chauvinistic and name each language with its English name... */
  180.   
  181. ! #define ENGLISH    0
  182. ! #define GERMAN     1
  183.   
  184.   /* Add more languages here - but please e-mail dfs@doe.carleton.ca
  185.      to have your favorite language assigned a number.  If you add a
  186. --- 11,20 ----
  187.   
  188.   /* I'm chauvinistic and name each language with its English name... */
  189.   
  190. ! #define ENGLISH    0 /* original by David Skoll */
  191. ! #define GERMAN     1 /* translated by Wolfgang Thronicke */
  192. ! #define DUTCH      2 /* translated by Willem Kasdorp */
  193. ! #define FINNISH    3 /* translated by Mikko Silvonen */
  194.   
  195.   /* Add more languages here - but please e-mail dfs@doe.carleton.ca
  196.      to have your favorite language assigned a number.  If you add a
  197. ***************
  198. *** 27,33 ****
  199. --- 29,37 ----
  200.    *       Define the language you want to use here                       *
  201.    *                                                                      *
  202.    ************************************************************************/
  203. + #ifndef LANG  /* Allow for definition on compiler command line */
  204.   #define LANG ENGLISH
  205. + #endif
  206.   
  207.   /* If LANG is not defined, it defaults to English. */
  208.   #ifndef LANG
  209. ***************
  210. *** 40,45 ****
  211. --- 44,53 ----
  212.   #include "english.h"
  213.   #elif LANG == GERMAN
  214.   #include "german.h"
  215. + #elif LANG == DUTCH
  216. + #include "dutch.h"
  217. + #elif LANG == FINNISH
  218. + #include "finnish.h"
  219.   
  220.   /* If no sensible language, choose English.  I intended to use
  221.      the #error directive here, but some C compilers barf. */
  222. *** ../patch3/lnk.msc    Wed Dec 16 10:51:54 1992
  223. --- ./lnk.msc    Thu Mar  4 10:44:28 1993
  224. ***************
  225. *** 8,13 ****
  226. --- 8,14 ----
  227.   init.obj +
  228.   main.obj +
  229.   omit.obj +
  230. + sort.obj +
  231.   token.obj +
  232.   trigger.obj +
  233.   userfns.obj +
  234. *** ../patch3/lnk.tc    Wed Dec 16 10:51:54 1992
  235. --- ./lnk.tc    Thu Mar  4 10:44:16 1993
  236. ***************
  237. *** 9,14 ****
  238. --- 9,15 ----
  239.   init.obj
  240.   main.obj
  241.   omit.obj
  242. + sort.obj
  243.   token.obj
  244.   trigger.obj
  245.   userfns.obj
  246. *** ../patch3/main.c    Fri Feb  5 14:55:19 1993
  247. --- ./main.c    Mon Mar  1 17:34:01 1993
  248. ***************
  249. *** 112,117 ****
  250. --- 112,120 ----
  251.      if (RealToday == JulianToday) SetAccessDate(InitialFile, RealToday);
  252.   #endif
  253.   
  254. +    /* If there are sorted reminders, handle them */
  255. +    if (SortByDate) IssueSortedReminders();
  256. + 
  257.      /* If there are any background reminders queued up, handle them */
  258.   #ifdef HAVE_QUEUED
  259.      if (NumQueued || Daemon) {
  260. ***************
  261. *** 849,855 ****
  262.      else {
  263.         if ( (r=ParseRem(p, &trig, &tim)) ) return r;
  264.         if (trig.typ != NO_TYPE) return E_PARSE_ERR;
  265. !       jul = ComputeTrigger(JulianToday, &trig, &r);
  266.         if (r) syndrome = IF_TRUE | BEFORE_ELSE;
  267.         else {
  268.            if (ShouldTriggerReminder(&trig, &tim, jul))
  269. --- 852,858 ----
  270.      else {
  271.         if ( (r=ParseRem(p, &trig, &tim)) ) return r;
  272.         if (trig.typ != NO_TYPE) return E_PARSE_ERR;
  273. !       jul = ComputeTrigger(trig.scanfrom, &trig, &r);
  274.         if (r) syndrome = IF_TRUE | BEFORE_ELSE;
  275.         else {
  276.            if (ShouldTriggerReminder(&trig, &tim, jul))
  277. *** ../patch3/makefile.msc    Wed Dec 16 10:51:53 1992
  278. --- ./makefile.msc    Thu Mar  4 10:46:02 1993
  279. ***************
  280. *** 2,8 ****
  281.   
  282.   OBJS= calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  283.   globals.obj init.obj main.obj omit.obj token.obj trigger.obj userfns.obj \
  284. ! utils.obj var.obj
  285.   
  286.   DEFINES= /D__MSDOS__ /D__MSC__
  287.   
  288. --- 2,8 ----
  289.   
  290.   OBJS= calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  291.   globals.obj init.obj main.obj omit.obj token.obj trigger.obj userfns.obj \
  292. ! utils.obj var.obj sort.obj
  293.   
  294.   DEFINES= /D__MSDOS__ /D__MSC__
  295.   
  296. ***************
  297. *** 19,24 ****
  298. --- 19,27 ----
  299.   
  300.   expr.obj: expr.c
  301.       cl /c $(DEFINES) $(MODEL) /Foexpr.obj expr.c
  302. + 
  303. + sort.obj: sort.c
  304. +     cl /c $(DEFINES) $(MODEL) /Fosort.obj sort.c
  305.   
  306.   files.obj: files.c
  307.       cl /c $(DEFINES) $(MODEL) /Fofiles.obj files.c
  308. *** ../patch3/makefile.os2    Tue Feb  2 14:36:47 1993
  309. --- ./makefile.os2    Mon Mar  1 16:55:19 1993
  310. ***************
  311. *** 25,44 ****
  312.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  313.   # in config.h; then, you should be able to type 'make'.
  314.   #-----------------------------------------------------------------------------
  315. ! VERSION= 03.00.03
  316.   
  317. ! HDRS= config.h err.h expr.h globals.h protos.h types.h version.h lang.h
  318.   
  319.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  320.   
  321.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  322. ! main.c omit.c token.c trigger.c userfns.c utils.c var.c
  323.   
  324.   MANIFEST= README.UNIX README.DOS COPYRIGHT $(HDRS) $(SRCS) Makefile rem rem.1 \
  325.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  326.   makefile.msc lnk.msc lnk.tc MANIFEST.UNX MANIFEST.DOS WHATSNEW.30 kall kall.1 \
  327.   defs.rem README.OS2 makefile.os2 rem2ps.c rem2ps.h remind.def rem2ps.1 \
  328. ! lang.h english.h german.h tstlang.rem
  329.   
  330.   OBJS= $(SRCS:.c=$O)
  331.   
  332. --- 25,45 ----
  333.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  334.   # in config.h; then, you should be able to type 'make'.
  335.   #-----------------------------------------------------------------------------
  336. ! VERSION= 03.00.04
  337.   
  338. ! HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  339. ! lang.h english.h german.h dutch.h finish.h
  340.   
  341.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  342.   
  343.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  344. ! main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c
  345.   
  346.   MANIFEST= README.UNIX README.DOS COPYRIGHT $(HDRS) $(SRCS) Makefile rem rem.1 \
  347.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  348.   makefile.msc lnk.msc lnk.tc MANIFEST.UNX MANIFEST.DOS WHATSNEW.30 kall kall.1 \
  349.   defs.rem README.OS2 makefile.os2 rem2ps.c rem2ps.h remind.def rem2ps.1 \
  350. ! tstlang.rem
  351.   
  352.   OBJS= $(SRCS:.c=$O)
  353.   
  354. ***************
  355. *** 75,80 ****
  356. --- 76,82 ----
  357.   init$O: init.c $(STDHDRS) expr.h version.h
  358.   main$O: main.c $(STDHDRS) expr.h
  359.   omit$O: omit.c $(STDHDRS)
  360. + sort$O: sort.c $(STDHDRS)
  361.   token$O: token.c $(STDHDRS)
  362.   trigger$O: trigger.c $(STDHDRS) expr.h
  363.   userfns$O: userfns.c $(STDHDRS) expr.h
  364. *** ../patch3/makefile.tc    Tue Feb  2 14:36:38 1993
  365. --- ./makefile.tc    Mon Mar  1 16:55:05 1993
  366. ***************
  367. *** 1,23 ****
  368.   # Makefile for REMIND for Turbo C for MSDOS
  369.   
  370. ! VERSION= 03.00.03
  371.   
  372. ! HDRS= config.h err.h expr.h globals.h protos.h types.h version.h lang.h
  373.   
  374.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  375.   
  376.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  377. ! main.c omit.c token.c trigger.c userfns.c utils.c var.c
  378.   
  379.   OBJS=calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  380. ! globals.obj init.obj main.obj omit.obj token.obj trigger.obj \
  381.   utils.obj userfns.obj var.obj
  382.   
  383.   MANIFEST= readme.uni readme.dos copyrigh $(HDRS) $(SRCS) makefile rem rem.1 \
  384.   remind.1 remind-a.csh remind-a.sh test.rem test-rem test.cmp makefile.tc \
  385.   makefile.msc lnk.msc lnk.tc manifest.dos manifest.unx whatsnew.30 kall kall.1 \
  386. ! defs.rem readme.os2 makefile.os2 rem2ps.c rem2ps.h remind.def rem2ps.1 \
  387. ! lang.h english.h german.h tstlang.rem
  388.   
  389.   all: remind.exe rem2ps.exe
  390.   
  391. --- 1,24 ----
  392.   # Makefile for REMIND for Turbo C for MSDOS
  393.   
  394. ! VERSION= 03.00.04
  395.   
  396. ! HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  397. ! lang.h english.h german.h dutch.h finnish.h
  398.   
  399.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  400.   
  401.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  402. ! main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c
  403.   
  404.   OBJS=calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  405. ! globals.obj init.obj main.obj omit.obj sort.obj token.obj trigger.obj \
  406.   utils.obj userfns.obj var.obj
  407.   
  408.   MANIFEST= readme.uni readme.dos copyrigh $(HDRS) $(SRCS) makefile rem rem.1 \
  409.   remind.1 remind-a.csh remind-a.sh test.rem test-rem test.cmp makefile.tc \
  410.   makefile.msc lnk.msc lnk.tc manifest.dos manifest.unx whatsnew.30 kall kall.1 \
  411. ! tstlang.rem defs.rem readme.os2 makefile.os2 rem2ps.c rem2ps.h remind.def \
  412. ! rem2ps.1
  413.   
  414.   all: remind.exe rem2ps.exe
  415.   
  416. ***************
  417. *** 51,56 ****
  418. --- 52,59 ----
  419.   main.obj: main.c $(STDHDRS) expr.h
  420.   
  421.   omit.obj: omit.c $(STDHDRS)
  422. + 
  423. + sort.obj: sort.c $(STDHDRS)
  424.   
  425.   token.obj: token.c $(STDHDRS)
  426.   
  427. *** ../patch3/omit.c    Fri Feb  5 14:56:03 1993
  428. --- ./omit.c    Mon Mar  1 12:59:56 1993
  429. ***************
  430. *** 33,40 ****
  431.   static int NumFullOmits, NumPartialOmits;
  432.   
  433.   /* The structure for saving and restoring OMIT contexts */
  434. ! typedef struct _omitcontext {
  435. !    struct _omitcontext *next;
  436.      int numfull, numpart;
  437.      int *fullsave;
  438.      int *partsave;
  439. --- 33,40 ----
  440.   static int NumFullOmits, NumPartialOmits;
  441.   
  442.   /* The structure for saving and restoring OMIT contexts */
  443. ! typedef struct omitcontext {
  444. !    struct omitcontext *next;
  445.      int numfull, numpart;
  446.      int *fullsave;
  447.      int *partsave;
  448. *** ../patch3/protos.h    Fri Jan  8 13:24:46 1993
  449. --- ./protos.h    Tue Mar  2 16:20:16 1993
  450. ***************
  451. *** 33,38 ****
  452. --- 33,39 ----
  453.   int TriggerReminder ARGS ((ParsePtr p, Trigger *t, TimeTrig *tim, int jul));
  454.   int ShouldTriggerReminder ARGS ((Trigger *t, TimeTrig *tim, int jul));
  455.   int DoSubst ARGS ((ParsePtr p, char *out, Trigger *t, TimeTrig *tt, int jul, int mode));
  456. + int DoSubstFromString ARGS ((char *source, char *dest, int jul, int tim));
  457.   int EvalExpr ARGS ((char **e, Value *v));
  458.   int PushValStack ARGS ((Value *val));
  459.   int PopValStack ARGS ((Value *val));
  460. ***************
  461. *** 111,113 ****
  462. --- 112,119 ----
  463.   int DoSatRemind ARGS ((Trigger *trig, TimeTrig *tim, ParsePtr p));
  464.   int ParseNonSpaceChar ARGS ((ParsePtr p, int *err, int peek));
  465.   int HashVal ARGS ((const char *str));
  466. + int DateOK ARGS ((int y, int m, int d));
  467. + Operator *FindFunc ARGS ((char *name, Operator where[], int num));
  468. + int InsertIntoSortBuffer ARGS ((int jul, int tim, char *body, int typ));
  469. + void IssueSortedReminders ARGS ((void));    
  470. + int UserFuncExists ARGS ((char *fn));
  471. *** ../patch3/queue.c    Fri Jan  8 13:24:41 1993
  472. --- ./queue.c    Mon Mar  1 12:58:47 1993
  473. ***************
  474. *** 28,35 ****
  475.   #include "protos.h"
  476.   
  477.   /* List structure for holding queued reminders */
  478. ! typedef struct _queuedrem {
  479. !    struct _queuedrem *next;
  480.      int typ;
  481.      int RunDisabled;
  482.      char *text;
  483. --- 28,35 ----
  484.   #include "protos.h"
  485.   
  486.   /* List structure for holding queued reminders */
  487. ! typedef struct queuedrem {
  488. !    struct queuedrem *next;
  489.      int typ;
  490.      int RunDisabled;
  491.      char *text;
  492. ***************
  493. *** 270,278 ****
  494.      printf("Contents of AT queue:%s", NL);
  495.   
  496.      while (q) {
  497. !       printf("Trigger: %02d:%02d  Activate: %02d:%02d  Rep: %d  Delta: %d%s",
  498. !               q->tt.ttime / 60, q->tt.ttime % 60,
  499. !           q->tt.nexttime / 60, q->tt.nexttime % 60,
  500.                 q->tt.rep, q->tt.delta, NL);
  501.         printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" : "RUN"),
  502.                 q->text,
  503. --- 270,278 ----
  504.      printf("Contents of AT queue:%s", NL);
  505.   
  506.      while (q) {
  507. !       printf("Trigger: %02d%c%02d  Activate: %02d%c%02d  Rep: %d  Delta: %d%s",
  508. !               q->tt.ttime / 60, TIMESEP, q->tt.ttime % 60,
  509. !           q->tt.nexttime / 60, TIMESEP, q->tt.nexttime % 60,
  510.                 q->tt.rep, q->tt.delta, NL);
  511.         printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" : "RUN"),
  512.                 q->text,
  513. *** ../patch3/rem2ps.1    Fri Jan 29 13:37:01 1993
  514. --- ./rem2ps.1    Mon Feb 15 18:45:11 1993
  515. ***************
  516. *** 24,32 ****
  517.   not use this option, the default encoding is used.
  518.   .TP
  519.   .B \-m media
  520. ! Set the page size.  You must specify the media type, which can be one of the
  521. ! following.  (Sizes are approximate.  For a list of media types, type
  522. ! "rem2ps -m help".)
  523.   .RS
  524.   .TP
  525.   Letter
  526. --- 24,32 ----
  527.   not use this option, the default encoding is used.
  528.   .TP
  529.   .B \-m media
  530. ! Set the page size.  If you use the \-m option, you must specify the
  531. ! media type, which can be one of the
  532. ! following.  (Sizes are approximate.)
  533.   .RS
  534.   .TP
  535.   Letter
  536. ***************
  537. *** 69,75 ****
  538.   10 x 14 in.
  539.   .PP
  540.   Type "rem2ps -m help" for a list of available media.  Note that the media
  541. ! type (and all \fBRem2ps\fR options) are case-sensitive.
  542.   .RE
  543.   .TP
  544.   \fB\-f\fR[\fBshed\fR] \fIfont\fR
  545. --- 69,76 ----
  546.   10 x 14 in.
  547.   .PP
  548.   Type "rem2ps -m help" for a list of available media.  Note that the media
  549. ! type (and all \fBRem2ps\fR options) are case-sensitive.  If you don't use
  550. ! the \fB\-m\fR option, the media defaults to Letter.
  551.   .RE
  552.   .TP
  553.   \fB\-f\fR[\fBshed\fR] \fIfont\fR
  554. *** ../patch3/rem2ps.c    Mon Feb  8 14:31:59 1993
  555. --- ./rem2ps.c    Mon Mar  1 12:59:48 1993
  556. ***************
  557. *** 31,38 ****
  558.   #endif
  559.   #define NEW(type) ((type *) malloc(sizeof(type)))
  560.   
  561. ! typedef struct _CalEntry {
  562. !    struct _CalEntry *next;
  563.      char *entry;
  564.   } CalEntry;
  565.   
  566. --- 31,38 ----
  567.   #endif
  568.   #define NEW(type) ((type *) malloc(sizeof(type)))
  569.   
  570. ! typedef struct calentry {
  571. !    struct calentry *next;
  572.      char *entry;
  573.   } CalEntry;
  574.   
  575. *** ../patch3/remind.1    Tue Feb  2 14:36:32 1993
  576. --- ./remind.1    Fri Mar  5 11:51:37 1993
  577. ***************
  578. *** 37,42 ****
  579. --- 37,43 ----
  580.   empty boxes smaller.  \fISpc\fR specifies how many blank lines to leave
  581.   between the day number and the first reminder entry.  It defaults to 1.
  582.   .RS
  583. + .PP
  584.   Any of \fIcol\fR, \fIpad\fR or \fIspc\fR can be omitted, providing you
  585.   provide the correct number of commas.  Don't use any spaces in the option.
  586.   .RE
  587. ***************
  588. *** 106,111 ****
  589. --- 107,120 ----
  590.   Echo lines when displaying error messages
  591.   .RE
  592.   .TP
  593. + \fB\-g\fR[\fBa|d\fR[\fBa|d\fR]]
  594. + Normally, reminders are issued in the order in which they are encountered
  595. + in the reminder script.  The \fB\-g\fR option cause \fBRemind\fR to
  596. + sort reminders by date and time prior to issuing them.  The optional
  597. + \fBa\fR and \fBd\fR characters specify the sort order (ascending or
  598. + descending) for the date and time fields.  See the section "Sorting
  599. + Reminders" for more information.
  600. + .TP
  601.   \fB\-b\fR[\fIn\fR]
  602.   Set the time format for the calendar and simple-calendar outputs.  \fIN\fR
  603.   can range from 0 to 2, with the default 0.  A value of 0 causes times
  604. ***************
  605. *** 117,122 ****
  606. --- 126,165 ----
  607.   Sets the iteration limit for the \fBSATISFY\fR clause of a \fBREM\fR
  608.   command.  Defaults to 150.
  609.   .TP
  610. + \fB\-k\fR\fIcmd\fR
  611. + Instead of simply printing \fBMSG\fR-type reminders, this causes them to be
  612. + passed to the specific \fIcmd\fR.  You must use '%s' where you want the body to
  613. + appear, and may need to enclose this option in quotes.  Also, because
  614. + \fIcmd\fR is run using the \fBsystem()\fR library function, shell quotes in
  615. + the body of the message may cause problems.  Note that this option
  616. + \fBoverrides\fR the \fB\-r\fR option and the \fBRUN OFF\fR command.
  617. + .PP
  618. + .RS
  619. + As an example, suppose you have an X-Windows program called xmessage, which
  620. + pops up a window and displays its invocation arguments.  You could use:
  621. + .PP
  622. + .nf
  623. +         remind '-kxmessage %s &' ...
  624. + .fi
  625. + .PP
  626. + to have all of your \fBMSG\fR-type reminders processed using xmessage.
  627. + .PP
  628. + A word of warning:  It is very easy to spawn dozens of xmessage processes
  629. + with the above technique.  So be very careful.  Also, the \fIcmd\fR is passed
  630. + as an argument to \fBsprintf()\fR.  If you use formatting directives other
  631. + than %s, or use more than one %s directive, there's a good chance that
  632. + you'll crash \fBRemind\fR.  Finally, because \fIcmd\fR is executed using
  633. + the \fBsystem()\fR library function, shell delimiters in \fBMSG\fR-type
  634. + reminders could cause problems.  \fIIn particular, never run untrusted
  635. + reminders using the \fR\fB\-k\fR\fI option\fR.  A reminder like:
  636. + .PP
  637. + .nf
  638. +     REM msg foo ; rm -Rf .
  639. + .fi
  640. + .PP
  641. + would cause havoc if run with the \fB\-k\fR option.
  642. + .RE
  643. + .TP
  644.   \fB\-z\fR[\fIn\fR]
  645.   Runs \fBRemind\fR in the daemon mode.  If \fIn\fR is supplied, it
  646.   specifies how often (in minutes) \fBRemind\fR should wake up to
  647. ***************
  648. *** 129,135 ****
  649.   The \fB\-u\fR option is available only to root, and cannot be used by normal
  650.   users.  The option changes the uid and gid as described, and sets the
  651.   environment variables HOME, SHELL and USER to the home directory, shell,
  652. ! and user name, respectively, of the specified user.  This option is meant for
  653.   use in shell scripts which mail reminders to all users.
  654.   .PP
  655.   If you supply a \fIdate\fR on the command line, it must consist of
  656. --- 172,179 ----
  657.   The \fB\-u\fR option is available only to root, and cannot be used by normal
  658.   users.  The option changes the uid and gid as described, and sets the
  659.   environment variables HOME, SHELL and USER to the home directory, shell,
  660. ! and user name, respectively, of the specified user.  LOGNAME is also
  661. ! set to the specified user name.  This option is meant for
  662.   use in shell scripts which mail reminders to all users.
  663.   .PP
  664.   If you supply a \fIdate\fR on the command line, it must consist of
  665. ***************
  666. *** 188,193 ****
  667. --- 232,238 ----
  668.   [\fBOMIT\fR \fIomit_list\fR]
  669.   [\fBAT\fR \fItime\fR [\fItdelta\fR] [\fItrepeat\fR]]
  670.   [\fBUNTIL\fR \fIexpiry_date\fR]
  671. + [\fBSCANFROM\fR \fIscan_date\fR]
  672.   \fBMSG\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR
  673.   .I body
  674.   .RE
  675. ***************
  676. *** 206,214 ****
  677.   .PP
  678.   The keywords \fBMSG\fR, \fBRUN\fR and \fBCAL\fR denote the \fItype\fR
  679.   of the reminder.  (\fBSATISFY\fR is more complicated and will be explained
  680. ! later.)  A \fBMSG\fR type reminder simply prints a message to the standard
  681.   output, after passing the \fIbody\fR through a special substitution filter,
  682. ! described in the section "The Substitution Filter."  A \fBRUN\fR-type
  683.   reminder also passes the \fIbody\fR through the substitution filter, but
  684.   then executes the result as a system command.  A \fBCAL\fR-type reminder
  685.   is used only to place entries in the calendar produced when \fBRemind\fR
  686. --- 251,264 ----
  687.   .PP
  688.   The keywords \fBMSG\fR, \fBRUN\fR and \fBCAL\fR denote the \fItype\fR
  689.   of the reminder.  (\fBSATISFY\fR is more complicated and will be explained
  690. ! later.)  A \fBMSG\fR-type reminder normally prints a message to the standard
  691.   output, after passing the \fIbody\fR through a special substitution filter,
  692. ! described in the section "The Substitution Filter."  However, if you have
  693. ! used the \fB\-k\fR command-line option, then \fBMSG\fR-type reminders are
  694. ! passed to the appropriate program.  Note that the options \fB\-c\fR,
  695. ! \fB\-s\fR, \fB\-p\fR and \fB\-n\fR disable the \fB\-k\fR option.
  696. ! .PP
  697. ! A \fBRUN\fR-type
  698.   reminder also passes the \fIbody\fR through the substitution filter, but
  699.   then executes the result as a system command.  A \fBCAL\fR-type reminder
  700.   is used only to place entries in the calendar produced when \fBRemind\fR
  701. ***************
  702. *** 491,496 ****
  703. --- 541,553 ----
  704.   period.  Similarly, if you specify a weekday, it is used only to calculate
  705.   the initial date, and does not affect the repetition period.
  706.   .PP
  707. + .B SCANFROM
  708. + .PP
  709. + The \fBSCANFROM\fR keyword is for advanced \fBRemind\fR programmers
  710. + only, and will be explained in the section "Details about Trigger Computation"
  711. + near the end of this manual.  Note that \fBSCANFROM\fR is available only
  712. + in versions of \fBRemind\fR from 03.00.04 up.
  713. + .PP
  714.   .B EXPIRY DATES
  715.   .PP
  716.   Some reminders should be issued periodically for a certain time, but then
  717. ***************
  718. *** 578,583 ****
  719. --- 635,642 ----
  720.   by a \fItime\fR and optional \fItdelta\fR and \fItrepeat\fR.  The \fItime\fR
  721.   must be specified in 24-hour format, with 0:00 representing midnight,
  722.   12:00 representing noon, and 23:59 representing one minute to midnight.
  723. + You can use either a colon or a period to separate the hours from the
  724. + minutes.  That is, 13:39 and 13.39 are equivalent.
  725.   .PP
  726.   \fBRemind\fR treats timed reminders specially.  If the trigger date
  727.   for a timed reminder is the same as the current system date, the
  728. ***************
  729. *** 1043,1049 ****
  730.   .PP
  731.   If you run \fBRemind\fR with the \fB\-r\fR command-line option,
  732.   \fBRUN\fR-type reminders and the \fBshell()\fR function will be disabled,
  733. ! regardless of any \fBRUN\fR commands in the reminder script.
  734.   .PP
  735.   One use of the \fBRUN\fR command is to provide a secure interface
  736.   between \fBRemind\fR and the \fBElm\fR mail system.  The \fBElm\fR
  737. --- 1102,1109 ----
  738.   .PP
  739.   If you run \fBRemind\fR with the \fB\-r\fR command-line option,
  740.   \fBRUN\fR-type reminders and the \fBshell()\fR function will be disabled,
  741. ! regardless of any \fBRUN\fR commands in the reminder script.  However,
  742. ! any command supplied with the \fB\-k\fR option will still be executed.
  743.   .PP
  744.   One use of the \fBRUN\fR command is to provide a secure interface
  745.   between \fBRemind\fR and the \fBElm\fR mail system.  The \fBElm\fR
  746. ***************
  747. *** 1071,1076 ****
  748. --- 1131,1139 ----
  749.       Reminders for Friday, 30th October, 1992 (today):
  750.   .fi
  751.   .PP
  752. + (The banner is not printed if any of the calendar-producing options
  753. + is used, or if the \fB\-k\fR option is used.)
  754. + .PP
  755.   The \fBBANNER\fR command lets you change the format.  It should appear
  756.   before any \fBREM\fR commands.  The format is:
  757.   .PP
  758. ***************
  759. *** 1166,1175 ****
  760.   .RE
  761.   .TP
  762.   .B TIME constants
  763. ! 12:33, 0:01, 14:15, 16:42
  764.   .PP
  765.   .RS
  766. ! Note that \fBTIME\fR constants are written in 24-hour format
  767.   .RE
  768.   .TP
  769.   .B DATE constants
  770. --- 1229,1241 ----
  771.   .RE
  772.   .TP
  773.   .B TIME constants
  774. ! 12:33, 0:01, 14:15, 16:42, 12.16, 13.00, 1.11
  775.   .PP
  776.   .RS
  777. ! Note that \fBTIME\fR constants are written in 24-hour format.  Either the
  778. ! period or colon can be used to separate the minutes from the hours.
  779. ! However, Remind will consistently output times using only one separator
  780. ! character.  (The output separator character is chosen at compile-time.)
  781.   .RE
  782.   .TP
  783.   .B DATE constants
  784. ***************
  785. *** 1389,1394 ****
  786. --- 1455,1468 ----
  787.   function returns 0 if the file can be accessed with the specified \fImode\fR,
  788.   and -1 otherwise.
  789.   .TP
  790. + .B args(s_fname)
  791. + Returns the number of arguments expected by the user-defined function
  792. + \fIfname\fR, or -1 if no such user-defined function exists.  Note that
  793. + this function examines only user-defined functions, not built-in functions.
  794. + Its main use is to determine whether or not a particular user-defined
  795. + function has been defined previously.  The \fBargs()\fR function is
  796. + available only in versions of \fBRemind\fR from 03.00.04 and up.
  797. + .TP
  798.   .B asc(s_string)
  799.   Returns an \fBINT\fR which is the ASCII code of the first character
  800.   in \fIstring\fR.  As a special case, \fBasc("")\fR returns 0.
  801. ***************
  802. *** 1491,1496 ****
  803. --- 1565,1587 ----
  804.   error if it is undefined or not of type \fBSTRING\fR.
  805.   .RE
  806.   .TP
  807. + .B dosubst(s_str [,d_date [,t_time]])
  808. + Returns a \fBSTRING\fR which is the result of passing \fIstr\fR through
  809. + the substitution filter described earlier.  The parameters \fIdate\fR
  810. + and \fItime\fR establish the effective trigger date and time used by the
  811. + substitution filter.  If \fIdate\fR and \fItime\fR are omitted, they
  812. + default to \fBtoday()\fR and \fBnow()\fR.
  813. + .RS
  814. + .PP
  815. + Note that if \fIstr\fR does not end with "%", a newline character will be
  816. + added to the end of the result.  Also, calling \fBdosubst()\fR with a
  817. + \fIdate\fR which is in the past (i.e., if \fIdate\fR < \fBtoday()\fR)
  818. + will produce undefined results.
  819. + .PP
  820. + \fBDosubst()\fR is only available starting from version 03.00.04 of
  821. + \fBRemind\fR.
  822. + .RE
  823. + .TP
  824.   .B filename()
  825.   Returns (as a \fBSTRING\fR) the name of the current file being processed
  826.   by \fBRemind\fR.  Inside included files, returns the name of the
  827. ***************
  828. *** 1516,1521 ****
  829. --- 1607,1613 ----
  830.   string \fIsearch\fR.  The first character of a string is numbered 1.
  831.   If \fItarget\fR does not exist in \fIsearch\fR, then 0 is returned.
  832.   .RS
  833. + .PP
  834.   The optional parameter \fIstart\fR specifies the position in
  835.   \fIsearch\fR at which to start looking for \fItarget\fR.
  836.   .RE
  837. ***************
  838. *** 1579,1584 ****
  839. --- 1671,1677 ----
  840.   Can take from one to three arguments.  If one argument is supplied, returns
  841.   "s" if \fInum\fR is not 1, and "" if \fInum\fR is 1.
  842.   .RS
  843. + .PP
  844.   If two arguments are supplied, returns \fIstr1\fR + "s" if \fInum\fR is
  845.   not 1.  Otherwise, returns \fIstr1\fR.
  846.   .PP
  847. ***************
  848. *** 1622,1628 ****
  849.   calendar entry currently being computed.
  850.   .TP
  851.   .B trigdate()
  852. ! Returns the calculated trigger date of the last \fBREM\fR command.  If used
  853.   in the \fIbody\fR of a \fBREM\fR command, returns that command's trigger date.
  854.   .TP
  855.   .B trigger(d_date)
  856. --- 1715,1722 ----
  857.   calendar entry currently being computed.
  858.   .TP
  859.   .B trigdate()
  860. ! Returns the calculated trigger date of the last \fBREM\fR
  861. ! or \fBIFTRIG\fR command.  If used
  862.   in the \fIbody\fR of a \fBREM\fR command, returns that command's trigger date.
  863.   .TP
  864.   .B trigger(d_date)
  865. ***************
  866. *** 1656,1661 ****
  867. --- 1750,1756 ----
  868.   returns the value of variable XY, if it is defined.  If XY is not defined,
  869.   an error results.
  870.   .RS
  871. + .PP
  872.   However, if you supply a second argument, it is returned if the \fIvarname\fR
  873.   is not defined.  The expression value("XY", 0) will return 0 if XY is not
  874.   defined, and the value of XY if it is defined.
  875. ***************
  876. *** 1663,1669 ****
  877.   .TP
  878.   .B version()
  879.   Returns a string specifying the version of \fBRemind\fR.  For version 
  880. ! 03.00.03, returns "03.00.03".  It is guaranteed that as new versions of
  881.   \fBRemind\fR are released, the value returned by \fBversion()\fR will
  882.   strictly increase, according to the rules for string ordering.
  883.   .TP
  884. --- 1758,1764 ----
  885.   .TP
  886.   .B version()
  887.   Returns a string specifying the version of \fBRemind\fR.  For version 
  888. ! 03.00.04, returns "03.00.04".  It is guaranteed that as new versions of
  889.   \fBRemind\fR are released, the value returned by \fBversion()\fR will
  890.   strictly increase, according to the rules for string ordering.
  891.   .TP
  892. ***************
  893. *** 1725,1730 ****
  894. --- 1820,1826 ----
  895.           ["SET"] a 1
  896.   .fi
  897.   .RS
  898. + .PP
  899.   This restriction is because \fBRemind\fR must be able to unambiguously
  900.   determine the first token of a line for the flow-control commands (to
  901.   be discussed later.)
  902. ***************
  903. *** 1886,1891 ****
  904. --- 1982,1988 ----
  905.   The \fBvalue()\fR function \fIalways\fR accesses the "global" value of a
  906.   variable, even if it has the same name as an argument.  For example:
  907.   .RS
  908. + .PP
  909.   .nf
  910.           fset func(x) value("x")
  911.           set x 1
  912. ***************
  913. *** 1992,1999 ****
  914.   for September, 1992.  Labour Day was on Monday, 7 September, 1992.
  915.   However, when \fBRemind\fR gets around to calculating the trigger
  916.   for Tuesday, 8 September, 1992, the \fBOMIT\fR command will now be
  917. ! ommitting Labour Day for 1993, and the "Mon AFTER" command
  918. ! will not be triggered.
  919.   .PP
  920.   It is probably best to stay away from computing \fBOMIT\fR
  921.   trigger dates unless you keep these pitfalls in mind.
  922. --- 2089,2097 ----
  923.   for September, 1992.  Labour Day was on Monday, 7 September, 1992.
  924.   However, when \fBRemind\fR gets around to calculating the trigger
  925.   for Tuesday, 8 September, 1992, the \fBOMIT\fR command will now be
  926. ! omitting Labour Day for 1993, and the "Mon AFTER" command
  927. ! will not be triggered.  (But see the description of \fBSCANFROM\fR
  928. ! in the section "Details about Trigger Computation.")
  929.   .PP
  930.   It is probably best to stay away from computing \fBOMIT\fR
  931.   trigger dates unless you keep these pitfalls in mind.
  932. ***************
  933. *** 2178,2183 ****
  934. --- 2276,2355 ----
  935.   If you use \fBsh\fR or \fBbash\fR, you may have to use the "nohup" command
  936.   to ensure that the daemon is not killed when you log out.
  937.   .PP
  938. + .SH SORTING REMINDERS
  939. + .PP
  940. + The \fB\-g\fR option causes \fBRemind\fR to sort reminders by
  941. + trigger date and time 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 one or two characters, which must be "a" or "d".  The first character
  947. + specifies the sort order by trigger date (ascending or descending) and
  948. + the second specifies the sort order by trigger time.  The default is
  949. + to sort both fields in ascending order.
  950. + .PP
  951. + In ascending order, reminders are issued with the most imminent first.
  952. + Descending order is the reverse.  Reminders are always sorted by
  953. + trigger date, and reminders with the same trigger date are then sorted
  954. + by trigger time.  Non-timed reminders are always issued after timed
  955. + reminders in this mode.
  956. + .PP
  957. + You can define a user-defined function called SORTBANNER which takes one
  958. + \fBDATE\fR-type argument.  In sort mode, the following sequence happens:
  959. + .PP
  960. + If \fBRemind\fR notices that the next reminder to issue has a different
  961. + trigger date from the previous one (or if it is the first one to be
  962. + issued), then SORTBANNER is called with the trigger date as its argument.
  963. + The result is coerced to a string, and passed through the substitution
  964. + filter with the appropriate trigger date.  The result is then displayed.
  965. + .PP
  966. + Here's an example - consider the following fragment:
  967. + .PP
  968. + .nf
  969. +     # Switch off the normal banner
  970. +     BANNER %
  971. +     REM 11 March 1993 ++1 MSG Not so important
  972. +     REM 17 March 1993 ++7 MSG Way in the future
  973. +     REM 10 March 1993 MSG Important Reminder
  974. +     REM 11 March 1993 ++1 MSG Not so important - B
  975. +     FSET sortbanner(x) iif(x == today(), \\
  976. +         "***** THINGS TO DO TODAY *****", \\
  977. +         "----- Things to do %b -----")
  978. + .fi
  979. + .PP
  980. + Running this with the \fB-gaa\fR option on 10 March 1993
  981. + produces the following output:
  982. + .PP
  983. + .nf
  984. +     ***** THINGS TO DO TODAY *****
  985. + 
  986. +     Important Reminder
  987. + 
  988. +     ----- Things to do tomorrow -----
  989. + 
  990. +     Not so important
  991. + 
  992. +     Not so important - B
  993. + 
  994. +     ----- Things to do in 7 days' time -----
  995. + 
  996. +     Way in the future
  997. + .fi
  998. + .PP
  999. + You can use the \fBargs()\fR built-in function to determine whether or
  1000. + not SORTBANNER has been defined.  (This could be used, for example, to
  1001. + provide a default definition for SORTBANNER in a system-wide file included
  1002. + at the end of the user's file.)  Here's an example:
  1003. + .PP
  1004. + .nd
  1005. +     # Create a default sortbanner function if it hasn't already
  1006. +     # been defined
  1007. +     if args("sortbanner") != 1
  1008. +         fset sortbanner(x) "--- Things to do %b ---"
  1009. +     endif
  1010. + .fi
  1011. + .PP
  1012.   .SH FOREIGN LANGUAGE SUPPORT
  1013.   .PP
  1014.   Your version of \fBRemind\fR may have been compiled to support a
  1015. ***************
  1016. *** 2197,2203 ****
  1017.   .PP
  1018.   .B COMMAND ABBREVIATIONS
  1019.   .PP
  1020. ! The following commands can be abbreviated:
  1021.   .TP
  1022.   o
  1023.   \fBREM\fR can be omitted - it is implied if no other valid command
  1024. --- 2369,2375 ----
  1025.   .PP
  1026.   .B COMMAND ABBREVIATIONS
  1027.   .PP
  1028. ! The following tokens can be abbreviated:
  1029.   .TP
  1030.   o
  1031.   \fBREM\fR can be omitted - it is implied if no other valid command
  1032. ***************
  1033. *** 2220,2225 ****
  1034. --- 2392,2400 ----
  1035.   .TP
  1036.   o
  1037.   \fBINCLUDE\fR --> \fBINC\fR
  1038. + .TP
  1039. + o
  1040. + \fBSCANFROM\fR --> \fBSCAN\fR
  1041.   .PP
  1042.   .B NIFTY EXAMPLES
  1043.   .PP
  1044. ***************
  1045. *** 2283,2293 ****
  1046.   multiples of 4.  The second \fBREM\fR command actually issues the
  1047.   reminder.
  1048.   .PP
  1049.   .B DETAILS ABOUT TRIGVALID()
  1050.   .PP
  1051.   The \fBtrigvalid()\fR function returns 1 if \fBRemind\fR could find a trigger
  1052.   date for the previous \fBREM\fR or \fBIFTRIG\fR command.  More specifically,
  1053. ! it returns 1 if \fBRemind\fR finds a date \fInot in the past\fR which
  1054.   satisfies the trigger.  In addition, there is one special case in which
  1055.   \fBtrigvalid()\fR returns 1 and \fBtrigdate()\fR returns a meaningful result:
  1056.   .PP
  1057. --- 2458,2532 ----
  1058.   multiples of 4.  The second \fBREM\fR command actually issues the
  1059.   reminder.
  1060.   .PP
  1061. + .B DETAILS ABOUT TRIGGER COMPUTATION
  1062. + .PP
  1063. + Here is a \fIconceptual\fR description of how triggers are calculated.
  1064. + Note that \fBRemind\fR actually uses a much more efficient procedure,
  1065. + but the results are the same as if the conceptual procedure had been
  1066. + followed.
  1067. + .PP
  1068. + \fBRemind\fR starts from the current date (that is, the value of
  1069. + \fBtoday()\fR) and scans forward, examining each day one at a time
  1070. + until it finds a date which satisfies the trigger, or can prove that
  1071. + no such dates (on or later than \fBtoday()\fR) exist.
  1072. + .PP
  1073. + If \fBRemind\fR is executing a \fBSATISFY\fR-type reminder, it evaluates
  1074. + the expression with \fBtrigdate()\fR set to the date found above.  If
  1075. + the expression evaluates to zero or the null string, \fBRemind\fR continues
  1076. + the scanning procedure described above, starting with the day after the
  1077. + trigger found above.
  1078. + .PP
  1079. + The \fBSCANFROM\fR clause (having a syntax similar to \fBUNTIL\fR)
  1080. + can modify the search strategy used.  In this case, \fBRemind\fR begins the
  1081. + scanning procedure at \fIscan_date\fR, which is the date specified in
  1082. + the \fBSCANFROM\fR clause.  For example:
  1083. + .PP
  1084. + .nf
  1085. +     REM Mon 1 SCANFROM 17 Jan 1992 MSG Foo
  1086. + .fi
  1087. + .PP
  1088. + The example above will always have a trigger date of Monday, 3 February 1992.
  1089. + That is because \fBRemind\fR starts scanning from 17 January 1992, and
  1090. + stops scanning as soon as it hits a date which satisfies "Mon 1."
  1091. + .PP
  1092. + The main use of \fBSCANFROM\fR is in situations where you want to
  1093. + calculate the positions of floating holidays.  Consider the Labour
  1094. + Day example shown much earlier.  Labour Day is the first Monday
  1095. + in September.  It can move over a range of 7 days.  Consider the
  1096. + following sequence:
  1097. + .PP
  1098. + .nf
  1099. +     REM Mon 1 Sept SCANFROM [trigger(today()-7)] SATISFY 1
  1100. +     OMIT [trigger(trigdate())]
  1101. + 
  1102. +     REM Mon AFTER MSG Hello
  1103. + .fi
  1104. + .PP
  1105. + The \fBSCANFROM\fR clause makes sure that \fBRemind\fR begins scanning
  1106. + from 7 days before the current date.  This ensures that Labour Day for
  1107. + the current year will continue to be triggered until 7 days after it has
  1108. + occurred.  This allows you to safely use the AFTER keyword as shown.
  1109. + .PP
  1110. + In general, use \fBSCANFROM\fR as shown for safe moveable \fBOMITs\fR.  The
  1111. + amount you should scan back by (7 days in the example above) depends on
  1112. + the number of possible consecutive \fBOMITted\fR days which may occur, and
  1113. + on the range of the moveable holiday.  Generally, a value of 7 is safe.
  1114. + .PP
  1115. + Note that if you use one \fBREM\fR command to calculate a trigger date,
  1116. + perform date calculations (addition or subtraction, for example) and
  1117. + then use the modified date in a subsequent \fBREM\fR command, the results
  1118. + \fImay not be what you intended.\fR  This is because you have circumvented
  1119. + the normal scanning mechanism.  You should try to write \fBREM\fR commands
  1120. + which compute trigger dates that can be used unmodified in subsequent
  1121. + \fBREM\fR commands.  The file "defs.rem" which comes with the \fBRemind\fR
  1122. + distribution contains examples.
  1123. + .PP
  1124.   .B DETAILS ABOUT TRIGVALID()
  1125.   .PP
  1126.   The \fBtrigvalid()\fR function returns 1 if \fBRemind\fR could find a trigger
  1127.   date for the previous \fBREM\fR or \fBIFTRIG\fR command.  More specifically,
  1128. ! it returns 1 if \fBRemind\fR finds a date \fInot before the starting
  1129. ! date of the scanning\fR which
  1130.   satisfies the trigger.  In addition, there is one special case in which
  1131.   \fBtrigvalid()\fR returns 1 and \fBtrigdate()\fR returns a meaningful result:
  1132.   .PP
  1133. ***************
  1134. *** 2294,2300 ****
  1135.   If the \fBREM\fR or \fBIFTRIG\fR command did not contain an \fBUNTIL\fR
  1136.   clause, and contained all of the \fIday\fR, \fImonth\fR and \fIyear\fR
  1137.   components, then \fBRemind\fR will correctly compute a trigger date, even
  1138. ! if it happens to be in the past.  Note that this behaviour is not true for
  1139.   versions of \fBRemind\fR prior to 03.00.01.
  1140.   .SH AUTHOR
  1141.   .PP
  1142. --- 2533,2540 ----
  1143.   If the \fBREM\fR or \fBIFTRIG\fR command did not contain an \fBUNTIL\fR
  1144.   clause, and contained all of the \fIday\fR, \fImonth\fR and \fIyear\fR
  1145.   components, then \fBRemind\fR will correctly compute a trigger date, even
  1146. ! if it happens to be before the start of scanning.
  1147. ! Note that this behaviour is not true for
  1148.   versions of \fBRemind\fR prior to 03.00.01.
  1149.   .SH AUTHOR
  1150.   .PP
  1151. *** ../patch3/test.cmp    Tue Feb  2 14:36:18 1993
  1152. --- ./test.cmp    Wed Mar  3 17:01:52 1993
  1153. ***************
  1154. *** 199,204 ****
  1155. --- 199,226 ----
  1156.   ./test.rem(114): Trig = Monday, 18 February, 1991
  1157.   
  1158.   CLEAR-OMIT-CONTEXT
  1159. + # Test the scanfrom clause
  1160. + REM Fri SATISFY 1
  1161. + ./test.rem(118): Trig = Friday, 22 February, 1991
  1162. + OMIT [trigger(trigdate())]
  1163. + trigdate() => 1991/02/22
  1164. + trigger(1991/02/22) => "22 February 1991"
  1165. + REM Fri after MSG 23 Feb 1991
  1166. + ./test.rem(120): Trig = Saturday, 23 February, 1991
  1167. + CLEAR-OMIT-CONTEXT
  1168. + REM Fri SCANFROM [trigger(today()-7)] SATISFY 1
  1169. + today() => 1991/02/16
  1170. + 1991/02/16 - 7 => 1991/02/09
  1171. + trigger(1991/02/09) => "9 February 1991"
  1172. + ./test.rem(122): Trig = Friday, 15 February, 1991
  1173. + OMIT [trigger(trigdate())]
  1174. + trigdate() => 1991/02/15
  1175. + trigger(1991/02/15) => "15 February 1991"
  1176. + REM Fri after MSG 16 Feb 1991
  1177. + ./test.rem(124): Trig = Saturday, 16 February, 1991
  1178. + 16 Feb 1991
  1179. + 
  1180. + CLEAR-OMIT-CONTEXT
  1181.   set a000 abs(1)
  1182.   abs(1) => 1
  1183.   set a001 abs(-1)
  1184. ***************
  1185. *** 221,227 ****
  1186.   coerce("string", 11:44) => "11:44"
  1187.   set a009 coerce("int", "badnews")
  1188.   coerce("int", "badnews") => Can't coerce
  1189. ! ./test.rem(126): Can't coerce
  1190.   set a010 coerce("int", "12")
  1191.   coerce("int", "12") => 12
  1192.   set a011 coerce("int", 11:44)
  1193. --- 243,249 ----
  1194.   coerce("string", 11:44) => "11:44"
  1195.   set a009 coerce("int", "badnews")
  1196.   coerce("int", "badnews") => Can't coerce
  1197. ! ./test.rem(135): Can't coerce
  1198.   set a010 coerce("int", "12")
  1199.   coerce("int", "12") => 12
  1200.   set a011 coerce("int", 11:44)
  1201. ***************
  1202. *** 233,239 ****
  1203.   date(1992, 2, 2) => 1992/02/02
  1204.   set a014 date(1993, 2, 29)
  1205.   date(1993, 2, 29) => Bad date specification
  1206. ! ./test.rem(131): Bad date specification
  1207.   set a015 day(today())
  1208.   today() => 1991/02/16
  1209.   day(1991/02/16) => 16
  1210. --- 255,261 ----
  1211.   date(1992, 2, 2) => 1992/02/02
  1212.   set a014 date(1993, 2, 29)
  1213.   date(1993, 2, 29) => Bad date specification
  1214. ! ./test.rem(140): Bad date specification
  1215.   set a015 day(today())
  1216.   today() => 1991/02/16
  1217.   day(1991/02/16) => 16
  1218. ***************
  1219. *** 328,342 ****
  1220.   set a050 substr(a049, 2)
  1221.   a049 => 21
  1222.   substr(21, 2) => Type mismatch
  1223. ! ./test.rem(169): Type mismatch
  1224.   set a051 substr(a050, 2, 6)
  1225. ! a050 => ./test.rem(170): Undefined variable: a050
  1226.   set a052 time(1+2, 3+4)
  1227.   1 + 2 => 3
  1228.   3 + 4 => 7
  1229.   time(3, 7) => 03:07
  1230.   rem 10 jan 1992 AT 11:22 CAL
  1231. ! ./test.rem(172): Trig = Friday, 10 January, 1992
  1232.   set a053 trigdate()
  1233.   trigdate() => 1992/01/10
  1234.   set a054 trigtime()
  1235. --- 350,364 ----
  1236.   set a050 substr(a049, 2)
  1237.   a049 => 21
  1238.   substr(21, 2) => Type mismatch
  1239. ! ./test.rem(178): Type mismatch
  1240.   set a051 substr(a050, 2, 6)
  1241. ! a050 => ./test.rem(179): Undefined variable: a050
  1242.   set a052 time(1+2, 3+4)
  1243.   1 + 2 => 3
  1244.   3 + 4 => 7
  1245.   time(3, 7) => 03:07
  1246.   rem 10 jan 1992 AT 11:22 CAL
  1247. ! ./test.rem(181): Trig = Friday, 10 January, 1992
  1248.   set a053 trigdate()
  1249.   trigdate() => 1992/01/10
  1250.   set a054 trigtime()
  1251. ***************
  1252. *** 349,355 ****
  1253.   "a05" + "6" => "a056"
  1254.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1255.   set a058 version()
  1256. ! version() => "03.00.03"
  1257.   set a059 wkday(today())
  1258.   today() => 1991/02/16
  1259.   wkday(1991/02/16) => "Saturday"
  1260. --- 371,377 ----
  1261.   "a05" + "6" => "a056"
  1262.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1263.   set a058 version()
  1264. ! version() => "03.00.04"
  1265.   set a059 wkday(today())
  1266.   today() => 1991/02/16
  1267.   wkday(1991/02/16) => "Saturday"
  1268. ***************
  1269. *** 389,401 ****
  1270.   fset g(x,y) max(x,y)
  1271.   fset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  1272.   set a071 g(1, 2)
  1273. ! UserFN g(1, 2)
  1274.   x => 1
  1275.   y => 2
  1276.   max(1, 2) => 2
  1277.   Leaving UserFN g() => 2
  1278.   set a072 h(2, 3)
  1279. ! UserFN h(2, 3)
  1280.   x => 2
  1281.   y => 3
  1282.   2 + 3 => 5
  1283. --- 411,423 ----
  1284.   fset g(x,y) max(x,y)
  1285.   fset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  1286.   set a071 g(1, 2)
  1287. ! Entering UserFN g(1, 2)
  1288.   x => 1
  1289.   y => 2
  1290.   max(1, 2) => 2
  1291.   Leaving UserFN g() => 2
  1292.   set a072 h(2, 3)
  1293. ! Entering UserFN h(2, 3)
  1294.   x => 2
  1295.   y => 3
  1296.   2 + 3 => 5
  1297. ***************
  1298. *** 402,408 ****
  1299.   x => 2
  1300.   y => 3
  1301.   2 * 3 => 6
  1302. ! UserFN g(5, 6)
  1303.   x => 5
  1304.   y => 6
  1305.   max(5, 6) => 6
  1306. --- 424,430 ----
  1307.   x => 2
  1308.   y => 3
  1309.   2 * 3 => 6
  1310. ! Entering UserFN g(5, 6)
  1311.   x => 5
  1312.   y => 6
  1313.   max(5, 6) => 6
  1314. ***************
  1315. *** 413,419 ****
  1316.   x => 2
  1317.   y => 3
  1318.   2 / 3 => 0
  1319. ! UserFN g(-1, 0)
  1320.   x => -1
  1321.   y => 0
  1322.   max(-1, 0) => 0
  1323. --- 435,441 ----
  1324.   x => 2
  1325.   y => 3
  1326.   2 / 3 => 0
  1327. ! Entering UserFN g(-1, 0)
  1328.   x => -1
  1329.   y => 0
  1330.   max(-1, 0) => 0
  1331. ***************
  1332. *** 421,427 ****
  1333.   min(6, 0) => 0
  1334.   Leaving UserFN h() => 0
  1335.   set a073 h("foo", 11:33)
  1336. ! UserFN h("foo", 11:33)
  1337.   x => "foo"
  1338.   y => 11:33
  1339.   "foo" + 11:33 => "foo11:33"
  1340. --- 443,449 ----
  1341.   min(6, 0) => 0
  1342.   Leaving UserFN h() => 0
  1343.   set a073 h("foo", 11:33)
  1344. ! Entering UserFN h("foo", 11:33)
  1345.   x => "foo"
  1346.   y => 11:33
  1347.   "foo" + 11:33 => "foo11:33"
  1348. ***************
  1349. *** 428,434 ****
  1350.   x => "foo"
  1351.   y => 11:33
  1352.   "foo" * 11:33 => Type mismatch
  1353. ! ./test.rem(195): Operator '*' Type mismatch
  1354.   Leaving UserFN h() => Type mismatch
  1355.   
  1356.       Variable  Value
  1357. --- 450,456 ----
  1358.   x => "foo"
  1359.   y => 11:33
  1360.   "foo" * 11:33 => Type mismatch
  1361. ! ./test.rem(204): Operator '*' Type mismatch
  1362.   Leaving UserFN h() => Type mismatch
  1363.   
  1364.       Variable  Value
  1365. ***************
  1366. *** 453,459 ****
  1367.           a048  "foo"
  1368.           a067  "INT"
  1369.           a039  "February"
  1370. !         a058  "03.00.03"
  1371.           a049  21
  1372.           a068  "STRING"
  1373.           a059  "Saturday"
  1374. --- 475,481 ----
  1375.           a048  "foo"
  1376.           a067  "INT"
  1377.           a039  "February"
  1378. !         a058  "03.00.04"
  1379.           a049  21
  1380.           a068  "STRING"
  1381.           a059  "Saturday"
  1382. *** ../patch3/test.rem    Wed Dec 16 10:51:50 1992
  1383. --- ./test.rem    Wed Mar  3 17:01:45 1993
  1384. ***************
  1385. *** 114,119 ****
  1386. --- 114,128 ----
  1387.   REM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  1388.   
  1389.   CLEAR-OMIT-CONTEXT
  1390. + # Test the scanfrom clause
  1391. + REM Fri SATISFY 1
  1392. + OMIT [trigger(trigdate())]
  1393. + REM Fri after MSG 23 Feb 1991
  1394. + CLEAR-OMIT-CONTEXT
  1395. + REM Fri SCANFROM [trigger(today()-7)] SATISFY 1
  1396. + OMIT [trigger(trigdate())]
  1397. + REM Fri after MSG 16 Feb 1991
  1398. + CLEAR-OMIT-CONTEXT
  1399.   set a000 abs(1)
  1400.   set a001 abs(-1)
  1401.   set a002 asc("foo")
  1402. *** ../patch3/token.c    Thu Jan 21 16:45:40 1993
  1403. --- ./token.c    Tue Mar  2 12:10:53 1993
  1404. ***************
  1405. *** 75,85 ****
  1406.      { "once",         3,     T_Once,        0 },
  1407.      { "pop-omit-context", 3,    T_Pop,        0 },
  1408.      { "preserve",        8,      T_Preserve,     0 },
  1409. !    { "Push-omit-context", 4,     T_Push,        0 },
  1410.      { "rem",        3,    T_Rem,        0 },
  1411.      { "run",         3,     T_RemType,     RUN_TYPE },
  1412.      { "satisfy",        7,    T_RemType,      SAT_TYPE },
  1413.      { "saturday",    3,    T_WkDay,    5 },
  1414.      { "september",     3,     T_Month,     8 },
  1415.      { "set",        3,    T_Set,        0 },
  1416.      { "skip",         3,     T_Skip,     SKIP_SKIP },
  1417. --- 75,86 ----
  1418.      { "once",         3,     T_Once,        0 },
  1419.      { "pop-omit-context", 3,    T_Pop,        0 },
  1420.      { "preserve",        8,      T_Preserve,     0 },
  1421. !    { "push-omit-context", 4,     T_Push,        0 },
  1422.      { "rem",        3,    T_Rem,        0 },
  1423.      { "run",         3,     T_RemType,     RUN_TYPE },
  1424.      { "satisfy",        7,    T_RemType,      SAT_TYPE },
  1425.      { "saturday",    3,    T_WkDay,    5 },
  1426. +    { "scanfrom",    4,    T_Scanfrom,    0 },
  1427.      { "september",     3,     T_Month,     8 },
  1428.      { "set",        3,    T_Set,        0 },
  1429.      { "skip",         3,     T_Skip,     SKIP_SKIP },
  1430. ***************
  1431. *** 173,178 ****
  1432. --- 174,180 ----
  1433.   #endif
  1434.   {
  1435.      register int top, bot, mid, r;
  1436. +    int l;
  1437.   
  1438.      tok->type = T_Illegal;
  1439.      if (! *s) {
  1440. ***************
  1441. *** 191,196 ****
  1442. --- 193,199 ----
  1443.         return;
  1444.      }
  1445.   
  1446. +    l = strlen(s);
  1447.      bot = 0;
  1448.      top = sizeof(TokArray) / sizeof(TokArray[0]) - 1;
  1449.   
  1450. ***************
  1451. *** 198,207 ****
  1452.         mid = (top + bot) / 2;
  1453.         r = TokStrCmp(&TokArray[mid], s);
  1454.         if (!r) {
  1455. !      tok->type = TokArray[mid].type;
  1456. !      tok->val  = TokArray[mid].val;
  1457. !      return;
  1458. !       }
  1459.         if (r > 0) top = mid-1; else bot=mid+1;
  1460.      }
  1461.   
  1462. --- 201,222 ----
  1463.         mid = (top + bot) / 2;
  1464.         r = TokStrCmp(&TokArray[mid], s);
  1465.         if (!r) {
  1466. !          if (l >= TokArray[mid].MinLen) {
  1467. !            tok->type = TokArray[mid].type;
  1468. !         tok->val  = TokArray[mid].val;
  1469. !         return;
  1470. !          } else {
  1471. !         while (mid && !TokStrCmp(&TokArray[mid-1],s)) mid--;
  1472. !         while (!TokStrCmp(&TokArray[mid], s) && l < TokArray[mid].MinLen)
  1473. !            mid++;
  1474. !         if (!TokStrCmp(&TokArray[mid], s)) {
  1475. !            tok->type = TokArray[mid].type;
  1476. !            tok->val = TokArray[mid].val;
  1477. !            return;
  1478. !         }
  1479. !          }
  1480. !      break;
  1481. !        }
  1482.         if (r > 0) top = mid-1; else bot=mid+1;
  1483.      }
  1484.   
  1485. ***************
  1486. *** 209,215 ****
  1487.      array. */
  1488.   #if LANG != ENGLISH
  1489.       for (r=0; r<(sizeof(NonEnglishToks) / sizeof(Token)); r++) {
  1490. !        if (!TokStrCmp(&NonEnglishToks[r], s)) {
  1491.             tok->type = NonEnglishToks[r].type;
  1492.             tok->val = NonEnglishToks[r].val;
  1493.         return;
  1494. --- 224,231 ----
  1495.      array. */
  1496.   #if LANG != ENGLISH
  1497.       for (r=0; r<(sizeof(NonEnglishToks) / sizeof(Token)); r++) {
  1498. !        if (l >= NonEnglishToks[r].MinLen && 
  1499. !                 !TokStrCmp(&NonEnglishToks[r], s)) {
  1500.             tok->type = NonEnglishToks[r].type;
  1501.             tok->val = NonEnglishToks[r].val;
  1502.         return;
  1503. ***************
  1504. *** 247,254 ****
  1505.      if (isdigit(*s)) {
  1506.         PARSENUM(t->val, s);
  1507.   
  1508. !       /* If we hit a colon, we've probably got a time hr:min */
  1509. !       if (*s == ':') {
  1510.        s++;
  1511.        hour = t->val;
  1512.        PARSENUM(min, s);
  1513. --- 263,270 ----
  1514.      if (isdigit(*s)) {
  1515.         PARSENUM(t->val, s);
  1516.   
  1517. !       /* If we hit a colon or a period, we've probably got a time hr:min */
  1518. !       if (*s == ':' || *s == '.' || *s == TIMESEP) {
  1519.        s++;
  1520.        hour = t->val;
  1521.        PARSENUM(min, s);
  1522. ***************
  1523. *** 312,327 ****
  1524.   #endif
  1525.   {
  1526.      register int r;
  1527. -    register int l=0;
  1528.      char *tk = t->name;
  1529.      while(*tk && *s) {
  1530.         r = UPPER(*tk) - UPPER(*s);
  1531.         tk++;
  1532.         s++;
  1533. -       l++;
  1534.         if (r) return r;
  1535.      }
  1536. -    if (l < t->MinLen) return 1;
  1537.      if (!*s) return 0;
  1538.      return (*tk - *s);
  1539.   }
  1540. --- 328,340 ----
  1541. *** ../patch3/types.h    Fri Jan  8 13:23:23 1993
  1542. --- ./types.h    Mon Mar  1 16:56:54 1993
  1543. ***************
  1544. *** 51,56 ****
  1545. --- 51,57 ----
  1546.      int until;
  1547.      int typ;
  1548.      int once;
  1549. +    int scanfrom;
  1550.   } Trigger;
  1551.   
  1552.   /* A time trigger */
  1553. ***************
  1554. *** 84,90 ****
  1555.   #define NO_UNTIL -1
  1556.   #define NO_ONCE 0
  1557.   #define ONCE_ONCE 1
  1558. ! 
  1559.   #define NO_SKIP 0
  1560.   #define SKIP_SKIP 1
  1561.   #define BEFORE_SKIP 2
  1562. --- 85,91 ----
  1563.   #define NO_UNTIL -1
  1564.   #define NO_ONCE 0
  1565.   #define ONCE_ONCE 1
  1566. ! #define NO_DATE -1
  1567.   #define NO_SKIP 0
  1568.   #define SKIP_SKIP 1
  1569.   #define BEFORE_SKIP 2
  1570. ***************
  1571. *** 121,127 ****
  1572.     T_Number,
  1573.     T_Clr,
  1574.     T_Debug,
  1575. !   T_Dumpvars
  1576.   };
  1577.   
  1578.   /* The structure of a token */
  1579. --- 122,129 ----
  1580.     T_Number,
  1581.     T_Clr,
  1582.     T_Debug,
  1583. !   T_Dumpvars,
  1584. !   T_Scanfrom
  1585.   };
  1586.   
  1587.   /* The structure of a token */
  1588. ***************
  1589. *** 154,156 ****
  1590. --- 156,162 ----
  1591.   #define SC_AMPM   0   /* Time shown as 3:00am, etc. */
  1592.   #define SC_MIL    1   /* 24-hour time format */
  1593.   #define SC_NOTIME 2   /* Do not display time in SC format. */
  1594. + 
  1595. + /* Flags for sorting */
  1596. + #define SORT_ASCEND 1
  1597. + #define SORT_DESCEND 2
  1598. *** ../patch3/userfns.c    Fri Feb  5 14:57:30 1993
  1599. --- ./userfns.c    Tue Mar  2 11:39:01 1993
  1600. ***************
  1601. *** 27,34 ****
  1602.   #define FUNC_HASH_SIZE 32   /* Size of User-defined function hash table */
  1603.   
  1604.   /* Define the data structure used to hold a user-defined function */
  1605. ! typedef struct _udf_struct {
  1606. !    struct _udf_struct *next;
  1607.      char name[VAR_NAME_LEN+1];
  1608.      char *text;
  1609.      Var *locals;
  1610. --- 27,34 ----
  1611.   #define FUNC_HASH_SIZE 32   /* Size of User-defined function hash table */
  1612.   
  1613.   /* Define the data structure used to hold a user-defined function */
  1614. ! typedef struct udf_struct {
  1615. !    struct udf_struct *next;
  1616.      char name[VAR_NAME_LEN+1];
  1617.      char *text;
  1618.      Var *locals;
  1619. ***************
  1620. *** 40,45 ****
  1621. --- 40,49 ----
  1622.   /* The hash table */
  1623.   static UserFunc *FuncHash[FUNC_HASH_SIZE];
  1624.   
  1625. + /* Access to built-in functions */
  1626. + extern int NumFuncs;
  1627. + extern Operator Func[];
  1628. + 
  1629.   /* We need access to the expression evaluation stack */
  1630.   extern Value ValStack[];
  1631.   extern int ValStackPtr;
  1632. ***************
  1633. *** 80,85 ****
  1634. --- 84,95 ----
  1635.      func = NEW(UserFunc);
  1636.      if (!func) return E_NO_MEM;
  1637.      StrnCpy(func->name, TokBuffer, VAR_NAME_LEN);
  1638. +    if (!Hush) {
  1639. +       if (FindFunc(TokBuffer, Func, NumFuncs)) {
  1640. +          Eprint("Warning:  Attempt to redefine built-in function '%s'",
  1641. +              TokBuffer);
  1642. +       }
  1643. +    }
  1644.      func->locals = NULL;
  1645.      func->text = NULL;
  1646.      func->IsCached = 1;
  1647. ***************
  1648. *** 252,262 ****
  1649.      /* Search for the function */
  1650.      f = FuncHash[h];
  1651.      while (f && !StrinEq(name, f->name, VAR_NAME_LEN)) f = f->next;
  1652. !    if (!f) return E_UNDEF_FUNC;
  1653. ! 
  1654.      /* Debugging stuff */
  1655.      if (DebugFlag & DB_PRTEXPR) {
  1656. !       fprintf(ErrFp, "UserFN %s(", f->name);
  1657.         for (i=0; i<nargs; i++) {
  1658.            PrintValue(&ValStack[ValStackPtr - nargs + i], ErrFp);
  1659.            if (i<nargs-1) fprintf(ErrFp, ", ");
  1660. --- 262,274 ----
  1661.      /* Search for the function */
  1662.      f = FuncHash[h];
  1663.      while (f && !StrinEq(name, f->name, VAR_NAME_LEN)) f = f->next;
  1664. !    if (!f) {
  1665. !       Eprint("Undefined function '%s'", name);
  1666. !       return E_UNDEF_FUNC;
  1667. !    }
  1668.      /* Debugging stuff */
  1669.      if (DebugFlag & DB_PRTEXPR) {
  1670. !       fprintf(ErrFp, "Entering UserFN %s(", f->name);
  1671.         for (i=0; i<nargs; i++) {
  1672.            PrintValue(&ValStack[ValStackPtr - nargs + i], ErrFp);
  1673.            if (i<nargs-1) fprintf(ErrFp, ", ");
  1674. ***************
  1675. *** 264,278 ****
  1676.         fprintf(ErrFp, ")\n");
  1677.      }
  1678.      /* Detect illegal recursive call */
  1679. !    if (f->IsActive) return E_RECURSIVE;
  1680. ! 
  1681.      /* Check number of args */
  1682. !    if (nargs != f->nargs)
  1683.         return (nargs < f->nargs) ? E_2FEW_ARGS : E_2MANY_ARGS;
  1684. ! 
  1685.      /* Found the function - set up a local variable frame */
  1686.      h = SetUpLocalVars(f);
  1687. !    if (h) return h;
  1688.   
  1689.      /* Evaluate the expression */
  1690.      f->IsActive = 1;
  1691. --- 276,307 ----
  1692.         fprintf(ErrFp, ")\n");
  1693.      }
  1694.      /* Detect illegal recursive call */
  1695. !    if (f->IsActive) {
  1696. !       if (DebugFlag &DB_PRTEXPR) {
  1697. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1698. !          fprintf(ErrFp, "%s\n", ErrMsg[E_RECURSIVE]);
  1699. !       }
  1700. !       return E_RECURSIVE;
  1701. !    }
  1702. !    
  1703.      /* Check number of args */
  1704. !    if (nargs != f->nargs) {
  1705. !       if (DebugFlag &DB_PRTEXPR) {
  1706. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1707. !          fprintf(ErrFp, "%s\n",
  1708. !         ErrMsg[(nargs < f->nargs) ? E_2FEW_ARGS : E_2MANY_ARGS]);
  1709. !       }
  1710.         return (nargs < f->nargs) ? E_2FEW_ARGS : E_2MANY_ARGS;
  1711. !    }
  1712.      /* Found the function - set up a local variable frame */
  1713.      h = SetUpLocalVars(f);
  1714. !    if (h) {
  1715. !       if (DebugFlag &DB_PRTEXPR) {
  1716. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1717. !          fprintf(ErrFp, "%s\n", ErrMsg[h]);
  1718. !       }
  1719. !       return h;
  1720. !    }
  1721.   
  1722.      /* Evaluate the expression */
  1723.      f->IsActive = 1;
  1724. ***************
  1725. *** 343,345 ****
  1726. --- 372,398 ----
  1727.         v = v->next;
  1728.      }
  1729.   }
  1730. + /***************************************************************/
  1731. + /*                                                             */
  1732. + /*  UserFuncExists                                             */
  1733. + /*                                                             */
  1734. + /*  Return the number of arguments accepted by the function if */
  1735. + /*  it is defined, or -1 if it is not defined.                 */
  1736. + /*                                                             */
  1737. + /***************************************************************/
  1738. + #ifdef HAVE_PROTOS
  1739. + PUBLIC int UserFuncExists(char *fn)
  1740. + #else
  1741. + int UserFuncExists(fn)
  1742. + char *fn;
  1743. + #endif
  1744. + {
  1745. +    UserFunc *f;
  1746. +    int h = HashVal(fn) % FUNC_HASH_SIZE;
  1747. + 
  1748. +    f = FuncHash[h];
  1749. +    while (f && !StrinEq(fn, f->name, VAR_NAME_LEN)) f = f->next;
  1750. +    if (!f) return -1;
  1751. +    else return f->nargs;
  1752. + }
  1753. + 
  1754. *** ../patch3/utils.c    Thu Jan 21 16:33:51 1993
  1755. --- ./utils.c    Thu Feb 18 13:28:38 1993
  1756. ***************
  1757. *** 19,24 ****
  1758. --- 19,25 ----
  1759.   #include <malloc.h>
  1760.   #endif
  1761.   #include <ctype.h>
  1762. + #include "globals.h"
  1763.   
  1764.   #define UPPER(c) (islower(c) ? toupper(c) : c)
  1765.   
  1766. ***************
  1767. *** 218,220 ****
  1768. --- 219,243 ----
  1769.   }
  1770.   #endif
  1771.   
  1772. + /***************************************************************/
  1773. + /*                                                             */
  1774. + /*  DateOK                                                     */
  1775. + /*                                                             */
  1776. + /*  Return 1 if the date is OK, 0 otherwise.                   */
  1777. + /*                                                             */
  1778. + /***************************************************************/
  1779. + #ifdef HAVE_PROTOS
  1780. + PUBLIC int DateOK(int y, int m, int d)
  1781. + #else
  1782. + int DateOK(y, m, d)
  1783. + int y, m, d;
  1784. + #endif
  1785. + {
  1786. +    if (d < 1                 ||
  1787. +        m < 0                 ||
  1788. +        y < BASE              ||
  1789. +        m > 11                ||
  1790. +        y > BASE + YR_RANGE   ||
  1791. +        d > DaysInMonth(m, y) ) return 0;
  1792. +    else return 1;
  1793. + }
  1794.