home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume39 / remind / patch08b / patch.08.C
Encoding:
Text File  |  1993-09-08  |  59.3 KB  |  2,052 lines
  1. *** ../prev/init.c    Mon Jun 28 12:29:50 1993
  2. --- ./init.c    Fri Aug 20 11:46:29 1993
  3. ***************
  4. *** 10,15 ****
  5. --- 10,16 ----
  6.   /*  Copyright (C) 1992, 1993 by David F. Skoll.                */
  7.   /*                                                             */
  8.   /***************************************************************/
  9. + #define L_IN_INIT 1
  10.   #include "config.h"
  11.   #include <stdio.h>
  12.   #ifdef HAVE_STDLIB_H
  13. ***************
  14. *** 29,37 ****
  15.   #include "types.h"
  16.   #include "protos.h"
  17.   #include "expr.h"
  18. - #include "globals.h"
  19.   #include "err.h"
  20.   #include "version.h"
  21.   
  22.   /***************************************************************
  23.    *
  24. --- 30,38 ----
  25.   #include "types.h"
  26.   #include "protos.h"
  27.   #include "expr.h"
  28.   #include "err.h"
  29.   #include "version.h"
  30. + #include "globals.h"
  31.   
  32.   /***************************************************************
  33.    *
  34. ***************
  35. *** 65,70 ****
  36. --- 66,72 ----
  37.    *             by non-root, changes environment but not effective uid.
  38.    *  -kcmd    = Run 'cmd' for MSG-type reminders instead of printing to stdout
  39.    *  -iVAR=EXPR = Initialize and preserve VAR.
  40. +  *  A minus sign alone indicates to take input from stdin
  41.    *
  42.    **************************************************************/
  43.   
  44. ***************
  45. *** 111,117 ****
  46.   
  47.      RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
  48.      if (RealToday < 0) {
  49. !       fprintf(ErrFp, "Illegal system date: Year is less than %d\n", BASE);
  50.         exit(1);
  51.      }
  52.      JulianToday = RealToday;
  53. --- 113,119 ----
  54.   
  55.      RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
  56.      if (RealToday < 0) {
  57. !       fprintf(ErrFp, ErrMsg[M_BAD_SYS_DATE], BASE);
  58.         exit(1);
  59.      }
  60.      JulianToday = RealToday;
  61. ***************
  62. *** 129,140 ****
  63.      i = 1;
  64.      while (i < argc) {
  65.         arg = argv[i];
  66. !       if (*arg != '-') break;  /* Exit the loop if it's not an option */
  67.         i++;
  68.         arg++;
  69. ! 
  70.         while (*arg) {
  71.            switch(*arg++) {
  72.               case 'i':
  73.           case 'I':
  74.              InitializeVar(arg);
  75. --- 131,148 ----
  76.      i = 1;
  77.      while (i < argc) {
  78.         arg = argv[i];
  79. !       if (*arg != '-') break; /* Exit the loop if it's not an option */
  80.         i++;
  81.         arg++;
  82. !       if (!*arg) {
  83. !          UseStdin = 1;
  84. !      IgnoreOnce = 1;
  85. !      i--;
  86. !      break;
  87. !       }
  88.         while (*arg) {
  89.            switch(*arg++) {
  90. + 
  91.               case 'i':
  92.           case 'I':
  93.              InitializeVar(arg);
  94. ***************
  95. *** 286,292 ****
  96.                case 'v': case 'V': DebugFlag |= DB_DUMP_VARS; break;
  97.                case 'l': case 'L': DebugFlag |= DB_PRTLINE;   break;
  98.                default:
  99. !                 fprintf(ErrFp, "Unknown debug flag '%c'\n", *(arg-1));
  100.             }
  101.                  }
  102.              break;
  103. --- 294,300 ----
  104.                case 'v': case 'V': DebugFlag |= DB_DUMP_VARS; break;
  105.                case 'l': case 'L': DebugFlag |= DB_PRTLINE;   break;
  106.                default:
  107. !                 fprintf(ErrFp, ErrMsg[M_BAD_DB_FLAG], *(arg-1));
  108.             }
  109.                  }
  110.              break;
  111. ***************
  112. *** 316,335 ****
  113.              break;
  114.   
  115.           default:
  116. !            fprintf(ErrFp, "Unknown option '%c'\n", *(arg-1));
  117.        }
  118.   
  119.         }
  120.      }
  121.   
  122. - 
  123.      /* Get the filename. */
  124.      if (i >= argc) {
  125.         Usage();
  126.         exit(1);
  127.      }
  128. !    InitialFile = argv[i];
  129. !    i++;
  130.   
  131.      /* Get the date, if any */
  132.      if (i < argc) {
  133. --- 324,341 ----
  134.              break;
  135.   
  136.           default:
  137. !            fprintf(ErrFp, ErrMsg[M_BAD_OPTION], *(arg-1));
  138.        }
  139.   
  140.         }
  141.      }
  142.   
  143.      /* Get the filename. */
  144.      if (i >= argc) {
  145.         Usage();
  146.         exit(1);
  147.      }
  148. !    InitialFile = argv[i++];
  149.   
  150.      /* Get the date, if any */
  151.      if (i < argc) {
  152. ***************
  153. *** 387,402 ****
  154.   /*  Print the usage info.                                      */
  155.   /*                                                             */
  156.   /***************************************************************/
  157.   #ifdef HAVE_PROTOS
  158.   PUBLIC void Usage(void)
  159.   #else
  160.   void Usage()
  161. ! #endif
  162.   {
  163.      fprintf(ErrFp, "\nREMIND %s (%s version) Copyright 1992, 1993 by David F. Skoll\n", VERSION, L_LANGNAME);
  164.   #ifdef BETA
  165.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  166. ! #endif   
  167.      fprintf(ErrFp, "Usage: remind [options] filename [date]\n");
  168.      fprintf(ErrFp, "Options:\n");
  169.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  170. --- 393,409 ----
  171.   /*  Print the usage info.                                      */
  172.   /*                                                             */
  173.   /***************************************************************/
  174. + #ifndef L_USAGE_OVERRIDE
  175.   #ifdef HAVE_PROTOS
  176.   PUBLIC void Usage(void)
  177.   #else
  178.   void Usage()
  179. ! #endif /* HAVE_PROTOS */
  180.   {
  181.      fprintf(ErrFp, "\nREMIND %s (%s version) Copyright 1992, 1993 by David F. Skoll\n", VERSION, L_LANGNAME);
  182.   #ifdef BETA
  183.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  184. ! #endif
  185.      fprintf(ErrFp, "Usage: remind [options] filename [date]\n");
  186.      fprintf(ErrFp, "Options:\n");
  187.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  188. ***************
  189. *** 425,431 ****
  190.      fprintf(ErrFp, " -ivar=val Initialize var to val and preserve var\n");
  191.      exit(1);
  192.   }
  193. ! 
  194.   /***************************************************************/
  195.   /*                                                             */
  196.   /*  ChgUser                                                    */
  197. --- 432,438 ----
  198.      fprintf(ErrFp, " -ivar=val Initialize var to val and preserve var\n");
  199.      exit(1);
  200.   }
  201. ! #endif /* L_USAGE_OVERRIDE */
  202.   /***************************************************************/
  203.   /*                                                             */
  204.   /*  ChgUser                                                    */
  205. ***************
  206. *** 451,457 ****
  207.      int myuid;
  208.   #endif
  209.   
  210. -    static char *NoEnvMem = "Remind: Out of memory for environment\n";
  211.      struct passwd *pwent;
  212.      static char *home, *shell, *username, *logname;
  213.   
  214. --- 458,463 ----
  215. ***************
  216. *** 460,482 ****
  217.      pwent = getpwnam(user);
  218.   
  219.      if (!pwent) {
  220. !       fprintf(ErrFp, "Remind: Unknown user '%s'\n", user);
  221.         exit(1);
  222.      }
  223.   
  224.      if (!myuid && setgid(pwent->pw_gid)) {
  225. !       fprintf(ErrFp, "Remind: Could not change gid to %d\n", pwent->pw_gid);
  226.         exit(1);
  227.      }
  228.   
  229.      if (!myuid && setuid(pwent->pw_uid)) {
  230. !       fprintf(ErrFp, "Remind: Could not change uid to %d\n", pwent->pw_uid);
  231.         exit(1);
  232.      }
  233.   
  234.      home = malloc(strlen(pwent->pw_dir) + 6);
  235.      if (!home) {
  236. !       fprintf(ErrFp, NoEnvMem);
  237.         exit(1);
  238.      }
  239.      sprintf(home, "HOME=%s", pwent->pw_dir);
  240. --- 466,488 ----
  241.      pwent = getpwnam(user);
  242.   
  243.      if (!pwent) {
  244. !       fprintf(ErrFp, ErrMsg[M_BAD_USER], user);
  245.         exit(1);
  246.      }
  247.   
  248.      if (!myuid && setgid(pwent->pw_gid)) {
  249. !       fprintf(ErrFp, ErrMsg[M_NO_CHG_GID], pwent->pw_gid);
  250.         exit(1);
  251.      }
  252.   
  253.      if (!myuid && setuid(pwent->pw_uid)) {
  254. !       fprintf(ErrFp, ErrMsg[M_NO_CHG_UID], pwent->pw_uid);
  255.         exit(1);
  256.      }
  257.   
  258.      home = malloc(strlen(pwent->pw_dir) + 6);
  259.      if (!home) {
  260. !       fprintf(ErrFp, ErrMsg[M_NOMEM_ENV]);
  261.         exit(1);
  262.      }
  263.      sprintf(home, "HOME=%s", pwent->pw_dir);
  264. ***************
  265. *** 484,490 ****
  266.   
  267.      shell = malloc(strlen(pwent->pw_shell) + 7);
  268.      if (!shell) {
  269. !       fprintf(ErrFp, NoEnvMem);
  270.         exit(1);
  271.      }
  272.      sprintf(shell, "SHELL=%s", pwent->pw_shell);
  273. --- 490,496 ----
  274.   
  275.      shell = malloc(strlen(pwent->pw_shell) + 7);
  276.      if (!shell) {
  277. !       fprintf(ErrFp, ErrMsg[M_NOMEM_ENV]);
  278.         exit(1);
  279.      }
  280.      sprintf(shell, "SHELL=%s", pwent->pw_shell);
  281. ***************
  282. *** 493,499 ****
  283.      if (pwent->pw_uid) {
  284.         username = malloc(strlen(pwent->pw_name) + 6);
  285.         if (!username) {
  286. !          fprintf(ErrFp, NoEnvMem);
  287.            exit(1);
  288.         }
  289.         sprintf(username, "USER=%s", pwent->pw_name);
  290. --- 499,505 ----
  291.      if (pwent->pw_uid) {
  292.         username = malloc(strlen(pwent->pw_name) + 6);
  293.         if (!username) {
  294. !          fprintf(ErrFp, ErrMsg[M_NOMEM_ENV]);
  295.            exit(1);
  296.         }
  297.         sprintf(username, "USER=%s", pwent->pw_name);
  298. ***************
  299. *** 500,506 ****
  300.         putenv(username);
  301.         logname= malloc(strlen(pwent->pw_name) + 9);
  302.         if (!logname) {
  303. !          fprintf(ErrFp, NoEnvMem);
  304.            exit(1);
  305.         }
  306.         sprintf(logname, "LOGNAME=%s", pwent->pw_name);
  307. --- 506,512 ----
  308.         putenv(username);
  309.         logname= malloc(strlen(pwent->pw_name) + 9);
  310.         if (!logname) {
  311. !          fprintf(ErrFp, ErrMsg[M_NOMEM_ENV]);
  312.            exit(1);
  313.         }
  314.         sprintf(logname, "LOGNAME=%s", pwent->pw_name);
  315. ***************
  316. *** 524,530 ****
  317.   #endif
  318.   {
  319.      char *varname, *expr;
  320. -    static char Err[] = "Remind: -i option: %s\n";
  321.   
  322.      Value val;
  323.   
  324. --- 530,535 ----
  325. ***************
  326. *** 534,576 ****
  327.      varname = str;
  328.      while (*str && *str != '=') str++;
  329.      if (!*str) {
  330. !       fprintf(ErrFp, Err, "Missing '=' sign");
  331.         return;
  332.      }
  333.      *str = 0;
  334.      if (!*varname) {
  335. !       fprintf(ErrFp, Err, "Missing varname");
  336.         return;
  337.      }
  338.      expr = str+1;
  339.      if (!*expr) {
  340. !       fprintf(ErrFp, Err, "Missing expr");
  341.         return;
  342.      }
  343.   
  344.      r=EvalExpr(&expr, &val);
  345.      if (r) {
  346. !       fprintf(ErrFp, Err, ErrMsg[r]);
  347.         return;
  348.      }
  349.   
  350.      if (*varname == '$') {
  351.         if (val.type != INT_TYPE) {
  352. !          fprintf(ErrFp, Err, ErrMsg[E_BAD_TYPE]);
  353.        return;
  354.         }
  355.         r=SetSysVar(varname+1, val.v.val);
  356. !       if (r) fprintf(ErrFp, Err, ErrMsg[r]);
  357.         return;
  358.      }
  359.   
  360.      r=SetVar(varname, &val);
  361.      if (r) {
  362. !       fprintf(ErrFp, Err, ErrMsg[r]);
  363.         return;
  364.      }
  365.      r=PreserveVar(varname);
  366. !    if (r) fprintf(ErrFp, Err, ErrMsg[r]);
  367.      return;
  368.   }
  369.   
  370. --- 539,581 ----
  371.      varname = str;
  372.      while (*str && *str != '=') str++;
  373.      if (!*str) {
  374. !       fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[E_MISS_EQ]);
  375.         return;
  376.      }
  377.      *str = 0;
  378.      if (!*varname) {
  379. !       fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[E_MISS_VAR]);
  380.         return;
  381.      }
  382.      expr = str+1;
  383.      if (!*expr) {
  384. !       fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[E_MISS_EXPR]);
  385.         return;
  386.      }
  387.   
  388.      r=EvalExpr(&expr, &val);
  389.      if (r) {
  390. !       fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  391.         return;
  392.      }
  393.   
  394.      if (*varname == '$') {
  395.         if (val.type != INT_TYPE) {
  396. !          fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[E_BAD_TYPE]);
  397.        return;
  398.         }
  399.         r=SetSysVar(varname+1, val.v.val);
  400. !       if (r) fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  401.         return;
  402.      }
  403.   
  404.      r=SetVar(varname, &val);
  405.      if (r) {
  406. !       fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  407.         return;
  408.      }
  409.      r=PreserveVar(varname);
  410. !    if (r) fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  411.      return;
  412.   }
  413.   
  414. *** ../prev/lang.h    Mon Jun 28 12:29:33 1993
  415. --- ./lang.h    Wed Aug 18 11:11:53 1993
  416. ***************
  417. *** 13,20 ****
  418.   
  419.   #define ENGLISH    0 /* original by David Skoll */
  420.   #define GERMAN     1 /* translated by Wolfgang Thronicke */
  421. ! #define DUTCH      2 /* translated by Willem Kasdorp */
  422.   #define FINNISH    3 /* translated by Mikko Silvonen */
  423.   
  424.   /* Add more languages here - but please e-mail dfs@doe.carleton.ca
  425.      to have your favorite language assigned a number.  If you add a
  426. --- 13,22 ----
  427.   
  428.   #define ENGLISH    0 /* original by David Skoll */
  429.   #define GERMAN     1 /* translated by Wolfgang Thronicke */
  430. ! #define DUTCH      2 /* translated by Willem Kasdorp and Erik-Jan Vens */
  431.   #define FINNISH    3 /* translated by Mikko Silvonen */
  432. + #define FRENCH       4 /* translated by Laurent Duperval */
  433. + #define NORWEGIAN  5 /* translated by Trygve Randen */
  434.   
  435.   /* Add more languages here - but please e-mail dfs@doe.carleton.ca
  436.      to have your favorite language assigned a number.  If you add a
  437. ***************
  438. *** 48,53 ****
  439. --- 50,59 ----
  440.   #include "dutch.h"
  441.   #elif LANG == FINNISH
  442.   #include "finnish.h"
  443. + #elif LANG == FRENCH
  444. + #include "french.h"
  445. + #elif LANG == NORWEGIAN
  446. + #include "norwgian.h"
  447.   
  448.   /* If no sensible language, choose English.  I intended to use
  449.      the #error directive here, but some C compilers barf. */
  450. *** ../prev/main.c    Mon Jun 28 12:39:37 1993
  451. --- ./main.c    Wed Aug 25 13:06:26 1993
  452. ***************
  453. *** 27,44 ****
  454.   #include <varargs.h>
  455.   #endif
  456.   #include <ctype.h>
  457.   
  458.   #ifdef __MSDOS__
  459.   #include <dos.h>
  460. - #include <time.h>
  461.   #endif
  462.   
  463.   
  464.   #ifndef __MSDOS__
  465.   #include <sys/types.h>
  466. ! #ifdef SYSV
  467. ! #include <time.h>
  468. ! #else
  469.   #include <sys/time.h>
  470.   #endif
  471.   #endif /* ifndef __MSDOS__ */
  472. --- 27,42 ----
  473.   #include <varargs.h>
  474.   #endif
  475.   #include <ctype.h>
  476. + #include <time.h>
  477.   
  478.   #ifdef __MSDOS__
  479.   #include <dos.h>
  480.   #endif
  481.   
  482.   
  483.   #ifndef __MSDOS__
  484.   #include <sys/types.h>
  485. ! #ifndef SYSV
  486.   #include <sys/time.h>
  487.   #endif
  488.   #endif /* ifndef __MSDOS__ */
  489. ***************
  490. *** 51,56 ****
  491. --- 49,60 ----
  492.   
  493.   PRIVATE void DoReminders ARGS ((void));
  494.   
  495. + #if defined(NEED_TIMEGM) && !defined(HAVE_MKTIME)
  496. + PRIVATE long time_cheat ARGS ((int year, int month));
  497. + long timegm ARGS((struct tm *tm));
  498. + long timelocal ARGS((struct tm *tm));
  499. + #endif
  500. + 
  501.   static char TPushBuffer[TOKSIZE+1]; /* Buffer for pushing back a token. */
  502.   static char *TokenPushed = NULL;
  503.   
  504. ***************
  505. *** 97,116 ****
  506.   
  507.      if (!Hush) {
  508.         if (DestroyOmitContexts())
  509. !     Eprint("Warning: PUSH-OMIT-CONTEXT without matching POP-OMIT-CONTEXT.");
  510.   #ifdef HAVE_QUEUED
  511. !       if (!Daemon && !NextMode && !NumTriggered && !NumQueued) printf("No reminders.\n");
  512.      else
  513. !       if (!Daemon && !NextMode && !NumTriggered) printf("%d reminder%s queued for later today.\n",
  514. !          NumQueued, (NumQueued == 1) ? "" : "s");
  515.   #else
  516. !       if (!NextMode && !NumTriggered) printf("No reminders.\n");
  517.   #endif
  518.      }
  519.   
  520.      /* If it's MS-DOS or OS2, reset the file access date */
  521.   #if defined(__MSDOS__) || defined(OS2)
  522. !    if (RealToday == JulianToday) SetAccessDate(InitialFile, RealToday);
  523.   #endif
  524.   
  525.      /* If there are sorted reminders, handle them */
  526. --- 101,121 ----
  527.   
  528.      if (!Hush) {
  529.         if (DestroyOmitContexts())
  530. !     Eprint("%s", E_PUSH_NOPOP);
  531.   #ifdef HAVE_QUEUED
  532. !       if (!Daemon && !NextMode && !NumTriggered && !NumQueued) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  533.      else
  534. !       if (!Daemon && !NextMode && !NumTriggered) printf(ErrMsg[M_QUEUED],
  535. !          NumQueued);
  536.   #else
  537. !       if (!NextMode && !NumTriggered) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  538.   #endif
  539.      }
  540.   
  541.      /* If it's MS-DOS or OS2, reset the file access date */
  542.   #if defined(__MSDOS__) || defined(OS2)
  543. !    if (!UseStdin && (RealToday == JulianToday))
  544. !       SetAccessDate(InitialFile, RealToday);
  545.   #endif
  546.   
  547.      /* If there are sorted reminders, handle them */
  548. ***************
  549. *** 130,136 ****
  550.           return 0;
  551.        }
  552.        if (pid == -1) {
  553. !         fprintf(ErrFp, "Couldn't fork to do queued reminders.\n");
  554.           return 1;
  555.        }
  556.         }
  557. --- 135,141 ----
  558.           return 0;
  559.        }
  560.        if (pid == -1) {
  561. !         fprintf(ErrFp, "%s", ErrMsg[E_CANTFORK]);
  562.           return 1;
  563.        }
  564.         }
  565. ***************
  566. *** 158,173 ****
  567.      char *s;
  568.      Parser p;
  569.   
  570. !    FileAccessDate = GetAccessDate(InitialFile);
  571.   
  572.      if (FileAccessDate < 0) {
  573. !       fprintf(ErrFp, "remind: Can't access file '%s'.\n", InitialFile);
  574.         exit(1);
  575.      }
  576.   
  577.      r=OpenFile(InitialFile);
  578.      if (r) {
  579. !       fprintf(ErrFp, "Can't read %s: %s\n", InitialFile, ErrMsg[r]);
  580.         exit(1);
  581.      }
  582.   
  583. --- 163,180 ----
  584.      char *s;
  585.      Parser p;
  586.   
  587. !    if (!UseStdin) FileAccessDate = GetAccessDate(InitialFile);
  588. !    else          FileAccessDate = JulianToday;
  589.   
  590.      if (FileAccessDate < 0) {
  591. !       fprintf(ErrFp, "%s: '%s'.\n", ErrMsg[E_CANTACCESS], InitialFile);
  592.         exit(1);
  593.      }
  594.   
  595.      r=OpenFile(InitialFile);
  596.      if (r) {
  597. !       fprintf(ErrFp, "%s %s: %s\n", ErrMsg[E_ERR_READING],
  598. !                                     InitialFile, ErrMsg[r]);
  599.         exit(1);
  600.      }
  601.   
  602. ***************
  603. *** 175,181 ****
  604.         r = ReadLine();
  605.         if (r == E_EOF) return;
  606.         if (r) {
  607. !      Eprint("Error reading file: %s", ErrMsg[r]);
  608.        exit(1);
  609.         }
  610.         s = FindInitialToken(&tok, CurLine);
  611. --- 182,188 ----
  612.         r = ReadLine();
  613.         if (r == E_EOF) return;
  614.         if (r) {
  615. !      Eprint("%s: %s", ErrMsg[E_ERR_READING], ErrMsg[r]);
  616.        exit(1);
  617.         }
  618.         s = FindInitialToken(&tok, CurLine);
  619. ***************
  620. *** 565,571 ****
  621.   
  622.      if (FreshLine) {
  623.         FreshLine = 0;
  624. !       (void) fprintf(ErrFp, "%s(%d): ", FileName, LineNo);
  625.         if (DebugFlag & DB_PRTLINE) OutputLine(ErrFp);
  626.      } else fprintf(ErrFp, "       ");
  627.   
  628. --- 572,581 ----
  629.   
  630.      if (FreshLine) {
  631.         FreshLine = 0;
  632. !       if (strcmp(FileName, "-"))
  633. !          (void) fprintf(ErrFp, "%s(%d): ", FileName, LineNo);
  634. !       else
  635. !          (void) fprintf(ErrFp, "-stdin-(%d): ", LineNo);
  636.         if (DebugFlag & DB_PRTLINE) OutputLine(ErrFp);
  637.      } else fprintf(ErrFp, "       ");
  638.   
  639. ***************
  640. *** 911,917 ****
  641.   
  642.      if ( (r = ParseToken(p, TokBuffer)) ) return r;
  643.      if (*TokBuffer && (*TokBuffer != '#') && (*TokBuffer != ';')) {
  644. !       Eprint("Expecting end-of-line, found '%s'", TokBuffer);
  645.         return E_EXTRANEOUS_TOKEN;
  646.      }
  647.      return OK;
  648. --- 921,927 ----
  649.   
  650.      if ( (r = ParseToken(p, TokBuffer)) ) return r;
  651.      if (*TokBuffer && (*TokBuffer != '#') && (*TokBuffer != ';')) {
  652. !       Eprint("%s: '%s'", ErrMsg[E_EXPECTING_EOL], TokBuffer);
  653.         return E_EXTRANEOUS_TOKEN;
  654.      }
  655.      return OK;
  656. ***************
  657. *** 1162,1164 ****
  658. --- 1172,1325 ----
  659.      if (isdst) *isdst = temp->tm_isdst;
  660.      return 0;
  661.   }
  662. + 
  663. + /***************************************************************/
  664. + /*                                                             */
  665. + /*  FillParagraph                                              */
  666. + /*                                                             */
  667. + /*  Write a string to standard output, formatting it as a      */
  668. + /*  paragraph according to the FirstIndent, FormWidth and      */
  669. + /*  SubsIndent variables.  Spaces are gobbled.  Double-spaces  */
  670. + /*  are inserted after periods.  As a special case, if the     */
  671. + /*  last char in s is '\n', an extra newline is emitted.       */
  672. + /*                                                             */
  673. + /***************************************************************/
  674. + #ifdef HAVE_PROTOS
  675. + PUBLIC void FillParagraph(char *s)
  676. + #else
  677. + void FillParagraph(s)
  678. + char *s;
  679. + #endif
  680. + {
  681. + 
  682. +    int line = 0;
  683. +    int i, j;
  684. +    int pendspace;
  685. +    int len;
  686. +    char *t;
  687. + 
  688. +    int roomleft;
  689. + 
  690. +    if (!s || !*s) return;
  691. + 
  692. +    /* Skip leading spaces */
  693. +    while(isspace(*s)) s++;
  694. + 
  695. +    /* Start formatting */
  696. +    while(1) {
  697. +       if (!*s) {
  698. +          if (*(s-1) == '\n') putchar('\n');
  699. +          return;
  700. +       }
  701. +       /* Over here, we're at the beginning of a line.  Emit the correct
  702. +          number of spaces */
  703. +       j = line ? SubsIndent : FirstIndent;
  704. +       for (i=0; i<j; i++) putchar(' ');
  705. + 
  706. +       /* Calculate the amount of room left on this line */
  707. +       roomleft = FormWidth - j;
  708. +       pendspace = 0;
  709. + 
  710. +       /* Emit words until the next one won't fit */
  711. +       while(1) {
  712. +          while(isspace(*s)) s++;
  713. +          t = s;
  714. +          while(*s && !isspace(*s)) s++;
  715. +      len = s - t;
  716. +      if (!len) {
  717. +         putchar('\n');
  718. +             if (*(s-1) == '\n') putchar('\n');
  719. +         return;
  720. +          }
  721. +      if (!pendspace || len+pendspace <= roomleft) {
  722. +             for (i=0; i<pendspace; i++) putchar(' ');
  723. +            while(t < s) {
  724. +            putchar(*t);
  725. +            t++;
  726. +             }
  727. +          } else {
  728. +         s = t;
  729. +         putchar('\n');
  730. +         line++;
  731. +         break;
  732. +          }
  733. +      pendspace = (*(t-1) == '.') ? 2 : 1;
  734. +      roomleft -= len+pendspace;
  735. +       }
  736. +    }
  737. + }
  738. + 
  739. + #if defined(NEED_TIMEGM) && !defined(HAVE_MKTIME)
  740. + #define        TGM_SEC        (1)
  741. + #define        TGM_MIN        (60 * TGM_SEC)
  742. + #define        TGM_HR        (60 * TGM_MIN)
  743. + #define        TGM_DAY        (24 * TGM_HR)
  744. + 
  745. + #ifdef HAVE_PROTOS
  746. + PRIVATE long time_cheat(int year, int month)
  747. + #else
  748. + static long time_cheat (year, month)
  749. + int year;
  750. + int month;
  751. + #endif
  752. + {
  753. +     long guess = time((long *) NULL);
  754. +     struct tm g;
  755. +     int diff;
  756. +     
  757. +     g = *gmtime (&guess);
  758. +     while ((diff = year - g.tm_year) > 0)
  759. +     {
  760. +         guess += diff * (363 - TGM_DAY);
  761. +         g = *gmtime (&guess);
  762. +     }
  763. +     g.tm_mday--;
  764. +     guess -= g.tm_sec * TGM_SEC + g.tm_min * TGM_MIN +
  765. +          g.tm_hour * TGM_HR + g.tm_mday * TGM_DAY;
  766. +     return (guess);
  767. + }
  768. + 
  769. + #ifdef HAVE_PROTOS
  770. + PUBLIC long timegm (struct tm *tm)
  771. + #else
  772. + long timegm(tm)
  773. + struct tm *tm;
  774. + #endif
  775. + {
  776. +     long clock = time_cheat (tm->tm_year, tm->tm_mon);
  777. + 
  778. +     return (clock + tm->tm_sec * TGM_SEC +
  779. +             tm->tm_min * TGM_MIN +
  780. +             tm->tm_hour * TGM_HR +
  781. +             (tm->tm_mday - 1) * TGM_DAY);
  782. + }
  783. + 
  784. + #ifdef HAVE_PROTOS
  785. + PUBLIC long timelocal (struct tm *tm)
  786. + #else
  787. + long timelocal (tm)
  788. + struct tm *tm;
  789. + #endif
  790. + {
  791. +     long zero = 0;
  792. +     struct tm epoch;
  793. +     int tzmin;
  794. +     long clock;
  795. +     struct tm test;
  796. + 
  797. +     epoch = *localtime (&zero);
  798. +     tzmin = epoch.tm_hour * 60 + epoch.tm_min;
  799. +     if (tzmin > 0)
  800. +     {
  801. +         tzmin = 24 * 60 - tzmin;
  802. +         if (epoch.tm_year == 70)
  803. +             tzmin -= 24 * 60;
  804. +     }
  805. +     clock = timegm (tm) + tzmin * TGM_MIN;
  806. +     test = *localtime (&clock);
  807. + 
  808. +     if (test.tm_hour != tm->tm_hour)
  809. +         clock -= TGM_HR;
  810. +     return (clock);
  811. + }
  812. + #endif /* NEED_TIMEGM */
  813. *** ../prev/makefile.os2    Mon Jun 28 12:30:19 1993
  814. --- ./makefile.os2    Wed Aug 18 11:13:19 1993
  815. ***************
  816. *** 25,37 ****
  817.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  818.   # in config.h; then, you should be able to type 'make'.
  819.   #-----------------------------------------------------------------------------
  820. ! VERSION= 03.00.07
  821.   
  822.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  823. ! lang.h english.h german.h dutch.h finish.h
  824.   
  825.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  826.   
  827.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  828.   main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  829.   
  830. --- 25,39 ----
  831.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  832.   # in config.h; then, you should be able to type 'make'.
  833.   #-----------------------------------------------------------------------------
  834. ! VERSION= 03.00.08
  835.   
  836.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  837. ! lang.h english.h german.h dutch.h finish.h french.h norwgian.h
  838.   
  839.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  840.   
  841. + LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  842. + 
  843.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  844.   main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  845.   
  846. ***************
  847. *** 68,74 ****
  848.   rem2ps$O: rem2ps.c rem2ps.h config.h
  849.   calendar$O: calendar.c $(STDHDRS) expr.h
  850.   dorem$O: dorem.c $(STDHDRS) expr.h
  851. ! dosubst$O: dosubst.c $(STDHDRS)
  852.   expr$O: expr.c $(STDHDRS) expr.h
  853.   files$O: files.c $(STDHDRS)
  854.   funcs$O: funcs.c $(STDHDRS) expr.h version.h
  855. --- 70,76 ----
  856.   rem2ps$O: rem2ps.c rem2ps.h config.h
  857.   calendar$O: calendar.c $(STDHDRS) expr.h
  858.   dorem$O: dorem.c $(STDHDRS) expr.h
  859. ! dosubst$O: dosubst.c $(STDHDRS) $(LANGHDRS)
  860.   expr$O: expr.c $(STDHDRS) expr.h
  861.   files$O: files.c $(STDHDRS)
  862.   funcs$O: funcs.c $(STDHDRS) expr.h version.h
  863. *** ../prev/makefile.tc    Mon Jun 28 12:30:09 1993
  864. --- ./makefile.tc    Wed Aug 18 11:13:06 1993
  865. ***************
  866. *** 1,12 ****
  867.   # Makefile for REMIND for Turbo C for MSDOS
  868.   
  869. ! VERSION= 03.00.07
  870.   
  871.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  872. ! lang.h english.h german.h dutch.h finnish.h
  873.   
  874.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  875.   
  876.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  877.   main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  878.   
  879. --- 1,14 ----
  880.   # Makefile for REMIND for Turbo C for MSDOS
  881.   
  882. ! VERSION= 03.00.08
  883.   
  884.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  885. ! lang.h english.h german.h dutch.h finnish.h french.h norwgian.h
  886.   
  887.   STDHDRS= config.h types.h protos.h globals.h err.h lang.h
  888.   
  889. + LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  890. + 
  891.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  892.   main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  893.   
  894. ***************
  895. *** 37,43 ****
  896.   
  897.   dorem.obj: dorem.c $(STDHDRS) expr.h
  898.   
  899. ! dosubst.obj: dosubst.c $(STDHDRS)
  900.   
  901.   expr.obj: expr.c $(STDHDRS) expr.h
  902.   
  903. --- 39,45 ----
  904.   
  905.   dorem.obj: dorem.c $(STDHDRS) expr.h
  906.   
  907. ! dosubst.obj: dosubst.c $(STDHDRS) $(LANGHDRS)
  908.   
  909.   expr.obj: expr.c $(STDHDRS) expr.h
  910.   
  911. *** ../prev/omit.c    Mon Jun 28 12:29:53 1993
  912. --- ./omit.c    Thu Aug 19 16:16:33 1993
  913. ***************
  914. *** 304,329 ****
  915.         FindToken(TokBuffer, &tok);
  916.         switch (tok.type) {
  917.            case T_Year:
  918. !         if (y != NO_YR) {
  919. !            Eprint("Year specified twice");
  920. !            return E_PARSE_ERR;
  921. !         }
  922.           y = tok.val;
  923.           break;
  924.   
  925.            case T_Month:
  926. !         if (m != NO_MON) {
  927. !            Eprint("Month specified twice");
  928. !            return E_PARSE_ERR;
  929. !         }
  930.           m = tok.val;
  931.           break;
  932.   
  933.            case T_Day:
  934. !         if (d != NO_DAY) {
  935. !            Eprint("Day specified twice");
  936. !            return E_PARSE_ERR;
  937. !         }
  938.           d = tok.val;
  939.           break;
  940.        
  941. --- 304,320 ----
  942.         FindToken(TokBuffer, &tok);
  943.         switch (tok.type) {
  944.            case T_Year:
  945. !         if (y != NO_YR) return E_YR_TWICE;
  946.           y = tok.val;
  947.           break;
  948.   
  949.            case T_Month:
  950. !         if (m != NO_MON) return E_MON_TWICE;
  951.           m = tok.val;
  952.           break;
  953.   
  954.            case T_Day:
  955. !         if (d != NO_DAY) return E_DAY_TWICE;
  956.           d = tok.val;
  957.           break;
  958.        
  959. ***************
  960. *** 337,355 ****
  961.           break;
  962.   
  963.        default:
  964. !         Eprint("Unknown token '%s' in OMIT command", TokBuffer);
  965. !         return E_PARSE_ERR;
  966.         }
  967.      }
  968. !    if (m == NO_MON || d == NO_DAY) {
  969. !       Eprint("Must specify month and day in OMIT command");
  970. !       return E_PARSE_ERR;
  971. !    }
  972.      if (y == NO_YR) {
  973. !       if (NumPartialOmits == MAX_PARTIAL_OMITS) {
  974. !          Eprint("Too many partial OMITs");
  975. !      return E_NO_MEM;
  976. !       }
  977.         if (d > MonthDays[m]) return E_BAD_DATE;
  978.         syndrome = (m<<5) + d;
  979.         if (!BexistsIntArray(PartialOmitArray, NumPartialOmits, syndrome)) {
  980. --- 328,342 ----
  981.           break;
  982.   
  983.        default:
  984. !         Eprint("%s: '%s' (OMIT)", ErrMsg[E_UNKNOWN_TOKEN], TokBuffer);
  985. !         return E_UNKNOWN_TOKEN;
  986.         }
  987.      }
  988. !    if (m == NO_MON || d == NO_DAY) return E_SPEC_MON_DAY;
  989. ! 
  990.      if (y == NO_YR) {
  991. !       if (NumPartialOmits == MAX_PARTIAL_OMITS) return E_2MANY_PART;
  992. ! 
  993.         if (d > MonthDays[m]) return E_BAD_DATE;
  994.         syndrome = (m<<5) + d;
  995.         if (!BexistsIntArray(PartialOmitArray, NumPartialOmits, syndrome)) {
  996. ***************
  997. *** 357,366 ****
  998.            NumPartialOmits++;
  999.         }
  1000.      } else {
  1001. !       if (NumFullOmits == MAX_FULL_OMITS) {
  1002. !          Eprint("Too many full OMITs");
  1003. !      return E_NO_MEM;
  1004. !       }
  1005.         if (d > DaysInMonth(m, y)) return E_BAD_DATE;
  1006.         syndrome = Julian(y, m, d);
  1007.         if (!BexistsIntArray(FullOmitArray, NumFullOmits, syndrome)) {
  1008. --- 344,351 ----
  1009.            NumPartialOmits++;
  1010.         }
  1011.      } else {
  1012. !       if (NumFullOmits == MAX_FULL_OMITS) return E_2MANY_FULL;
  1013. ! 
  1014.         if (d > DaysInMonth(m, y)) return E_BAD_DATE;
  1015.         syndrome = Julian(y, m, d);
  1016.         if (!BexistsIntArray(FullOmitArray, NumFullOmits, syndrome)) {
  1017. *** ../prev/protos.h    Mon Jun 28 12:37:30 1993
  1018. --- ./protos.h    Wed Aug 18 12:52:08 1993
  1019. ***************
  1020. *** 108,114 ****
  1021.   int DoPreserve  ARGS ((Parser *p));
  1022.   int DoSatRemind ARGS ((Trigger *trig, TimeTrig *tim, ParsePtr p));
  1023.   int ParseNonSpaceChar ARGS ((ParsePtr p, int *err, int peek));
  1024. ! int HashVal ARGS ((const char *str));
  1025.   int DateOK ARGS ((int y, int m, int d));
  1026.   Operator *FindFunc ARGS ((char *name, Operator where[], int num));
  1027.   int InsertIntoSortBuffer ARGS ((int jul, int tim, char *body, int typ));
  1028. --- 108,114 ----
  1029.   int DoPreserve  ARGS ((Parser *p));
  1030.   int DoSatRemind ARGS ((Trigger *trig, TimeTrig *tim, ParsePtr p));
  1031.   int ParseNonSpaceChar ARGS ((ParsePtr p, int *err, int peek));
  1032. ! unsigned int HashVal ARGS ((const char *str));
  1033.   int DateOK ARGS ((int y, int m, int d));
  1034.   Operator *FindFunc ARGS ((char *name, Operator where[], int num));
  1035.   int InsertIntoSortBuffer ARGS ((int jul, int tim, char *body, int typ));
  1036. ***************
  1037. *** 129,131 ****
  1038. --- 129,132 ----
  1039.   int SetSysVar ARGS ((const char *name, int value));
  1040.   void DumpSysVarByName ARGS ((const char *name));
  1041.   int CalcMinsFromUTC ARGS ((int jul, int tim, int *mins, int *isdst));
  1042. + void FillParagraph ARGS ((char *s));
  1043. *** ../prev/queue.c    Mon Jun 28 12:29:55 1993
  1044. --- ./queue.c    Thu Aug 19 16:12:20 1993
  1045. ***************
  1046. *** 74,86 ****
  1047.   
  1048.      qelem = NEW(QueuedRem);
  1049.      if (!qelem) {
  1050. -       Eprint("No memory to queue reminder.");
  1051.         return E_NO_MEM;
  1052.      }
  1053.      qelem->text = StrDup(p->pos);  /* Guaranteed that parser is not nested. */
  1054.      if (!qelem->text) {
  1055.         free(qelem);
  1056. -       Eprint("No memory to queue reminder.");
  1057.         return E_NO_MEM;
  1058.      }
  1059.      qelem->typ = typ;
  1060. --- 74,84 ----
  1061. ***************
  1062. *** 275,281 ****
  1063.                    q->tt.ttime / 60, TIMESEP, q->tt.ttime % 60,
  1064.                    q->tt.nexttime / 60, TIMESEP, q->tt.nexttime % 60,
  1065.                    q->tt.rep, q->tt.delta, NL);
  1066. !          printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" : "RUN"),
  1067.                    q->text,
  1068.                    NL, NL);
  1069.         }
  1070. --- 273,280 ----
  1071.                    q->tt.ttime / 60, TIMESEP, q->tt.ttime % 60,
  1072.                    q->tt.nexttime / 60, TIMESEP, q->tt.nexttime % 60,
  1073.                    q->tt.rep, q->tt.delta, NL);
  1074. !                  printf("Text: %s %s%s%s", ((q->typ == MSG_TYPE) ? "MSG" :
  1075. !                                    ((q->typ == MSF_TYPE) ? "MSF" :"RUN")),
  1076.                    q->text,
  1077.                    NL, NL);
  1078.         }
  1079. *** ../prev/rem2ps.1    Mon Jun 28 12:30:23 1993
  1080. --- ./rem2ps.1    Wed Jul 28 10:22:25 1993
  1081. ***************
  1082. *** 29,34 ****
  1083. --- 29,43 ----
  1084.   Use ISO 8859-1 standard encoding for the PostScript fonts.  If you do
  1085.   not use this option, the default encoding is used.
  1086.   .TP
  1087. + .B \-e
  1088. + Make the calendar fill the entire page.  By default, the calendar is
  1089. + slightly smaller than the page.  This allows days with many reminders
  1090. + to "expand" as needed.  However, if you don't have days which expand,
  1091. + you can use this option to make all of the boxes slightly bigger.  
  1092. + One caveat: If you do use the \fB\-e\fR option and one day has many
  1093. + reminders, the calendar may expand off the page, losing some information.
  1094. + Experiment!
  1095. + .TP
  1096.   .B \-m media
  1097.   Set the page size.  If you use the \-m option, you must specify the
  1098.   media type, which can be one of the
  1099. *** ../prev/rem2ps.c    Mon Jun 28 12:30:22 1993
  1100. --- ./rem2ps.c    Wed Jul 28 10:15:11 1993
  1101. ***************
  1102. *** 98,103 ****
  1103. --- 98,104 ----
  1104.   int WkDayNum;
  1105.   
  1106.   int LeftMarg, RightMarg, TopMarg, BotMarg;
  1107. + int FillPage;
  1108.   
  1109.   void Init ARGS ((int argc, char *argv[]));
  1110.   void Usage ARGS ((char *s));
  1111. ***************
  1112. *** 185,191 ****
  1113.      printf("(%s %s) doheading\n", month, year);
  1114.   
  1115.   /* Calculate the minimum box size */
  1116. !    printf("/MinBoxSize ytop MinY sub 7 div def\n");
  1117.   
  1118.   /* If wkday >= 2, then do the small calendars at the top. */
  1119.      if (wkday >=2 && !NoSmallCal) {
  1120. --- 186,201 ----
  1121.      printf("(%s %s) doheading\n", month, year);
  1122.   
  1123.   /* Calculate the minimum box size */
  1124. !    if (!FillPage) {
  1125. !       printf("/MinBoxSize ytop MinY sub 7 div def\n");
  1126. !    } else {
  1127. !       if ((days == 31 && wkday >= 5) || (days == 30 && wkday == 6))
  1128. !          printf("/MinBoxSize ytop MinY sub 6 div def\n");
  1129. !       else if (days == 28 && wkday == 0 && NoSmallCal)
  1130. !          printf("/MinBoxSize ytop MinY sub 4 div def\n");
  1131. !       else
  1132. !          printf("/MinBoxSize ytop MinY sub 5 div def\n");
  1133. !    }
  1134.   
  1135.   /* If wkday >= 2, then do the small calendars at the top. */
  1136.      if (wkday >=2 && !NoSmallCal) {
  1137. ***************
  1138. *** 522,527 ****
  1139. --- 532,538 ----
  1140.      TopMarg = 36;
  1141.      BotMarg = 36;
  1142.      UseISO = 0;
  1143. +    FillPage = 0;
  1144.   
  1145.      for(j=0; j<32; j++) PsEntries[i] = NULL;
  1146.   
  1147. ***************
  1148. *** 618,623 ****
  1149. --- 629,636 ----
  1150.   
  1151.        case 'c': NoSmallCal = 1; break;
  1152.   
  1153. +      case 'e': FillPage = 1; break;
  1154. + 
  1155.        default: Usage("Unrecognized option");
  1156.         }
  1157.      }
  1158. ***************
  1159. *** 651,656 ****
  1160. --- 664,670 ----
  1161.      fprintf(stderr, "-s[hed] size  Set size for header, calendar entries and/or day numbers\n");
  1162.      fprintf(stderr, "-b size       Set border size for calendar entries\n");
  1163.      fprintf(stderr, "-t size       Set line thickness\n");
  1164. +    fprintf(stderr, "-e            Make calendar fill entire page\n");
  1165.      fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
  1166.      exit(1);
  1167.   }
  1168. *** ../prev/remind-all.sh    Mon Jun 28 12:30:06 1993
  1169. --- ./remind-all.sh    Thu Aug 19 17:28:47 1993
  1170. ***************
  1171. *** 1,5 ****
  1172. --- 1,10 ----
  1173.   # Shell script to mail all users reminders.
  1174.   
  1175. + # This file is part of REMIND
  1176. + #
  1177. + # REMIND is Copyright (C) 1992, 1993 by David F. Skoll
  1178. + # This file is Copyright (C) 1990 by Bill Aten
  1179. + 
  1180.   # Thanks to Bill Aten for this script.
  1181.   
  1182.   # Run it AFTER MIDNIGHT so that date is correct!
  1183. *** ../prev/remind.1    Mon Jul 19 11:31:13 1993
  1184. --- ./remind.1    Thu Aug 26 10:58:39 1993
  1185. ***************
  1186. *** 9,14 ****
  1187. --- 9,18 ----
  1188.   found in it.  The commands are used to issue reminders and alarms.  Each
  1189.   reminder or alarm can consist of a message sent to standard output, or
  1190.   a program to be executed.
  1191. + .PP
  1192. + If \fIfilename\fR is specified as a single dash '-', then \fBRemind\fR
  1193. + takes its input from standard input.  This also implicitly enables
  1194. + the \fB\-o\fR option, described below.
  1195.   .SH OPTIONS
  1196.   .TP
  1197.   .B \-n
  1198. ***************
  1199. *** 245,251 ****
  1200.   [\fBAT\fR \fItime\fR [\fItdelta\fR] [\fItrepeat\fR]]
  1201.   [\fBUNTIL\fR \fIexpiry_date\fR]
  1202.   [\fBSCANFROM\fR \fIscan_date\fR]
  1203. ! \fBMSG\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR | \fBPS\fR | \fBPSFILE\fR
  1204.   .I body
  1205.   .RE
  1206.   .PP
  1207. --- 249,256 ----
  1208.   [\fBAT\fR \fItime\fR [\fItdelta\fR] [\fItrepeat\fR]]
  1209.   [\fBUNTIL\fR \fIexpiry_date\fR]
  1210.   [\fBSCANFROM\fR \fIscan_date\fR]
  1211. ! \fBMSG\fR | \fBMSF\fR | \fBRUN\fR | \fBCAL\fR | \fBSATISFY\fR |
  1212. ! \fBPS\fR | \fBPSFILE\fR
  1213.   .I body
  1214.   .RE
  1215.   .PP
  1216. ***************
  1217. *** 256,265 ****
  1218.   The \fBREM\fR token is optional, providing that the remainder
  1219.   of the command cannot be mistaken for another \fBRemind\fR command
  1220.   such as \fBOMIT\fR or \fBRUN\fR.  The portion of the \fBREM\fR command
  1221. ! before the \fBMSG\fR, \fBRUN\fR, \fBCAL\fR or \fBSATISFY\fR clause
  1222.   is called a \fItrigger\fR.
  1223.   .PP
  1224. ! .B MSG, RUN, CAL, PS and PSFILE
  1225.   .PP
  1226.   These keywords denote the \fItype\fR
  1227.   of the reminder.  (\fBSATISFY\fR is more complicated and will be explained
  1228. --- 261,270 ----
  1229.   The \fBREM\fR token is optional, providing that the remainder
  1230.   of the command cannot be mistaken for another \fBRemind\fR command
  1231.   such as \fBOMIT\fR or \fBRUN\fR.  The portion of the \fBREM\fR command
  1232. ! before the \fBMSG\fR, \fBMSF\fR \fBRUN\fR, \fBCAL\fR or \fBSATISFY\fR clause
  1233.   is called a \fItrigger\fR.
  1234.   .PP
  1235. ! .B "MSG, MSF, RUN, CAL, PS and PSFILE"
  1236.   .PP
  1237.   These keywords denote the \fItype\fR
  1238.   of the reminder.  (\fBSATISFY\fR is more complicated and will be explained
  1239. ***************
  1240. *** 270,275 ****
  1241. --- 275,288 ----
  1242.   passed to the appropriate program.  Note that the options \fB\-c\fR,
  1243.   \fB\-s\fR, \fB\-p\fR and \fB\-n\fR disable the \fB\-k\fR option.
  1244.   .PP
  1245. + The \fBMSF\fR keyword is almost the same as the \fBMSG\fR keyword,
  1246. + except that the reminder is formatted to fit into a paragraph-like
  1247. + format.  Three system variables control the formatting of \fBMSF\fR-type
  1248. + reminders - they are \fB$FirstIndent\fR, \fB$SubsIndent\fR and
  1249. + \fB$FormWidth\fR.  They are discussed in the section "System Variables."
  1250. + The \fBMSF\fR keyword causes the spacing of your reminder to be altered -
  1251. + extra spaces are discarded, and two spaces are placed after periods.
  1252. + .PP
  1253.   A \fBRUN\fR-type
  1254.   reminder also passes the \fIbody\fR through the substitution filter, but
  1255.   then executes the result as a system command.  A \fBCAL\fR-type reminder
  1256. ***************
  1257. *** 1106,1111 ****
  1258. --- 1119,1126 ----
  1259.   .PP
  1260.   \fBINCLUDE\fR files can be nested up to a depth of 8.
  1261.   .PP
  1262. + If you specify a filename of "-" in the \fBINCLUDE\fR command, \fBRemind\fR
  1263. + will begin reading from standard input.
  1264.   .SH THE RUN COMMAND
  1265.   .PP
  1266.   If you include other files in your reminder script, you may not always
  1267. ***************
  1268. *** 1491,1496 ****
  1269. --- 1506,1515 ----
  1270.   If non-zero, then the \fB\-q\fR option was supplied on the command line.
  1271.   For the MS-DOS version, always contains 1.
  1272.   .TP
  1273. + .B $FirstIndent
  1274. + The number of spaces by which to indent the first line of a \fBMSF\fR-type
  1275. + reminder.  The default is 0.
  1276. + .TP
  1277.   .B $FoldYear
  1278.   The standard Unix library functions may have difficulty dealing with dates
  1279.   later than 2037.  If this variable is set to 1, then the UTC calculations
  1280. ***************
  1281. *** 1503,1508 ****
  1282. --- 1522,1533 ----
  1283.   this variable is 0.  Set it to 1 if the sun or UTC functions misbehave
  1284.   for years greater than 2037.
  1285.   .TP
  1286. + .B $FormWidth
  1287. + The maximum width of each line of text for formatting \fBMSF\fR-type
  1288. + reminders.  The default is 72.  If an \fBMSF\fR-type reminder contains
  1289. + a word too long to fit in this width, it will not be truncated - the
  1290. + width limit will be ignored.
  1291. + .TP
  1292.   .B $HushMode (read-only)
  1293.   If non-zero, then the \fB\-h\fR option was supplied on the command line.
  1294.   .TP
  1295. ***************
  1296. *** 1563,1568 ****
  1297. --- 1588,1599 ----
  1298.   block is greater than the saved value, then at least one holiday
  1299.   was triggered, and you can execute the command to shade in the
  1300.   calendar box.  (See the section "Calendar Mode".)
  1301. + .PP
  1302. + .RS
  1303. + Note that \fB$NumTrig\fR is affected \fIonly\fR
  1304. + by \fBREM\fR commands; triggers in \fBIFTRIG\fR commands do
  1305. + not affect it.  
  1306. + .RE
  1307.   .TP
  1308.   .B $PSCal (read-only)
  1309.   If non-zero, then the \fB\-p\fR option was supplied on the command line.
  1310. ***************
  1311. *** 1573,1578 ****
  1312. --- 1604,1613 ----
  1313.   .B $SimpleCal (read-only)
  1314.   Set to a non-zero value if \fIeither\fR of the \fB\-p\fR or \fB\-s\fR
  1315.   command-line options was supplied.
  1316. + .TP
  1317. + .B $SubsIndent
  1318. + The number of spaces by which all lines (except the first) of an
  1319. + \fBMSF\fR-type reminder should be indented.  The default is 0.
  1320.   .PP
  1321.   Note:  If any of the calendar modes are in effect, then the
  1322.   values of $Daemon, $DontFork, $DontTrigAts, $DontQueue, $HushMode,
  1323. ***************
  1324. *** 1741,1746 ****
  1325. --- 1776,1786 ----
  1326.   for the specified year.  If \fIarg\fR is a \fBDATE\fR, then returns the
  1327.   date of the next Easter Sunday on or after \fIarg\fR.
  1328.   .TP
  1329. + .B filedate(s_filename)
  1330. + Returns the modification date of \fIfilename\fR.  If \fIfilename\fR
  1331. + does not exist, or its modification date is before the year
  1332. + \fBbaseyr()\fR, then 1 January of \fBbaseyr()\fR is returned.
  1333. + .TP
  1334.   .B filedir()
  1335.   Returns the directory which contains the current file being
  1336.   processed.  It may be a relative or absolute pathname, but
  1337. ***************
  1338. *** 2510,2515 ****
  1339. --- 2550,2558 ----
  1340.   initialized has remained defined.  Thus, time-consuming operations which
  1341.   do not depend on the value of \fBtoday()\fR are done only once.
  1342.   .PP
  1343. + System variables (those whose names start with '$') are automatically
  1344. + preserved between calendar iterations.
  1345. + .PP
  1346.   Note that for efficiency, \fBRemind\fR caches the reminder script
  1347.   (and any \fBINCLUDE\fRd files) in memory when producing a calendar.
  1348.   .PP
  1349. ***************
  1350. *** 2723,2734 ****
  1351.   .SH FOREIGN LANGUAGE SUPPORT
  1352.   .PP
  1353.   Your version of \fBRemind\fR may have been compiled to support a
  1354. ! language other than English.  This support is not complete - for
  1355. ! example, all error and usage messages, as well as documentation, are
  1356. ! still in English.  However, foreign-language versions of \fBRemind\fR
  1357. ! will output names of months and weekdays in the foreign language.
  1358. ! Also, the substitution mechanism may substitute constructs suitable
  1359. ! for the foreign language rather than for English.
  1360.   .PP
  1361.   A foreign-language version of \fBRemind\fR will accept either the English
  1362.   or foreign-language names of weekdays and months in a reminder script.
  1363. --- 2766,2777 ----
  1364.   .SH FOREIGN LANGUAGE SUPPORT
  1365.   .PP
  1366.   Your version of \fBRemind\fR may have been compiled to support a
  1367. ! language other than English.  This support may or may not be complete -
  1368. ! for example, all error and usage messages may still be in English.
  1369. ! However, at a minimum, foreign-language versions of \fBRemind\fR will
  1370. ! output names of months and weekdays in the foreign language.  Also,
  1371. ! the substitution mechanism will substitute constructs suitable for the
  1372. ! foreign language rather than for English.
  1373.   .PP
  1374.   A foreign-language version of \fBRemind\fR will accept either the English
  1375.   or foreign-language names of weekdays and months in a reminder script.
  1376. *** ../prev/sort.c    Mon Jun 28 12:29:54 1993
  1377. --- ./sort.c    Thu Aug 19 16:12:01 1993
  1378. ***************
  1379. *** 95,101 ****
  1380.      int ShouldGoAfter;
  1381.   
  1382.      if (!new) {
  1383. !       Eprint("Out of memory for sorting.");
  1384.         IssueSortedReminders();
  1385.         SortByDate = 0;
  1386.         SortByTime = 0;
  1387. --- 95,101 ----
  1388.      int ShouldGoAfter;
  1389.   
  1390.      if (!new) {
  1391. !       Eprint("%s", ErrMsg[E_NO_MEM]);
  1392.         IssueSortedReminders();
  1393.         SortByDate = 0;
  1394.         SortByTime = 0;
  1395. ***************
  1396. *** 160,172 ****
  1397.   
  1398.      while (cur) {
  1399.         next = cur->next;
  1400. !       if (cur->typ == MSG_TYPE) {
  1401.       if (!MsgCommand) {
  1402.               if (cur->trigdate != olddate) {
  1403.                  IssueSortBanner(cur->trigdate);
  1404.              olddate = cur->trigdate;
  1405.               }
  1406. !             printf("%s\n", cur->text);
  1407.            } else {
  1408.               char buf[LINELEN+TOKSIZE];
  1409.               sprintf(buf, MsgCommand, cur->text);
  1410. --- 160,175 ----
  1411.   
  1412.      while (cur) {
  1413.         next = cur->next;
  1414. !       if (cur->typ == MSG_TYPE || cur->typ == MSF_TYPE) {
  1415.       if (!MsgCommand) {
  1416.               if (cur->trigdate != olddate) {
  1417.                  IssueSortBanner(cur->trigdate);
  1418.              olddate = cur->trigdate;
  1419.               }
  1420. !         if (cur->typ == MSG_TYPE)
  1421. !                printf("%s\n", cur->text);
  1422. !             else
  1423. !            FillParagraph(cur->text);
  1424.            } else {
  1425.               char buf[LINELEN+TOKSIZE];
  1426.               sprintf(buf, MsgCommand, cur->text);
  1427. *** ../prev/test.cmp    Mon Jun 28 12:30:09 1993
  1428. --- ./test.cmp    Thu Aug 19 17:06:48 1993
  1429. ***************
  1430. *** 187,195 ****
  1431.   y => "Heshvan"
  1432.   z => 1991/02/16
  1433.   a => 5761
  1434. ! hebdate(30, "Heshvan", 1991/02/16, 5761) => ./test.rem(33): No 30 Heshvan 5761
  1435. ! Bad date specification
  1436. ! Leaving UserFN _i() => Bad date specification
  1437.   
  1438.   [_i(30, "Kislev", today(), 5759)] MSG Complete-Complete
  1439.   today() => 1991/02/16
  1440. --- 187,195 ----
  1441.   y => "Heshvan"
  1442.   z => 1991/02/16
  1443.   a => 5761
  1444. ! hebdate(30, "Heshvan", 1991/02/16, 5761) => ./test.rem(33): 30 Heshvan 5761: Invalid Hebrew date
  1445. ! Invalid Hebrew date
  1446. ! Leaving UserFN _i() => Invalid Hebrew date
  1447.   
  1448.   [_i(30, "Kislev", today(), 5759)] MSG Complete-Complete
  1449.   today() => 1991/02/16
  1450. ***************
  1451. *** 220,228 ****
  1452.   y => "Kislev"
  1453.   z => 1991/02/16
  1454.   a => 5761
  1455. ! hebdate(30, "Kislev", 1991/02/16, 5761) => ./test.rem(37): No 30 Kislev 5761
  1456. ! Bad date specification
  1457. ! Leaving UserFN _i() => Bad date specification
  1458.   
  1459.   [_i(30, "Adar A", today(), 5755)] MSG Leap
  1460.   today() => 1991/02/16
  1461. --- 220,228 ----
  1462.   y => "Kislev"
  1463.   z => 1991/02/16
  1464.   a => 5761
  1465. ! hebdate(30, "Kislev", 1991/02/16, 5761) => ./test.rem(37): 30 Kislev 5761: Invalid Hebrew date
  1466. ! Invalid Hebrew date
  1467. ! Leaving UserFN _i() => Invalid Hebrew date
  1468.   
  1469.   [_i(30, "Adar A", today(), 5755)] MSG Leap
  1470.   today() => 1991/02/16
  1471. ***************
  1472. *** 243,250 ****
  1473.   z => 1991/02/16
  1474.   a => 5756
  1475.   hebdate(30, "Adar A", 1991/02/16, 5756) => ./test.rem(40): No Adar A in 5756
  1476. ! Bad date specification
  1477. ! Leaving UserFN _i() => Bad date specification
  1478.   [_i(29, "Adar A", today(), 5755)] MSG Leap
  1479.   today() => 1991/02/16
  1480.   Entering UserFN _i(29, "Adar A", 1991/02/16, 5755)
  1481. --- 243,250 ----
  1482.   z => 1991/02/16
  1483.   a => 5756
  1484.   hebdate(30, "Adar A", 1991/02/16, 5756) => ./test.rem(40): No Adar A in 5756
  1485. ! Invalid Hebrew date
  1486. ! Leaving UserFN _i() => Invalid Hebrew date
  1487.   [_i(29, "Adar A", today(), 5755)] MSG Leap
  1488.   today() => 1991/02/16
  1489.   Entering UserFN _i(29, "Adar A", 1991/02/16, 5755)
  1490. ***************
  1491. *** 264,271 ****
  1492.   z => 1991/02/16
  1493.   a => 5756
  1494.   hebdate(29, "Adar A", 1991/02/16, 5756) => ./test.rem(42): No Adar A in 5756
  1495. ! Bad date specification
  1496. ! Leaving UserFN _i() => Bad date specification
  1497.   
  1498.   # Test each possible case of the basic reminders.
  1499.   
  1500. --- 264,271 ----
  1501.   z => 1991/02/16
  1502.   a => 5756
  1503.   hebdate(29, "Adar A", 1991/02/16, 5756) => ./test.rem(42): No Adar A in 5756
  1504. ! Invalid Hebrew date
  1505. ! Leaving UserFN _i() => Invalid Hebrew date
  1506.   
  1507.   # Test each possible case of the basic reminders.
  1508.   
  1509. ***************
  1510. *** 631,637 ****
  1511.   "a05" + "6" => "a056"
  1512.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1513.   set a058 version()
  1514. ! version() => "03.00.07"
  1515.   set a059 wkday(today())
  1516.   today() => 1991/02/16
  1517.   wkday(1991/02/16) => "Saturday"
  1518. --- 631,637 ----
  1519.   "a05" + "6" => "a056"
  1520.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1521.   set a058 version()
  1522. ! version() => "03.00.08"
  1523.   set a059 wkday(today())
  1524.   today() => 1991/02/16
  1525.   wkday(1991/02/16) => "Saturday"
  1526. ***************
  1527. *** 710,716 ****
  1528.   x => "foo"
  1529.   y => 11:33
  1530.   "foo" * 11:33 => Type mismatch
  1531. ! ./test.rem(240): Operator '*' Type mismatch
  1532.   Leaving UserFN h() => Type mismatch
  1533.   set a074 dosubst("%a %b %c %d %e %f %g %h", '1992/5/5')
  1534.   dosubst("%a %b %c %d %e %f %g %h", 1992/05/05) => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  1535. --- 710,716 ----
  1536.   x => "foo"
  1537.   y => 11:33
  1538.   "foo" * 11:33 => Type mismatch
  1539. ! ./test.rem(240): '*': Type mismatch
  1540.   Leaving UserFN h() => Type mismatch
  1541.   set a074 dosubst("%a %b %c %d %e %f %g %h", '1992/5/5')
  1542.   dosubst("%a %b %c %d %e %f %g %h", 1992/05/05) => "on Tuesday, 5 May, 1992 in 444 days' tim"...
  1543. ***************
  1544. *** 772,778 ****
  1545.           a048  "foo"
  1546.           a067  "INT"
  1547.           a039  "February"
  1548. !         a058  "03.00.07"
  1549.           a077  "1992 92
  1550.   "
  1551.           a049  21
  1552. --- 772,778 ----
  1553.           a048  "foo"
  1554.           a067  "INT"
  1555.           a039  "February"
  1556. !         a058  "03.00.08"
  1557.           a077  "1992 92
  1558.   "
  1559.           a049  21
  1560. *** ../prev/token.c    Mon Jun 28 12:29:56 1993
  1561. --- ./token.c    Tue Aug  3 12:29:05 1993
  1562. ***************
  1563. *** 68,73 ****
  1564. --- 68,74 ----
  1565.      { "march",        3,    T_Month,    2 },
  1566.      { "may",        3,     T_Month,     4 },
  1567.      { "monday",         3,    T_WkDay,    0 },
  1568. +    { "msf",        3,    T_RemType,    MSF_TYPE },
  1569.      { "msg",         3,     T_RemType,     MSG_TYPE },
  1570.      { "november",     3,     T_Month,    10 },
  1571.      { "october",        3,     T_Month,    9 },
  1572. *** ../prev/trigger.c    Mon Jun 28 12:29:57 1993
  1573. --- ./trigger.c    Thu Aug 19 16:44:15 1993
  1574. ***************
  1575. *** 246,252 ****
  1576.        return j;
  1577.   
  1578.         default:
  1579. !     Eprint("NextSimpleTrig: Bad type %d", typ);
  1580.       *err = E_SWERR;
  1581.       return -1;
  1582.      }
  1583. --- 246,252 ----
  1584.        return j;
  1585.   
  1586.         default:
  1587. !     Eprint("NextSimpleTrig %s %d", ErrMsg[E_SWERR], typ);
  1588.       *err = E_SWERR;
  1589.       return -1;
  1590.      }
  1591. ***************
  1592. *** 395,402 ****
  1593.          (trig->d == NO_DAY ||
  1594.       trig->m == NO_MON ||
  1595.       trig->y == NO_YR)) {
  1596. !       Eprint("Must fully specify date to use repeat.");
  1597. !       *err = E_PARSE_ERR;
  1598.         return -1;
  1599.      }
  1600.          
  1601. --- 395,402 ----
  1602.          (trig->d == NO_DAY ||
  1603.       trig->m == NO_MON ||
  1604.       trig->y == NO_YR)) {
  1605. !       Eprint("%s", ErrMsg[E_REP_FULSPEC]);
  1606. !       *err = E_REP_FULSPEC;
  1607.         return -1;
  1608.      }
  1609.          
  1610. ***************
  1611. *** 408,415 ****
  1612.         if (*err) return -1;
  1613.         if (result == -1) {
  1614.            if (DebugFlag & DB_PRTTRIG) {
  1615. !         fprintf(ErrFp, "%s(%d): Expired\n",
  1616. !            FileName, LineNo);
  1617.        }
  1618.            return -1;
  1619.         }
  1620. --- 408,415 ----
  1621.         if (*err) return -1;
  1622.         if (result == -1) {
  1623.            if (DebugFlag & DB_PRTTRIG) {
  1624. !         fprintf(ErrFp, "%s(%d): %s\n",
  1625. !            FileName, LineNo, ErrMsg[E_EXPIRED]);
  1626.        }
  1627.            return -1;
  1628.         }
  1629. ***************
  1630. *** 436,443 ****
  1631.             trig->skip == NO_SKIP &&
  1632.         trig->rep == NO_REP) {
  1633.             if (DebugFlag & DB_PRTTRIG) {
  1634. !          fprintf(ErrFp, "%s(%d): Expired\n",
  1635. !                  FileName, LineNo);
  1636.            }
  1637.            if (result != -1) {
  1638.               LastTriggerDate = result;
  1639. --- 436,443 ----
  1640.             trig->skip == NO_SKIP &&
  1641.         trig->rep == NO_REP) {
  1642.             if (DebugFlag & DB_PRTTRIG) {
  1643. !          fprintf(ErrFp, "%s(%d): %s\n",
  1644. !                  FileName, LineNo, ErrMsg[E_EXPIRED]);
  1645.            }
  1646.            if (result != -1) {
  1647.               LastTriggerDate = result;
  1648. ***************
  1649. *** 452,459 ****
  1650.           LastTrigValid = 1;
  1651.        }
  1652.            if (DebugFlag & DB_PRTTRIG) {
  1653. !         fprintf(ErrFp, "%s(%d): Expired\n",
  1654. !                   FileName, LineNo);
  1655.            }
  1656.        return -1;
  1657.         }
  1658. --- 452,459 ----
  1659.           LastTrigValid = 1;
  1660.        }
  1661.            if (DebugFlag & DB_PRTTRIG) {
  1662. !         fprintf(ErrFp, "%s(%d): %s\n",
  1663. !                   FileName, LineNo, ErrMsg[E_EXPIRED]);
  1664.            }
  1665.        return -1;
  1666.         }
  1667. *** ../prev/tstlang.rem    Mon Jun 28 12:30:24 1993
  1668. --- ./tstlang.rem    Thu Aug 19 16:01:52 1993
  1669. ***************
  1670. *** 15,23 ****
  1671.   #
  1672.   # ---------------------------------------------------------------------------
  1673.   
  1674. ! if version()<"03.00.02"
  1675.      errmsg %
  1676. !    errmsg This file only works with Remind version 03.00.02 and later - aborting
  1677.      exit
  1678.   endif
  1679.   
  1680. --- 15,30 ----
  1681.   #
  1682.   # ---------------------------------------------------------------------------
  1683.   
  1684. ! if version()<"03.00.08"
  1685.      errmsg %
  1686. !    errmsg This file only works with Remind version 03.00.08 and later - aborting
  1687. !    exit
  1688. ! endif
  1689. ! 
  1690. ! if !$RunOff || !$DontQueue || $DontTrigAts
  1691. !    errmsg %
  1692. !    errmsg Please run [filename()] with the -q and -r options, but%
  1693. !    errmsg not the -a option.
  1694.      exit
  1695.   endif
  1696.   
  1697. *** ../prev/types.h    Mon Jun 28 12:29:32 1993
  1698. --- ./types.h    Tue Aug  3 12:28:45 1993
  1699. ***************
  1700. *** 100,105 ****
  1701. --- 100,106 ----
  1702.   #define SAT_TYPE 4
  1703.   #define PS_TYPE  5
  1704.   #define PSF_TYPE 6
  1705. + #define MSF_TYPE 7
  1706.   
  1707.   /* DEFINES for debugging flags */
  1708.   #define DB_PRTLINE   1
  1709. *** ../prev/userfns.c    Mon Jun 28 12:38:47 1993
  1710. --- ./userfns.c    Thu Aug 19 16:43:05 1993
  1711. ***************
  1712. *** 87,93 ****
  1713.      StrnCpy(func->name, TokBuffer, VAR_NAME_LEN);
  1714.      if (!Hush) {
  1715.         if (FindFunc(TokBuffer, Func, NumFuncs)) {
  1716. !          Eprint("Warning:  Attempt to redefine built-in function '%s'",
  1717.                TokBuffer);
  1718.         }
  1719.      }
  1720. --- 87,93 ----
  1721.      StrnCpy(func->name, TokBuffer, VAR_NAME_LEN);
  1722.      if (!Hush) {
  1723.         if (FindFunc(TokBuffer, Func, NumFuncs)) {
  1724. !          Eprint("%s: '%s'", ErrMsg[E_REDEF_FUNC],
  1725.                TokBuffer);
  1726.         }
  1727.      }
  1728. ***************
  1729. *** 131,137 ****
  1730.   
  1731.      /* Copy the text over */
  1732.      if (p->isnested) {
  1733. !       Eprint ("Can't nest function definition in expression.");
  1734.         DestroyUserFunc(func);
  1735.         return E_PARSE_ERR;
  1736.      }
  1737. --- 131,137 ----
  1738.   
  1739.      /* Copy the text over */
  1740.      if (p->isnested) {
  1741. !       Eprint("%s", ErrMsg[E_CANTNEST_FDEF]);
  1742.         DestroyUserFunc(func);
  1743.         return E_PARSE_ERR;
  1744.      }
  1745. ***************
  1746. *** 265,276 ****
  1747.      f = FuncHash[h];
  1748.      while (f && StrinCmp(name, f->name, VAR_NAME_LEN)) f = f->next;
  1749.      if (!f) {
  1750. !       Eprint("Undefined function '%s'", name);
  1751.         return E_UNDEF_FUNC;
  1752.      }
  1753.      /* Debugging stuff */
  1754.      if (DebugFlag & DB_PRTEXPR) {
  1755. !       fprintf(ErrFp, "Entering UserFN %s(", f->name);
  1756.         for (i=0; i<nargs; i++) {
  1757.            PrintValue(&ValStack[ValStackPtr - nargs + i], ErrFp);
  1758.            if (i<nargs-1) fprintf(ErrFp, ", ");
  1759. --- 265,276 ----
  1760.      f = FuncHash[h];
  1761.      while (f && StrinCmp(name, f->name, VAR_NAME_LEN)) f = f->next;
  1762.      if (!f) {
  1763. !       Eprint("%s: '%s'", ErrMsg[E_UNDEF_FUNC], name);
  1764.         return E_UNDEF_FUNC;
  1765.      }
  1766.      /* Debugging stuff */
  1767.      if (DebugFlag & DB_PRTEXPR) {
  1768. !       fprintf(ErrFp, "%s %s(", ErrMsg[E_ENTER_FUN], f->name);
  1769.         for (i=0; i<nargs; i++) {
  1770.            PrintValue(&ValStack[ValStackPtr - nargs + i], ErrFp);
  1771.            if (i<nargs-1) fprintf(ErrFp, ", ");
  1772. ***************
  1773. *** 280,286 ****
  1774.      /* Detect illegal recursive call */
  1775.      if (f->IsActive) {
  1776.         if (DebugFlag &DB_PRTEXPR) {
  1777. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1778.            fprintf(ErrFp, "%s\n", ErrMsg[E_RECURSIVE]);
  1779.         }
  1780.         return E_RECURSIVE;
  1781. --- 280,286 ----
  1782.      /* Detect illegal recursive call */
  1783.      if (f->IsActive) {
  1784.         if (DebugFlag &DB_PRTEXPR) {
  1785. !          fprintf(ErrFp, "%s %s() => ", ErrMsg[E_LEAVE_FUN], name);
  1786.            fprintf(ErrFp, "%s\n", ErrMsg[E_RECURSIVE]);
  1787.         }
  1788.         return E_RECURSIVE;
  1789. ***************
  1790. *** 289,295 ****
  1791.      /* Check number of args */
  1792.      if (nargs != f->nargs) {
  1793.         if (DebugFlag &DB_PRTEXPR) {
  1794. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1795.            fprintf(ErrFp, "%s\n",
  1796.           ErrMsg[(nargs < f->nargs) ? E_2FEW_ARGS : E_2MANY_ARGS]);
  1797.         }
  1798. --- 289,295 ----
  1799.      /* Check number of args */
  1800.      if (nargs != f->nargs) {
  1801.         if (DebugFlag &DB_PRTEXPR) {
  1802. !          fprintf(ErrFp, "%s %s() => ", ErrMsg[E_LEAVE_FUN], name);
  1803.            fprintf(ErrFp, "%s\n",
  1804.           ErrMsg[(nargs < f->nargs) ? E_2FEW_ARGS : E_2MANY_ARGS]);
  1805.         }
  1806. ***************
  1807. *** 299,305 ****
  1808.      h = SetUpLocalVars(f);
  1809.      if (h) {
  1810.         if (DebugFlag &DB_PRTEXPR) {
  1811. !          fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1812.            fprintf(ErrFp, "%s\n", ErrMsg[h]);
  1813.         }
  1814.         return h;
  1815. --- 299,305 ----
  1816.      h = SetUpLocalVars(f);
  1817.      if (h) {
  1818.         if (DebugFlag &DB_PRTEXPR) {
  1819. !          fprintf(ErrFp, "%s %s() => ", ErrMsg[E_LEAVE_FUN], name);
  1820.            fprintf(ErrFp, "%s\n", ErrMsg[h]);
  1821.         }
  1822.         return h;
  1823. ***************
  1824. *** 316,322 ****
  1825.      f->IsActive = 0;
  1826.      DestroyLocalVals(f);
  1827.      if (DebugFlag &DB_PRTEXPR) {
  1828. !       fprintf(ErrFp, "Leaving UserFN %s() => ", name);
  1829.         if (h) fprintf(ErrFp, "%s\n", ErrMsg[h]);
  1830.         else {
  1831.            PrintValue(&ValStack[ValStackPtr-1], ErrFp);
  1832. --- 316,322 ----
  1833.      f->IsActive = 0;
  1834.      DestroyLocalVals(f);
  1835.      if (DebugFlag &DB_PRTEXPR) {
  1836. !       fprintf(ErrFp, "%s %s() => ", ErrMsg[E_LEAVE_FUN], name);
  1837.         if (h) fprintf(ErrFp, "%s\n", ErrMsg[h]);
  1838.         else {
  1839.            PrintValue(&ValStack[ValStackPtr-1], ErrFp);
  1840. *** ../prev/utils.c    Mon Jun 28 12:37:05 1993
  1841. --- ./utils.c    Wed Aug 25 14:49:21 1993
  1842. ***************
  1843. *** 19,25 ****
  1844. --- 19,27 ----
  1845.   #include <malloc.h>
  1846.   #endif
  1847.   #include <ctype.h>
  1848. + #include "types.h"
  1849.   #include "globals.h"
  1850. + #include "protos.h"
  1851.   
  1852.   #define UPPER(c) (islower(c) ? toupper(c) : c)
  1853.   
  1854. *** ../prev/var.c    Mon Jul 19 10:58:54 1993
  1855. --- ./var.c    Thu Aug 19 16:40:40 1993
  1856. ***************
  1857. *** 29,34 ****
  1858. --- 29,38 ----
  1859.   
  1860.   /* The variable hash table */
  1861.   #define VAR_HASH_SIZE 64
  1862. + #define VARIABLE ErrMsg[E_VAR]
  1863. + #define VALUE    ErrMsg[E_VAL]
  1864. + #define UNDEF     ErrMsg[E_UNDEF]
  1865. + 
  1866.   static Var *VHashTbl[VAR_HASH_SIZE];
  1867.   
  1868.   /***************************************************************/
  1869. ***************
  1870. *** 38,55 ****
  1871.   /*                                                             */
  1872.   /***************************************************************/
  1873.   #ifdef HAVE_PROTOS
  1874. ! PUBLIC int HashVal(const char *str)
  1875.   #else
  1876. ! int HashVal(str)
  1877.   char *str;
  1878.   #endif
  1879.   {
  1880. !    register int i = 0;
  1881. !    register int j=1;
  1882. !    register int len=0;
  1883.   
  1884.      while(*str && len < VAR_NAME_LEN) {
  1885. !       i += j * UPPER(*str);
  1886.         str++;
  1887.         len++;
  1888.         j = 3-j;
  1889. --- 42,59 ----
  1890.   /*                                                             */
  1891.   /***************************************************************/
  1892.   #ifdef HAVE_PROTOS
  1893. ! PUBLIC unsigned int HashVal(const char *str)
  1894.   #else
  1895. ! unsigned int HashVal(str)
  1896.   char *str;
  1897.   #endif
  1898.   {
  1899. !    register unsigned int i=0;
  1900. !    register unsigned int j=1;
  1901. !    register unsigned int len=0;
  1902.   
  1903.      while(*str && len < VAR_NAME_LEN) {
  1904. !       i += j * (unsigned int) UPPER(*str);
  1905.         str++;
  1906.         len++;
  1907.         j = 3-j;
  1908. ***************
  1909. *** 187,193 ****
  1910.      v=FindVar(str, 0);
  1911.   
  1912.      if (!v) {
  1913. !      Eprint("Undefined variable: %s", str);
  1914.        return E_NOSUCH_VAR;
  1915.      }
  1916.      return CopyValue(val, &v->v);
  1917. --- 191,197 ----
  1918.      v=FindVar(str, 0);
  1919.   
  1920.      if (!v) {
  1921. !      Eprint("%s: %s", ErrMsg[E_NOSUCH_VAR], str);
  1922.        return E_NOSUCH_VAR;
  1923.      }
  1924.      return CopyValue(val, &v->v);
  1925. ***************
  1926. *** 273,279 ****
  1927.         DumpVarTable();
  1928.         return OK;
  1929.      }
  1930. !    fprintf(ErrFp, "%*s  %s\n\n", VAR_NAME_LEN, "Variable", "Value");
  1931.      while(1) {
  1932.         if (*TokBuffer == '$') {
  1933.            DumpSysVarByName(TokBuffer+1);
  1934. --- 277,283 ----
  1935.         DumpVarTable();
  1936.         return OK;
  1937.      }
  1938. !    fprintf(ErrFp, "%*s  %s\n\n", VAR_NAME_LEN, VARIABLE, VALUE);
  1939.      while(1) {
  1940.         if (*TokBuffer == '$') {
  1941.            DumpSysVarByName(TokBuffer+1);
  1942. ***************
  1943. *** 280,286 ****
  1944.         } else {
  1945.            v = FindVar(TokBuffer, 0);
  1946.            TokBuffer[VAR_NAME_LEN] = 0;
  1947. !          if (!v) fprintf(ErrFp, "%*s  *UNDEFINED*\n", VAR_NAME_LEN, TokBuffer);
  1948.            else {
  1949.               fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, v->name);
  1950.               PrintValue(&(v->v), ErrFp);
  1951. --- 284,290 ----
  1952.         } else {
  1953.            v = FindVar(TokBuffer, 0);
  1954.            TokBuffer[VAR_NAME_LEN] = 0;
  1955. !          if (!v) fprintf(ErrFp, "%*s  %s\n", VAR_NAME_LEN, TokBuffer, UNDEF);
  1956.            else {
  1957.               fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, v->name);
  1958.               PrintValue(&(v->v), ErrFp);
  1959. ***************
  1960. *** 309,315 ****
  1961.      register Var *v;
  1962.      register int i;
  1963.   
  1964. !    fprintf(ErrFp, "%*s  %s\n\n", VAR_NAME_LEN, "Variable", "Value");
  1965.   
  1966.      for (i=0; i<VAR_HASH_SIZE; i++) {
  1967.         v = VHashTbl[i];
  1968. --- 313,319 ----
  1969.      register Var *v;
  1970.      register int i;
  1971.   
  1972. !    fprintf(ErrFp, "%*s  %s\n\n", VAR_NAME_LEN, VARIABLE, VALUE);
  1973.   
  1974.      for (i=0; i<VAR_HASH_SIZE; i++) {
  1975.         v = VHashTbl[i];
  1976. ***************
  1977. *** 442,448 ****
  1978. --- 446,454 ----
  1979.      {   "DontFork",      0,        &DontFork,    0,    0   },
  1980.      {   "DontQueue",      0,        &DontQueue,    0,    0   },
  1981.      {   "DontTrigAts",      0,        &DontIssueAts,    0,    0   },
  1982. +    {   "FirstIndent",      1,        &FirstIndent,    0,    132 },
  1983.      {   "FoldYear",      1,        &FoldYear,    0,    1   },
  1984. +    {   "FormWidth",      1,        &FormWidth,    20,    132 },
  1985.      {   "HushMode",      0,        &Hush,        0,    0   },
  1986.      {   "IgnoreOnce",      0,        &IgnoreOnce,    0,    0   },
  1987.      {   "InfDelta",      0,        &InfiniteDelta,    0,    0   },
  1988. ***************
  1989. *** 459,465 ****
  1990.      {   "NumTrig",      0,        &NumTriggered,    0,    0   },
  1991.      {   "PSCal",          0,        &PsCal,        0,    0   },
  1992.      {   "RunOff",      0,        &RunDisabled,    0,    0   },
  1993. !    {   "SimpleCal",      0,        &DoSimpleCalendar,    0,  0 }
  1994.   };
  1995.   
  1996.   #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  1997. --- 465,472 ----
  1998.      {   "NumTrig",      0,        &NumTriggered,    0,    0   },
  1999.      {   "PSCal",          0,        &PsCal,        0,    0   },
  2000.      {   "RunOff",      0,        &RunDisabled,    0,    0   },
  2001. !    {   "SimpleCal",      0,        &DoSimpleCalendar,    0,  0 },
  2002. !    {   "SubsIndent",      1,        &SubsIndent,    0,    132}
  2003.   };
  2004.   
  2005.   #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  2006. ***************
  2007. *** 483,489 ****
  2008.      SysVar *v = FindSysVar(name);
  2009.      if (!v) return E_NOSUCH_VAR;
  2010.      if (!v->modifiable) {
  2011. !       Eprint("Cannot modify system variable '$%s'", name);
  2012.         return E_CANT_MODIFY;
  2013.      }
  2014.      if (v->max != NO_CONSTRAINT && value > v->max) return E_2HIGH;
  2015. --- 490,496 ----
  2016.      SysVar *v = FindSysVar(name);
  2017.      if (!v) return E_NOSUCH_VAR;
  2018.      if (!v->modifiable) {
  2019. !       Eprint("%s: '$%s'", ErrMsg[E_CANT_MODIFY], name);
  2020.         return E_CANT_MODIFY;
  2021.      }
  2022.      if (v->max != NO_CONSTRAINT && value > v->max) return E_2HIGH;
  2023. ***************
  2024. *** 598,610 ****
  2025.      if (v) {
  2026.         if (!v->modifiable) fprintf(ErrFp, "%d\n", *v->value);
  2027.         else {
  2028. !          fprintf(ErrFp, "%-10d  Allowed range: ", *v->value);
  2029.        if (v->min == NO_CONSTRAINT) fprintf(ErrFp, "(-Inf, ");
  2030.        else                         fprintf(ErrFp, "[%d, ", v->min);
  2031.        if (v->max == NO_CONSTRAINT) fprintf(ErrFp, "Inf)\n");
  2032.        else                         fprintf(ErrFp, "%d]\n", v->max);
  2033.         }
  2034. !    } else   fprintf(ErrFp, "*UNDEFINED*\n");
  2035.   
  2036.      return;
  2037.   }
  2038. --- 605,617 ----
  2039.      if (v) {
  2040.         if (!v->modifiable) fprintf(ErrFp, "%d\n", *v->value);
  2041.         else {
  2042. !          fprintf(ErrFp, "%-10d  ", *v->value);
  2043.        if (v->min == NO_CONSTRAINT) fprintf(ErrFp, "(-Inf, ");
  2044.        else                         fprintf(ErrFp, "[%d, ", v->min);
  2045.        if (v->max == NO_CONSTRAINT) fprintf(ErrFp, "Inf)\n");
  2046.        else                         fprintf(ErrFp, "%d]\n", v->max);
  2047.         }
  2048. !    } else   fprintf(ErrFp, "%s\n", UNDEF);
  2049.   
  2050.      return;
  2051.   }
  2052.