home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume39 / remind / patch09c / patch.09.D < prev   
Encoding:
Text File  |  1993-10-04  |  41.1 KB  |  1,205 lines
  1.          strcmp(SmallFont, DayFont)  &&
  2.          strcmp(SmallFont, EntryFont)) printf(" %s", SmallFont);
  3.      putchar('\n');
  4.      printf("%%%%Creator: Rem2PS\n");
  5. --- 326,340 ----
  6.   /* Write the document structuring stuff */
  7.      printf("%%!PS-Adobe-\n");
  8.      printf("%%%%DocumentFonts: %s", HeadFont);
  9. !    if (strcmp(TitleFont, HeadFont)) printf(" %s", TitleFont);
  10. !    if (strcmp(TitleFont, DayFont) &&
  11. !        strcmp(HeadFont, DayFont)) printf(" %s", DayFont);
  12.      if (strcmp(EntryFont, HeadFont) &&
  13. +        strcmp(TitleFont, EntryFont) &&
  14.          strcmp(EntryFont, DayFont)) printf(" %s", EntryFont);
  15.      if (!NoSmallCal && strcmp(SmallFont, HeadFont) &&
  16.          strcmp(SmallFont, DayFont)  &&
  17. +        strcmp(TitleFont, SmallFont) &&
  18.          strcmp(SmallFont, EntryFont)) printf(" %s", SmallFont);
  19.      putchar('\n');
  20.      printf("%%%%Creator: Rem2PS\n");
  21. ***************
  22. *** 335,343 ****
  23.      printf("%%%%EndComments\n");
  24.   
  25.      for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
  26. !    printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  27. !       L_SUNDAY, L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  28. !       L_THURSDAY, L_FRIDAY, L_SATURDAY);
  29.      for (i=0; PSProlog2[i]; i++) puts(PSProlog2[i]);
  30.   
  31.      printf("/HeadFont /%s %s\n", HeadFont, isostuff);
  32. --- 343,356 ----
  33.      printf("%%%%EndComments\n");
  34.   
  35.      for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
  36. !    if (!MondayFirst)
  37. !       printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  38. !          L_SUNDAY, L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  39. !          L_THURSDAY, L_FRIDAY, L_SATURDAY);
  40. !    else
  41. !       printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  42. !          L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  43. !          L_THURSDAY, L_FRIDAY, L_SATURDAY, L_SUNDAY);
  44.      for (i=0; PSProlog2[i]; i++) puts(PSProlog2[i]);
  45.   
  46.      printf("/HeadFont /%s %s\n", HeadFont, isostuff);
  47. ***************
  48. *** 344,352 ****
  49. --- 357,367 ----
  50.      if (!NoSmallCal) printf("/SmallFont /%s %s\n", SmallFont, isostuff);
  51.      printf("/DayFont /%s %s\n", DayFont, isostuff);
  52.      printf("/EntryFont /%s %s\n", EntryFont, isostuff);
  53. +    printf("/TitleFont /%s %s\n", TitleFont, isostuff);
  54.      printf("/HeadSize %s def\n", HeadSize);
  55.      printf("/DaySize %s def\n", DaySize);
  56.      printf("/EntrySize %s def\n", EntrySize);
  57. +    printf("/TitleSize %s def\n", TitleSize);
  58.      printf("/XSIZE %d def\n", CurPage->xsize);
  59.      printf("/MinX %d def\n", LeftMarg);
  60.      printf("/MinY %d def\n", BotMarg);
  61. ***************
  62. *** 402,408 ****
  63.   
  64.   /* Move to appropriate location */
  65.      printf("/CAL%d {\n", CurDay);
  66. !    printf("Border ytop %d xincr mul MinX add xincr\n", WkDayNum);
  67.   
  68.   /* Set up the text array */
  69.      printf("[\n");
  70. --- 417,426 ----
  71.   
  72.   /* Move to appropriate location */
  73.      printf("/CAL%d {\n", CurDay);
  74. !    if (!MondayFirst)
  75. !       printf("Border ytop %d xincr mul MinX add xincr\n", WkDayNum);
  76. !    else
  77. !       printf("Border ytop %d xincr mul MinX add xincr\n", (WkDayNum ? WkDayNum-1 : 6));
  78.   
  79.   /* Set up the text array */
  80.      printf("[\n");
  81. ***************
  82. *** 427,437 ****
  83.      printf("/y exch def y ymin lt {/ymin y def} if\n");
  84.      printf("} def\n");
  85.   
  86. ! /* If WkDayNum is a Sunday, move to next row.  Also handle the queued
  87. !    PS and PSFILE reminders */
  88. !    if (WkDayNum == 6 || CurDay == MaxDay) {
  89.         HadQPS = 0;
  90. !       begin = CurDay - WkDayNum;
  91.         if (begin < 1) begin = 1;
  92.         end = CurDay;
  93.         for (i=begin; i<=end; i++) {
  94. --- 445,457 ----
  95.      printf("/y exch def y ymin lt {/ymin y def} if\n");
  96.      printf("} def\n");
  97.   
  98. ! /* If WkDayNum is a Sunday or Monday, depending on MondayFirst,
  99. !    move to next row.  Also handle the queued PS and PSFILE reminders */
  100. !    if ((!MondayFirst && WkDayNum == 6) ||
  101. !         (MondayFirst && WkDayNum == 0) || CurDay == MaxDay) {
  102.         HadQPS = 0;
  103. !       if (MondayFirst) begin =  CurDay - (WkDayNum ? WkDayNum-1 : 6);
  104. !       else             begin = CurDay - WkDayNum;
  105.         if (begin < 1) begin = 1;
  106.         end = CurDay;
  107.         for (i=begin; i<=end; i++) {
  108. ***************
  109. *** 533,538 ****
  110. --- 553,560 ----
  111.      BotMarg = 36;
  112.      UseISO = 0;
  113.      FillPage = 0;
  114. +    MondayFirst = 0;
  115. +    SmallLocation = "bt";
  116.   
  117.      for(j=0; j<32; j++) PsEntries[i] = NULL;
  118.   
  119. ***************
  120. *** 545,550 ****
  121. --- 567,577 ----
  122.         if (*s++ != '-') Usage("Options must begin with '-'");
  123.   
  124.         switch(*s++) {
  125. + 
  126. +          case 'n':
  127. +         MondayFirst = 1;
  128. +         break;
  129. + 
  130.            case 'p':
  131.           if (i == argc) Usage("Prologue filename must be supplied");
  132.           UserProlog = argv[i++];
  133. ***************
  134. *** 558,564 ****
  135.                 case 'h': HeadSize = t; break;
  136.             case 'e': EntrySize = t; break;
  137.             case 'd': DaySize = t; break;
  138. !                   default: Usage("Size must specify h, e, or d");        
  139.              }
  140.               }
  141.           break;
  142. --- 585,592 ----
  143.                 case 'h': HeadSize = t; break;
  144.             case 'e': EntrySize = t; break;
  145.             case 'd': DaySize = t; break;
  146. !           case 't': TitleSize = t; break;
  147. !                   default: Usage("Size must specify h, t, e, or d");        
  148.              }
  149.               }
  150.           break;
  151. ***************
  152. *** 572,578 ****
  153.             case 'e': EntryFont = t; break;
  154.             case 'd': DayFont = t; break;
  155.             case 's': SmallFont = t; break;
  156. !                   default: Usage("Font must specify s, h, e, or d");        
  157.              }
  158.               }
  159.           break;
  160. --- 600,607 ----
  161.             case 'e': EntryFont = t; break;
  162.             case 'd': DayFont = t; break;
  163.             case 's': SmallFont = t; break;
  164. !           case 't': TitleFont = t; break;
  165. !                   default: Usage("Font must specify s, h, t, e, or d");        
  166.              }
  167.               }
  168.           break;
  169. ***************
  170. *** 627,633 ****
  171.   
  172.        case 'i': UseISO = 1; break;
  173.   
  174. !      case 'c': NoSmallCal = 1; break;
  175.   
  176.        case 'e': FillPage = 1; break;
  177.   
  178. --- 656,673 ----
  179.   
  180.        case 'i': UseISO = 1; break;
  181.   
  182. !      case 'c': j=(*s);
  183. !                if (!j) {
  184. !               SmallLocation = SmallCalLoc[0];
  185. !                    } else {
  186. !               j -= '0';
  187. !               if (j>=0 && j<NUMSMALL) {
  188. !                  SmallLocation = SmallCalLoc[j];
  189. !               } else {
  190. !                  SmallLocation = SmallCalLoc[0];
  191. !                       }
  192. !                    }
  193. !            break;
  194.   
  195.        case 'e': FillPage = 1; break;
  196.   
  197. ***************
  198. *** 655,671 ****
  199.      fprintf(stderr, "Options:\n\n");
  200.      fprintf(stderr, "-p file       Include user-supplied PostScript code in prologue\n");
  201.      fprintf(stderr, "-l            Do calendar in landscape mode\n");
  202. !    fprintf(stderr, "-c            Do NOT generate small calendars for previous\n");
  203.      fprintf(stderr, "              and next month\n");
  204.      fprintf(stderr, "-i            Use ISO 8859-1 encoding in PostScript output\n");
  205.      fprintf(stderr, "-m media      Set page size (eg, Letter, Legal, A4.)  Case sensitive!\n");
  206.      fprintf(stderr, "              (Default page size is %s)\n", DefaultPage[0].name);
  207. !    fprintf(stderr, "-f[shed] font Set font for small cal, hdr, cal entries and/or day numbers\n");
  208. !    fprintf(stderr, "-s[hed] size  Set size for header, calendar entries and/or day numbers\n");
  209.      fprintf(stderr, "-b size       Set border size for calendar entries\n");
  210.      fprintf(stderr, "-t size       Set line thickness\n");
  211.      fprintf(stderr, "-e            Make calendar fill entire page\n");
  212.      fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
  213.      exit(1);
  214.   }
  215.   
  216. --- 695,712 ----
  217.      fprintf(stderr, "Options:\n\n");
  218.      fprintf(stderr, "-p file       Include user-supplied PostScript code in prologue\n");
  219.      fprintf(stderr, "-l            Do calendar in landscape mode\n");
  220. !    fprintf(stderr, "-c[n]         Control small calendars: 0=none; 1=bt; 2=tb; 3=sbt\n");
  221.      fprintf(stderr, "              and next month\n");
  222.      fprintf(stderr, "-i            Use ISO 8859-1 encoding in PostScript output\n");
  223.      fprintf(stderr, "-m media      Set page size (eg, Letter, Legal, A4.)  Case sensitive!\n");
  224.      fprintf(stderr, "              (Default page size is %s)\n", DefaultPage[0].name);
  225. !    fprintf(stderr, "-f[shted] font Set font for small cal, hdr, title, cal entries, day numbers\n");
  226. !    fprintf(stderr, "-s[hted] size Set size for header, title, calendar entries and/or day numbers\n");
  227.      fprintf(stderr, "-b size       Set border size for calendar entries\n");
  228.      fprintf(stderr, "-t size       Set line thickness\n");
  229.      fprintf(stderr, "-e            Make calendar fill entire page\n");
  230.      fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
  231. +    fprintf(stderr, "-n            Start calendar with Monday rather than Sunday\n");
  232.      exit(1);
  233.   }
  234.   
  235. ***************
  236. *** 676,692 ****
  237.   /*                                                             */
  238.   /***************************************************************/
  239.   #ifdef HAVE_PROTOS
  240. ! void DoSmallCal(char *m, int days, int first, int col)
  241.   #else
  242. ! void DoSmallCal(m, days, first, col)
  243.   char *m;
  244.   int days, first, col;
  245.   #endif
  246.   {
  247.      /* Do the small calendar */
  248. !    int i;
  249.      int row = 2;
  250.   
  251.      /* Figure out the font size */
  252.   
  253.      printf("/SmallFontSize MinBoxSize Border sub Border sub 8 div 2 sub def\n");
  254. --- 717,737 ----
  255.   /*                                                             */
  256.   /***************************************************************/
  257.   #ifdef HAVE_PROTOS
  258. ! void DoSmallCal(char *m, int days, int first, int col, int which)
  259.   #else
  260. ! void DoSmallCal(m, days, first, col, which)
  261.   char *m;
  262.   int days, first, col;
  263.   #endif
  264.   {
  265.      /* Do the small calendar */
  266. !    int i, j;
  267.      int row = 2;
  268.   
  269. +    if (MondayFirst) {
  270. +       first--;
  271. +       if (first < 0) first = 6;
  272. +    }
  273.      /* Figure out the font size */
  274.   
  275.      printf("/SmallFontSize MinBoxSize Border sub Border sub 8 div 2 sub def\n");
  276. ***************
  277. *** 703,716 ****
  278.      printf("gsave\n");
  279.   
  280.      /* Move origin to upper-left hand corner of appropriate box */
  281. !    printf("%d xincr mul MinX add ysmall translate\n", col);
  282.   
  283.      /* Print the month */   
  284.      printf("SmallWidth 7 mul (%s) stringwidth pop sub 2 div Border add Border neg SmallFontSize sub moveto (%s) show\n", m, m);
  285.   
  286.      /* Print the days of the week */
  287. !    for (i=0; i<7; i++)
  288. !       printf("Border %d SmallWidth mul add Border neg SmallFontSize sub SmallFontSize sub 2 sub moveto (%c) show\n", i, Days[i]);
  289.   
  290.      /* Now do the days of the month */
  291.      for (i=1; i<=days; i++) {
  292. --- 748,764 ----
  293.      printf("gsave\n");
  294.   
  295.      /* Move origin to upper-left hand corner of appropriate box */
  296. !    printf("%d xincr mul MinX add ysmall%d translate\n", col, which);
  297.   
  298.      /* Print the month */   
  299.      printf("SmallWidth 7 mul (%s) stringwidth pop sub 2 div Border add Border neg SmallFontSize sub moveto (%s) show\n", m, m);
  300.   
  301.      /* Print the days of the week */
  302. !    for (i=0; i<7; i++) {
  303. !       if (MondayFirst) j=(i+1)%7;
  304. !       else             j=i;
  305. !       printf("Border %d SmallWidth mul add Border neg SmallFontSize sub SmallFontSize sub 2 sub moveto (%c) show\n", i, Days[j]);
  306. !    }
  307.   
  308.      /* Now do the days of the month */
  309.      for (i=1; i<=days; i++) {
  310. ***************
  311. *** 744,750 ****
  312.      int fnoff;
  313.      char buffer[LINELEN];
  314.   
  315. !    begin = CurDay - WkDayNum;
  316.      wd = 0;
  317.      while (begin < 1) begin++, wd++;
  318.      end = CurDay;
  319. --- 792,799 ----
  320.      int fnoff;
  321.      char buffer[LINELEN];
  322.   
  323. !    if (!MondayFirst) begin = CurDay - WkDayNum;
  324. !    else             begin = CurDay - (WkDayNum ? WkDayNum-1 : 6);
  325.      wd = 0;
  326.      while (begin < 1) begin++, wd++;
  327.      end = CurDay;
  328. ***************
  329. *** 795,797 ****
  330. --- 844,916 ----
  331.      }
  332.      return HadPS;
  333.   }
  334. + 
  335. + /***************************************************************/
  336. + /*                                                             */
  337. + /* GetSmallLocations                                           */
  338. + /*                                                             */
  339. + /* Set up the locations for the small calendars.               */
  340. + /*                                                             */
  341. + /***************************************************************/
  342. + #ifdef HAVE_PROTOS
  343. + PUBLIC void GetSmallLocations(void)
  344. + #else
  345. + void GetSmallLocations()
  346. + #endif
  347. + {
  348. +    char c;
  349. +    char *s = SmallLocation;
  350. +    int colfirst, collast;
  351. + 
  352. + /* Figure out the first and last columns */
  353. +    colfirst = FirstWkDay;
  354. +    collast = (FirstWkDay+MaxDay-1) % 7;
  355. +    if (MondayFirst) {
  356. +       colfirst = colfirst ? colfirst - 1 : 6;
  357. +       collast = collast ? collast - 1 : 6;
  358. +    }
  359. +    NoSmallCal = 0;
  360. + 
  361. +    while((c = *s++) != 0) {
  362. +       switch(c) {
  363. +          case 'b':
  364. +         /* Adjust Feb. if we want it on the bottom */
  365. +         if (MaxDay == 28 && colfirst == 0) { 
  366. +            printf("/ysmallbot ymin def /ymin ysmallbot MinBoxSize sub def\n");
  367. +            printf("MinX ymin MaxX ymin L\n");
  368. +            printf("/ysmall1 ysmallbot def /ysmall2 ysmallbot def\n");
  369. +            SmallCol1 = 5;
  370. +            SmallCol2 = 6;
  371. +            return;
  372. +             }
  373. +         if (collast <= 4) {
  374. +            printf("/ysmall1 ysmallbot def /ysmall2 ysmallbot def\n");
  375. +            SmallCol1 = 5;
  376. +            SmallCol2 = 6;
  377. +            return;
  378. +         }
  379. +         break;
  380. + 
  381. +      case 't':
  382. +         if (colfirst >= 2) {
  383. +            printf("/ysmall1 ysmalltop def /ysmall2 ysmalltop def\n");
  384. +            SmallCol1 = 0;
  385. +            SmallCol2 = 1;
  386. +            return;
  387. +         }
  388. +         break;
  389. + 
  390. +      case 's':
  391. +         if (colfirst >= 1 && collast<=5) {
  392. +            printf("/ysmall1 ysmalltop def /ysmall2 ysmallbot def\n");
  393. +            SmallCol1 = 0;
  394. +            SmallCol2 = 6;
  395. +            return;
  396. +         }
  397. +         break;
  398. +       }
  399. +    }
  400. +    NoSmallCal = 1;
  401. +    return;
  402. + }
  403. +            
  404. *** ../prev/rem2ps.h    Mon Jun 28 12:30:22 1993
  405. --- ./rem2ps.h    Tue Sep 28 16:53:52 1993
  406. ***************
  407. *** 64,80 ****
  408.      "/doheading",
  409.      "{",
  410.      "   /monthyr exch def",
  411. !    "   ",
  412. !    "   /HeadFont findfont",
  413. !    "   HeadSize scalefont setfont   ",
  414.      "   monthyr stringwidth",
  415. !    "   pop",
  416.      "   2 div MaxX MinX add 2 div exch sub /x exch def",
  417. !    "   MaxY HeadSize 1.5 mul sub /y exch def",
  418.      "   newpath x y moveto monthyr show",
  419. !    "   y HeadSize 0.5 mul sub /y exch def",
  420.      "   MinX y MaxX y L",
  421.      "   /topy y def",
  422.      "% Do the days of the week",
  423.      "   MaxX MinX sub 7 div /xincr exch def",
  424.      "   /x MinX def",
  425. --- 64,82 ----
  426.      "/doheading",
  427.      "{",
  428.      "   /monthyr exch def",
  429. !    "",
  430. !    "   /TitleFont findfont",
  431. !    "   TitleSize scalefont setfont",
  432.      "   monthyr stringwidth",
  433. !    "   /hgt exch def",
  434.      "   2 div MaxX MinX add 2 div exch sub /x exch def",
  435. !    "   MaxY Border sub TitleSize sub /y exch def",
  436.      "   newpath x y moveto monthyr show",
  437. !    "   newpath x y moveto monthyr false charpath flattenpath pathbbox",
  438. !    "   pop pop Border sub /y exch def pop",
  439.      "   MinX y MaxX y L",
  440.      "   /topy y def",
  441. +    "   /HeadFont findfont HeadSize scalefont setfont",
  442.      "% Do the days of the week",
  443.      "   MaxX MinX sub 7 div /xincr exch def",
  444.      "   /x MinX def",
  445. ***************
  446. *** 143,149 ****
  447.      "   /curline () def",
  448.      "   /len word length def",
  449.      "   /Fcount len 1 sub def",
  450. !    "   ",
  451.      "   {",
  452.      "     word 0 Fcount getinterval stringwidth pop width le",
  453.      "     {exit} if",
  454. --- 145,151 ----
  455.      "   /curline () def",
  456.      "   /len word length def",
  457.      "   /Fcount len 1 sub def",
  458. !    "",
  459.      "   {",
  460.      "     word 0 Fcount getinterval stringwidth pop width le",
  461.      "     {exit} if",
  462. *** ../prev/remind.1    Thu Aug 26 10:58:39 1993
  463. --- ./remind.1    Thu Sep 30 15:25:03 1993
  464. ***************
  465. *** 1,4 ****
  466. ! .TH REMIND 1 "14 April 1993"
  467.   .UC 4
  468.   .SH NAME
  469.   remind \- a sophisticated reminder service
  470. --- 1,4 ----
  471. ! .TH REMIND 1 "30 September 1993"
  472.   .UC 4
  473.   .SH NAME
  474.   remind \- a sophisticated reminder service
  475. ***************
  476. *** 59,64 ****
  477. --- 59,70 ----
  478.   \fBrem2ps\fR program, which creates a PostScript calendar.  For this
  479.   option, \fIn\fR cannot start with "+"; it must specify a number of months.
  480.   .TP
  481. + .B \-m
  482. + The \fB\-m\fR option causes the \fB\-c\fR option to produce a calendar whose
  483. + first column is Monday rather than Sunday.  (This conforms to the international
  484. + standard.)  It does \fInot\fR, however, affect the \fB\-p\fR or \fB\-s\fR
  485. + options.
  486. + .TP
  487.   .B \-v
  488.   The \fB\-v\fR option makes the output of \fBRemind\fR slightly more verbose.
  489.   .TP
  490. ***************
  491. *** 202,207 ****
  492. --- 208,220 ----
  493.   it, rather than the actual system date, as its notion of "today."
  494.   This lets you create calendars for future months, or test to see
  495.   how your reminders will be triggered in the future.
  496. + .PP
  497. + In addition, as part of the \fIdate\fR component, you can supply a
  498. + \fIrepeat\fR parameter, which has the form *\fInum\fR.  This causes
  499. + \fBRemind\fR to be run \fInum\fR times, with the date incrementing
  500. + on each iteration.  You may have to enclose the parameter in quotes
  501. + to avoid shell expansion.  See the subsection "Repeated Execution"
  502. + in the section "Calendar Mode" for more information.
  503.   .SH REMINDER FILES
  504.   .PP
  505.   \fBRemind\fR uses scripts to control its operation.  The commands
  506. ***************
  507. *** 281,287 ****
  508.   reminders - they are \fB$FirstIndent\fR, \fB$SubsIndent\fR and
  509.   \fB$FormWidth\fR.  They are discussed in the section "System Variables."
  510.   The \fBMSF\fR keyword causes the spacing of your reminder to be altered -
  511. ! extra spaces are discarded, and two spaces are placed after periods.
  512.   .PP
  513.   A \fBRUN\fR-type
  514.   reminder also passes the \fIbody\fR through the substitution filter, but
  515. --- 294,306 ----
  516.   reminders - they are \fB$FirstIndent\fR, \fB$SubsIndent\fR and
  517.   \fB$FormWidth\fR.  They are discussed in the section "System Variables."
  518.   The \fBMSF\fR keyword causes the spacing of your reminder to be altered -
  519. ! extra spaces are discarded, and two spaces are placed after periods and
  520. ! other characters, as specified by the system variables \fB$EndSent\fR and
  521. ! \fB$EndSentIg\fR.  Note that if the body of the reminder includes
  522. ! newline characters (placed there with the %_ sequence), then the newlines
  523. ! are treated as the beginnings of new paragraphs, and the \fB$FirstIndent\fR
  524. ! indentation is used for the next line.  You can use two consecutive
  525. ! newlines to have spaced paragraphs emitted from a single reminder body.
  526.   .PP
  527.   A \fBRUN\fR-type
  528.   reminder also passes the \fIbody\fR through the substitution filter, but
  529. ***************
  530. *** 291,297 ****
  531.   .PP
  532.   A \fBPS\fR or \fBPSFILE\fR-type reminder is used to pass PostScript code
  533.   directly to the printer when producing PostScript calendars.  This can
  534. ! be used to shade certain calendar entries, include graphics in the calendar,
  535.   or almost any other purpose you can think of.  You
  536.   should not use these types of reminders unless you are an expert PostScript
  537.   programmer.  The \fBPS\fR and \fBPSFILE\fR reminders are ignored unless
  538. --- 310,317 ----
  539.   .PP
  540.   A \fBPS\fR or \fBPSFILE\fR-type reminder is used to pass PostScript code
  541.   directly to the printer when producing PostScript calendars.  This can
  542. ! be used to shade certain calendar entries (see the psshade() function),
  543. ! include graphics in the calendar,
  544.   or almost any other purpose you can think of.  You
  545.   should not use these types of reminders unless you are an expert PostScript
  546.   programmer.  The \fBPS\fR and \fBPSFILE\fR reminders are ignored unless
  547. ***************
  548. *** 1468,1483 ****
  549.   version 03.00.07 of \fBRemind\fR.
  550.   .PP
  551.   All system variables begin with a dollar sign '$'.  They can be used
  552. ! in \fBSET\fR commands and expressions just as regular variables can.  However,
  553. ! system variables always hold values of type \fBINT\fR.  In addition,
  554. ! some system variables cannot be modified, and you cannot create new
  555. ! system variables.  System variables can be initialized on the command
  556. ! line with the \fB\-i\fR option, but you may need to quote them to avoid
  557. ! having the shell interpret the dollar sign.  System variable names are
  558. ! not case-sensitive.
  559.   .PP
  560.   The following system variables are defined.  Those marked
  561.   "read-only" cannot be changed with the \fBSET\fR command.
  562.   .TP
  563.   .B $CalcUTC 
  564.   If 1 (the default), then \fBRemind\fR uses C library functions
  565. --- 1488,1505 ----
  566.   version 03.00.07 of \fBRemind\fR.
  567.   .PP
  568.   All system variables begin with a dollar sign '$'.  They can be used
  569. ! in \fBSET\fR commands and expressions just as regular variables can.
  570. ! All system variables always hold values of a specified type.  In
  571. ! addition, some system variables cannot be modified, and you cannot
  572. ! create new system variables.  System variables can be initialized on
  573. ! the command line with the \fB\-i\fR option, but you may need to quote
  574. ! them to avoid having the shell interpret the dollar sign.  System
  575. ! variable names are not case-sensitive.
  576.   .PP
  577.   The following system variables are defined.  Those marked
  578.   "read-only" cannot be changed with the \fBSET\fR command.
  579. + All system variables hold values of type \fBINT\fR, unless otherwise
  580. + specified.
  581.   .TP
  582.   .B $CalcUTC 
  583.   If 1 (the default), then \fBRemind\fR uses C library functions
  584. ***************
  585. *** 1506,1511 ****
  586. --- 1528,1556 ----
  587.   If non-zero, then the \fB\-q\fR option was supplied on the command line.
  588.   For the MS-DOS version, always contains 1.
  589.   .TP
  590. + .B $EndSent (STRING type)
  591. + Contains a list of characters which end a sentence.  The \fBMSF\fR
  592. + keyword inserts two spaces after these characters.  Initially,
  593. + \fB$EndSent\fR is set to ".!?" (period, exclamation mark, and
  594. + question mark.)
  595. + .TP
  596. + .B $EndSentIg (STRING type)
  597. + Contains a list of characters which should be ignored when \fBMSF\fR
  598. + decides whether or not to place two spaces after a sentence.  Initially,
  599. + is set to "'>)]}"+CHAR(34) (single-quote, greater-than, right
  600. + parenthesis, right bracket, right brace, and double-quote.)
  601. + .PP
  602. + .RS
  603. + For example, the default values work as follows:
  604. + .PP
  605. + .nf
  606. +     MSF He said, "Huh! (Two spaces will follow this.)"  Yup.
  607. + .fi
  608. + .PP
  609. + because the final parenthesis and quote are ignored (for the purposes
  610. + of spacing) when they follow a period.
  611. + .RE
  612. + .TP
  613.   .B $FirstIndent
  614.   The number of spaces by which to indent the first line of a \fBMSF\fR-type
  615.   reminder.  The default is 0.
  616. ***************
  617. *** 1545,1550 ****
  618. --- 1590,1601 ----
  619.   are positive; southern ones are negative.  For southern latitudes, all
  620.   three components should be negative.
  621.   .TP
  622. + .B $Location (STRING type)
  623. + This is a string specifying the name of your location.  It is usually
  624. + the name of your town or city.  It can be set to whatever you like,
  625. + but good style indicates that it should be kept consistent with
  626. + the latitude and longitude system variables.
  627. + .TP
  628.   .B $LongDeg, $LongMin, $LongSec
  629.   These specify the longitude of your location.  \fB$LongDeg\fR can
  630.   range from -180 to 180.  Western longitudes are positive; eastern
  631. ***************
  632. *** 1907,1912 ****
  633. --- 1958,2005 ----
  634.   Returns an \fBINT\fR from 1 to 12, representing the month component of
  635.   \fIdate\fR.
  636.   .TP
  637. + .B "moondate(i_phase [,d_date [,t_time]])"
  638. + This function returns the date of the first occurrence of the phase
  639. + \fIphase\fR of the moon on or after \fIdate\fR and \fItime\fR.
  640. + \fIPhase\fR can range from 0 to 3, with 0 signifying new moon, 1 first
  641. + quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  642. + it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  643. + to midnight.
  644. + .RS
  645. + .PP
  646. + For example, the following returns the date of the next full moon:
  647. + .PP
  648. + .nf
  649. +         SET fullmoon moondate(2)
  650. + .fi
  651. + .PP
  652. + .RE
  653. + .TP
  654. + .B "moontime(i_phase [,d_date [,t_time]])"
  655. + This function returns the time of the first occurrence of the phase
  656. + \fIphase\fR of the moon on or after \fIdate\fR and \fItime\fR.
  657. + \fIPhase\fR can range from 0 to 3, with 0 signifying new moon, 1 first
  658. + quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  659. + it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  660. + to midnight.  \fBMoontime()\fR is intended to be used in conjunction
  661. + with \fBmoondate()\fR.  Don't take the time too seriously - it's only
  662. + accurate to within 15-20 minutes.
  663. + .RS
  664. + .PP
  665. + For example, the following returns the date and time of the next full moon:
  666. + .PP
  667. + .nf
  668. +         MSG Next full moon at [moontime(2)] on [moondate(2)]
  669. + .fi
  670. + .PP
  671. + .RE
  672. + .TP
  673. + .B moonphase([d_date [,t_time]])
  674. + This function returns the phase of the moon on \fIdate\fR and \fItime\fR,
  675. + which default to \fBtoday()\fR and midnight, respectively.  The returned
  676. + value is an integer from 0 to 359, representing the phase of the moon
  677. + in degrees.  0 is a new moon, 180 is a full moon, 90 is first-quarter, etc.
  678. + .TP
  679.   .B now()
  680.   Returns the current system time, as a \fBTIME\fR type.
  681.   .TP
  682. ***************
  683. *** 1931,1936 ****
  684. --- 2024,2064 ----
  685.   \fIstr2\fR otherwise.
  686.   .RE
  687.   .TP
  688. + .B psmoon(i_phase [,i_size])
  689. + Returns a \fBSTRING\fR consisting of PostScript code to draw a moon
  690. + in the upper-left hand corner of the calendar box.  \fIPhase\fR specifies
  691. + the phase of the moon, and is 0 (new moon), 1 (first quarter), 2 (full moon)
  692. + or 3 (third quarter).  If \fIsize\fR is specified, it controls the radius of
  693. + the moon in PostScript units (1/72 inch.)  If it is not specified, the size
  694. + of the day-number font is used.
  695. + .PP
  696. + .RS
  697. + For example, the following four lines place moon symbols on the PostScript
  698. + calendar:
  699. + .PP
  700. + .nf
  701. +         REM [trigger(moondate(0))] PS [psmoon(0)]
  702. +         REM [trigger(moondate(1))] PS [psmoon(1)]
  703. +         REM [trigger(moondate(2))] PS [psmoon(2)]
  704. +         REM [trigger(moondate(3))] PS [psmoon(3)]
  705. + .fi
  706. + .PP
  707. + .RE
  708. + .TP
  709. + .B psshade(i_num)
  710. + Returns a \fBSTRING\fR which consists of PostScript commands to
  711. + shade a calendar box.  \fINum\fR can range from 0 (completely black)
  712. + to 100 (completely white.)  Here's an example of how to use this:
  713. + .RS
  714. + .PP
  715. + .nf
  716. +         REM Sat Sun PS [psshade(95)]
  717. + .fi
  718. + .PP
  719. + The above command emits PostScript code to lightly shade the boxes
  720. + for Saturday and Sunday in a PostScript calendar.
  721. + .RE
  722. + .TP
  723.   .B realtoday()
  724.   Returns the date as provided by the operating system.  This is in contrast to
  725.   \fBRemind\fR's concept of "today", which may be changed if it is running
  726. ***************
  727. *** 2460,2465 ****
  728. --- 2588,2605 ----
  729.   timed reminders are discarded.  If you are in calendar mode
  730.   (described next), then the calendar processing is aborted.
  731.   .PP
  732. + If you supply an \fBINT\fR-type expression after the \fBEXIT\fR command,
  733. + it is returned to the calling program as the exit status.  Otherwise,
  734. + an exit status of 99 is returned.
  735. + .PP
  736. + .B THE FLUSH COMMAND
  737. + .PP
  738. + This command simply consists of the word \fBFLUSH\fR on a line by
  739. + itself.  The command flushes the standard output and standard error
  740. + streams used by \fBRemind\fR.  This is not terribly useful to most
  741. + people, but may be useful if you run \fBRemind\fR as a subprocess of
  742. + another program, and want to use pipes for communication.
  743. + .PP
  744.   .SH CALENDAR MODE
  745.   .PP
  746.   If you supply the \fB\-c\fR, \fB\-s\fR or \fB\-p\fR
  747. ***************
  748. *** 2561,2566 ****
  749. --- 2701,2728 ----
  750.   places the time of timed reminders in the calendar according to the
  751.   \fB\-b\fR command-line option.
  752.   .PP
  753. + .B REPEATED EXECUTION
  754. + .PP
  755. + If you supply a \fIrepeat\fR parameter on the command line,
  756. + and do not use the \fB\-c\fR, \fB\-p\fR, or \fB\-s\fR options, \fBRemind\fR
  757. + operates in a similar manner to calendar mode.  It repeatedly executes
  758. + the reminder script, incrementing \fBtoday()\fR with each iteration.
  759. + The same rules about preserving variables and function definitions
  760. + apply.  Note that using \fIrepeat\fR on the command line also enables
  761. + the \fB\-q\fR option and disables any \fB\-z\fR option.
  762. + As an example, if you want to see how \fBRemind\fR
  763. + will behave for the next week, you can type:
  764. + .PP
  765. + .nf
  766. +     remind .reminders '*7'
  767. + .fi
  768. + .PP
  769. + If you want to print the dates of the next 1000 days, use:
  770. + .PP
  771. + .nf
  772. +     (echo 'banner %'; echo 'msg [today()]%') | remind - '*1000'
  773. + .fi
  774. + .PP
  775.   .SH INITIALIZING VARIABLES ON THE COMMAND LINE
  776.   .PP
  777.   The \fB\-i\fR option is used to initialize variables on the \fBRemind\fR
  778. ***************
  779. *** 2640,2650 ****
  780.   of the regular calendar entry area.  The space from here to the top
  781.   of the box is used only to draw the day number.
  782.   .TP
  783. ! /DayFont, /EntryFont, /SmallFont and /HeadFont
  784.   The fonts used to draw the day numbers, the calendar entries, the small
  785. ! calendars, and the month and day headings, respectively.
  786.   .TP
  787. ! DaySize, EntrySize and HeadSize
  788.   The sizes of the above fonts.  (The size of the small calendar font
  789.   is \fInot\fR defined here.)  For example, if you wanted to print
  790.   the Hebrew date next to the regular day number in the calendar, use:
  791. --- 2802,2813 ----
  792.   of the regular calendar entry area.  The space from here to the top
  793.   of the box is used only to draw the day number.
  794.   .TP
  795. ! /DayFont, /EntryFont, /SmallFont, /TitleFont and /HeadFont
  796.   The fonts used to draw the day numbers, the calendar entries, the small
  797. ! calendars, the calendar title (month, year)
  798. ! and the day-of-the-week headings, respectively.
  799.   .TP
  800. ! DaySize, EntrySize, TitleSize and HeadSize
  801.   The sizes of the above fonts.  (The size of the small calendar font
  802.   is \fInot\fR defined here.)  For example, if you wanted to print
  803.   the Hebrew date next to the regular day number in the calendar, use:
  804. ***************
  805. *** 3144,3150 ****
  806.   versions of \fBRemind\fR prior to 03.00.01.
  807.   .SH AUTHOR
  808.   .PP
  809. ! David F. Skoll
  810.   .SH BUGS
  811.   .PP
  812.   There's no good reason why read-only system variables are not
  813. --- 3307,3316 ----
  814.   versions of \fBRemind\fR prior to 03.00.01.
  815.   .SH AUTHOR
  816.   .PP
  817. ! David F. Skoll wrote \fBRemind\fR.  The moon code was copied largely verbatim
  818. ! from "moontool" by John Walker.  The Hebrew calendar support was taken
  819. ! from "hdate" by Amos Shapir.  The authors of the language files are
  820. ! listed in the header file "lang.h" which comes with \fBRemind\fR.
  821.   .SH BUGS
  822.   .PP
  823.   There's no good reason why read-only system variables are not
  824. *** ../prev/sort.c    Thu Aug 19 16:12:01 1993
  825. --- ./sort.c    Tue Aug 31 16:28:20 1993
  826. ***************
  827. *** 182,187 ****
  828. --- 182,188 ----
  829.         free(cur);
  830.         cur = next;
  831.      }
  832. +    SortedQueue = NULL;
  833.   }
  834.   /***************************************************************/
  835.   /*                                                             */
  836. *** ../prev/test.cmp    Thu Aug 19 17:06:48 1993
  837. --- ./test.cmp    Tue Aug 31 13:22:46 1993
  838. ***************
  839. *** 631,637 ****
  840.   "a05" + "6" => "a056"
  841.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  842.   set a058 version()
  843. ! version() => "03.00.08"
  844.   set a059 wkday(today())
  845.   today() => 1991/02/16
  846.   wkday(1991/02/16) => "Saturday"
  847. --- 631,637 ----
  848.   "a05" + "6" => "a056"
  849.   value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  850.   set a058 version()
  851. ! version() => "03.00.09"
  852.   set a059 wkday(today())
  853.   today() => 1991/02/16
  854.   wkday(1991/02/16) => "Saturday"
  855. ***************
  856. *** 772,778 ****
  857.           a048  "foo"
  858.           a067  "INT"
  859.           a039  "February"
  860. !         a058  "03.00.08"
  861.           a077  "1992 92
  862.   "
  863.           a049  21
  864. --- 772,778 ----
  865.           a048  "foo"
  866.           a067  "INT"
  867.           a039  "February"
  868. !         a058  "03.00.09"
  869.           a077  "1992 92
  870.   "
  871.           a049  21
  872. *** ../prev/token.c    Tue Aug  3 12:29:05 1993
  873. --- ./token.c    Fri Sep  3 11:50:53 1993
  874. ***************
  875. *** 57,62 ****
  876. --- 57,63 ----
  877.      { "errmsg",          6,      T_ErrMsg,       0 },
  878.      { "exit",        4,    T_Exit,        0 },
  879.      { "february",     3,     T_Month,    1 },
  880. +    { "flush",        5,    T_Flush,    0 },
  881.      { "friday",         3,    T_WkDay,    4 },
  882.      { "fset",        4,    T_Fset,        0 },
  883.      { "if",        2,    T_If,        0 },
  884. *** ../prev/types.h    Tue Aug  3 12:28:45 1993
  885. --- ./types.h    Fri Sep  3 11:50:48 1993
  886. ***************
  887. *** 126,132 ****
  888.     T_Clr,
  889.     T_Debug,
  890.     T_Dumpvars,
  891. !   T_Scanfrom
  892.   };
  893.   
  894.   /* The structure of a token */
  895. --- 126,133 ----
  896.     T_Clr,
  897.     T_Debug,
  898.     T_Dumpvars,
  899. !   T_Scanfrom,
  900. !   T_Flush
  901.   };
  902.   
  903.   /* The structure of a token */
  904. *** ../prev/var.c    Thu Aug 19 16:40:40 1993
  905. --- ./var.c    Tue Sep 28 16:16:07 1993
  906. ***************
  907. *** 12,17 ****
  908. --- 12,18 ----
  909.   
  910.   #include "config.h"
  911.   #include <stdio.h>
  912. + #include <string.h>
  913.   #ifdef HAVE_STDLIB_H
  914.   #include <stdlib.h>
  915.   #endif
  916. ***************
  917. *** 218,228 ****
  918.      r = EvaluateExpr(p, &v);
  919.      if (r) return r;
  920.   
  921. !    if (*TokBuffer == '$') {
  922. !       if (v.type != INT_TYPE) return E_BAD_TYPE;
  923. !       return SetSysVar(TokBuffer+1, v.v.val);
  924. !    }
  925. !    return SetVar(TokBuffer, &v);
  926.   }
  927.   
  928.   /***************************************************************/
  929. --- 219,226 ----
  930.      r = EvaluateExpr(p, &v);
  931.      if (r) return r;
  932.   
  933. !    if (*TokBuffer == '$') return SetSysVar(TokBuffer+1, &v);
  934. !    else return SetVar(TokBuffer, &v);
  935.   }
  936.   
  937.   /***************************************************************/
  938. ***************
  939. *** 331,343 ****
  940.   /*  DestroyVars                                                */
  941.   /*                                                             */
  942.   /*  Free all the memory used by variables, but don't delete    */
  943. ! /*  preserved variables.                                       */
  944.   /*                                                             */
  945.   /***************************************************************/
  946.   #ifdef HAVE_PROTOS
  947. ! PUBLIC void DestroyVars(void)
  948.   #else
  949. ! void DestroyVars()
  950.   #endif
  951.   {
  952.      int i;
  953. --- 329,342 ----
  954.   /*  DestroyVars                                                */
  955.   /*                                                             */
  956.   /*  Free all the memory used by variables, but don't delete    */
  957. ! /*  preserved variables unless ALL is non-zero.                */
  958.   /*                                                             */
  959.   /***************************************************************/
  960.   #ifdef HAVE_PROTOS
  961. ! PUBLIC void DestroyVars(int all)
  962.   #else
  963. ! void DestroyVars(all)
  964. ! int all;
  965.   #endif
  966.   {
  967.      int i;
  968. ***************
  969. *** 348,354 ****
  970.         VHashTbl[i] = NULL;
  971.         prev = NULL;
  972.         while(v) {
  973. !          if (!v->preserve) {
  974.               DestroyValue(&(v->v));
  975.              next = v->next;
  976.           free(v);
  977. --- 347,353 ----
  978.         VHashTbl[i] = NULL;
  979.         prev = NULL;
  980.         while(v) {
  981. !          if (all || !v->preserve) {
  982.               DestroyValue(&(v->v));
  983.              next = v->next;
  984.           free(v);
  985. ***************
  986. *** 431,472 ****
  987.   typedef struct {
  988.      char *name;
  989.      char modifiable;
  990. !    int *value;   
  991.      int min;
  992.      int max;
  993.   } SysVar;
  994.   
  995. ! #define NO_CONSTRAINT 4532
  996.   /* All of the system variables sorted alphabetically */
  997.   static SysVar SysVarArr[] = {
  998. !        /* name          modifiable    value        min    max */
  999. !    {   "CalcUTC",      1,        &CalculateUTC,    0,    1   },
  1000. !    {   "CalMode",      0,        &DoCalendar,    0,    0   },
  1001. !    {   "Daemon",      0,        &Daemon,    0,    0   },
  1002. !    {   "DontFork",      0,        &DontFork,    0,    0   },
  1003. !    {   "DontQueue",      0,        &DontQueue,    0,    0   },
  1004. !    {   "DontTrigAts",      0,        &DontIssueAts,    0,    0   },
  1005. !    {   "FirstIndent",      1,        &FirstIndent,    0,    132 },
  1006. !    {   "FoldYear",      1,        &FoldYear,    0,    1   },
  1007. !    {   "FormWidth",      1,        &FormWidth,    20,    132 },
  1008. !    {   "HushMode",      0,        &Hush,        0,    0   },
  1009. !    {   "IgnoreOnce",      0,        &IgnoreOnce,    0,    0   },
  1010. !    {   "InfDelta",      0,        &InfiniteDelta,    0,    0   },
  1011. !    {   "LatDeg",      1,        &LatDeg,    -90,    90  },
  1012. !    {   "LatMin",      1,        &LatMin,    -59,    59  },
  1013. !    {   "LatSec",      1,        &LatSec,    -59,    59  },
  1014. !    {   "LongDeg",      1,        &LongDeg,    -180,    180  },
  1015. !    {   "LongMin",      1,        &LongMin,    -59,    59  },
  1016. !    {   "LongSec",      1,        &LongSec,    -59,    59  },
  1017. !    {   "MaxSatIter",      1,        &MaxSatIter,    10,    NO_CONSTRAINT },
  1018. !    {   "MinsFromUTC",      1,        &MinsFromUTC,    -13*60,    13*60 },
  1019. !    {   "NextMode",      0,        &NextMode,    0,    0   },
  1020. !    {   "NumQueued",      0,        &NumQueued,    0,    0   },
  1021. !    {   "NumTrig",      0,        &NumTriggered,    0,    0   },
  1022. !    {   "PSCal",          0,        &PsCal,        0,    0   },
  1023. !    {   "RunOff",      0,        &RunDisabled,    0,    0   },
  1024. !    {   "SimpleCal",      0,        &DoSimpleCalendar,    0,  0 },
  1025. !    {   "SubsIndent",      1,        &SubsIndent,    0,    132}
  1026.   };
  1027.   
  1028.   #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  1029. --- 430,480 ----
  1030.   typedef struct {
  1031.      char *name;
  1032.      char modifiable;
  1033. !    int type;
  1034. !    void *value;
  1035.      int min;
  1036.      int max;
  1037.   } SysVar;
  1038.   
  1039. ! /* If the type of a sys variable is STR_TYPE, then min is redefined
  1040. !    to be a flag indicating whether or not the value has been malloc'd. */
  1041. ! #define been_malloced min
  1042. ! 
  1043. ! /* Flag for no min/max constraint */
  1044. ! #define ANY 4532
  1045.   /* All of the system variables sorted alphabetically */
  1046.   static SysVar SysVarArr[] = {
  1047. !        /* name          mod    type        value        min/mal    max */
  1048. !    {   "CalcUTC",      1,    INT_TYPE,    &CalculateUTC,    0,    1   },
  1049. !    {   "CalMode",      0,    INT_TYPE,    &DoCalendar,    0,    0   },
  1050. !    {   "Daemon",      0,    INT_TYPE,    &Daemon,    0,    0   },
  1051. !    {   "DontFork",      0,    INT_TYPE,    &DontFork,    0,    0   },
  1052. !    {   "DontQueue",      0,    INT_TYPE,    &DontQueue,    0,    0   },
  1053. !    {   "DontTrigAts",      0,    INT_TYPE,    &DontIssueAts,    0,    0   },
  1054. !    {   "EndSent",      1,    STR_TYPE,    &EndSent,    0,    0   },
  1055. !    {   "EndSentIg",      1,    STR_TYPE,    &EndSentIg,    0,    0   },
  1056. !    {   "FirstIndent",      1,    INT_TYPE,    &FirstIndent,    0,    132 },
  1057. !    {   "FoldYear",      1,    INT_TYPE,    &FoldYear,    0,    1   },
  1058. !    {   "FormWidth",      1,    INT_TYPE,    &FormWidth,    20,    132 },
  1059. !    {   "HushMode",      0,    INT_TYPE,    &Hush,        0,    0   },
  1060. !    {   "IgnoreOnce",      0,    INT_TYPE,    &IgnoreOnce,    0,    0   },
  1061. !    {   "InfDelta",      0,    INT_TYPE,    &InfiniteDelta,    0,    0   },
  1062. !    {   "LatDeg",      1,    INT_TYPE,    &LatDeg,    -90,    90  },
  1063. !    {   "LatMin",      1,    INT_TYPE,    &LatMin,    -59,    59  },
  1064. !    {   "LatSec",      1,    INT_TYPE,    &LatSec,    -59,    59  },
  1065. !    {   "Location",      1,    STR_TYPE,    &Location,    0,    0   },
  1066. !    {   "LongDeg",      1,    INT_TYPE,    &LongDeg,    -180,    180  },
  1067. !    {   "LongMin",      1,    INT_TYPE,    &LongMin,    -59,    59  },
  1068. !    {   "LongSec",      1,    INT_TYPE,    &LongSec,    -59,    59  },
  1069. !    {   "MaxSatIter",      1,    INT_TYPE,    &MaxSatIter,    10,    ANY },
  1070. !    {   "MinsFromUTC",      1,    INT_TYPE,    &MinsFromUTC,    -13*60,    13*60 },
  1071. !    {   "NextMode",      0,    INT_TYPE,    &NextMode,    0,    0   },
  1072. !    {   "NumQueued",      0,    INT_TYPE,    &NumQueued,    0,    0   },
  1073. !    {   "NumTrig",      0,    INT_TYPE,    &NumTriggered,    0,    0   },
  1074. !    {   "PSCal",          0,    INT_TYPE,    &PsCal,        0,    0   },
  1075. !    {   "RunOff",      0,    INT_TYPE,    &RunDisabled,    0,    0   },
  1076. !    {   "SimpleCal",      0,    INT_TYPE,    &DoSimpleCalendar,    0,  0 },
  1077. !    {   "SubsIndent",      1,    INT_TYPE,    &SubsIndent,    0,    132}
  1078.   };
  1079.   
  1080.   #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  1081. ***************
  1082. *** 480,501 ****
  1083.   /*                                                             */
  1084.   /***************************************************************/
  1085.   #ifdef HAVE_PROTOS
  1086. ! PUBLIC int SetSysVar(const char *name, int value)
  1087.   #else
  1088.   int SetSysVar(name, value)
  1089.   char *name;
  1090. ! int value;
  1091.   #endif
  1092.   {
  1093.      SysVar *v = FindSysVar(name);
  1094.      if (!v) return E_NOSUCH_VAR;
  1095.      if (!v->modifiable) {
  1096.         Eprint("%s: '$%s'", ErrMsg[E_CANT_MODIFY], name);
  1097.         return E_CANT_MODIFY;
  1098.      }
  1099. !    if (v->max != NO_CONSTRAINT && value > v->max) return E_2HIGH;
  1100. !    if (v->min != NO_CONSTRAINT && value < v->min) return E_2LOW;
  1101. !    *(v->value) = value;
  1102.      return OK;
  1103.   }
  1104.   
  1105. --- 488,519 ----
  1106.   /*                                                             */
  1107.   /***************************************************************/
  1108.   #ifdef HAVE_PROTOS
  1109. ! PUBLIC int SetSysVar(const char *name, Value *value)
  1110.   #else
  1111.   int SetSysVar(name, value)
  1112.   char *name;
  1113. ! Value *value;
  1114.   #endif
  1115.   {
  1116.      SysVar *v = FindSysVar(name);
  1117.      if (!v) return E_NOSUCH_VAR;
  1118. +    if (v->type != value->type) return E_BAD_TYPE;
  1119.      if (!v->modifiable) {
  1120.         Eprint("%s: '$%s'", ErrMsg[E_CANT_MODIFY], name);
  1121.         return E_CANT_MODIFY;
  1122.      }
  1123. ! 
  1124. ! /* If it's a string variable, special measures must be taken */
  1125. !    if (v->type == STR_TYPE) {
  1126. !       if (v->been_malloced) free(*((char **)(v->value)));
  1127. !       v->been_malloced = 1;
  1128. !       *((char **) v->value) = value->v.str;
  1129. !       value->type = ERR_TYPE;  /* So that it's not accidentally freed */
  1130. !    } else {
  1131. !       if (v->max != ANY && value->v.val > v->max) return E_2HIGH;
  1132. !       if (v->min != ANY && value->v.val < v->min) return E_2LOW;
  1133. !       *((int *)v->value) = value->v.val;
  1134. !    }
  1135.      return OK;
  1136.   }
  1137.   
  1138. ***************
  1139. *** 516,525 ****
  1140.   {
  1141.      SysVar *v = FindSysVar(name);
  1142.   
  1143. !    val->type = INT_TYPE;
  1144. !    val->v.val = 0;
  1145.      if (!v) return E_NOSUCH_VAR;
  1146. !    val->v.val = *(v->value);
  1147.      return OK;
  1148.   }
  1149.   
  1150. --- 534,548 ----
  1151.   {
  1152.      SysVar *v = FindSysVar(name);
  1153.   
  1154. !    val->type = ERR_TYPE;
  1155.      if (!v) return E_NOSUCH_VAR;
  1156. !    if (v->type == STR_TYPE) {
  1157. !       val->v.str = StrDup(*((char **) v->value));
  1158. !       if (!val->v.str) return E_NO_MEM;
  1159. !    } else {
  1160. !       val->v.val = *((int *) v->value);
  1161. !    }
  1162. !    val->type = v->type;
  1163.      return OK;
  1164.   }
  1165.   
  1166. ***************
  1167. *** 603,615 ****
  1168.      if (name) strcat(buffer, name); else strcat(buffer, v->name);
  1169.      fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, buffer);
  1170.      if (v) {
  1171. !       if (!v->modifiable) fprintf(ErrFp, "%d\n", *v->value);
  1172. !       else {
  1173. !          fprintf(ErrFp, "%-10d  ", *v->value);
  1174. !      if (v->min == NO_CONSTRAINT) fprintf(ErrFp, "(-Inf, ");
  1175. !      else                         fprintf(ErrFp, "[%d, ", v->min);
  1176. !      if (v->max == NO_CONSTRAINT) fprintf(ErrFp, "Inf)\n");
  1177. !      else                         fprintf(ErrFp, "%d]\n", v->max);
  1178.         }
  1179.      } else   fprintf(ErrFp, "%s\n", UNDEF);
  1180.   
  1181. --- 626,648 ----
  1182.      if (name) strcat(buffer, name); else strcat(buffer, v->name);
  1183.      fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, buffer);
  1184.      if (v) {
  1185. !       if (v->type == STR_TYPE) {
  1186. !          char *s = *((char **)v->value);
  1187. !      int y;
  1188. !      putc('"', ErrFp);
  1189. !      for (y=0; y<MAX_PRT_LEN && *s; y++) putc(*s++, ErrFp);
  1190. !      putc('"', ErrFp);
  1191. !      if (*s) fprintf(ErrFp, "...");
  1192. !      putc('\n', ErrFp);
  1193. !       } else {
  1194. !          if (!v->modifiable) fprintf(ErrFp, "%d\n", *((int *)v->value));
  1195. !          else {
  1196. !             fprintf(ErrFp, "%-10d  ", *((int *)v->value));
  1197. !            if (v->min == ANY) fprintf(ErrFp, "(-Inf, ");
  1198. !         else                         fprintf(ErrFp, "[%d, ", v->min);
  1199. !         if (v->max == ANY) fprintf(ErrFp, "Inf)\n");
  1200. !         else                         fprintf(ErrFp, "%d]\n", v->max);
  1201. !          }
  1202.         }
  1203.      } else   fprintf(ErrFp, "%s\n", UNDEF);
  1204.   
  1205.