home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume39 / remind / patch09b / patch.09.C
Encoding:
Text File  |  1993-10-04  |  51.0 KB  |  1,734 lines
  1. *** ../prev/french.h    Thu Aug 26 10:49:49 1993
  2. --- ./french.h    Tue Sep 28 12:35:38 1993
  3. ***************
  4. *** 361,367 ****
  5.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  6.   #endif
  7.   #ifdef ISOLATIN1
  8. !    fprintf(ErrFp, "\nUtilisation: remind [options] fichier [date]\n");
  9.      fprintf(ErrFp, "Options:\n");
  10.      fprintf(ErrFp, " -n     Afficher la prochaine occurence des rappels en format simple\n");
  11.      fprintf(ErrFp, " -r     D\351sactiver les instructions RUN\n");
  12. --- 361,367 ----
  13.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  14.   #endif
  15.   #ifdef ISOLATIN1
  16. !    fprintf(ErrFp, "\nUtilisation: remind [options] fichier [date] [*r\351p\351tition]\n");
  17.      fprintf(ErrFp, "Options:\n");
  18.      fprintf(ErrFp, " -n     Afficher la prochaine occurence des rappels en format simple\n");
  19.      fprintf(ErrFp, " -r     D\351sactiver les instructions RUN\n");
  20. ***************
  21. *** 387,394 ****
  22.      fprintf(ErrFp, " -kcmd  Ex\351cuter 'cmd' pour les rappels de type MSG\n");
  23.      fprintf(ErrFp, " -g[d[d]] Trier les rappels par date et heure avant lancement\n");
  24.      fprintf(ErrFp, " -ivar=val Initialiser var \340 val et conserver var\n\n");
  25.   #else /* ISOLATIN1 */
  26. !    fprintf(ErrFp, "\nUtilisation: remind [options] fichier [date]\n");
  27.      fprintf(ErrFp, "Options:\n");
  28.      fprintf(ErrFp, " -n     Afficher la prochaine occurence des rappels en format simple\n");
  29.      fprintf(ErrFp, " -r     Desactiver les instructions RUN\n");
  30. --- 387,395 ----
  31.      fprintf(ErrFp, " -kcmd  Ex\351cuter 'cmd' pour les rappels de type MSG\n");
  32.      fprintf(ErrFp, " -g[d[d]] Trier les rappels par date et heure avant lancement\n");
  33.      fprintf(ErrFp, " -ivar=val Initialiser var \340 val et conserver var\n\n");
  34. +    fprintf(ErrFp, " -m     Commencer le calendrier avec lundi plutot que dimanche");
  35.   #else /* ISOLATIN1 */
  36. !    fprintf(ErrFp, "\nUtilisation: remind [options] fichier [date] [*repetition]\n");
  37.      fprintf(ErrFp, "Options:\n");
  38.      fprintf(ErrFp, " -n     Afficher la prochaine occurence des rappels en format simple\n");
  39.      fprintf(ErrFp, " -r     Desactiver les instructions RUN\n");
  40. ***************
  41. *** 414,419 ****
  42. --- 415,421 ----
  43.      fprintf(ErrFp, " -kcmd  Executer 'cmd' pour les rappels de type MSG\n");
  44.      fprintf(ErrFp, " -g[d[d]] Trier les rappels par date et heure avant lancement\n");
  45.      fprintf(ErrFp, " -ivar=val Initialiser var a val et conserver var\n\n");
  46. +    fprintf(ErrFp, " -m     Commencer le calendrier avec lundi plutot que dimanche");
  47.   #endif /* ISOLATIN1 */
  48.      exit(1);
  49.   }
  50. *** ../prev/funcs.c    Thu Aug 19 16:58:12 1993
  51. --- ./funcs.c    Tue Sep 28 16:45:33 1993
  52. ***************
  53. *** 81,86 ****
  54. --- 81,89 ----
  55.   PRIVATE    int    FMin        ARGS ((void));
  56.   PRIVATE    int    FMinute        ARGS ((void));
  57.   PRIVATE    int    FMinsfromutc    ARGS ((void));
  58. + PRIVATE    int    FMoondate    ARGS ((void));
  59. + PRIVATE    int    FMoonphase    ARGS ((void));
  60. + PRIVATE    int    FMoontime    ARGS ((void));
  61.   PRIVATE    int    FMon        ARGS ((void));
  62.   PRIVATE    int    FMonnum        ARGS ((void));
  63.   PRIVATE    int    FOrd        ARGS ((void));
  64. ***************
  65. *** 87,92 ****
  66. --- 90,97 ----
  67.   PRIVATE    int    FOstype     ARGS ((void));
  68.   PRIVATE    int    FPlural        ARGS ((void));
  69.   PRIVATE    int    FSgn        ARGS ((void));
  70. + PRIVATE int    FPsmoon        ARGS ((void));
  71. + PRIVATE int    FPsshade    ARGS ((void));
  72.   PRIVATE    int    FShell        ARGS ((void));
  73.   PRIVATE    int    FStrlen        ARGS ((void));
  74.   PRIVATE    int    FSubstr        ARGS ((void));
  75. ***************
  76. *** 196,205 ****
  77. --- 201,215 ----
  78.       {   "minute",    1,    1,    FMinute },
  79.       {   "mon",        1,    1,    FMon    },
  80.       {   "monnum",    1,    1,    FMonnum },
  81. +     {    "moondate",    1,    3,    FMoondate },
  82. +     {    "moonphase",    0,    2,    FMoonphase },
  83. +     {    "moontime",    1,    3,    FMoontime },
  84.       {   "now",        0,    0,    FNow    },
  85.       {   "ord",        1,    1,    FOrd    },
  86.       {   "ostype",       0,      0,      FOstype },
  87.       {   "plural",    1,    3,    FPlural },
  88. +     {    "psmoon",    1,    2,    FPsmoon},
  89. +     {    "psshade",    1,    1,    FPsshade},
  90.       {   "realtoday",    0,      0,      FRealtoday },
  91.       {   "sgn",        1,    1,    FSgn    },
  92.       {   "shell",    1,    1,    FShell    },
  93. ***************
  94. *** 2044,2046 ****
  95. --- 2054,2250 ----
  96.   
  97.      return OK;
  98.   }
  99. + 
  100. + /***************************************************************/
  101. + /*                                                             */
  102. + /*  FPsshade                                                   */
  103. + /*                                                             */
  104. + /*  Canned PostScript code for shading a calendar square       */
  105. + /*                                                             */
  106. + /***************************************************************/
  107. + #ifdef HAVE_PROTOS
  108. + PRIVATE int FPsshade(void)
  109. + #else
  110. + static int FPsshade()
  111. + #endif
  112. + {
  113. +    char psbuff[256];
  114. +    char *s = psbuff;
  115. +    if (ARG(0).type != INT_TYPE) return E_BAD_TYPE;
  116. +    if (ARG(0).v.val < 0) return E_2LOW;
  117. +    if (ARG(0).v.val > 100) return E_2HIGH;
  118. + 
  119. +    sprintf(s, "/_A LineWidth 2 div def ");
  120. +    s += strlen(s);
  121. +    sprintf(s, "_A _A moveto ");
  122. +    s += strlen(s);
  123. +    sprintf(s, "BoxWidth _A sub _A lineto BoxWidth _A sub BoxHeight _A sub lineto ");
  124. +    s += strlen(s);
  125. +    sprintf(s, "_A BoxHeight _A sub lineto closepath %d 100 div setgray fill 0.0 setgray", ARG(0).v.val);
  126. +    return RetStrVal(psbuff);
  127. + }
  128. + 
  129. + /***************************************************************/
  130. + /*                                                             */
  131. + /*  FPsmoon                                                    */
  132. + /*                                                             */
  133. + /*  Canned PostScript code for generating moon phases          */
  134. + /*                                                             */
  135. + /***************************************************************/
  136. + #ifdef HAVE_PROTOS
  137. + PRIVATE int FPsmoon(void)
  138. + #else
  139. + static int FPsmoon()
  140. + #endif
  141. + {
  142. +    char psbuff[256];
  143. +    char sizebuf[30];
  144. +    char *s = psbuff;
  145. +    if (ARG(0).type != INT_TYPE) return E_BAD_TYPE;
  146. +    if (ARG(0).v.val < 0) return E_2LOW;
  147. +    if (ARG(0).v.val > 3) return E_2HIGH;
  148. +    if (Nargs > 1) {
  149. +       if (ARG(1).type != INT_TYPE) return E_BAD_TYPE;
  150. +       if (ARG(1).v.val <= 0) return E_2LOW;
  151. +       sprintf(sizebuf, "%d", ARG(1).v.val);
  152. +    } else {
  153. +       strcpy(sizebuf, "DaySize 2 div");
  154. +    }
  155. + 
  156. +    sprintf(s, "gsave 0 setgray newpath Border %s add BoxHeight Border sub %s sub",
  157. +            sizebuf, sizebuf);
  158. +    s += strlen(s);
  159. +    sprintf(s, " %s 0 360 arc closepath", sizebuf);
  160. +    s += strlen(s);
  161. +    switch(ARG(0).v.val) {
  162. +       case 0:
  163. +      sprintf(s, " fill grestore");
  164. +      break;
  165. + 
  166. +       case 2:
  167. +      sprintf(s, " stroke grestore");
  168. +      break;
  169. + 
  170. +       case 1:
  171. +          sprintf(s, " stroke");
  172. +      s += strlen(s);
  173. +          sprintf(s, " newpath Border %s add BoxHeight Border sub %s sub",
  174. +                  sizebuf, sizebuf);
  175. +      s += strlen(s);
  176. +      sprintf(s, " %s 90 270 arc closepath fill grestore", sizebuf);
  177. +      break;
  178. + 
  179. +       default:
  180. +          sprintf(s, " stroke");
  181. +      s += strlen(s);
  182. +          sprintf(s, " newpath Border %s add BoxHeight Border sub %s sub",
  183. +                  sizebuf, sizebuf);
  184. +      s += strlen(s);
  185. +      sprintf(s, " %s 270 90 arc closepath fill grestore", sizebuf);
  186. +      break;
  187. +    }
  188. +    return RetStrVal(psbuff);
  189. + }
  190. + 
  191. + /***************************************************************/
  192. + /*                                                             */
  193. + /*  FMoonphase                                                 */
  194. + /*                                                             */
  195. + /*  Phase of moon for specified date/time.                     */
  196. + /*                                                             */
  197. + /***************************************************************/
  198. + #ifdef HAVE_PROTOS
  199. + PRIVATE int FMoonphase(void)
  200. + #else
  201. + static int FMoonphase()
  202. + #endif
  203. + {
  204. +    int date, time;
  205. + 
  206. +    switch(Nargs) {
  207. +       case 0:
  208. +          date = JulianToday;
  209. +      time = 0;
  210. +      break;
  211. +       case 1:
  212. +          if (ARG(0).type != DATE_TYPE) return E_BAD_TYPE;
  213. +      date = ARG(0).v.val;
  214. +      time = 0;
  215. +      break;
  216. +       case 2:
  217. +          if (ARG(0).type != DATE_TYPE && ARG(1).type != TIM_TYPE) return E_BAD_TYPE;
  218. +      date = ARG(0).v.val;
  219. +      time = ARG(1).v.val;
  220. +      break;
  221. + 
  222. +       default: return E_SWERR;
  223. +    }
  224. + 
  225. +    RetVal.type = INT_TYPE;
  226. +    RetVal.v.val = MoonPhase(date, time);
  227. +    return OK;
  228. + }
  229. + 
  230. + /***************************************************************/
  231. + /*                                                             */
  232. + /*  FMoondate                                                  */
  233. + /*                                                             */
  234. + /*  Hunt for next occurrence of specified moon phase           */
  235. + /*                                                             */
  236. + /***************************************************************/
  237. + PRIVATE int MoonStuff ARGS ((int want_time));
  238. + #ifdef HAVE_PROTOS
  239. + PRIVATE int FMoondate(void)
  240. + #else
  241. + static int FMoondate()
  242. + #endif
  243. + {
  244. +    return MoonStuff(0);
  245. + }
  246. + 
  247. + #ifdef HAVE_PROTOS
  248. + PRIVATE int FMoontime(void)
  249. + #else
  250. + static int FMoontime()
  251. + #endif
  252. + {
  253. +    return MoonStuff(1);
  254. + }
  255. + 
  256. + #ifdef HAVE_PROTOS
  257. + PRIVATE int MoonStuff(int want_time)
  258. + #else
  259. + static int MoonStuff(want_time)
  260. + int want_time;
  261. + #endif
  262. + {
  263. +    int startdate, starttim;
  264. +    int d, t;
  265. + 
  266. +    startdate = JulianToday;
  267. +    starttim = 0;
  268. + 
  269. +    if (ARG(0).type != INT_TYPE) return E_BAD_TYPE;
  270. +    if (ARG(0).v.val < 0) return E_2LOW;
  271. +    if (ARG(0).v.val > 3) return E_2HIGH;
  272. +    if (Nargs >= 2) {
  273. +       if (ARG(1).type != DATE_TYPE) return E_BAD_TYPE;
  274. +       startdate = ARG(1).v.val;
  275. +       if (Nargs >= 3) {
  276. +          if (ARG(2).type != TIM_TYPE) return E_BAD_TYPE;
  277. +      starttim = ARG(2).v.val;
  278. +       }
  279. +    }
  280. + 
  281. +    HuntPhase(startdate, starttim, ARG(0).v.val, &d, &t);
  282. +    if (want_time) {
  283. +       RetVal.type = TIM_TYPE;
  284. +       RetVal.v.val = t;
  285. +    } else {
  286. +       RetVal.type = DATE_TYPE;
  287. +       RetVal.v.val = d;
  288. +    }
  289. +    return OK;
  290. + }
  291. + 
  292. + 
  293. *** ../prev/globals.h    Thu Aug 19 15:46:05 1993
  294. --- ./globals.h    Tue Sep 28 10:56:14 1993
  295. ***************
  296. *** 39,44 ****
  297. --- 39,46 ----
  298.   EXTERN  INIT(    int     DebugFlag, 0);
  299.   EXTERN  INIT(   int    DoCalendar, 0);
  300.   EXTERN  INIT(   int     DoSimpleCalendar, 0);
  301. + EXTERN    INIT(    int    MondayFirst, 0);
  302. + EXTERN    INIT(    int    Iterations, 1);
  303.   EXTERN  INIT(   int     PsCal, 0);
  304.   EXTERN  INIT(   int     CalWidth, 80);
  305.   EXTERN  INIT(   int     CalWeeks, 0);
  306. ***************
  307. *** 86,91 ****
  308. --- 88,94 ----
  309.   EXTERN  INIT(    int      LongDeg, LON_DEG);
  310.   EXTERN  INIT(    int      LongMin, LON_MIN);
  311.   EXTERN  INIT(    int      LongSec, LON_SEC);
  312. + EXTERN    INIT(    char      *Location, LOCATION);
  313.   
  314.   /* UTC calculation stuff */
  315.   EXTERN  INIT(    int      MinsFromUTC, 0);
  316. ***************
  317. *** 96,101 ****
  318. --- 99,106 ----
  319.   EXTERN  INIT(   int      FormWidth, 72);
  320.   EXTERN    INIT(    int      FirstIndent, 0);
  321.   EXTERN    INIT(    int      SubsIndent, 0);
  322. + EXTERN    INIT(    char      *EndSent, ".?!");
  323. + EXTERN    INIT(    char      *EndSentIg, "\"')]}>");
  324.   
  325.   /* We need the language stuff here... */
  326.   
  327. *** ../prev/init.c    Fri Aug 20 11:46:29 1993
  328. --- ./init.c    Tue Sep 28 11:03:50 1993
  329. ***************
  330. *** 66,71 ****
  331. --- 66,72 ----
  332.    *             by non-root, changes environment but not effective uid.
  333.    *  -kcmd    = Run 'cmd' for MSG-type reminders instead of printing to stdout
  334.    *  -iVAR=EXPR = Initialize and preserve VAR.
  335. +  *  -m       = Start calendar with Monday instead of Sunday.
  336.    *  A minus sign alone indicates to take input from stdin
  337.    *
  338.    **************************************************************/
  339. ***************
  340. *** 104,115 ****
  341.   {
  342.      char *arg;
  343.      int i;
  344. !    int y, m, d;
  345.      Token tok;
  346.   
  347.      y = NO_YR;
  348.      m = NO_MON;
  349.      d = NO_DAY;
  350.   
  351.      RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
  352.      if (RealToday < 0) {
  353. --- 105,117 ----
  354.   {
  355.      char *arg;
  356.      int i;
  357. !    int y, m, d, rep;
  358.      Token tok;
  359.   
  360.      y = NO_YR;
  361.      m = NO_MON;
  362.      d = NO_DAY;
  363. +    rep = NO_REP;
  364.   
  365.      RealToday = SystemDate(&CurYear, &CurMon, &CurDay);
  366.      if (RealToday < 0) {
  367. ***************
  368. *** 162,167 ****
  369. --- 164,174 ----
  370.              RunDisabled = 1;
  371.              break;
  372.   
  373. +         case 'm':
  374. +         case 'M':
  375. +            MondayFirst = 1;
  376. +            break;
  377. + 
  378.           case 'o':
  379.           case 'O':
  380.              IgnoreOnce = 1;
  381. ***************
  382. *** 358,369 ****
  383.              else y = tok.val;
  384.              break;
  385.   
  386.           default: Usage();
  387.            }
  388.         }
  389.   
  390.   /* Must supply date in the form:  day, mon, yr OR mon, yr */
  391. !       if (m == NO_MON || y == NO_YR) Usage();
  392.         if (d == NO_DAY) d=1;
  393.         if (d > DaysInMonth(m, y)) {
  394.            fprintf(ErrFp, BadDate);
  395. --- 365,394 ----
  396.              else y = tok.val;
  397.              break;
  398.   
  399. +         case T_Rep:
  400. +            rep = tok.val;
  401. +            break;
  402. + 
  403.           default: Usage();
  404.            }
  405.         }
  406.   
  407. +       if (rep > 0) {
  408. +          Iterations = rep;
  409. +      DontQueue = 1;
  410. +      Daemon = 0;
  411. +       }
  412. + 
  413.   /* Must supply date in the form:  day, mon, yr OR mon, yr */
  414. !       if (m == NO_MON || y == NO_YR) {
  415. !          if (rep == NO_REP) Usage();
  416. !      else if (m != NO_MON || y != NO_YR) Usage();
  417. !      else {
  418. !         m = CurMon;
  419. !         y = CurYear;
  420. !         if (d == NO_DAY) d = CurDay;
  421. !          }
  422. !       }
  423.         if (d == NO_DAY) d=1;
  424.         if (d > DaysInMonth(m, y)) {
  425.            fprintf(ErrFp, BadDate);
  426. ***************
  427. *** 404,410 ****
  428.   #ifdef BETA
  429.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  430.   #endif
  431. !    fprintf(ErrFp, "Usage: remind [options] filename [date]\n");
  432.      fprintf(ErrFp, "Options:\n");
  433.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  434.      fprintf(ErrFp, " -r     Disable RUN directives\n");
  435. --- 429,435 ----
  436.   #ifdef BETA
  437.      fprintf(ErrFp, ">>>> BETA VERSION <<<<\n");
  438.   #endif
  439. !    fprintf(ErrFp, "Usage: remind [options] filename [date] [*rep]\n");
  440.      fprintf(ErrFp, "Options:\n");
  441.      fprintf(ErrFp, " -n     Output next occurrence of reminders in simple format\n");
  442.      fprintf(ErrFp, " -r     Disable RUN directives\n");
  443. ***************
  444. *** 430,435 ****
  445. --- 455,461 ----
  446.      fprintf(ErrFp, " -kcmd  Run 'cmd' for MSG-type reminders\n");
  447.      fprintf(ErrFp, " -g[d[d]] Sort reminders by date and time before issuing\n");
  448.      fprintf(ErrFp, " -ivar=val Initialize var to val and preserve var\n");
  449. +    fprintf(ErrFp, " -m     Start calendar with Monday rather than Sunday\n");
  450.      exit(1);
  451.   }
  452.   #endif /* L_USAGE_OVERRIDE */
  453. ***************
  454. *** 560,570 ****
  455.      }
  456.   
  457.      if (*varname == '$') {
  458. !       if (val.type != INT_TYPE) {
  459. !          fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[E_BAD_TYPE]);
  460. !      return;
  461. !       }
  462. !       r=SetSysVar(varname+1, val.v.val);
  463.         if (r) fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  464.         return;
  465.      }
  466. --- 586,592 ----
  467.      }
  468.   
  469.      if (*varname == '$') {
  470. !       r=SetSysVar(varname+1, &val);
  471.         if (r) fprintf(ErrFp, ErrMsg[M_I_OPTION], ErrMsg[r]);
  472.         return;
  473.      }
  474. *** ../prev/lnk.msc    Mon Jun 28 12:30:12 1993
  475. --- ./lnk.msc    Mon Sep 20 14:59:42 1993
  476. ***************
  477. *** 8,13 ****
  478. --- 8,14 ----
  479.   hbcal.obj +
  480.   init.obj +
  481.   main.obj +
  482. + moon.obj +
  483.   omit.obj +
  484.   sort.obj +
  485.   token.obj +
  486. *** ../prev/lnk.tc    Mon Jun 28 12:30:13 1993
  487. --- ./lnk.tc    Mon Sep 20 14:59:34 1993
  488. ***************
  489. *** 9,14 ****
  490. --- 9,15 ----
  491.   hbcal.obj
  492.   init.obj
  493.   main.obj
  494. + moon.obj
  495.   omit.obj
  496.   sort.obj
  497.   token.obj
  498. *** ../prev/main.c    Wed Aug 25 13:06:26 1993
  499. --- ./main.c    Tue Sep 28 16:50:30 1993
  500. ***************
  501. *** 80,86 ****
  502.   
  503.   /* The very first thing to do is to set up ErrFp to be stderr */
  504.      ErrFp = stderr;
  505. !    
  506.   /* Set up global vars */
  507.      ArgC = argc;
  508.      ArgV = argv;
  509. --- 80,86 ----
  510.   
  511.   /* The very first thing to do is to set up ErrFp to be stderr */
  512.      ErrFp = stderr;
  513. ! 
  514.   /* Set up global vars */
  515.      ArgC = argc;
  516.      ArgV = argv;
  517. ***************
  518. *** 92,147 ****
  519.      }
  520.   
  521.      /* Not doing a calendar.  Do the regular remind loop */
  522. !    DoReminders();
  523.   
  524. !    if (DebugFlag & DB_DUMP_VARS) {
  525. !       DumpVarTable();
  526. !       DumpSysVarByName(NULL);
  527. !    }
  528.   
  529. !    if (!Hush) {
  530. !       if (DestroyOmitContexts())
  531. !     Eprint("%s", E_PUSH_NOPOP);
  532.   #ifdef HAVE_QUEUED
  533. !       if (!Daemon && !NextMode && !NumTriggered && !NumQueued) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  534. !    else
  535. !       if (!Daemon && !NextMode && !NumTriggered) printf(ErrMsg[M_QUEUED],
  536. !          NumQueued);
  537.   #else
  538. !       if (!NextMode && !NumTriggered) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  539.   #endif
  540. !    }
  541.   
  542.      /* If it's MS-DOS or OS2, reset the file access date */
  543.   #if defined(__MSDOS__) || defined(OS2)
  544. !    if (!UseStdin && (RealToday == JulianToday))
  545. !       SetAccessDate(InitialFile, RealToday);
  546.   #endif
  547.   
  548.      /* If there are sorted reminders, handle them */
  549. !    if (SortByDate) IssueSortedReminders();
  550.   
  551.      /* If there are any background reminders queued up, handle them */
  552.   #ifdef HAVE_QUEUED
  553. !    if (NumQueued || Daemon) {
  554.   
  555. !       if (DontFork) {
  556. !      HandleQueuedReminders();
  557. !      return 0;
  558. !       } else {
  559. !      pid = fork();
  560. !      if (pid == 0) {
  561. !         HandleQueuedReminders();
  562. !         return 0;
  563. !      }
  564. !      if (pid == -1) {
  565. !         fprintf(ErrFp, "%s", ErrMsg[E_CANTFORK]);
  566. !         return 1;
  567. !      }
  568.         }
  569. -    }
  570.   #endif
  571. ! 
  572.      return 0;
  573.   }
  574.   
  575. --- 92,157 ----
  576.      }
  577.   
  578.      /* Not doing a calendar.  Do the regular remind loop */
  579. !    ShouldCache = (Iterations > 1);
  580.   
  581. !    while (Iterations--) {
  582. !       DoReminders();
  583.   
  584. !       if (DebugFlag & DB_DUMP_VARS) {
  585. !          DumpVarTable();
  586. !          DumpSysVarByName(NULL);
  587. !       }
  588. ! 
  589. !       if (!Hush) {
  590. !          if (DestroyOmitContexts())
  591. !          Eprint("%s", E_PUSH_NOPOP);
  592.   #ifdef HAVE_QUEUED
  593. !          if (!Daemon && !NextMode && !NumTriggered && !NumQueued) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  594. !       else
  595. !          if (!Daemon && !NextMode && !NumTriggered) printf(ErrMsg[M_QUEUED],
  596. !             NumQueued);
  597.   #else
  598. !          if (!NextMode && !NumTriggered) printf("%s\n", ErrMsg[E_NOREMINDERS]);
  599.   #endif
  600. !       }
  601.   
  602.      /* If it's MS-DOS or OS2, reset the file access date */
  603.   #if defined(__MSDOS__) || defined(OS2)
  604. !       if (!UseStdin && (RealToday == JulianToday))
  605. !          SetAccessDate(InitialFile, RealToday);
  606.   #endif
  607.   
  608.      /* If there are sorted reminders, handle them */
  609. !       if (SortByDate) IssueSortedReminders();
  610.   
  611.      /* If there are any background reminders queued up, handle them */
  612.   #ifdef HAVE_QUEUED
  613. !       if (NumQueued || Daemon) {
  614.   
  615. !          if (DontFork) {
  616. !            HandleQueuedReminders();
  617. !           return 0;
  618. !          } else {
  619. !         pid = fork();
  620. !         if (pid == 0) {
  621. !            HandleQueuedReminders();
  622. !            return 0;
  623. !         }
  624. !         if (pid == -1) {
  625. !            fprintf(ErrFp, "%s", ErrMsg[E_CANTFORK]);
  626. !            return 1;
  627. !         }
  628. !          }
  629.         }
  630.   #endif
  631. !       if (Iterations) {
  632. !          ClearGlobalOmits();
  633. !          DestroyOmitContexts();
  634. !          DestroyVars(0);
  635. !          NumTriggered = 0;
  636. !      JulianToday++;
  637. !       }
  638. !    }
  639.      return 0;
  640.   }
  641.   
  642. ***************
  643. *** 213,219 ****
  644.           case T_Else:    r=DoElse(&p);    break;
  645.           case T_EndIf:   r=DoEndif(&p);   break;
  646.           case T_Include: r=DoInclude(&p); break;
  647. !         case T_Exit:    exit(99);        break;
  648.           case T_Set:     r=DoSet(&p);     break;
  649.           case T_Fset:    r=DoFset(&p);    break;
  650.           case T_UnSet:   r=DoUnset(&p);   break;
  651. --- 223,230 ----
  652.           case T_Else:    r=DoElse(&p);    break;
  653.           case T_EndIf:   r=DoEndif(&p);   break;
  654.           case T_Include: r=DoInclude(&p); break;
  655. !         case T_Exit:    DoExit(&p);      break;
  656. !         case T_Flush:   r=DoFlush(&p);   break;
  657.           case T_Set:     r=DoSet(&p);     break;
  658.           case T_Fset:    r=DoFset(&p);    break;
  659.           case T_UnSet:   r=DoUnset(&p);   break;
  660. ***************
  661. *** 239,246 ****
  662.                   r=DoRem(&p);
  663.                   break;
  664.                    }
  665. -                  
  666.   
  667.        /* If we don't recognize the command, do a REM by default */
  668.        /* Note:  Since the parser hasn't been used yet, we don't */
  669.        /* need to destroy it here. */
  670. --- 250,257 ----
  671.                   r=DoRem(&p);
  672.                   break;
  673.                    }
  674.   
  675. + 
  676.        /* If we don't recognize the command, do a REM by default */
  677.        /* Note:  Since the parser hasn't been used yet, we don't */
  678.        /* need to destroy it here. */
  679. ***************
  680. *** 306,318 ****
  681.      int y400 = (y2 / 400) - (y1 / 400); /* ... but do count multiples of 400 */
  682.   
  683.      int try_jul= 365 * (try_yr-BASE) + y4 - y100 + y400;
  684. !    
  685.      while (try_jul > jul) {
  686.         try_yr--;
  687.         try_jul -= DaysInYear(try_yr);
  688.      }
  689.      jul -= try_jul;
  690. !    
  691.      t = DaysInMonth(try_mon, try_yr);
  692.      while (jul >= t) {
  693.         jul -= t;
  694. --- 317,329 ----
  695.      int y400 = (y2 / 400) - (y1 / 400); /* ... but do count multiples of 400 */
  696.   
  697.      int try_jul= 365 * (try_yr-BASE) + y4 - y100 + y400;
  698. ! 
  699.      while (try_jul > jul) {
  700.         try_yr--;
  701.         try_jul -= DaysInYear(try_yr);
  702.      }
  703.      jul -= try_jul;
  704. ! 
  705.      t = DaysInMonth(try_mon, try_yr);
  706.      while (jul >= t) {
  707.         jul -= t;
  708. ***************
  709. *** 436,442 ****
  710.   {
  711.      int c, err;
  712.      int len = 0;
  713. !    
  714.      *out = 0;
  715.   
  716.      c = ParseChar(p, &err, 0);
  717. --- 447,453 ----
  718.   {
  719.      int c, err;
  720.      int len = 0;
  721. ! 
  722.      *out = 0;
  723.   
  724.      c = ParseChar(p, &err, 0);
  725. ***************
  726. *** 480,486 ****
  727.   {
  728.      int c, err;
  729.      int len = 0;
  730. !    
  731.      *out = 0;
  732.   
  733.      c = ParseChar(p, &err, 0);
  734. --- 491,497 ----
  735.   {
  736.      int c, err;
  737.      int len = 0;
  738. ! 
  739.      *out = 0;
  740.   
  741.      c = ParseChar(p, &err, 0);
  742. ***************
  743. *** 566,572 ****
  744.   #ifndef HAVE_STDARG
  745.      char *fmt;
  746.   #endif
  747. !    
  748.      /* Check if more than one error msg. from this line */
  749.      if (!FreshLine && !ShowAllErrors) return;
  750.   
  751. --- 577,583 ----
  752.   #ifndef HAVE_STDARG
  753.      char *fmt;
  754.   #endif
  755. ! 
  756.      /* Check if more than one error msg. from this line */
  757.      if (!FreshLine && !ShowAllErrors) return;
  758.   
  759. ***************
  760. *** 679,685 ****
  761.      strcpy(TPushBuffer, tok);
  762.      strcat(TPushBuffer, " ");  /* Separate the pushed token from the next
  763.                            token */
  764. !    
  765.   }
  766.   
  767.   /***************************************************************/
  768. --- 690,696 ----
  769.      strcpy(TPushBuffer, tok);
  770.      strcat(TPushBuffer, " ");  /* Separate the pushed token from the next
  771.                            token */
  772. ! 
  773.   }
  774.   
  775.   /***************************************************************/
  776. ***************
  777. *** 779,785 ****
  778.         if ( (r = EvaluateExpr(p, &v)) ) {
  779.            syndrome = IF_TRUE | BEFORE_ELSE;
  780.        Eprint("%s", ErrMsg[r]);
  781. !       } else 
  782.            if ( (v.type != STR_TYPE && v.v.val) ||
  783.                 (v.type == STR_TYPE && strcmp(v.v.str, "")) )
  784.               syndrome = IF_TRUE | BEFORE_ELSE;
  785. --- 790,796 ----
  786.         if ( (r = EvaluateExpr(p, &v)) ) {
  787.            syndrome = IF_TRUE | BEFORE_ELSE;
  788.        Eprint("%s", ErrMsg[r]);
  789. !       } else
  790.            if ( (v.type != STR_TYPE && v.v.val) ||
  791.                 (v.type == STR_TYPE && strcmp(v.v.str, "")) )
  792.               syndrome = IF_TRUE | BEFORE_ELSE;
  793. ***************
  794. *** 877,883 ****
  795.      return OK;
  796.   }
  797.   
  798. !        
  799.   /***************************************************************/
  800.   /*                                                             */
  801.   /*  ShouldIgnoreLine - given the current state of the IF       */
  802. --- 888,894 ----
  803.      return OK;
  804.   }
  805.   
  806. ! 
  807.   /***************************************************************/
  808.   /*                                                             */
  809.   /*  ShouldIgnoreLine - given the current state of the IF       */
  810. ***************
  811. *** 943,949 ****
  812.   {
  813.      int err;
  814.      int ch;
  815. !    int val=1;     
  816.   
  817.      while(1) {
  818.         ch = ParseChar(p, &err, 0);
  819. --- 954,960 ----
  820.   {
  821.      int err;
  822.      int ch;
  823. !    int val=1;
  824.   
  825.      while(1) {
  826.         ch = ParseChar(p, &err, 0);
  827. ***************
  828. *** 965,971 ****
  829.        case '-':
  830.           val = 0;
  831.           break;
  832. !  
  833.         case 'e':
  834.         case 'E':
  835.           if (val) DebugFlag |=  DB_ECHO_LINE;
  836. --- 976,982 ----
  837.        case '-':
  838.           val = 0;
  839.           break;
  840. ! 
  841.         case 'e':
  842.         case 'E':
  843.           if (val) DebugFlag |=  DB_ECHO_LINE;
  844. ***************
  845. *** 1072,1077 ****
  846. --- 1083,1129 ----
  847.   
  848.   /***************************************************************/
  849.   /*                                                             */
  850. + /*  DoFlush                                                    */
  851. + /*                                                             */
  852. + /*  Flush stdout and stderr                                    */
  853. + /*                                                             */
  854. + /***************************************************************/
  855. + #ifdef HAVE_PROTOS
  856. + PUBLIC int DoFlush(ParsePtr p)
  857. + #else
  858. + int DoFlush(p)
  859. + ParsePtr p;
  860. + #endif
  861. + {
  862. +    fflush(stdout);
  863. +    fflush(stderr);
  864. +    return VerifyEoln(p);
  865. + }
  866. + 
  867. + /***************************************************************/
  868. + /*                                                             */
  869. + /*  DoExit                                                     */
  870. + /*                                                             */
  871. + /*  Handle the EXIT command.                                   */
  872. + /*                                                             */
  873. + /***************************************************************/
  874. + #ifdef HAVE_PROTOS
  875. + PUBLIC void DoExit(ParsePtr p)
  876. + #else
  877. + void DoExit(p)
  878. + ParsePtr p;
  879. + #endif
  880. + {
  881. +    int r;
  882. +    Value v;
  883. + 
  884. +    r = EvaluateExpr(p, &v);
  885. +    if (r || v.type != INT_TYPE) exit(99);
  886. +    exit(v.v.val);
  887. + }
  888. + 
  889. + /***************************************************************/
  890. + /*                                                             */
  891.   /*  DoErrMsg                                                   */
  892.   /*                                                             */
  893.   /*  Issue an error message under program control.              */
  894. ***************
  895. *** 1091,1097 ****
  896.   
  897.      t.typ = MSG_TYPE;
  898.      tt.ttime = SystemTime() / 60;
  899. !    if ( (r=DoSubst(p, SubstBuffer, &t, &tt, JulianToday, NORMAL_MODE)) ) 
  900.         return r;
  901.      s = SubstBuffer;
  902.      while (isspace(*s)) s++;
  903. --- 1143,1149 ----
  904.   
  905.      t.typ = MSG_TYPE;
  906.      tt.ttime = SystemTime() / 60;
  907. !    if ( (r=DoSubst(p, SubstBuffer, &t, &tt, JulianToday, NORMAL_MODE)) )
  908.         return r;
  909.      s = SubstBuffer;
  910.      while (isspace(*s)) s++;
  911. ***************
  912. *** 1112,1118 ****
  913.      on the specified weekday.  For example, FoldArray[0][2] is a
  914.      non-leapyear beginning on Wednesday, and FoldArray[1][5] is a
  915.      leapyear beginning on Saturday.  Used to fold back dates which
  916. !    are too high for the standard Unix representation. 
  917.      NOTE:  This implies that you cannot set BASE > 2001!!!!! */
  918.   static int FoldArray[2][7] = {
  919.      {2001, 2002, 2003, 2009, 2010, 2005, 2006},
  920. --- 1164,1170 ----
  921.      on the specified weekday.  For example, FoldArray[0][2] is a
  922.      non-leapyear beginning on Wednesday, and FoldArray[1][5] is a
  923.      leapyear beginning on Saturday.  Used to fold back dates which
  924. !    are too high for the standard Unix representation.
  925.      NOTE:  This implies that you cannot set BASE > 2001!!!!! */
  926.   static int FoldArray[2][7] = {
  927.      {2001, 2002, 2003, 2009, 2010, 2005, 2006},
  928. ***************
  929. *** 1168,1174 ****
  930.                                (loc_t - utc_t) / 60 );  /* Should use difftime */
  931.   #else
  932.      if (mins) *mins = (int) ((utc_t - loc_t) / 60);
  933. ! #endif   
  934.      if (isdst) *isdst = temp->tm_isdst;
  935.      return 0;
  936.   }
  937. --- 1220,1226 ----
  938.                                (loc_t - utc_t) / 60 );  /* Should use difftime */
  939.   #else
  940.      if (mins) *mins = (int) ((utc_t - loc_t) / 60);
  941. ! #endif
  942.      if (isdst) *isdst = temp->tm_isdst;
  943.      return 0;
  944.   }
  945. ***************
  946. *** 1180,1189 ****
  947.   /*  Write a string to standard output, formatting it as a      */
  948.   /*  paragraph according to the FirstIndent, FormWidth and      */
  949.   /*  SubsIndent variables.  Spaces are gobbled.  Double-spaces  */
  950. ! /*  are inserted after periods.  As a special case, if the     */
  951. ! /*  last char in s is '\n', an extra newline is emitted.       */
  952.   /*                                                             */
  953.   /***************************************************************/
  954.   #ifdef HAVE_PROTOS
  955.   PUBLIC void FillParagraph(char *s)
  956.   #else
  957. --- 1232,1245 ----
  958.   /*  Write a string to standard output, formatting it as a      */
  959.   /*  paragraph according to the FirstIndent, FormWidth and      */
  960.   /*  SubsIndent variables.  Spaces are gobbled.  Double-spaces  */
  961. ! /*  are inserted after '.', '?' and '!'.  Newlines in the      */
  962. ! /*  source are treated as paragraph breaks.                    */
  963.   /*                                                             */
  964.   /***************************************************************/
  965. + 
  966. + /* A macro safe ONLY if used with arg with no side effects! */
  967. + #define ISBLANK(c) (isspace(c) && (c) != '\n')
  968. + 
  969.   #ifdef HAVE_PROTOS
  970.   PUBLIC void FillParagraph(char *s)
  971.   #else
  972. ***************
  973. *** 1194,1199 ****
  974. --- 1250,1256 ----
  975.   
  976.      int line = 0;
  977.      int i, j;
  978. +    int doublespace = 1;
  979.      int pendspace;
  980.      int len;
  981.      char *t;
  982. ***************
  983. *** 1203,1214 ****
  984.      if (!s || !*s) return;
  985.   
  986.      /* Skip leading spaces */
  987. !    while(isspace(*s)) s++;
  988.   
  989.      /* Start formatting */
  990.      while(1) {
  991.         if (!*s) {
  992. !          if (*(s-1) == '\n') putchar('\n');
  993.            return;
  994.         }
  995.         /* Over here, we're at the beginning of a line.  Emit the correct
  996. --- 1260,1280 ----
  997.      if (!s || !*s) return;
  998.   
  999.      /* Skip leading spaces */
  1000. !    while(ISBLANK(*s)) s++;
  1001.   
  1002.      /* Start formatting */
  1003.      while(1) {
  1004. + 
  1005. +       /* If it's a carriage return, output it and start new paragraph */
  1006. +       if (*s == '\n') {
  1007. +          putchar('\n');
  1008. +      s++;
  1009. +      line = 0;
  1010. +      while(ISBLANK(*s)) s++;
  1011. +      continue;
  1012. +       }
  1013.         if (!*s) {
  1014. !          putchar('\n');
  1015.            return;
  1016.         }
  1017.         /* Over here, we're at the beginning of a line.  Emit the correct
  1018. ***************
  1019. *** 1222,1234 ****
  1020.   
  1021.         /* Emit words until the next one won't fit */
  1022.         while(1) {
  1023. !          while(isspace(*s)) s++;
  1024.            t = s;
  1025.            while(*s && !isspace(*s)) s++;
  1026.        len = s - t;
  1027.        if (!len) {
  1028.           putchar('\n');
  1029. -             if (*(s-1) == '\n') putchar('\n');
  1030.           return;
  1031.            }
  1032.        if (!pendspace || len+pendspace <= roomleft) {
  1033. --- 1288,1300 ----
  1034.   
  1035.         /* Emit words until the next one won't fit */
  1036.         while(1) {
  1037. !          while(ISBLANK(*s)) s++;
  1038. !      if (*s == '\n') break;
  1039.            t = s;
  1040.            while(*s && !isspace(*s)) s++;
  1041.        len = s - t;
  1042.        if (!len) {
  1043.           putchar('\n');
  1044.           return;
  1045.            }
  1046.        if (!pendspace || len+pendspace <= roomleft) {
  1047. ***************
  1048. *** 1235,1240 ****
  1049. --- 1301,1308 ----
  1050.               for (i=0; i<pendspace; i++) putchar(' ');
  1051.              while(t < s) {
  1052.              putchar(*t);
  1053. +            if (strchr(EndSent, *t)) doublespace = 2;
  1054. +            else if (!strchr(EndSentIg, *t)) doublespace = 1;
  1055.              t++;
  1056.               }
  1057.            } else {
  1058. ***************
  1059. *** 1243,1250 ****
  1060.           line++;
  1061.           break;
  1062.            }
  1063. !      pendspace = (*(t-1) == '.') ? 2 : 1;
  1064. !      roomleft -= len+pendspace;
  1065.         }
  1066.      }
  1067.   }
  1068. --- 1311,1318 ----
  1069.           line++;
  1070.           break;
  1071.            }
  1072. !      roomleft -= len+doublespace;
  1073. !      pendspace = doublespace;
  1074.         }
  1075.      }
  1076.   }
  1077. ***************
  1078. *** 1266,1272 ****
  1079.       long guess = time((long *) NULL);
  1080.       struct tm g;
  1081.       int diff;
  1082. !     
  1083.       g = *gmtime (&guess);
  1084.       while ((diff = year - g.tm_year) > 0)
  1085.       {
  1086. --- 1334,1340 ----
  1087.       long guess = time((long *) NULL);
  1088.       struct tm g;
  1089.       int diff;
  1090. ! 
  1091.       g = *gmtime (&guess);
  1092.       while ((diff = year - g.tm_year) > 0)
  1093.       {
  1094. ***************
  1095. *** 1323,1325 ****
  1096. --- 1391,1458 ----
  1097.       return (clock);
  1098.   }
  1099.   #endif /* NEED_TIMEGM */
  1100. + 
  1101. + /***************************************************************/
  1102. + /*                                                             */
  1103. + /*  LocalToUTC                                                 */
  1104. + /*                                                             */
  1105. + /*  Convert a local date/time to a UTC date/time.              */
  1106. + /*                                                             */
  1107. + /***************************************************************/
  1108. + #ifdef HAVE_PROTOS
  1109. + PUBLIC void LocalToUTC(int locdate, int loctime, int *utcdate, int *utctime)
  1110. + #else
  1111. + void LocalToUTC(locdate, loctime, utcdate, utctime)
  1112. + int locdate, loctime, *utcdate, *utctime;
  1113. + #endif
  1114. + {
  1115. +    int diff;
  1116. +    int dummy;
  1117. + 
  1118. +    if (!CalculateUTC || !CalcMinsFromUTC(locdate, loctime, &diff, &dummy)) 
  1119. +    diff=MinsFromUTC;
  1120. + 
  1121. +    loctime -= MinsFromUTC;
  1122. +    if (loctime < 0) {
  1123. +       loctime += 1440;
  1124. +       locdate--;
  1125. +    } else if (loctime >= 1440) {
  1126. +       loctime -= 1440;
  1127. +       locdate++;
  1128. +    }
  1129. +    *utcdate = locdate;
  1130. +    *utctime = loctime;
  1131. + }
  1132. + 
  1133. + /***************************************************************/
  1134. + /*                                                             */
  1135. + /*  UTCToLocal                                                 */
  1136. + /*                                                             */
  1137. + /*  Convert a UTC date/time to a local date/time.              */
  1138. + /*                                                             */
  1139. + /***************************************************************/
  1140. + #ifdef HAVE_PROTOS
  1141. + PUBLIC void UTCToLocal(int utcdate, int utctime, int *locdate, int *loctime)
  1142. + #else
  1143. + void UTCToLocal(utcdate, utctime, locdate, loctime)
  1144. + int utcdate, utctime, *locdate, *loctime;
  1145. + #endif
  1146. + {
  1147. +    int diff;
  1148. +    int dummy;
  1149. + 
  1150. +    /* Hack -- not quite right when DST changes.  */
  1151. +    if (!CalculateUTC || !CalcMinsFromUTC(utcdate, utctime, &diff, &dummy)) 
  1152. +    diff=MinsFromUTC;
  1153. + 
  1154. +    utctime += MinsFromUTC;
  1155. +    if (utctime < 0) {
  1156. +       utctime += 1440;
  1157. +       utcdate--;
  1158. +    } else if (utctime >= 1440) {
  1159. +       utctime -= 1440;
  1160. +       utcdate++;
  1161. +    }
  1162. +    *locdate = utcdate;
  1163. +    *loctime = utctime;
  1164. + }
  1165. *** ../prev/makefile.msc    Mon Jun 28 12:30:11 1993
  1166. --- ./makefile.msc    Thu Sep 30 15:50:35 1993
  1167. ***************
  1168. *** 2,12 ****
  1169.   
  1170.   OBJS= calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  1171.   globals.obj init.obj main.obj omit.obj token.obj trigger.obj userfns.obj \
  1172. ! utils.obj var.obj sort.obj hbcal.obj
  1173.   
  1174.   DEFINES= /D__MSDOS__ /D__MSC__
  1175.   
  1176. ! MODEL= /AS
  1177.   
  1178.   calendar.obj: calendar.c
  1179.       cl /c $(DEFINES) $(MODEL) /Focalendar.obj calendar.c
  1180. --- 2,12 ----
  1181.   
  1182.   OBJS= calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  1183.   globals.obj init.obj main.obj omit.obj token.obj trigger.obj userfns.obj \
  1184. ! utils.obj var.obj sort.obj hbcal.obj moon.obj
  1185.   
  1186.   DEFINES= /D__MSDOS__ /D__MSC__
  1187.   
  1188. ! MODEL= /AM
  1189.   
  1190.   calendar.obj: calendar.c
  1191.       cl /c $(DEFINES) $(MODEL) /Focalendar.obj calendar.c
  1192. ***************
  1193. *** 40,45 ****
  1194. --- 40,48 ----
  1195.   
  1196.   main.obj: main.c
  1197.       cl /c $(DEFINES) $(MODEL) /Fomain.obj main.c
  1198. + 
  1199. + moon.obj: moon.c
  1200. +     cl /c $(DEFINES) $(MODEL) /Fomoon.obj moon.c
  1201.   
  1202.   omit.obj: omit.c
  1203.       cl /c $(DEFINES) $(MODEL) /Foomit.obj omit.c
  1204. *** ../prev/makefile.os2    Wed Aug 18 11:13:19 1993
  1205. --- ./makefile.os2    Mon Sep 20 15:00:08 1993
  1206. ***************
  1207. *** 25,31 ****
  1208.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  1209.   # in config.h; then, you should be able to type 'make'.
  1210.   #-----------------------------------------------------------------------------
  1211. ! VERSION= 03.00.08
  1212.   
  1213.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  1214.   lang.h english.h german.h dutch.h finish.h french.h norwgian.h
  1215. --- 25,31 ----
  1216.   # YOU SHOULDN'T EDIT ANYTHING BELOW HERE.  You may want to change some things
  1217.   # in config.h; then, you should be able to type 'make'.
  1218.   #-----------------------------------------------------------------------------
  1219. ! VERSION= 03.00.09
  1220.   
  1221.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  1222.   lang.h english.h german.h dutch.h finish.h french.h norwgian.h
  1223. ***************
  1224. *** 35,41 ****
  1225.   LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  1226.   
  1227.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  1228. ! main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  1229.   
  1230.   MANIFEST= README.UNIX README.DOS COPYRIGHT $(HDRS) $(SRCS) Makefile rem rem.1 \
  1231.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  1232. --- 35,41 ----
  1233.   LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  1234.   
  1235.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  1236. ! main.c moon.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  1237.   
  1238.   MANIFEST= README.UNIX README.DOS COPYRIGHT $(HDRS) $(SRCS) Makefile rem rem.1 \
  1239.   remind.1 remind-all.csh remind-all.sh test.rem test-rem test.cmp makefile.tc \
  1240. ***************
  1241. *** 77,82 ****
  1242. --- 77,83 ----
  1243.   globals$O: globals.c config.h types.h globals.h err.h lang.h
  1244.   init$O: init.c $(STDHDRS) expr.h version.h
  1245.   main$O: main.c $(STDHDRS) expr.h
  1246. + moon$O: moon.c $(STDHDRS)
  1247.   omit$O: omit.c $(STDHDRS)
  1248.   sort$O: sort.c $(STDHDRS)
  1249.   token$O: token.c $(STDHDRS)
  1250. *** ../prev/makefile.tc    Wed Aug 18 11:13:06 1993
  1251. --- ./makefile.tc    Thu Sep 30 15:50:25 1993
  1252. ***************
  1253. *** 1,6 ****
  1254.   # Makefile for REMIND for Turbo C for MSDOS
  1255.   
  1256. ! VERSION= 03.00.08
  1257.   
  1258.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  1259.   lang.h english.h german.h dutch.h finnish.h french.h norwgian.h
  1260. --- 1,6 ----
  1261.   # Makefile for REMIND for Turbo C for MSDOS
  1262.   
  1263. ! VERSION= 03.00.09
  1264.   
  1265.   HDRS= config.h err.h expr.h globals.h protos.h types.h version.h \
  1266.   lang.h english.h german.h dutch.h finnish.h french.h norwgian.h
  1267. ***************
  1268. *** 10,16 ****
  1269.   LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  1270.   
  1271.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  1272. ! main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  1273.   
  1274.   OBJS=calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  1275.   globals.obj init.obj main.obj omit.obj sort.obj token.obj trigger.obj \
  1276. --- 10,16 ----
  1277.   LANGHDRS= english.h german.h dutch.h finnish.h french.h norwgian.h
  1278.   
  1279.   SRCS= calendar.c dorem.c dosubst.c expr.c files.c funcs.c globals.c init.c \
  1280. ! moon.c main.c omit.c sort.c token.c trigger.c userfns.c utils.c var.c hbcal.c
  1281.   
  1282.   OBJS=calendar.obj dorem.obj dosubst.obj expr.obj files.obj funcs.obj \
  1283.   globals.obj init.obj main.obj omit.obj sort.obj token.obj trigger.obj \
  1284. ***************
  1285. *** 31,37 ****
  1286.       tcc -erem2ps.exe rem2ps.obj
  1287.   
  1288.   .c.obj:
  1289. !     tcc -A -w-pia -c -O -ms {$< }
  1290.   
  1291.   rem2ps.obj: rem2ps.c rem2ps.h config.h lang.h
  1292.   
  1293. --- 31,37 ----
  1294.       tcc -erem2ps.exe rem2ps.obj
  1295.   
  1296.   .c.obj:
  1297. !     tcc -A -w-pia -c -O -mm {$< }
  1298.   
  1299.   rem2ps.obj: rem2ps.c rem2ps.h config.h lang.h
  1300.   
  1301. ***************
  1302. *** 52,57 ****
  1303. --- 52,59 ----
  1304.   init.obj: init.c $(STDHDRS) expr.h version.h
  1305.   
  1306.   main.obj: main.c $(STDHDRS) expr.h
  1307. + 
  1308. + moon.obj: moon.c $(STDHDRS) expr.h
  1309.   
  1310.   omit.obj: omit.c $(STDHDRS)
  1311.   
  1312. *** ../prev/protos.h    Wed Aug 18 12:52:08 1993
  1313. --- ./protos.h    Mon Sep 20 16:53:13 1993
  1314. ***************
  1315. *** 29,34 ****
  1316. --- 29,36 ----
  1317.   void ProduceCalendar ARGS ((void));
  1318.   char *SimpleTime ARGS ((int tim, char *out));
  1319.   int DoRem ARGS ((ParsePtr p));
  1320. + int DoFlush ARGS ((ParsePtr p));
  1321. + void DoExit ARGS ((ParsePtr p));
  1322.   int ParseRem ARGS ((ParsePtr s, Trigger *trig, TimeTrig *tim));
  1323.   int TriggerReminder ARGS ((ParsePtr p, Trigger *t, TimeTrig *tim, int jul));
  1324.   int ShouldTriggerReminder ARGS ((Trigger *t, TimeTrig *tim, int jul));
  1325. ***************
  1326. *** 103,109 ****
  1327.   int DoUnset  ARGS ((Parser *p));
  1328.   int DoDump ARGS ((ParsePtr p));
  1329.   void DumpVarTable ARGS ((void));
  1330. ! void DestroyVars ARGS ((void));
  1331.   int PreserveVar ARGS ((char *name));
  1332.   int DoPreserve  ARGS ((Parser *p));
  1333.   int DoSatRemind ARGS ((Trigger *trig, TimeTrig *tim, ParsePtr p));
  1334. --- 105,111 ----
  1335.   int DoUnset  ARGS ((Parser *p));
  1336.   int DoDump ARGS ((ParsePtr p));
  1337.   void DumpVarTable ARGS ((void));
  1338. ! void DestroyVars ARGS ((int all));
  1339.   int PreserveVar ARGS ((char *name));
  1340.   int DoPreserve  ARGS ((Parser *p));
  1341.   int DoSatRemind ARGS ((Trigger *trig, TimeTrig *tim, ParsePtr p));
  1342. ***************
  1343. *** 126,132 ****
  1344.   int GetNextHebrewDate ARGS((int julstart, int hm, int hd, int yahr, int adarbehave, int *ans));
  1345.   int ComputeJahr ARGS ((int y, int m, int d, int *ans));
  1346.   int GetSysVar ARGS ((const char *name, Value *val));
  1347. ! int SetSysVar ARGS ((const char *name, int value));
  1348.   void DumpSysVarByName ARGS ((const char *name));
  1349.   int CalcMinsFromUTC ARGS ((int jul, int tim, int *mins, int *isdst));
  1350.   void FillParagraph ARGS ((char *s));
  1351. --- 128,138 ----
  1352.   int GetNextHebrewDate ARGS((int julstart, int hm, int hd, int yahr, int adarbehave, int *ans));
  1353.   int ComputeJahr ARGS ((int y, int m, int d, int *ans));
  1354.   int GetSysVar ARGS ((const char *name, Value *val));
  1355. ! int SetSysVar ARGS ((const char *name, Value *val));
  1356.   void DumpSysVarByName ARGS ((const char *name));
  1357.   int CalcMinsFromUTC ARGS ((int jul, int tim, int *mins, int *isdst));
  1358.   void FillParagraph ARGS ((char *s));
  1359. + void LocalToUTC ARGS ((int locdate, int loctime, int *utcdate, int *utctime));
  1360. + void UTCToLocal ARGS ((int utcdate, int utctime, int *locdate, int *loctime));
  1361. + int MoonPhase ARGS ((int date, int time));
  1362. + void HuntPhase ARGS ((int startdate, int starttim, int phas, int *date, int *time));
  1363. *** ../prev/rem2ps.1    Wed Jul 28 10:22:25 1993
  1364. --- ./rem2ps.1    Thu Sep 30 15:23:25 1993
  1365. ***************
  1366. *** 1,4 ****
  1367. ! .TH REM2PS 1 "8 January 1993"
  1368.   .UC4
  1369.   .SH NAME
  1370.   rem2ps \- draw a PostScript calendar from Remind output
  1371. --- 1,4 ----
  1372. ! .TH REM2PS 1 "30 September 1993"
  1373.   .UC4
  1374.   .SH NAME
  1375.   rem2ps \- draw a PostScript calendar from Remind output
  1376. ***************
  1377. *** 10,15 ****
  1378. --- 10,18 ----
  1379.   draws a calendar) to the standard output.
  1380.   .SH OPTIONS
  1381.   .TP
  1382. + .B \-n
  1383. + Produce a calendar whose first column is Monday (rather than Sunday.)
  1384. + .TP
  1385.   .B \-p file
  1386.   Include the contents of \fIfile\fR in the PostScript prologue.  This
  1387.   allows you to define procedures, variables etc. which can be used
  1388. ***************
  1389. *** 20,30 ****
  1390.   Produce the calendar in landscape mode rather than the default
  1391.   portrait mode.
  1392.   .TP
  1393. ! .B \-c
  1394. ! Do not generate small calendars for the next and previous months.  By
  1395. ! default, these small calendars are generated and placed on the main
  1396. ! calendar.
  1397.   .TP
  1398.   .B \-i
  1399.   Use ISO 8859-1 standard encoding for the PostScript fonts.  If you do
  1400.   not use this option, the default encoding is used.
  1401. --- 23,53 ----
  1402.   Produce the calendar in landscape mode rather than the default
  1403.   portrait mode.
  1404.   .TP
  1405. ! \fB\-c\fR[\fIn\fR]
  1406. ! If \fIn\fR is omitted, disables the small calendars for next and previous
  1407. ! months which are normally generated.  If \fIn\fR is supplied, it can range
  1408. ! from 0 to 3, with the following meanings:
  1409. ! .RS
  1410.   .TP
  1411. + .B 0
  1412. + Disable small calendars
  1413. + .TP
  1414. + .B 1
  1415. + Place the small calendars at the bottom-right if there is room; otherwise,
  1416. + place them at the top-left.
  1417. + .TP
  1418. + .B 2
  1419. + Place the small calendars at the top-left if there is room; otherwise,
  1420. + place them at the bottom-right.
  1421. + .TP
  1422. + .B 3
  1423. + Place the previous month's small calendar at the top-left and the next
  1424. + month's at the bottom-right if there is room; otherwise, follow \fIn\fR=1.
  1425. + A moment's thought reveals that an option which splits the calendars if
  1426. + there is room and otherwise follows \fIn\fR=2 yields the same results as
  1427. + \fIn\fR=3.
  1428. + .RE
  1429. + .TP
  1430.   .B \-i
  1431.   Use ISO 8859-1 standard encoding for the PostScript fonts.  If you do
  1432.   not use this option, the default encoding is used.
  1433. ***************
  1434. *** 90,97 ****
  1435.   option will display the compiled-in default.
  1436.   .RE
  1437.   .TP
  1438. ! \fB\-f\fR[\fBshed\fR] \fIfont\fR
  1439. ! Set the font for the small calendar, the calendar headings, the calendar
  1440.   entries, and the day numbers, respectively.  \fIFont\fR must be the
  1441.   name of a valid PostScript font.  The default fonts are equivalent to
  1442.   specifying:
  1443. --- 113,121 ----
  1444.   option will display the compiled-in default.
  1445.   .RE
  1446.   .TP
  1447. ! \fB\-f\fR[\fBtshed\fR] \fIfont\fR
  1448. ! Set the font for the calendar title,
  1449. ! the small calendars, the day-of-week headings, the calendar
  1450.   entries, and the day numbers, respectively.  \fIFont\fR must be the
  1451.   name of a valid PostScript font.  The default fonts are equivalent to
  1452.   specifying:
  1453. ***************
  1454. *** 98,104 ****
  1455.   .RS
  1456.   .PP
  1457.   .nf
  1458. !     -fhes Helvetica -fd Helvetica-BoldOblique
  1459.   .fi
  1460.   .PP
  1461.   In other words, the heading, entry and small-calendar fonts are set
  1462. --- 122,128 ----
  1463.   .RS
  1464.   .PP
  1465.   .nf
  1466. !     -ftshe Helvetica -fd Helvetica-BoldOblique
  1467.   .fi
  1468.   .PP
  1469.   In other words, the heading, entry and small-calendar fonts are set
  1470. ***************
  1471. *** 106,120 ****
  1472.   Helvetica-BoldOblique.
  1473.   .RE
  1474.   .TP
  1475. ! \fB\-s\fR[\fBhed\fR] \fIsize\fR
  1476. ! Set the size (in points) of the text for the the calendar headings,
  1477. ! the calendar entries, and the day numbers, respectively.  \fISize\fR
  1478. ! must be a decimal number.  The default sizes are equivalent to
  1479. ! specifying:
  1480.   .RS
  1481.   .PP
  1482.   .nf
  1483. !     -sdh 14 -se 8
  1484.   .fi
  1485.   .PP
  1486.   In other words, the heading and day numbers are 14-point fonts, and the
  1487. --- 130,144 ----
  1488.   Helvetica-BoldOblique.
  1489.   .RE
  1490.   .TP
  1491. ! \fB\-s\fR[\fBthed\fR] \fIsize\fR
  1492. ! Set the size (in points) of the text for the the calendar title,
  1493. ! day-of-week headings, the calendar entries, and the day numbers,
  1494. ! respectively.  \fISize\fR must be a decimal number.  The default sizes
  1495. ! are equivalent to specifying:
  1496.   .RS
  1497.   .PP
  1498.   .nf
  1499. !     -sthd 14 -se 8
  1500.   .fi
  1501.   .PP
  1502.   In other words, the heading and day numbers are 14-point fonts, and the
  1503. ***************
  1504. *** 185,195 ****
  1505.   of the regular calendar entry area.  The space from here to the top
  1506.   of the box is used only to draw the day number.
  1507.   .TP
  1508. ! /DayFont, /EntryFont, /SmallFont and /HeadFont
  1509. ! The fonts used to draw the day numbers, the calendar entries, the small
  1510. ! calendars, and the month and day headings, respectively.
  1511.   .TP
  1512. ! DaySize, EntrySize and HeadSize
  1513.   The sizes of the above fonts.  (The size of the small calendar font
  1514.   is \fInot\fR defined here.)  For example, if you wanted to print
  1515.   the Hebrew date next to the regular day number in the calendar, use:
  1516. --- 209,220 ----
  1517.   of the regular calendar entry area.  The space from here to the top
  1518.   of the box is used only to draw the day number.
  1519.   .TP
  1520. ! /DayFont, /TitleFont, /EntryFont, /SmallFont and /HeadFont
  1521. ! The fonts used to draw the day numbers, the month and year title,
  1522. ! the calendar entries, the small
  1523. ! calendars, and the day-of-week headings, respectively.
  1524.   .TP
  1525. ! DaySize, TitleSize, EntrySize and HeadSize
  1526.   The sizes of the above fonts.  (The size of the small calendar font
  1527.   is \fInot\fR defined here.)  For example, if you wanted to print
  1528.   the Hebrew date next to the regular day number in the calendar, use:
  1529. *** ../prev/rem2ps.c    Wed Jul 28 10:15:11 1993
  1530. --- ./rem2ps.c    Tue Sep 28 12:33:59 1993
  1531. ***************
  1532. *** 43,48 ****
  1533. --- 43,59 ----
  1534.   
  1535.   char Days[]=L_DAYINIT;
  1536.   
  1537. + char *SmallCalLoc[] = {
  1538. +    "",
  1539. +    "bt",
  1540. +    "tb",
  1541. +    "sbt",
  1542. + };
  1543. + 
  1544. + #define NUMSMALL (sizeof(SmallCalLoc)/sizeof(SmallCalLoc[0]))
  1545. + char *SmallLocation;
  1546. + int SmallCol1, SmallCol2;
  1547. + 
  1548.   PageType Pages[] =
  1549.   {
  1550.      {"Letter", 612, 792},     /* 8.5 x 11 in. */
  1551. ***************
  1552. *** 78,83 ****
  1553. --- 89,95 ----
  1554.   char LineBuffer[LINELEN];
  1555.   
  1556.   char *HeadFont="Helvetica";
  1557. + char *TitleFont="Helvetica";
  1558.   char *DayFont="Helvetica-BoldOblique";
  1559.   char *EntryFont="Helvetica";
  1560.   char *SmallFont="Helvetica";
  1561. ***************
  1562. *** 84,89 ****
  1563. --- 96,102 ----
  1564.   char *LineWidth = "1";
  1565.   
  1566.   char *HeadSize="14";
  1567. + char *TitleSize="14";
  1568.   char *DaySize="14";
  1569.   char *EntrySize="8";
  1570.   char *BorderSize = "6";
  1571. ***************
  1572. *** 96,102 ****
  1573.   int MaxDay;
  1574.   int DayNum;
  1575.   int WkDayNum;
  1576. ! 
  1577.   int LeftMarg, RightMarg, TopMarg, BotMarg;
  1578.   int FillPage;
  1579.   
  1580. --- 109,116 ----
  1581.   int MaxDay;
  1582.   int DayNum;
  1583.   int WkDayNum;
  1584. ! int FirstWkDay;
  1585. ! int MondayFirst;
  1586.   int LeftMarg, RightMarg, TopMarg, BotMarg;
  1587.   int FillPage;
  1588.   
  1589. ***************
  1590. *** 104,113 ****
  1591.   void Usage ARGS ((char *s));
  1592.   void DoPsCal ARGS ((void));
  1593.   int DoQueuedPs ARGS ((void));
  1594. ! void DoSmallCal ARGS((char *m, int days, int first, int col));
  1595.   void WriteProlog ARGS ((void));
  1596.   void WriteCalEntry ARGS ((void));
  1597.   void WriteOneEntry ARGS ((char *s));
  1598.   
  1599.   /***************************************************************/
  1600.   /*                                                             */
  1601. --- 118,128 ----
  1602.   void Usage ARGS ((char *s));
  1603.   void DoPsCal ARGS ((void));
  1604.   int DoQueuedPs ARGS ((void));
  1605. ! void DoSmallCal ARGS((char *m, int days, int first, int col, int which));
  1606.   void WriteProlog ARGS ((void));
  1607.   void WriteCalEntry ARGS ((void));
  1608.   void WriteOneEntry ARGS ((char *s));
  1609. + void GetSmallLocations ARGS ((void));
  1610.   
  1611.   /***************************************************************/
  1612.   /*                                                             */
  1613. ***************
  1614. *** 165,177 ****
  1615.      int days, wkday, prevdays, nextdays;
  1616.      int sfirst;
  1617.      int i;
  1618. -    int smallcol = 0; /* Stop GCC from complaining about uninit var */
  1619.      int is_ps;
  1620.      CalEntry *c, *d;
  1621.   
  1622.      printf("%%%%Page: %d %d\n", validfile, validfile);
  1623.   /* Read the month and year name, followed by # days in month and 1st day of
  1624. !    month */
  1625.      gets(LineBuffer);
  1626.      sscanf(LineBuffer, "%s %s %d %d", month, year, &days, &wkday);
  1627.      gets(LineBuffer);
  1628. --- 180,191 ----
  1629.      int days, wkday, prevdays, nextdays;
  1630.      int sfirst;
  1631.      int i;
  1632.      int is_ps;
  1633.      CalEntry *c, *d;
  1634.   
  1635.      printf("%%%%Page: %d %d\n", validfile, validfile);
  1636.   /* Read the month and year name, followed by # days in month and 1st day of
  1637. !    month, followed by the MondayFirst flag */
  1638.      gets(LineBuffer);
  1639.      sscanf(LineBuffer, "%s %s %d %d", month, year, &days, &wkday);
  1640.      gets(LineBuffer);
  1641. ***************
  1642. *** 179,184 ****
  1643. --- 193,199 ----
  1644.      gets(LineBuffer);
  1645.      sscanf(LineBuffer, "%s %d", nextm, &nextdays);
  1646.      MaxDay = days;
  1647. +    FirstWkDay = wkday;
  1648.   
  1649.   /* Emit PostScript to do the heading */
  1650.      if (!PortraitMode) printf("XSIZE 0 translate 90 rotate\n");
  1651. ***************
  1652. *** 197,207 ****
  1653.            printf("/MinBoxSize ytop MinY sub 5 div def\n");
  1654.      }
  1655.   
  1656. ! /* If wkday >= 2, then do the small calendars at the top. */
  1657. !    if (wkday >=2 && !NoSmallCal) {
  1658. !       smallcol = 0;
  1659. !       printf("/ysmall ytop def\n");
  1660. !    }
  1661.   
  1662.   /* Do each entry */
  1663.   
  1664. --- 212,218 ----
  1665.            printf("/MinBoxSize ytop MinY sub 5 div def\n");
  1666.      }
  1667.   
  1668. !    printf("/ysmalltop ytop def\n");
  1669.   
  1670.   /* Do each entry */
  1671.   
  1672. ***************
  1673. *** 262,278 ****
  1674.      }
  1675.   
  1676.   /* If wkday < 2, set ysmall.  If necessary (only for feb) increase cal size. */
  1677. !    if (wkday < 2 && !NoSmallCal) {
  1678. !       smallcol = 5;
  1679. !       printf("/ysmall ylast def\n");
  1680. !       if (days == 28 && wkday == 0) {
  1681. !          printf("/ysmall ymin def /ymin ysmall MinBoxSize sub def\n");
  1682. !      printf("MinX ymin MaxX ymin L\n");
  1683. !       }
  1684. !    }
  1685. !        
  1686.   
  1687.   /* Now draw the vertical lines */
  1688.      for (i=0; i<=7; i++) {
  1689.         printf("%d xincr mul MinX add ymin %d xincr mul MinX add topy L\n",
  1690.                 i, i);
  1691. --- 273,282 ----
  1692.      }
  1693.   
  1694.   /* If wkday < 2, set ysmall.  If necessary (only for feb) increase cal size. */
  1695. !    printf("/ysmallbot ylast def\n");
  1696.   
  1697.   /* Now draw the vertical lines */
  1698. +    GetSmallLocations();
  1699.      for (i=0; i<=7; i++) {
  1700.         printf("%d xincr mul MinX add ymin %d xincr mul MinX add topy L\n",
  1701.                 i, i);
  1702. ***************
  1703. *** 282,291 ****
  1704.      if (!NoSmallCal) {
  1705.         sfirst = wkday - (prevdays % 7);
  1706.         if (sfirst < 0) sfirst += 7;
  1707. !       DoSmallCal(prevm, prevdays, sfirst, smallcol);
  1708.         sfirst = wkday + (days % 7);
  1709.         if (sfirst >6) sfirst -= 7;
  1710. !       DoSmallCal(nextm, nextdays, sfirst, smallcol+1);
  1711.      }
  1712.   /* Do it! */
  1713.      printf("showpage\n");
  1714. --- 286,295 ----
  1715.      if (!NoSmallCal) {
  1716.         sfirst = wkday - (prevdays % 7);
  1717.         if (sfirst < 0) sfirst += 7;
  1718. !       DoSmallCal(prevm, prevdays, sfirst, SmallCol1, 1);
  1719.         sfirst = wkday + (days % 7);
  1720.         if (sfirst >6) sfirst -= 7;
  1721. !       DoSmallCal(nextm, nextdays, sfirst, SmallCol2, 2);
  1722.      }
  1723.   /* Do it! */
  1724.      printf("showpage\n");
  1725. ***************
  1726. *** 322,332 ****
  1727.   /* Write the document structuring stuff */
  1728.      printf("%%!PS-Adobe-\n");
  1729.      printf("%%%%DocumentFonts: %s", HeadFont);
  1730. !    if (strcmp(HeadFont, DayFont)) printf(" %s", DayFont);
  1731.      if (strcmp(EntryFont, HeadFont) &&
  1732.          strcmp(EntryFont, DayFont)) printf(" %s", EntryFont);
  1733.      if (!NoSmallCal && strcmp(SmallFont, HeadFont) &&
  1734.