home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / sun / volume2 / calentool / patch5d / patches05d
Encoding:
Text File  |  1990-02-04  |  50.3 KB  |  2,026 lines
  1. *** /tmp/,RCSt1a02457    Tue Dec 19 11:34:42 1989
  2. --- utils.c    Tue Dec 19 11:34:15 1989
  3. ***************
  4. *** 1,5
  5.   /*
  6. !  * $Header: utils.c,v 2.3 89/07/19 20:31:40 billr Exp $
  7.    */
  8.   /*
  9.    * utils.c
  10.  
  11. --- 1,5 -----
  12.   /*
  13. !  * $Header: utils.c,v 2.5 89/12/19 11:33:44 billr Exp $
  14.    */
  15.   /*
  16.    * utils.c
  17. ***************
  18. *** 22,27
  19.    * Permission is hereby granted to use and modify the modifications in source
  20.    * or binary form as long as they are not sold for profit and this copyright
  21.    * notice remains intact.
  22.    */
  23.   /********************************************
  24.    *                        *
  25.  
  26. --- 22,29 -----
  27.    * Permission is hereby granted to use and modify the modifications in source
  28.    * or binary form as long as they are not sold for profit and this copyright
  29.    * notice remains intact.
  30. +  * Modified parse_date to allow +nnn and -nnn syntax for dates relative to the
  31. +  * current date.  Peter Marshall <peter.marshall@uwo.ca>. 1989-09-19.
  32.    */
  33.   /********************************************
  34.    *                        *
  35. ***************
  36. *** 33,38
  37.   
  38.   #include "ct.h"
  39.   #include <stdio.h>
  40.   #include <suntool/sunview.h>
  41.   #include <suntool/canvas.h>
  42.   #include <ctype.h>
  43.  
  44. --- 35,41 -----
  45.   
  46.   #include "ct.h"
  47.   #include <stdio.h>
  48. + #ifndef NOTOOL
  49.   #include <suntool/sunview.h>
  50.   #include <suntool/canvas.h>
  51.   #endif  /* NOTOOL */
  52. ***************
  53. *** 35,40
  54.   #include <stdio.h>
  55.   #include <suntool/sunview.h>
  56.   #include <suntool/canvas.h>
  57.   #include <ctype.h>
  58.   #include <sys/types.h>
  59.   #include <sys/file.h>
  60.  
  61. --- 38,44 -----
  62.   #ifndef NOTOOL
  63.   #include <suntool/sunview.h>
  64.   #include <suntool/canvas.h>
  65. + #endif  /* NOTOOL */
  66.   #include <ctype.h>
  67.   #include <sys/types.h>
  68.   #include <sys/time.h>
  69. ***************
  70. *** 37,42
  71.   #include <suntool/canvas.h>
  72.   #include <ctype.h>
  73.   #include <sys/types.h>
  74.   #include <sys/file.h>
  75.   #include <sys/stat.h>
  76.   #include <sys/errno.h>
  77.  
  78. --- 41,47 -----
  79.   #endif  /* NOTOOL */
  80.   #include <ctype.h>
  81.   #include <sys/types.h>
  82. + #include <sys/time.h>
  83.   #include <sys/file.h>
  84.   #include <sys/stat.h>
  85.   #include <sys/errno.h>
  86. ***************
  87. *** 54,60
  88.   extern int one_based, version2, new_entry;
  89.   extern int findex;
  90.   extern struct appt_entry future[];
  91. - extern char todays_date[];
  92.   extern char apts_dir[], lib_dir[];
  93.   extern char printer[];
  94.   extern int include_old, save_old;
  95.  
  96. --- 59,64 -----
  97.   extern int one_based, version2, new_entry;
  98.   extern int findex;
  99.   extern struct appt_entry future[];
  100.   extern char apts_dir[], lib_dir[];
  101.   extern int include_old, save_old, expire_days;
  102.   #ifndef NOTOOL
  103. ***************
  104. *** 56,61
  105.   extern struct appt_entry future[];
  106.   extern char todays_date[];
  107.   extern char apts_dir[], lib_dir[];
  108.   extern char printer[];
  109.   extern int include_old, save_old;
  110.   extern Frame frame;
  111.  
  112. --- 60,67 -----
  113.   extern int findex;
  114.   extern struct appt_entry future[];
  115.   extern char apts_dir[], lib_dir[];
  116. + extern int include_old, save_old, expire_days;
  117. + #ifndef NOTOOL
  118.   extern char printer[];
  119.   extern Frame frame;
  120.   extern Canvas canvas;
  121. ***************
  122. *** 57,63
  123.   extern char todays_date[];
  124.   extern char apts_dir[], lib_dir[];
  125.   extern char printer[];
  126. - extern int include_old, save_old;
  127.   extern Frame frame;
  128.   extern Canvas canvas;
  129.   extern Pixwin *main_pixwin;
  130.  
  131. --- 63,68 -----
  132.   extern int include_old, save_old, expire_days;
  133.   #ifndef NOTOOL
  134.   extern char printer[];
  135.   extern Frame frame;
  136.   extern Canvas canvas;
  137.   extern Pixwin *main_pixwin;
  138. ***************
  139. *** 65,70
  140.   extern Pixfont *font, *sfont;
  141.   extern Frame prompt_frame;
  142.   extern int update_interval;
  143.   extern int errno;
  144.   
  145.   char inbuf[512], strbuf[256], errbuf[64];
  146.  
  147. --- 70,77 -----
  148.   extern Pixfont *font, *sfont;
  149.   extern Frame prompt_frame;
  150.   extern int update_interval;
  151. + extern int monday_first, hour24, day_first;
  152. + #endif  /* NOTOOL */
  153.   extern int errno;
  154.   
  155.   char inbuf[512], strbuf[256], errbuf[128];
  156. ***************
  157. *** 67,75
  158.   extern int update_interval;
  159.   extern int errno;
  160.   
  161. ! char inbuf[512], strbuf[256], errbuf[64];
  162. ! char todays_date[32];
  163. ! static int including;
  164.   static int log_to_console;
  165.   char *daynames[] = {"Sunday","Monday","Tuesday","Wednesday",
  166.                  "Thursday","Friday","Saturday"};
  167.  
  168. --- 74,82 -----
  169.   #endif  /* NOTOOL */
  170.   extern int errno;
  171.   
  172. ! char inbuf[512], strbuf[256], errbuf[128];
  173. ! char clockstr[32];
  174. ! static int include_level = 0;
  175.   static int log_to_console;
  176.   char *daynames[] = {"Sunday","Monday","Tuesday","Wednesday",
  177.                  "Thursday","Friday","Saturday"};
  178. ***************
  179. *** 76,81
  180.   char *monthnames[] = {"January","February","March","April",
  181.                    "May","June","July","August",
  182.                    "September","October","November","December"};
  183.   char *dayname[7] = {"SU", "MO", "TU", "WE", "TH", "FR", "SA"};
  184.   char rasfile[] = "/usr/tmp/calentool.ras";
  185.   char psfile[] = "/usr/tmp/calentool.ps";
  186.  
  187. --- 83,91 -----
  188.   char *monthnames[] = {"January","February","March","April",
  189.                    "May","June","July","August",
  190.                    "September","October","November","December"};
  191. + char *smonthnames[] = {"Jan","Feb","Mar","Apr",
  192. +                  "May","Jun","Jul","Aug",
  193. +                  "Sep","Oct","Nov","Dec"};
  194.   char *dayname[7] = {"SU", "MO", "TU", "WE", "TH", "FR", "SA"};
  195.   char rasfile[] = "/usr/tmp/calentool.ras";
  196.   char psfile[] = "/usr/tmp/calentool.ps";
  197. ***************
  198. *** 91,96
  199.   {
  200.       struct tm *tm;
  201.       struct timeval tv;
  202.   
  203.       gettimeofday(&tv, 0);
  204.       tm = localtime(&tv.tv_sec);
  205.  
  206. --- 101,107 -----
  207.   {
  208.       struct tm *tm;
  209.       struct timeval tv;
  210. +     char timstr[16];
  211.   
  212.       gettimeofday(&tv, 0);
  213.       tm = localtime(&tv.tv_sec);
  214. ***************
  215. *** 97,103
  216.   
  217.       today = *tm;
  218.   
  219. !     strcpy(todays_date, asctime(tm));
  220.       if (update_interval >= 60)
  221.           /* overwrite seconds field with year */
  222.           sprintf(&todays_date[16], " %d", today.tm_year+1900);
  223.  
  224. --- 108,120 -----
  225.   
  226.       today = *tm;
  227.   
  228. ! #ifndef CALENCHECK
  229. !     if (day_first)
  230. !         sprintf(clockstr, "%3.3s %d %s %d, ", daynames[today.tm_wday],
  231. !             today.tm_mday, smonthnames[today.tm_mon], today.tm_year+1900);
  232. !     else
  233. !         sprintf(clockstr, "%3.3s %s %d %d, ", daynames[today.tm_wday],
  234. !             smonthnames[today.tm_mon], today.tm_mday, today.tm_year+1900);
  235.       if (update_interval >= 60)
  236.           sprintf(timstr, "%02d:%02d", today.tm_hour, today.tm_min);
  237.       else
  238. ***************
  239. *** 99,106
  240.   
  241.       strcpy(todays_date, asctime(tm));
  242.       if (update_interval >= 60)
  243. !         /* overwrite seconds field with year */
  244. !         sprintf(&todays_date[16], " %d", today.tm_year+1900);
  245.       else
  246.           /* just delete trailing \n */
  247.           todays_date[strlen(todays_date)-1] = '\0';
  248.  
  249. --- 116,122 -----
  250.           sprintf(clockstr, "%3.3s %s %d %d, ", daynames[today.tm_wday],
  251.               smonthnames[today.tm_mon], today.tm_mday, today.tm_year+1900);
  252.       if (update_interval >= 60)
  253. !         sprintf(timstr, "%02d:%02d", today.tm_hour, today.tm_min);
  254.       else
  255.           sprintf(timstr, "%02d:%02d:%02d", today.tm_hour, today.tm_min, today.tm_sec);
  256.       if (!hour24) {
  257. ***************
  258. *** 102,109
  259.           /* overwrite seconds field with year */
  260.           sprintf(&todays_date[16], " %d", today.tm_year+1900);
  261.       else
  262. !         /* just delete trailing \n */
  263. !         todays_date[strlen(todays_date)-1] = '\0';
  264.   }
  265.   
  266.   /*
  267.  
  268. --- 118,140 -----
  269.       if (update_interval >= 60)
  270.           sprintf(timstr, "%02d:%02d", today.tm_hour, today.tm_min);
  271.       else
  272. !         sprintf(timstr, "%02d:%02d:%02d", today.tm_hour, today.tm_min, today.tm_sec);
  273. !     if (!hour24) {
  274. !         /* display am/pm for 12-hour time */
  275. !         if (today.tm_hour > 12) {
  276. !             strcat(timstr, "pm");
  277. !             timstr[0] = ((today.tm_hour - 12) / 10) + '0';
  278. !             timstr[1] = ((today.tm_hour - 12) % 10) + '0';
  279. !         } else if (today.tm_hour == 12) {
  280. !             strcat(timstr, "pm");
  281. !         } else {
  282. !             strcat(timstr, "am");
  283. !         }
  284. !         if (timstr[0] == '0')
  285. !             timstr[0] = ' ';
  286. !     }
  287. !     strcat(clockstr, timstr);
  288. ! #endif  /* CALENCHECK */
  289.   }
  290.   
  291.   /*
  292. ***************
  293. *** 140,169
  294.               current.tm_year++;
  295.           }
  296.       }
  297. !     current.tm_yday = current.tm_mday - 1;
  298. !     for (month = 0; month < current.tm_mon; month++) {
  299. !         current.tm_yday += monthlength(month);
  300. !     }
  301. !     if ((current.tm_year < today.tm_year)
  302. !         || ((current.tm_year == today.tm_year)
  303. !         && (current.tm_yday < today.tm_yday))) {
  304. !         from = current;
  305. !         to = today;
  306. !     } else {
  307. !         from = today;
  308. !         to = current;
  309. !     }
  310. !     if (from.tm_year != to.tm_year) {
  311. !         for (totdays = 0; from.tm_year < to.tm_year; from.tm_year++)
  312. !             totdays += dysize(from.tm_year + 1900);
  313. !     }
  314. !     totdays += to.tm_yday - from.tm_yday;
  315. !     if ((current.tm_year < today.tm_year)
  316. !         || ((current.tm_year == today.tm_year)
  317. !         && (current.tm_yday < today.tm_yday)))
  318. !         totdays = -totdays;
  319. !     current.tm_wday =
  320. !         ((totdays % 7) + 7 + today.tm_wday) % 7;
  321.   }
  322.   
  323.   /*
  324.  
  325. --- 171,178 -----
  326.               current.tm_year++;
  327.           }
  328.       }
  329. !     current.tm_yday = day_of_year((double)current.tm_mday, current.tm_mon+1, current.tm_year+1900);
  330. !     current.tm_wday = get_day_of_week((double)current.tm_mday, current.tm_mon+1, current.tm_year+1900);
  331.   }
  332.   
  333.   /*
  334. ***************
  335. *** 188,194
  336.   {
  337.       static int    monthlengths[] = {31,28,31,30,31,30,31,31,30,31,30,31};
  338.   
  339. !     if (month == FEB && (dysize(current.tm_year + 1900) == 366))
  340.           return(29);
  341.       else
  342.           return(monthlengths[month]);
  343.  
  344. --- 197,203 -----
  345.   {
  346.       static int    monthlengths[] = {31,28,31,30,31,30,31,31,30,31,30,31};
  347.   
  348. !     if (month == FEB && (length_of_year(current.tm_year + 1900) == 366))
  349.           return(29);
  350.       else
  351.           return(monthlengths[month]);
  352. ***************
  353. *** 194,199
  354.           return(monthlengths[month]);
  355.   }
  356.   
  357.   /*
  358.    *
  359.    * Append data from active timeslots to end of "tmp.appointments"
  360.  
  361. --- 203,209 -----
  362.           return(monthlengths[month]);
  363.   }
  364.   
  365. + #ifndef CALENCHECK
  366.   /*
  367.    *
  368.    * Append data from active timeslots to end of "tmp.appointments"
  369. ***************
  370. *** 256,261
  371.           return(1);
  372.       xrename(tmpapts_pathname, apts_pathname);
  373.   }
  374.   
  375.   /*
  376.    * get entry from appointments file
  377.  
  378. --- 266,272 -----
  379.           return(1);
  380.       xrename(tmpapts_pathname, apts_pathname);
  381.   }
  382. + #endif  /* CALENCHECK */
  383.   
  384.   /*
  385.    * get entry from appointments file
  386. ***************
  387. *** 260,266
  388.   /*
  389.    * get entry from appointments file
  390.    */
  391. ! get_aentry(apts_file, appt)
  392.   FILE *apts_file;
  393.   struct appt_entry *appt;
  394.   {
  395.  
  396. --- 271,277 -----
  397.   /*
  398.    * get entry from appointments file
  399.    */
  400. ! get_aentry(apts_file, appt, noInclude)
  401.   FILE *apts_file;
  402.   struct appt_entry *appt;
  403.   int noInclude;
  404. ***************
  405. *** 263,268
  406.   get_aentry(apts_file, appt)
  407.   FILE *apts_file;
  408.   struct appt_entry *appt;
  409.   {
  410.       char *ptr, *str;
  411.       char *fgets(), *index();
  412.  
  413. --- 274,280 -----
  414.   get_aentry(apts_file, appt, noInclude)
  415.   FILE *apts_file;
  416.   struct appt_entry *appt;
  417. + int noInclude;
  418.   {
  419.       char *ptr, *str;
  420.       char *fgets(), *index();
  421. ***************
  422. *** 267,273
  423.       char *ptr, *str;
  424.       char *fgets(), *index();
  425.       char *incl_ptr, incl_buf[128], wday[3];
  426. !     int i, lib;
  427.       struct stat sbuf;
  428.       static FILE *include;
  429.   
  430.  
  431. --- 279,285 -----
  432.       char *ptr, *str;
  433.       char *fgets(), *index();
  434.       char *incl_ptr, incl_buf[128], wday[3];
  435. !     int i, lib, parse_options, nodata = 1;
  436.       struct stat sbuf;
  437.       static FILE *include[MAX_INCLUDE_NESTING];
  438.   
  439. ***************
  440. *** 269,275
  441.       char *incl_ptr, incl_buf[128], wday[3];
  442.       int i, lib;
  443.       struct stat sbuf;
  444. !     static FILE *include;
  445.   
  446.       appt->flags = appt->repeat = appt->lookahead = 0;
  447.       appt->sindex = 0;
  448.  
  449. --- 281,287 -----
  450.       char *incl_ptr, incl_buf[128], wday[3];
  451.       int i, lib, parse_options, nodata = 1;
  452.       struct stat sbuf;
  453. !     static FILE *include[MAX_INCLUDE_NESTING];
  454.   
  455.       appt->flags = appt->repeat = appt->lookahead = 0;
  456.       appt->sindex = 0;
  457. ***************
  458. *** 273,278
  459.   
  460.       appt->flags = appt->repeat = appt->lookahead = 0;
  461.       appt->sindex = 0;
  462.       appt->next = NULL;
  463.       if (including) {
  464.           if (fgets(inbuf, 512, include) == NULL) {
  465.  
  466. --- 285,291 -----
  467.   
  468.       appt->flags = appt->repeat = appt->lookahead = 0;
  469.       appt->sindex = 0;
  470. +     appt->runlength = 0;
  471.       appt->next = NULL;
  472.       /* If noInclude is set then don't follow include files, i.e.
  473.        * treat #include directives as comments. This is useful for
  474. ***************
  475. *** 274,286
  476.       appt->flags = appt->repeat = appt->lookahead = 0;
  477.       appt->sindex = 0;
  478.       appt->next = NULL;
  479. !     if (including) {
  480. !         if (fgets(inbuf, 512, include) == NULL) {
  481. !             /* end of include file - get next entry
  482. !              * from main file
  483. !              */
  484. !             including = 0;
  485. !             fclose(include);
  486.               if (fgets(inbuf, 512, apts_file) == NULL)
  487.                   return(EOF);
  488.           } else {
  489.  
  490. --- 287,310 -----
  491.       appt->sindex = 0;
  492.       appt->runlength = 0;
  493.       appt->next = NULL;
  494. !     /* If noInclude is set then don't follow include files, i.e.
  495. !      * treat #include directives as comments. This is useful for
  496. !      * copying the appts file.
  497. !      */
  498. !     while (nodata) {
  499. !         if (include_level) {
  500. !             if (fgets(inbuf, 512, include[include_level-1]) == NULL) {
  501. !                 /* end of include file - get next entry
  502. !                  * from previous level of nesting
  503. !                  */
  504. !                 fclose(include[include_level-1]);
  505. !                 include_level--;
  506. !             } else {
  507. !                 /* don't modify stuff from include files */
  508. !                 appt->flags |= READONLY;
  509. !                 nodata = 0;    /* still data in file */
  510. !             }
  511. !         } else {
  512.               if (fgets(inbuf, 512, apts_file) == NULL)
  513.                   return(EOF);
  514.               else
  515. ***************
  516. *** 283,292
  517.               fclose(include);
  518.               if (fgets(inbuf, 512, apts_file) == NULL)
  519.                   return(EOF);
  520. !         } else {
  521. !             including = 2;
  522. !             /* don't modify stuff from include files */
  523. !             appt->flags |= READONLY;
  524.           }
  525.       } else
  526.           if (fgets(inbuf, 512, apts_file) == NULL)
  527.  
  528. --- 307,314 -----
  529.           } else {
  530.               if (fgets(inbuf, 512, apts_file) == NULL)
  531.                   return(EOF);
  532. !             else
  533. !                 nodata = 0;    /* still data in file */
  534.           }
  535.       }
  536.       ptr = inbuf;
  537. ***************
  538. *** 288,296
  539.               /* don't modify stuff from include files */
  540.               appt->flags |= READONLY;
  541.           }
  542. !     } else
  543. !         if (fgets(inbuf, 512, apts_file) == NULL)
  544. !             return(EOF);
  545.       ptr = inbuf;
  546.       if (*ptr == '#') {
  547.           if (!strcmp(inbuf, HEADER) && !including) {
  548.  
  549. --- 310,316 -----
  550.               else
  551.                   nodata = 0;    /* still data in file */
  552.           }
  553. !     }
  554.       ptr = inbuf;
  555.       if (noInclude && *ptr == '#') {
  556.           appt->flags |= A_COMMENT;
  557. ***************
  558. *** 292,297
  559.           if (fgets(inbuf, 512, apts_file) == NULL)
  560.               return(EOF);
  561.       ptr = inbuf;
  562.       if (*ptr == '#') {
  563.           if (!strcmp(inbuf, HEADER) && !including) {
  564.               /* first line in file read */
  565.  
  566. --- 312,321 -----
  567.           }
  568.       }
  569.       ptr = inbuf;
  570. +     if (noInclude && *ptr == '#') {
  571. +         appt->flags |= A_COMMENT;
  572. +         return(0);
  573. +     }
  574.       if (*ptr == '#') {
  575.           if (!strcmp(inbuf, HEADER) && !include_level) {
  576.               /* first line in base file read */
  577. ***************
  578. *** 293,300
  579.               return(EOF);
  580.       ptr = inbuf;
  581.       if (*ptr == '#') {
  582. !         if (!strcmp(inbuf, HEADER) && !including) {
  583. !             /* first line in file read */
  584.               if (include_old && (First.tm_year < today.tm_year)) {
  585.                   /* read in old include file (if it exists) */
  586.                   /* prepend directory info */
  587.  
  588. --- 317,324 -----
  589.           return(0);
  590.       }
  591.       if (*ptr == '#') {
  592. !         if (!strcmp(inbuf, HEADER) && !include_level) {
  593. !             /* first line in base file read */
  594.               if (include_old && (First.tm_year < today.tm_year)) {
  595.                   /* read in old include file (if it exists) */
  596.                   /* prepend directory info */
  597. ***************
  598. *** 301,310
  599.                   sprintf(incl_buf, "%s/.appointments.%02d",
  600.                       apts_dir, First.tm_year);
  601.                   if (!stat(incl_buf, &sbuf)) {
  602. !                     if ((include = fopen(incl_buf, "r")) == NULL)
  603. !                         err_rpt("can't open include file (ignored)", NON_FATAL);
  604. !                     else
  605. !                         including = 1;
  606.                   }
  607.               }
  608.           } else if (!strncmp(inbuf, "#include", 8)) {
  609.  
  610. --- 325,337 -----
  611.                   sprintf(incl_buf, "%s/.appointments.%02d",
  612.                       apts_dir, First.tm_year);
  613.                   if (!stat(incl_buf, &sbuf)) {
  614. !                     if ((include[include_level] = fopen(incl_buf, "r")) == NULL) {
  615. !                         strcpy(errbuf, "can't open include file <");
  616. !                         strcat(errbuf, incl_buf);
  617. !                         strcat(errbuf, "> (ignored)");
  618. !                         err_rpt(errbuf, NON_FATAL);
  619. !                     } else
  620. !                         include_level++;
  621.                   }
  622.               }
  623.           } else if (!strncmp(inbuf, "#include", 8)) {
  624. ***************
  625. *** 309,316
  626.               }
  627.           } else if (!strncmp(inbuf, "#include", 8)) {
  628.               /* include file */
  629. !             if (including)
  630. !                 err_rpt("include files may not be nested", FATAL);
  631.               incl_ptr = strbuf;
  632.               if ((ptr = index(inbuf, '"')) == NULL)
  633.   
  634.  
  635. --- 336,346 -----
  636.               }
  637.           } else if (!strncmp(inbuf, "#include", 8)) {
  638.               /* include file */
  639. !             if (include_level > MAX_INCLUDE_NESTING) {
  640. !                 err_rpt("include files nested too deep (ignored)", NON_FATAL);
  641. !                 appt->flags |= A_COMMENT;
  642. !                 return(0);
  643. !             }
  644.               incl_ptr = strbuf;
  645.               if ((ptr = index(inbuf, '"')) == NULL)
  646.   
  647. ***************
  648. *** 316,321
  649.   
  650.                   if ((ptr = index(inbuf, '<')) == NULL) {
  651.                       err_rpt("missing '\"' or '<' in include file spec", NON_FATAL);
  652.                       return(0);
  653.                   } else {
  654.                       lib = 1;
  655.  
  656. --- 346,352 -----
  657.   
  658.                   if ((ptr = index(inbuf, '<')) == NULL) {
  659.                       err_rpt("missing '\"' or '<' in include file spec", NON_FATAL);
  660. +                     appt->flags |= A_COMMENT;
  661.                       return(0);
  662.                   } else {
  663.                       lib = 1;
  664. ***************
  665. *** 327,332
  666.                   *incl_ptr++ = *ptr++;
  667.               if (! *ptr) {
  668.                   err_rpt("missing '\"' or '>' in include file spec", NON_FATAL);
  669.                   return(0);
  670.               }
  671.               *incl_ptr = '\0';
  672.  
  673. --- 358,364 -----
  674.                   *incl_ptr++ = *ptr++;
  675.               if (! *ptr) {
  676.                   err_rpt("missing '\"' or '>' in include file spec", NON_FATAL);
  677. +                 appt->flags |= A_COMMENT;
  678.                   return(0);
  679.               }
  680.               *incl_ptr = '\0';
  681. ***************
  682. *** 339,348
  683.                       sprintf(incl_buf, "%s/%s", lib_dir, strbuf);
  684.                   else
  685.                       sprintf(incl_buf, "%s/%s", apts_dir, strbuf);
  686. !             if ((include = fopen(incl_buf, "r")) == NULL)
  687. !                 err_rpt("can't open include file (ignored)", NON_FATAL);
  688. !             else 
  689. !                 including = 1;
  690.           }
  691.           appt->flags |= A_COMMENT;
  692.           return(0);
  693.  
  694. --- 371,383 -----
  695.                       sprintf(incl_buf, "%s/%s", lib_dir, strbuf);
  696.                   else
  697.                       sprintf(incl_buf, "%s/%s", apts_dir, strbuf);
  698. !             if ((include[include_level] = fopen(incl_buf, "r")) == NULL) {
  699. !                 strcpy(errbuf, "can't open include file <");
  700. !                 strcat(errbuf, incl_buf);
  701. !                 strcat(errbuf, "> (ignored)");
  702. !                 err_rpt(errbuf, NON_FATAL);
  703. !             } else 
  704. !                 include_level++;
  705.           }
  706.           appt->flags |= A_COMMENT;
  707.           return(0);
  708. ***************
  709. *** 367,373
  710.           }
  711.           /* sanity check */
  712.           if (appt->year < 0) {
  713. !             err_rpt("illegal year value (ignored)", NON_FATAL);
  714.               return(1);
  715.           }
  716.       }
  717.  
  718. --- 402,409 -----
  719.           }
  720.           /* sanity check */
  721.           if (appt->year < 0) {
  722. !             sprintf(errbuf, "illegal year value [%d] (ignored)", appt->year);
  723. !             err_rpt(errbuf, NON_FATAL);
  724.               return(1);
  725.           }
  726.       }
  727. ***************
  728. *** 383,389
  729.           if (one_based) (appt->month)--;
  730.           /* sanity check */
  731.           if (appt->month < JAN || appt->month > DEC) {
  732. -             /*
  733.               sprintf(errbuf, "illegal month value [%d] (ignored)", appt->month);
  734.               err_rpt(errbuf, NON_FATAL);
  735.               */
  736.  
  737. --- 419,424 -----
  738.           if (one_based) (appt->month)--;
  739.           /* sanity check */
  740.           if (appt->month < JAN || appt->month > DEC) {
  741.               sprintf(errbuf, "illegal month value [%d] (ignored)", appt->month);
  742.               err_rpt(errbuf, NON_FATAL);
  743.               return(1);
  744. ***************
  745. *** 386,393
  746.               /*
  747.               sprintf(errbuf, "illegal month value [%d] (ignored)", appt->month);
  748.               err_rpt(errbuf, NON_FATAL);
  749. -             */
  750. -             err_rpt("illegal month value (ignored)", NON_FATAL);
  751.               return(1);
  752.           }
  753.       }
  754.  
  755. --- 421,426 -----
  756.           if (appt->month < JAN || appt->month > DEC) {
  757.               sprintf(errbuf, "illegal month value [%d] (ignored)", appt->month);
  758.               err_rpt(errbuf, NON_FATAL);
  759.               return(1);
  760.           }
  761.       }
  762. ***************
  763. *** 405,411
  764.           if (!one_based) (appt->day)++;
  765.           /* sanity check */
  766.           if (appt->day < 1 || appt->day > 31) {
  767. !             err_rpt("illegal day value (ignored)", NON_FATAL);
  768.               return(1);
  769.           }
  770.       } else {
  771.  
  772. --- 438,445 -----
  773.           if (!one_based) (appt->day)++;
  774.           /* sanity check */
  775.           if (appt->day < 1 || appt->day > 31) {
  776. !             sprintf(errbuf, "illegal day value [%d] (ignored)", appt->day);
  777. !             err_rpt(errbuf, NON_FATAL);
  778.               return(1);
  779.           }
  780.       } else {
  781. ***************
  782. *** 431,437
  783.               appt->flags |= EVERY_SAT;
  784.           else {
  785.               /* sanity check */
  786. !             err_rpt("illegal day name (ignored)", NON_FATAL);
  787.               return(1);
  788.           }
  789.           appt->day = 0;
  790.  
  791. --- 465,472 -----
  792.               appt->flags |= EVERY_SAT;
  793.           else {
  794.               /* sanity check */
  795. !             sprintf(errbuf, "illegal day name [%s] (ignored)", wday);
  796. !             err_rpt(errbuf, NON_FATAL);
  797.               return(1);
  798.           }
  799.           appt->day = 0;
  800. ***************
  801. *** 445,451
  802.       appt->hour += *++ptr - '0';
  803.       /* sanity check */
  804.       if (appt->hour < 0 || (appt->hour > 23 && appt->hour != 99)) {
  805. !         err_rpt("illegal hour value (ignored)", NON_FATAL);
  806.           return(1);
  807.       }
  808.       if ((version2 && appt->hour == 99) || (!version2 && appt->hour == 0))
  809.  
  810. --- 480,487 -----
  811.       appt->hour += *++ptr - '0';
  812.       /* sanity check */
  813.       if (appt->hour < 0 || (appt->hour > 23 && appt->hour != 99)) {
  814. !         sprintf(errbuf, "illegal hour value [%d] (ignored)", appt->hour);
  815. !         err_rpt(errbuf, NON_FATAL);
  816.           return(1);
  817.       }
  818.       if ((version2 && appt->hour == 99) || (!version2 && appt->hour == 0))
  819. ***************
  820. *** 460,466
  821.           /* minutes currently can only be 00 or 30
  822.            * unless it's a note.
  823.            */
  824. !         err_rpt("illegal minute value (ignored)", NON_FATAL);
  825.           return(1);
  826.       }
  827.       if ((appt->flags & A_NOTE) && version2 && appt->minute == 99)
  828.  
  829. --- 496,503 -----
  830.           /* minutes currently can only be 00 or 30
  831.            * unless it's a note.
  832.            */
  833. !         sprintf(errbuf, "illegal minute value [%d] (ignored)", appt->minute);
  834. !         err_rpt(errbuf, NON_FATAL);
  835.           return(1);
  836.       }
  837.       if ((appt->flags & A_NOTE) && version2 && appt->minute == 99)
  838. ***************
  839. *** 472,478
  840.       appt->arrows += *++ptr - '0';
  841.       /* sanity check */
  842.       if (appt->arrows < 0 || appt->arrows > N_TSLOTS) {
  843. !         err_rpt("illegal arrow value (ignored)", NON_FATAL);
  844.           return(1);
  845.       }
  846.       ++ptr;
  847.  
  848. --- 509,516 -----
  849.       appt->arrows += *++ptr - '0';
  850.       /* sanity check */
  851.       if (appt->arrows < 0 || appt->arrows > N_TSLOTS) {
  852. !         sprintf(errbuf, "illegal arrow value [%d] (ignored)", appt->arrows);
  853. !         err_rpt(errbuf, NON_FATAL);
  854.           return(1);
  855.       }
  856.       ++ptr;
  857. ***************
  858. *** 480,513
  859.           ++ptr;
  860.       /* lookahead and repeat entries are free format, i.e. they */
  861.       /* can occur in either order */
  862. !     if (*ptr == '[') {
  863. !         appt->flags |= REPEAT;
  864. !         if (appt->flags & EVERY_SOMEDAY) {
  865. !             if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
  866. !                 return(1);
  867. !         } else {
  868. !             if ((appt->repeat = do_repeat(&ptr)) < 0)
  869. !                 return(1);
  870. !         }
  871. !         if (*ptr == '<') {
  872. !             appt->flags |= LOOKAHEAD;
  873. !             if ((appt->lookahead = do_lookahead(&ptr)) < 0)
  874. !                 return(1);
  875. !         }
  876. !         if (*ptr == '#') {
  877. !             appt->flags |= DELETED;
  878. !             ++ptr;
  879. !             while (isspace(*ptr))
  880. !                 ++ptr;
  881. !         }
  882. !     } else if (*ptr == '<') {
  883. !         appt->flags |= LOOKAHEAD;
  884. !         if ((appt->lookahead = do_lookahead(&ptr)) < 0)
  885. !             return(1);
  886. !         if (*ptr == '[') {
  887. !             appt->flags |= REPEAT;
  888. !             if (appt->flags & EVERY_SOMEDAY) {
  889. !                 if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
  890.                       return(1);
  891.               } else {
  892.                   if ((appt->repeat = do_repeat(&ptr)) < 0)
  893.  
  894. --- 518,542 -----
  895.           ++ptr;
  896.       /* lookahead and repeat entries are free format, i.e. they */
  897.       /* can occur in either order */
  898. !     parse_options = TRUE;
  899. !     while (parse_options) {
  900. !         switch (*ptr) {
  901. !             case '[':
  902. !                 /* repeating appointment */
  903. !                 appt->flags |= REPEAT;
  904. !                 if (appt->flags & EVERY_SOMEDAY) {
  905. !                     if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
  906. !                         return(1);
  907. !                 } else {
  908. !                     if ((appt->repeat = do_repeat(&ptr)) < 0)
  909. !                         return(1);
  910. !                 }
  911. !                 break;
  912. !             
  913. !             case '<':
  914. !                 /* remind us ahead of time */
  915. !                 appt->flags |= LOOKAHEAD;
  916. !                 if ((appt->lookahead = do_lookahead(&ptr)) < 0)
  917.                       return(1);
  918.                   break;
  919.               
  920. ***************
  921. *** 509,516
  922.               if (appt->flags & EVERY_SOMEDAY) {
  923.                   if ((appt->repeat = do_wk_repeat(&ptr)) < 0)
  924.                       return(1);
  925. !             } else {
  926. !                 if ((appt->repeat = do_repeat(&ptr)) < 0)
  927.                       return(1);
  928.               }
  929.           }
  930.  
  931. --- 538,551 -----
  932.                   appt->flags |= LOOKAHEAD;
  933.                   if ((appt->lookahead = do_lookahead(&ptr)) < 0)
  934.                       return(1);
  935. !                 break;
  936. !             
  937. !             case '+':
  938. !                 /* this appointment lasts for n days */
  939. !                 appt->flags |= RUN;
  940. !                 while (isdigit(*++ptr))
  941. !                     appt->runlength = appt->runlength * 10 + (int)(*ptr - '0');
  942. !                 if (appt->runlength < 0)
  943.                       return(1);
  944.                   if (!(appt->flags & REPEAT)) {
  945.                       /* default to run of days */
  946. ***************
  947. *** 512,523
  948.               } else {
  949.                   if ((appt->repeat = do_repeat(&ptr)) < 0)
  950.                       return(1);
  951. !             }
  952. !         }
  953. !         if (*ptr == '#') {
  954. !             appt->flags |= DELETED;
  955. !             ++ptr;
  956. !             while (isspace(*ptr))
  957.                   ++ptr;
  958.           }
  959.       } else if (*ptr == '#') {
  960.  
  961. --- 547,562 -----
  962.                       appt->runlength = appt->runlength * 10 + (int)(*ptr - '0');
  963.                   if (appt->runlength < 0)
  964.                       return(1);
  965. !                 if (!(appt->flags & REPEAT)) {
  966. !                     /* default to run of days */
  967. !                     appt->flags |= REPEAT;
  968. !                     appt->repeat = 1;
  969. !                 }
  970. !                 break;
  971. ! 
  972. !             case '#':
  973. !                 /* deleted appointment */
  974. !                 appt->flags |= DELETED;
  975.                   ++ptr;
  976.                   break;
  977.               
  978. ***************
  979. *** 519,524
  980.               ++ptr;
  981.               while (isspace(*ptr))
  982.                   ++ptr;
  983.           }
  984.       } else if (*ptr == '#') {
  985.           appt->flags |= DELETED;
  986.  
  987. --- 558,568 -----
  988.                   /* deleted appointment */
  989.                   appt->flags |= DELETED;
  990.                   ++ptr;
  991. +                 break;
  992. +             
  993. +             default:
  994. +                 parse_options = FALSE;
  995. +                 break;
  996.           }
  997.           while (isspace(*ptr))
  998.               ++ptr;
  999. ***************
  1000. *** 520,528
  1001.               while (isspace(*ptr))
  1002.                   ++ptr;
  1003.           }
  1004. -     } else if (*ptr == '#') {
  1005. -         appt->flags |= DELETED;
  1006. -         ++ptr;
  1007.           while (isspace(*ptr))
  1008.               ++ptr;
  1009.       }
  1010.  
  1011. --- 564,569 -----
  1012.                   parse_options = FALSE;
  1013.                   break;
  1014.           }
  1015.           while (isspace(*ptr))
  1016.               ++ptr;
  1017.       }
  1018. ***************
  1019. *** 553,560
  1020.           return(-1);
  1021.       }
  1022.       ++*ptr;
  1023. -     while (isspace(**ptr))
  1024. -         ++*ptr;
  1025.       return(repeat);
  1026.   }
  1027.   
  1028.  
  1029. --- 594,599 -----
  1030.           return(-1);
  1031.       }
  1032.       ++*ptr;
  1033.       return(repeat);
  1034.   }
  1035.   
  1036. ***************
  1037. *** 584,592
  1038.           return(-1);
  1039.       }
  1040.       ++*ptr;
  1041. -     while (isspace(**ptr))
  1042. -         ++*ptr;
  1043. - 
  1044.       return(repeat);
  1045.   }
  1046.   
  1047.  
  1048. --- 623,628 -----
  1049.           return(-1);
  1050.       }
  1051.       ++*ptr;
  1052.       return(repeat);
  1053.   }
  1054.   
  1055. ***************
  1056. *** 608,615
  1057.           return(-1);
  1058.       }
  1059.       ++*ptr;
  1060. -     while (isspace(**ptr))
  1061. -         ++*ptr;
  1062.       return(lookahead);
  1063.   }
  1064.   
  1065.  
  1066. --- 644,649 -----
  1067.           return(-1);
  1068.       }
  1069.       ++*ptr;
  1070.       return(lookahead);
  1071.   }
  1072.   
  1073. ***************
  1074. *** 687,692
  1075.   
  1076.       if (appt->flags & LOOKAHEAD)
  1077.           fprintf(apts_file, "<%d> ", appt->lookahead);
  1078.       if (appt->flags & DELETED)
  1079.           fprintf(apts_file, "# %s\n", appt->str);
  1080.       else
  1081.  
  1082. --- 721,728 -----
  1083.   
  1084.       if (appt->flags & LOOKAHEAD)
  1085.           fprintf(apts_file, "<%d> ", appt->lookahead);
  1086. +     if (appt->flags & RUN)
  1087. +         fprintf(apts_file, "+%d ", appt->runlength);
  1088.       if (appt->flags & DELETED)
  1089.           fprintf(apts_file, "# %s\n", appt->str);
  1090.       else
  1091. ***************
  1092. *** 726,731
  1093.       return (rptstr);
  1094.   }
  1095.   
  1096.   /*
  1097.    * Print today's appointments to stdout or mail (useful if we only have an ASCII
  1098.    * terminal connected to our Sun). Invoked by the "-p", "-P" or "-m" options.
  1099.  
  1100. --- 762,768 -----
  1101.       return (rptstr);
  1102.   }
  1103.   
  1104. + #ifndef CALENCHECK
  1105.   /*
  1106.    * Print today's appointments to stdout or mail (useful if we only have an ASCII
  1107.    * terminal connected to our Sun). Invoked by the "-p", "-P", "-m" or
  1108. ***************
  1109. *** 728,734
  1110.   
  1111.   /*
  1112.    * Print today's appointments to stdout or mail (useful if we only have an ASCII
  1113. !  * terminal connected to our Sun). Invoked by the "-p", "-P" or "-m" options.
  1114.    * Month information is only printed as PostScript output.
  1115.    */
  1116.   print_apts(which, dest)
  1117.  
  1118. --- 765,772 -----
  1119.   #ifndef CALENCHECK
  1120.   /*
  1121.    * Print today's appointments to stdout or mail (useful if we only have an ASCII
  1122. !  * terminal connected to our Sun). Invoked by the "-p", "-P", "-m" or
  1123. !  * "-M" options.
  1124.    * Month information is only printed as PostScript output.
  1125.    */
  1126.   print_apts(which, dest)
  1127. ***************
  1128. *** 734,740
  1129.   print_apts(which, dest)
  1130.   int which, dest;
  1131.   {
  1132. !     int i;
  1133.       FILE *output, *pfp, *popen();
  1134.       char cmd[80], *name, *cuserid();
  1135.   
  1136.  
  1137. --- 772,778 -----
  1138.   print_apts(which, dest)
  1139.   int which, dest;
  1140.   {
  1141. !     int i, gd_rtn;
  1142.       FILE *output, *pfp, *popen();
  1143.       char cmd[80], *name, *cuserid();
  1144.   
  1145. ***************
  1146. *** 738,746
  1147.       FILE *output, *pfp, *popen();
  1148.       char cmd[80], *name, *cuserid();
  1149.   
  1150. -     if (dest == DST_MAIL)
  1151. -         /* only mail one day's appts */
  1152. -         which = PRI_DAY;
  1153.       fix_current_day();
  1154.       if ((which == PRI_DAY) && !get_day_appts())
  1155.           return;    /* nothing to show */
  1156.  
  1157. --- 776,781 -----
  1158.       FILE *output, *pfp, *popen();
  1159.       char cmd[80], *name, *cuserid();
  1160.   
  1161.       fix_current_day();
  1162.       gd_rtn = get_day_appts();
  1163.       if (which == PRI_DAY && !gd_rtn)
  1164. ***************
  1165. *** 742,748
  1166.           /* only mail one day's appts */
  1167.           which = PRI_DAY;
  1168.       fix_current_day();
  1169. !     if ((which == PRI_DAY) && !get_day_appts())
  1170.           return;    /* nothing to show */
  1171.       if (dest == DST_MAIL) {
  1172.           if (mailto != NULL) {
  1173.  
  1174. --- 777,784 -----
  1175.       char cmd[80], *name, *cuserid();
  1176.   
  1177.       fix_current_day();
  1178. !     gd_rtn = get_day_appts();
  1179. !     if (which == PRI_DAY && !gd_rtn)
  1180.           return;    /* nothing to show */
  1181.       if (which == PRI_DAY_XNOTES && gd_rtn == SOME_MKNOTES)
  1182.           /* all we have is marked notes */
  1183. ***************
  1184. *** 744,749
  1185.       fix_current_day();
  1186.       if ((which == PRI_DAY) && !get_day_appts())
  1187.           return;    /* nothing to show */
  1188.       if (dest == DST_MAIL) {
  1189.           if (mailto != NULL) {
  1190.               name = mailto;
  1191.  
  1192. --- 780,788 -----
  1193.       gd_rtn = get_day_appts();
  1194.       if (which == PRI_DAY && !gd_rtn)
  1195.           return;    /* nothing to show */
  1196. +     if (which == PRI_DAY_XNOTES && gd_rtn == SOME_MKNOTES)
  1197. +         /* all we have is marked notes */
  1198. +         return;    /* nothing to show */
  1199.       if (dest == DST_MAIL) {
  1200.           if (mailto != NULL) {
  1201.               name = mailto;
  1202. ***************
  1203. *** 750,756
  1204.           } else if ((name = cuserid(NULL)) == NULL) {
  1205.               err_rpt("nobody to mail to", FATAL);
  1206.           }
  1207. !         sprintf(cmd, "mail -s \"Appointments for today\" %s", name);
  1208.           if ((output = popen(cmd, "w")) == NULL)
  1209.               err_rpt("Couldn't pipe to 'mail'", FATAL);
  1210.       } else {
  1211.  
  1212. --- 789,795 -----
  1213.           } else if ((name = cuserid(NULL)) == NULL) {
  1214.               err_rpt("nobody to mail to", FATAL);
  1215.           }
  1216. !         sprintf(cmd, "%s -s \"Appointments for today\" %s", MAILPROG, name);
  1217.           if ((output = popen(cmd, "w")) == NULL)
  1218.               err_rpt("Couldn't pipe to 'mail'", FATAL);
  1219.       } else {
  1220. ***************
  1221. *** 758,764
  1222.       }
  1223.       
  1224.       if (which == PRI_DAY || which == PRI_DAY_XNOTES) {
  1225. !         print_one_day(which, output);
  1226.       } else if (which == PRI_WEEK || which == PRI_WEEK_XNOTES) {
  1227.           current.tm_mday -= current.tm_wday; /* Sunday of this week */
  1228.           fix_current_day();
  1229.  
  1230. --- 797,803 -----
  1231.       }
  1232.       
  1233.       if (which == PRI_DAY || which == PRI_DAY_XNOTES) {
  1234. !         print_one_day(which, output, gd_rtn);
  1235.       } else if (which == PRI_WEEK || which == PRI_WEEK_XNOTES) {
  1236.           current.tm_mday -= current.tm_wday; /* Sunday of this week */
  1237.           fix_current_day();
  1238. ***************
  1239. *** 762,768
  1240.       } else if (which == PRI_WEEK || which == PRI_WEEK_XNOTES) {
  1241.           current.tm_mday -= current.tm_wday; /* Sunday of this week */
  1242.           fix_current_day();
  1243. !         if (nr_weekdays < 7) {
  1244.               current.tm_mday++;
  1245.               fix_current_day();
  1246.           }
  1247.  
  1248. --- 801,807 -----
  1249.       } else if (which == PRI_WEEK || which == PRI_WEEK_XNOTES) {
  1250.           current.tm_mday -= current.tm_wday; /* Sunday of this week */
  1251.           fix_current_day();
  1252. !         if (nr_weekdays < 7 || monday_first) {
  1253.               current.tm_mday++;
  1254.               fix_current_day();
  1255.           }
  1256. ***************
  1257. *** 767,774
  1258.               fix_current_day();
  1259.           }
  1260.           for (i=0;i<nr_weekdays;i++) {
  1261. !             if (get_day_appts())
  1262. !                 print_one_day(which, output);
  1263.               current.tm_mday++;
  1264.               fix_current_day();
  1265.           }
  1266.  
  1267. --- 806,814 -----
  1268.               fix_current_day();
  1269.           }
  1270.           for (i=0;i<nr_weekdays;i++) {
  1271. !             gd_rtn = get_day_appts();
  1272. !             if ((gd_rtn && which == PRI_WEEK) || (gd_rtn & ~SOME_MKNOTES && which == PRI_WEEK_XNOTES))
  1273. !                 print_one_day(which, output, gd_rtn);
  1274.               current.tm_mday++;
  1275.               fix_current_day();
  1276.           }
  1277. ***************
  1278. *** 780,786
  1279.           pclose(output);
  1280.   }
  1281.   
  1282. ! print_one_day(which, output)
  1283.   int which;
  1284.   FILE *output;
  1285.   {
  1286.  
  1287. --- 820,826 -----
  1288.           pclose(output);
  1289.   }
  1290.   
  1291. ! print_one_day(which, output, gdrtn)
  1292.   int which;
  1293.   FILE *output;
  1294.   int gdrtn;
  1295. ***************
  1296. *** 783,788
  1297.   print_one_day(which, output)
  1298.   int which;
  1299.   FILE *output;
  1300.   {
  1301.       int i;
  1302.       struct appt_entry tmp_apt;
  1303.  
  1304. --- 823,829 -----
  1305.   print_one_day(which, output, gdrtn)
  1306.   int which;
  1307.   FILE *output;
  1308. + int gdrtn;
  1309.   {
  1310.       int i;
  1311.       struct appt_entry tmp_apt;
  1312. ***************
  1313. *** 788,796
  1314.       struct appt_entry tmp_apt;
  1315.       char *format_appt();
  1316.   
  1317. !     fprintf(output,"\n\t*** Appointments for %s %s %d, %d ***\n\n", 
  1318. !         daynames[current.tm_wday], monthnames[current.tm_mon],
  1319. !         current.tm_mday, current.tm_year+1900);
  1320.   
  1321.       for (i=0; i<N_SLOTS; i++) {
  1322.           if (i == n_tslots)
  1323.  
  1324. --- 829,842 -----
  1325.       struct appt_entry tmp_apt;
  1326.       char *format_appt();
  1327.   
  1328. !     if (day_first)
  1329. !         fprintf(output,"\n\t*** Appointments for %s %d %s %d ***\n\n", 
  1330. !             daynames[current.tm_wday], current.tm_mday,
  1331. !             monthnames[current.tm_mon], current.tm_year+1900);
  1332. !     else
  1333. !         fprintf(output,"\n\t*** Appointments for %s %s %d, %d ***\n\n", 
  1334. !             daynames[current.tm_wday], monthnames[current.tm_mon],
  1335. !             current.tm_mday, current.tm_year+1900);
  1336.   
  1337.       for (i=0; i<N_SLOTS; i++) {
  1338.           if (i == n_tslots)
  1339. ***************
  1340. *** 795,801
  1341.       for (i=0; i<N_SLOTS; i++) {
  1342.           if (i == n_tslots)
  1343.               /* start of notes section */
  1344. !             fprintf(output,"\n\t\t     ===== Notes =====\n");
  1345.           if (slots[i].first != NULL && slots[i].count > 0) {
  1346.               /* at least one appt here */
  1347.               slots[i].cur_appt = slots[i].first;
  1348.  
  1349. --- 841,849 -----
  1350.       for (i=0; i<N_SLOTS; i++) {
  1351.           if (i == n_tslots)
  1352.               /* start of notes section */
  1353. !             if ((gdrtn & SOME_NOTES) ||
  1354. !                (!(which & PRI_XNOTES) && (gdrtn & SOME_MKNOTES)))
  1355. !                 fprintf(output,"\n\t\t     ===== Notes =====\n");
  1356.           if (slots[i].first != NULL && slots[i].count > 0) {
  1357.               /* at least one appt here */
  1358.               slots[i].cur_appt = slots[i].first;
  1359. ***************
  1360. *** 841,847
  1361.        * also support a "lookahead" reminder service to remind one
  1362.        * in advance of a future appointment.
  1363.        * If "save_old" is set, then any appointments for years prior
  1364. !      * to this one are save in a special file of the form
  1365.        * ".appointments.YY", where YY is the year.
  1366.        */
  1367.   
  1368.  
  1369. --- 889,895 -----
  1370.        * also support a "lookahead" reminder service to remind one
  1371.        * in advance of a future appointment.
  1372.        * If "save_old" is set, then any appointments for years prior
  1373. !      * to this one are saved in a special file of the form
  1374.        * ".appointments.YY", where YY is the year.
  1375.        */
  1376.   
  1377. ***************
  1378. *** 864,870
  1379.   
  1380.        /* copy existing entries to the new file */
  1381.        save_base = one_based;
  1382. !      while ((err_flag = get_aentry(oappts, &appt)) != EOF) {
  1383.           if (err_flag)
  1384.               continue;    /* ignore badly formatted input */
  1385.           if (appt.hour == 0)
  1386.  
  1387. --- 912,918 -----
  1388.   
  1389.        /* copy existing entries to the new file */
  1390.        save_base = one_based;
  1391. !      while ((err_flag = get_aentry(oappts, &appt, TRUE)) != EOF) {
  1392.           if (err_flag)
  1393.               continue;    /* ignore badly formatted input */
  1394.           if (appt.hour == 0)
  1395. ***************
  1396. *** 891,898
  1397.                   fclose(fp);
  1398.               }
  1399.           } else {
  1400. !             if (put_aentry(nappts, &appt))
  1401. !                 err_rpt("write to new appt file failed, bailing out", FATAL);
  1402.           }
  1403.           one_based = save_base;    /* (maybe) force old format input */
  1404.       }
  1405.  
  1406. --- 939,949 -----
  1407.                   fclose(fp);
  1408.               }
  1409.           } else {
  1410. !             if (appt.flags & A_COMMENT)
  1411. !                 fputs(inbuf, nappts);
  1412. !             else
  1413. !                 if (put_aentry(nappts, &appt))
  1414. !                     err_rpt("write to new appt file failed, bailing out", FATAL);
  1415.           }
  1416.           one_based = save_base;    /* (maybe) force old format input */
  1417.       }
  1418. ***************
  1419. *** 904,971
  1420.   }
  1421.   
  1422.   /*
  1423. -  * Scan appointments file for outdated appointments and save them to a
  1424. -  * special file of the form ".appointments.YY", where YY is the year
  1425. -  * of that appointment.
  1426. -  */
  1427. - create_old_files()
  1428. - {
  1429. -     FILE *oappts, *nappts, *fp;
  1430. -     struct appt_entry appt;
  1431. -     int err_flag;
  1432. -     char save_file[128];
  1433. -     struct stat stbuf;
  1434. - 
  1435. -     if (read_only != 0) {
  1436. -         err_rpt("appts file is read-only, no conversion done", NON_FATAL);
  1437. -         return;
  1438. -     }
  1439. - 
  1440. -      /* open files, etc */
  1441. -     if ((oappts = fopen(apts_pathname, "r")) == NULL) {
  1442. -         err_rpt("can't open appts file for reading", FATAL);
  1443. -         /* NOT REACHED */
  1444. -      }
  1445. -     if ((nappts = fopen(tmpapts_pathname, "w")) == NULL) {
  1446. -         err_rpt("can't open temp file for writing", NON_FATAL);
  1447. -         return;
  1448. -      }
  1449. - 
  1450. -      /* copy existing entries to the tmp file, checking dates */
  1451. -      while ((err_flag = get_aentry(oappts, &appt)) != EOF) {
  1452. -         if (err_flag)
  1453. -             continue;    /* ignore badly formatted input */
  1454. -         if (!(appt.flags & A_COMMENT)
  1455. -            && !(appt.flags & ALL_YEARS) && (appt.year < today.tm_year)
  1456. -            && !((appt.flags & REPEAT) && !(appt.flags & EVERY_SOMEDAY))) {
  1457. -             /* prepend directory info */
  1458. -             sprintf(save_file, "%s/.appointments.%02d",
  1459. -                 apts_dir, appt.year);
  1460. -             if (stat(save_file, &stbuf) && errno == ENOENT) {
  1461. -                 /* new file*/
  1462. -                 if ((fp = fopen(save_file, "w")) == NULL)
  1463. -                     err_rpt("can't open save file, bailing out", FATAL);
  1464. -                 fputs(HEADER, fp);
  1465. -                 fclose(fp);
  1466. -             }
  1467. -             if ((fp = fopen(save_file, "a+")) == NULL)
  1468. -                 err_rpt("can't open save file, bailing out", FATAL);
  1469. -             else {
  1470. -                 if (put_aentry(fp, &appt))
  1471. -                     err_rpt("write to save appt file failed, bailing out", FATAL);
  1472. -                 fclose(fp);
  1473. -             }
  1474. -         } else {
  1475. -             if (put_aentry(nappts, &appt))
  1476. -                 err_rpt("write to new appt file failed, bailing out", FATAL);
  1477. -         }
  1478. -     }
  1479. -     fclose(oappts);
  1480. -     fclose(nappts);
  1481. -     xrename(tmpapts_pathname, apts_pathname);
  1482. - }
  1483. - 
  1484. - /*
  1485.    * convert appt entry to ASCII string for display with date, time and msg
  1486.    */
  1487.   char *
  1488.  
  1489. --- 955,960 -----
  1490.   }
  1491.   
  1492.   /*
  1493.    * convert appt entry to ASCII string for display with date, time and msg
  1494.    */
  1495.   char *
  1496. ***************
  1497. *** 997,1005
  1498.       if (appt->flags & A_NOTE) {
  1499.           /* note */
  1500.           if (appt->flags & ALL_YEARS)
  1501. !             sprintf(strbuf,"%3.3s %2d/%02d    --  %s",
  1502. !                 daynames[current.tm_wday], appt->month+1,
  1503. !                 appt->day, appt->str);
  1504.           else if (appt->year > 99)
  1505.               sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1506.                   daynames[current.tm_wday], appt->month+1,
  1507.  
  1508. --- 986,999 -----
  1509.       if (appt->flags & A_NOTE) {
  1510.           /* note */
  1511.           if (appt->flags & ALL_YEARS)
  1512. !             if (day_first)
  1513. !                 sprintf(strbuf,"%3.3s %2d/%02d    --  %s",
  1514. !                     daynames[current.tm_wday], appt->day,
  1515. !                     appt->month+1, appt->str);
  1516. !             else
  1517. !                 sprintf(strbuf,"%3.3s %2d/%02d    --  %s",
  1518. !                     daynames[current.tm_wday], appt->month+1,
  1519. !                     appt->day, appt->str);
  1520.           else if (appt->year > 99)
  1521.               if (day_first)
  1522.                   sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1523. ***************
  1524. *** 1001,1009
  1525.                   daynames[current.tm_wday], appt->month+1,
  1526.                   appt->day, appt->str);
  1527.           else if (appt->year > 99)
  1528. !             sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1529. !                 daynames[current.tm_wday], appt->month+1,
  1530. !                 appt->day, appt->year-100, appt->str);
  1531.           else
  1532.               sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1533.                   daynames[current.tm_wday], appt->month+1,
  1534.  
  1535. --- 995,1008 -----
  1536.                       daynames[current.tm_wday], appt->month+1,
  1537.                       appt->day, appt->str);
  1538.           else if (appt->year > 99)
  1539. !             if (day_first)
  1540. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1541. !                     daynames[current.tm_wday], appt->day,
  1542. !                     appt->month+1, appt->year-100, appt->str);
  1543. !             else
  1544. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1545. !                     daynames[current.tm_wday], appt->month+1,
  1546. !                     appt->day, appt->year-100, appt->str);
  1547.           else
  1548.               if (day_first)
  1549.                   sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1550. ***************
  1551. *** 1005,1014
  1552.                   daynames[current.tm_wday], appt->month+1,
  1553.                   appt->day, appt->year-100, appt->str);
  1554.           else
  1555. !             sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1556. !                 daynames[current.tm_wday], appt->month+1,
  1557. !                 appt->day, appt->year, appt->str);
  1558. !     } else
  1559.           /* standard appointment */
  1560.           sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d to %2d:%02d   %s",
  1561.               daynames[current.tm_wday], appt->month+1,
  1562.  
  1563. --- 1004,1018 -----
  1564.                       daynames[current.tm_wday], appt->month+1,
  1565.                       appt->day, appt->year-100, appt->str);
  1566.           else
  1567. !             if (day_first)
  1568. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1569. !                     daynames[current.tm_wday], appt->day,
  1570. !                     appt->month+1, appt->year, appt->str);
  1571. !             else
  1572. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d --  %s",
  1573. !                     daynames[current.tm_wday], appt->month+1,
  1574. !                     appt->day, appt->year, appt->str);
  1575. !     } else {
  1576.           /* standard appointment */
  1577.           if (hour24)
  1578.               if (day_first)
  1579. ***************
  1580. *** 1010,1020
  1581.                   appt->day, appt->year, appt->str);
  1582.       } else
  1583.           /* standard appointment */
  1584. !         sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d to %2d:%02d   %s",
  1585. !             daynames[current.tm_wday], appt->month+1,
  1586. !             appt->day, appt->year, appt->hour, appt->minute,
  1587. !             e_hour, e_minutes, appt->str);
  1588. ! 
  1589.       current = Save;
  1590.       return(strbuf);
  1591.   }
  1592.  
  1593. --- 1014,1048 -----
  1594.                       appt->day, appt->year, appt->str);
  1595.       } else {
  1596.           /* standard appointment */
  1597. !         if (hour24)
  1598. !             if (day_first)
  1599. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d to %2d:%02d   %s",
  1600. !                     daynames[current.tm_wday], appt->day,
  1601. !                     appt->month+1, appt->year, appt->hour, appt->minute,
  1602. !                     e_hour, e_minutes, appt->str);
  1603. !             else
  1604. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d to %2d:%02d   %s",
  1605. !                     daynames[current.tm_wday], appt->month+1,
  1606. !                     appt->day, appt->year, appt->hour, appt->minute,
  1607. !                     e_hour, e_minutes, appt->str);
  1608. !         else
  1609. !             if (day_first)
  1610. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d%s to %2d:%02d%s   %s",
  1611. !                     daynames[current.tm_wday], appt->day,
  1612. !                     appt->month+1, appt->year, (appt->hour < 13 ? appt->hour : appt->hour-12), appt->minute,
  1613. !                     (appt->hour < 12 ? "am" : "pm"),
  1614. !                     (e_hour < 13 ? e_hour : e_hour-12), e_minutes,
  1615. !                     (e_hour < 12 ? "am" : "pm"),
  1616. !                     appt->str);
  1617. !             else
  1618. !                 sprintf(strbuf,"%3.3s %2d/%02d/%02d -- %2d:%02d%s to %2d:%02d%s   %s",
  1619. !                     daynames[current.tm_wday], appt->month+1,
  1620. !                     appt->day, appt->year, (appt->hour < 13 ? appt->hour : appt->hour-12), appt->minute,
  1621. !                     (appt->hour < 12 ? "am" : "pm"),
  1622. !                     (e_hour < 13 ? e_hour : e_hour-12), e_minutes,
  1623. !                     (e_hour < 12 ? "am" : "pm"),
  1624. !                     appt->str);
  1625. !     }
  1626.       current = Save;
  1627.       return(strbuf);
  1628.   }
  1629. ***************
  1630. *** 1046,1052
  1631.       }
  1632.   
  1633.       strbuf[0] = '\0';
  1634. !     if (!(appt->flags & A_NOTE))
  1635.           /* standard appointment */
  1636.           sprintf(strbuf,"%2d:%02d to %2d:%02d  ",
  1637.               appt->hour, appt->minute, e_hour, e_minutes);
  1638.  
  1639. --- 1074,1080 -----
  1640.       }
  1641.   
  1642.       strbuf[0] = '\0';
  1643. !     if (!(appt->flags & A_NOTE)) {
  1644.           /* standard appointment */
  1645.           if (hour24)
  1646.               sprintf(strbuf,"%2d:%02d to %2d:%02d  ",
  1647. ***************
  1648. *** 1048,1055
  1649.       strbuf[0] = '\0';
  1650.       if (!(appt->flags & A_NOTE))
  1651.           /* standard appointment */
  1652. !         sprintf(strbuf,"%2d:%02d to %2d:%02d  ",
  1653. !             appt->hour, appt->minute, e_hour, e_minutes);
  1654.       p = appt->str;
  1655.       q = strbuf + strlen(strbuf);
  1656.       while (*p) {
  1657.  
  1658. --- 1076,1091 -----
  1659.       strbuf[0] = '\0';
  1660.       if (!(appt->flags & A_NOTE)) {
  1661.           /* standard appointment */
  1662. !         if (hour24)
  1663. !             sprintf(strbuf,"%2d:%02d to %2d:%02d  ",
  1664. !                 appt->hour, appt->minute, e_hour, e_minutes);
  1665. !         else
  1666. !             sprintf(strbuf,"%2d:%02d%s to %2d:%02d%s  ",
  1667. !                 (appt->hour < 13 ? appt->hour : appt->hour-12), appt->minute,
  1668. !                 (appt->hour < 12 ? "am" : "pm"),
  1669. !                 (e_hour < 13 ? e_hour : e_hour-12), e_minutes,
  1670. !                 (e_hour < 12 ? "am" : "pm"));
  1671. !     }
  1672.       p = appt->str;
  1673.       q = strbuf + strlen(strbuf);
  1674.       while (*p) {
  1675. ***************
  1676. *** 1077,1083
  1677.   }
  1678.   
  1679.   /*
  1680. !  * parse the date on the given tring and reset the "current"
  1681.    * date to reflect that date. The date may take the form of a
  1682.    * day name (e.g. Tu, Tue, Tuesday) or a date in m/d/y format
  1683.    * where the month and/or year may be missing (e.g. 27 = 27th
  1684.  
  1685. --- 1113,1119 -----
  1686.   }
  1687.   
  1688.   /*
  1689. !  * parse the date on the given string and reset the "current"
  1690.    * date to reflect that date. The date may take the form of a
  1691.    * day name (e.g. Tu, Tue, Tuesday) or a date in m/d/y format
  1692.    * where the month and/or year may be missing (e.g. 27 = 27th
  1693. ***************
  1694. *** 1084,1089
  1695.    * of this month, 8/27 = August 27 of this year, 8/27/89 =
  1696.    * August 27 of 1989. If 'cmdline' is true, then the string
  1697.    * came from the command line '-d' option.
  1698.    */
  1699.   int
  1700.   parse_date(str, cmdline)
  1701.  
  1702. --- 1120,1128 -----
  1703.    * of this month, 8/27 = August 27 of this year, 8/27/89 =
  1704.    * August 27 of 1989. If 'cmdline' is true, then the string
  1705.    * came from the command line '-d' option.
  1706. +  * If the first character of the date is + or - scan the number and
  1707. +  * use it as an offset in days from the current date.  Thus -1 becomes
  1708. +  * yesterday and +1 becomes tomorrow. pbm.
  1709.    */
  1710.   int
  1711.   parse_date(str, cmdline)
  1712. ***************
  1713. *** 1125,1134
  1714.           }
  1715.           if (y > 0)
  1716.               current.tm_year = y;
  1717. !         if (m > 0)
  1718. !             current.tm_mon = m - 1;
  1719. !         if (d > 0)
  1720. !             current.tm_mday = d;
  1721.           fix_current_day();
  1722.       } else {
  1723.           /* day of week */
  1724.  
  1725. --- 1164,1182 -----
  1726.           }
  1727.           if (y > 0)
  1728.               current.tm_year = y;
  1729. !         if (day_first) {
  1730. !             if (m > 0) {
  1731. !                 current.tm_mon = d - 1;
  1732. !                 current.tm_mday = m;
  1733. !             } else if (d > 0)
  1734. !                 current.tm_mday = d;
  1735. !         } else {
  1736. !             if (m > 0) {
  1737. !                 current.tm_mon = m - 1;
  1738. !                 current.tm_mday = d;
  1739. !             } else if (d > 0)
  1740. !                 current.tm_mday = d;
  1741. !         }
  1742.           fix_current_day();
  1743.       } else if (*str == '-' || *str == '+') {
  1744.           /*
  1745. ***************
  1746. *** 1130,1135
  1747.           if (d > 0)
  1748.               current.tm_mday = d;
  1749.           fix_current_day();
  1750.       } else {
  1751.           /* day of week */
  1752.           /* check for day names */
  1753.  
  1754. --- 1178,1193 -----
  1755.                   current.tm_mday = d;
  1756.           }
  1757.           fix_current_day();
  1758. +     } else if (*str == '-' || *str == '+') {
  1759. +         /*
  1760. +          * If the argument begins with a + or - assume that it is an
  1761. +          * offset in days from the current date. Use current date if the
  1762. +          * number doesn't scan after the - or +. pbm
  1763. +          */
  1764. +         if (sscanf(str, "%d", &i) == 1) {
  1765. +             current.tm_mday += i;
  1766. +             fix_current_day();
  1767. +         }
  1768.       } else {
  1769.           /* day of week */
  1770.           /* check for day names */
  1771. ***************
  1772. *** 1180,1186
  1773.   
  1774.       lock_cursors();
  1775.       working(TRUE);
  1776. !     sprintf(buf, "Appointments file \"%s\" printed for %s on %s", apts_pathname, cuserid(NULL), todays_date);
  1777.       if (mainsw_state != DISPLAYING_MONTH) {
  1778.           if ((fp = fopen(rasfile, "w")) != NULL) {
  1779.               rect = (Rect *) window_get(canvas, WIN_RECT);
  1780.  
  1781. --- 1238,1244 -----
  1782.   
  1783.       lock_cursors();
  1784.       working(TRUE);
  1785. !     sprintf(buf, "Appointments file \"%s\" printed for %s on %s", apts_pathname, cuserid(NULL), clockstr);
  1786.       if (mainsw_state != DISPLAYING_MONTH) {
  1787.           if ((fp = fopen(rasfile, "w")) != NULL) {
  1788.               rect = (Rect *) window_get(canvas, WIN_RECT);
  1789. ***************
  1790. *** 1217,1223
  1791.               err_rpt("only PostScript output available for month printout", NON_FATAL);
  1792.           } else {
  1793.               if ((pfp = fopen(psfile, "w")) != NULL) {
  1794. !                 print_month(pfp, FALSE);
  1795.                   fclose(pfp);
  1796.                   sprintf(prntcmd, "%s %s", printer, psfile);
  1797.                   system(prntcmd);
  1798.  
  1799. --- 1275,1281 -----
  1800.               err_rpt("only PostScript output available for month printout", NON_FATAL);
  1801.           } else {
  1802.               if ((pfp = fopen(psfile, "w")) != NULL) {
  1803. !                 print_month(pfp, TRUE);
  1804.                   fclose(pfp);
  1805.                   sprintf(prntcmd, "%s %s", printer, psfile);
  1806.                   system(prntcmd);
  1807. ***************
  1808. *** 1230,1235
  1809.       unlock_cursors();
  1810.   }
  1811.   #endif    /* NO_PRINTER */
  1812.   
  1813.   /* set error logging flag */
  1814.   err2console(state)
  1815.  
  1816. --- 1288,1294 -----
  1817.       unlock_cursors();
  1818.   }
  1819.   #endif    /* NO_PRINTER */
  1820. + #endif  /* CALENCHECK */
  1821.   
  1822.   /* set error logging flag */
  1823.   err2console(state)
  1824. ***************
  1825. *** 1252,1257
  1826.   {
  1827.       FILE    *f;
  1828.       int    closed;
  1829.   
  1830.       closed = (int) window_get(frame, FRAME_CLOSED);
  1831.       if (frame && !log_to_console && !closed) {
  1832.  
  1833. --- 1311,1317 -----
  1834.   {
  1835.       FILE    *f;
  1836.       int    closed;
  1837. +     char *getenv();
  1838.   
  1839.   #ifndef NOTOOL
  1840.       closed = (int) window_get(frame, FRAME_CLOSED);
  1841. ***************
  1842. *** 1253,1258
  1843.       FILE    *f;
  1844.       int    closed;
  1845.   
  1846.       closed = (int) window_get(frame, FRAME_CLOSED);
  1847.       if (frame && !log_to_console && !closed) {
  1848.           /* base frame exists */
  1849.  
  1850. --- 1313,1319 -----
  1851.       int    closed;
  1852.       char *getenv();
  1853.   
  1854. + #ifndef NOTOOL
  1855.       closed = (int) window_get(frame, FRAME_CLOSED);
  1856.       if (frame && !log_to_console && !closed) {
  1857.           /* base frame exists */
  1858. ***************
  1859. *** 1260,1265
  1860.           (void) window_loop(prompt_frame);
  1861.           window_set(prompt_frame, WIN_SHOW, FALSE, 0);
  1862.       } else if ((f=fopen("/dev/console", "w")) != NULL) {
  1863.           fprintf(f, "%s: %s\n", progname, errstr);
  1864.           fclose(f);
  1865.       } else
  1866.  
  1867. --- 1321,1329 -----
  1868.           (void) window_loop(prompt_frame);
  1869.           window_set(prompt_frame, WIN_SHOW, FALSE, 0);
  1870.       } else if ((f=fopen("/dev/console", "w")) != NULL) {
  1871. + #else
  1872. +     if (getenv("WINDOW_PARENT") != NULL && (f=fopen("/dev/console", "w")) != NULL) {
  1873. + #endif
  1874.           fprintf(f, "%s: %s\n", progname, errstr);
  1875.           fclose(f);
  1876.       } else
  1877. ***************
  1878. *** 1268,1273
  1879.           exit(1);
  1880.   }
  1881.   
  1882.   /* Clean-up */
  1883.   cleanup()
  1884.   {
  1885.  
  1886. --- 1332,1338 -----
  1887.           exit(1);
  1888.   }
  1889.   
  1890. + #ifndef CALENCHECK
  1891.   /* Clean-up */
  1892.   cleanup()
  1893.   {
  1894. ***************
  1895. *** 1275,1282
  1896.           close_day();
  1897.   
  1898.       /* create outdated include files (if necessary) */
  1899. !     if (save_old)
  1900. !         create_old_files();
  1901.               
  1902.       /* delete tmp file */
  1903.       if (access(tmpapts_pathname, R_OK) == 0 && unlink(tmpapts_pathname) < 0)
  1904.  
  1905. --- 1340,1347 -----
  1906.           close_day();
  1907.   
  1908.       /* create outdated include files (if necessary) */
  1909. !     if (save_old || expire_days)
  1910. !         expire(expire_days);
  1911.               
  1912.       /* delete tmp file */
  1913.       if (access(tmpapts_pathname, R_OK) == 0 && unlink(tmpapts_pathname) < 0)
  1914. ***************
  1915. *** 1296,1298
  1916.               err_rpt("couldn't rename/copy tmp file", NON_FATAL);
  1917.       }
  1918.   }
  1919.  
  1920. --- 1361,1364 -----
  1921.               err_rpt("couldn't rename/copy tmp file", NON_FATAL);
  1922.       }
  1923.   }
  1924. + #endif  /* CALENCHECK */
  1925. *** /tmp/,RCSt1a16998    Fri Dec 15 17:24:01 1989
  1926. --- version.c    Fri Dec 15 17:18:34 1989
  1927. ***************
  1928. *** 1,5
  1929.   /*
  1930. !  * $Header: version.c,v 2.5 89/09/19 06:09:07 billr Exp $
  1931.    */
  1932.   /*
  1933.    * version.c - current version of calentool program
  1934.  
  1935. --- 1,5 -----
  1936.   /*
  1937. !  * $Header: version.c,v 2.6 89/12/15 17:18:32 billr Exp $
  1938.    */
  1939.   /*
  1940.    * version.c - current version of calentool program
  1941. ***************
  1942. *** 24,27
  1943.    * notice remains intact.
  1944.    */
  1945.   
  1946. ! char version[] = "Calendar Tool V2.1p4";
  1947.  
  1948. --- 24,27 -----
  1949.    * notice remains intact.
  1950.    */
  1951.   
  1952. ! char version[] = "Calendar Tool V2.1p5";
  1953. *** /tmp/,RCSt1a17003    Fri Dec 15 17:24:04 1989
  1954. --- wevent.c    Fri Dec 15 17:18:37 1989
  1955. ***************
  1956. *** 1,5
  1957.   /*
  1958. !  * $Header: wevent.c,v 2.1 89/05/09 14:19:57 billr Exp $
  1959.    */
  1960.   /*
  1961.    * wevent.c
  1962.  
  1963. --- 1,5 -----
  1964.   /*
  1965. !  * $Header: wevent.c,v 2.2 89/12/15 17:18:35 billr Exp $
  1966.    */
  1967.   /*
  1968.    * wevent.c
  1969. ***************
  1970. *** 36,41
  1971.   #include "event.h"
  1972.   
  1973.   extern Frame prompt_frame;
  1974.   
  1975.   week_inputevent(canvas, event) 
  1976.   Canvas canvas;
  1977.  
  1978. --- 36,42 -----
  1979.   #include "event.h"
  1980.   
  1981.   extern Frame prompt_frame;
  1982. + extern int monday_first;
  1983.   
  1984.   week_inputevent(canvas, event) 
  1985.   Canvas canvas;
  1986. ***************
  1987. *** 84,89
  1988.               return;
  1989.           }
  1990.           current.tm_mday -= current.tm_wday;
  1991.           current.tm_mday += day_chosen_from_week;
  1992.           fix_current_day();
  1993.           if (nr_weekdays == 5) {
  1994.  
  1995. --- 85,96 -----
  1996.               return;
  1997.           }
  1998.           current.tm_mday -= current.tm_wday;
  1999. +         if (monday_first) {
  2000. +             if (current.tm_wday == SUN)
  2001. +                 current.tm_mday -= 7;
  2002. +             if (nr_weekdays == 7)
  2003. +                 current.tm_mday++;
  2004. +         }
  2005.           current.tm_mday += day_chosen_from_week;
  2006.           fix_current_day();
  2007.           if (nr_weekdays < 7) {
  2008. ***************
  2009. *** 86,92
  2010.           current.tm_mday -= current.tm_wday;
  2011.           current.tm_mday += day_chosen_from_week;
  2012.           fix_current_day();
  2013. !         if (nr_weekdays == 5) {
  2014.               current.tm_mday++;
  2015.               fix_current_day();
  2016.           }
  2017.  
  2018. --- 93,99 -----
  2019.           }
  2020.           current.tm_mday += day_chosen_from_week;
  2021.           fix_current_day();
  2022. !         if (nr_weekdays < 7) {
  2023.               current.tm_mday++;
  2024.               fix_current_day();
  2025.           }
  2026.