home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume39 / remind / patch09c < prev    next >
Encoding:
Text File  |  1993-10-04  |  56.1 KB  |  1,470 lines
  1. Newsgroups: comp.sources.misc
  2. From: dfs@doe.carleton.ca (David F. Skoll)
  3. Subject: v39i117:  remind - A replacement for calendar, Patch09c/4
  4. Message-ID: <1993Oct4.203951.8096@sparky.sterling.com>
  5. X-Md4-Signature: 1d433b1fc40db3530e16ead0a828c986
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Dept. of Electronics, Carleton University
  8. Date: Mon, 4 Oct 1993 20:39:51 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: dfs@doe.carleton.ca (David F. Skoll)
  12. Posting-number: Volume 39, Issue 117
  13. Archive-name: remind/patch09c
  14. Environment: UNIX, MS-DOS, OS/2
  15. Patch-To: remind: Volume 33, Issue 58-69
  16.  
  17. #! /bin/sh
  18. # This is a shell archive.  Remove anything before this line, then feed it
  19. # into a shell via "sh file" or similar.  To overwrite existing files,
  20. # type "sh file -c".
  21. # Contents:  patch.09.A.UU patch.09.D
  22. # Wrapped by kent@sparky on Mon Oct  4 15:03:31 1993
  23. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  24. echo If this archive is complete, you will see the following message:
  25. echo '          "shar: End of archive 3 (of 4)."'
  26. if test -f 'patch.09.A.UU' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'patch.09.A.UU'\"
  28. else
  29.   echo shar: Extracting \"'patch.09.A.UU'\" \(10581 characters\)
  30.   sed "s/^X//" >'patch.09.A.UU' <<'END_OF_FILE'
  31. Xbegin 664 patch.09.A
  32. XM4')E<F5Q.B B,#,N,# N,#@B"BHJ*B N+B]P<F5V+W9E<G-I;VXN: E-;VX@
  33. XM2G5L(#$Y(#$R.C(Q.C4S(#$Y.3,*+2TM("XO=F5R<VEO;BYH"51U92!!=6<@
  34. XM,S$@,3,Z,C(Z,C4@,3DY,PHJ*BHJ*BHJ*BHJ*BHJ*BH**BHJ(#DL,3(@*BHJ
  35. XM*@H@("\J(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  36. XM(" @(" @(" @(" @(" @(" @(" @("HO"B @+RHJ*BHJ*BHJ*BHJ*BHJ*BHJ
  37. XM*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
  38. XM*B\*(" *(2 C9&5F:6YE(%9%4E-)3TX@(C S+C P+C X(@HM+2T@.2PQ,B M
  39. XM+2TM"B @+RH@(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @
  40. XM(" @(" @(" @(" @(" @(" @(" @(" @*B\*(" O*BHJ*BHJ*BHJ*BHJ*BHJ
  41. XM*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ
  42. XM*BHJ+PH@( HA("-D969I;F4@5D524TE/3B B,#,N,# N,#DB"BHJ*B N+B]P
  43. XM<F5V+TU!3DE&15-4+D1/4PE7960@075G(#$X(#$Q.C$P.C0Y(#$Y.3,*+2TM
  44. XM("XO34%.249%4U0N1$]3"4UO;B!397 @,C @,30Z-3@Z,3<@,3DY,PHJ*BHJ
  45. XM*BHJ*BHJ*BHJ*BH**BHJ(#,P+#,U("HJ*BH*+2TM(#,P+#,V("TM+2T*("!M
  46. XM86ME9FEL92YT8PH@(&UA;FEF97-T+F1O<PH@(&UA;FEF97-T+G5N> HK(&UO
  47. XM;VXN8PH@(&YO<G=G:6%N+F@*("!O;6ET+F,*("!P<F]T;W,N: HJ*BH@+BXO
  48. XM<')E=B]-04Y)1D535"Y53E@)5V5D($%U9R Q." Q,3HQ,3HP,R Q.3DS"BTM
  49. XM+2 N+TU!3DE&15-4+E5.6 E-;VX@4V5P(#(P(#$T.C4X.C X(#$Y.3,**BHJ
  50. XM*BHJ*BHJ*BHJ*BHJ"BHJ*B S-"PS.2 J*BHJ"BTM+2 S-"PT," M+2TM"B @
  51. XM;6%K969I;&4N;7-C"B @;6%K969I;&4N;W,R"B @;6%K969I;&4N=&,**R!M
  52. XM;V]N+F,*("!N;W)W9VEA;BYH"B @;VUI="YC"B @<')O=&]S+F@**BHJ("XN
  53. XM+W!R978O36%K969I;&4)5'5E($%U9R S,2 Q,CHS-3HU.2 Q.3DS"BTM+2 N
  54. XM+TUA:V5F:6QE"51U92!397 @,C@@,38Z-#@Z-3<@,3DY,PHJ*BHJ*BHJ*BHJ
  55. XM*BHJ*BH**BHJ(#0T+#4W("HJ*BH*(" C($U!3DU/1$4Z("!7:&%T(&9I;&4@
  56. XM<')O=&5C=&EO;B!M;V1E('-H;W5L9"!B92!U<V5D(&9O<B!T:&4@;6%N('!A
  57. XM9V5S/PH@($U!3DU/1$4](#8T- H@( HA(",@3U=.15(Z("!7:&%T(&]W;F5R
  58. XM(&%N9"!G<F]U<"!T;R!U<V4@9F]R(&5X96-U=&%B;&5S+"!S8W)I<'1S(&%N
  59. XM9"!M86X@<&%G97,_"B$@3U=.15(]8FEN+F)I;@H@( H@(",M+2TM+2TM+2TM
  60. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
  61. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+0H@(",@64]5(%-(3U5,1$XG5"!%1$E4
  62. XM($%.651(24Y'($)%3$]7($A%4D4N("!9;W4@;6%Y('=A;G0@=&\@8VAA;F=E
  63. XM('-O;64@=&AI;F=S"B @(R!I;B!C;VYF:6<N:#L@=&AE;BP@>6]U('-H;W5L
  64. XM9"!B92!A8FQE('1O('1Y<&4@)VUA:V4G+@H@(",M+2TM+2TM+2TM+2TM+2TM
  65. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
  66. XM+2TM+2TM+2TM+2TM+2TM+0HA(%9%4E-)3TX](# S+C P+C X"B @34%42$Q)
  67. XM0CT@+6QM"B @"B @2$124ST@8V]N9FEG+F@@97)R+F@@97AP<BYH(&=L;V)A
  68. XM;',N:"!P<F]T;W,N:"!T>7!E<RYH('9E<G-I;VXN:"!<"BTM+2 T-"PU.2 M
  69. XM+2TM"B @(R!-04Y-3T1%.B @5VAA="!F:6QE('!R;W1E8W1I;VX@;6]D92!S
  70. XM:&]U;&0@8F4@=7-E9"!F;W(@=&AE(&UA;B!P86=E<S\*("!-04Y-3T1%/2 V
  71. XM-#0*(" *(2 C($]73D52+"!'4D]54#H@(%=H870@;W=N97(@86YD(&=R;W5P
  72. XM('1O('5S92!F;W(@97AE8W5T86)L97,L"B$@(R!S8W)I<'1S(&%N9"!M86X@
  73. XM<&%G97,_"B$@3U=.15(]8FEN"B$@1U)/55 ]8FEN"B @"B @(RTM+2TM+2TM
  74. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
  75. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM"B @(R!93U4@4TA/54Q$3B=4($5$
  76. XM250@04Y95$A)3D<@0D5,3U<@2$5212X@(%EO=2!M87D@=V%N="!T;R!C:&%N
  77. XM9V4@<V]M92!T:&EN9W,*(" C(&EN(&-O;F9I9RYH.R!T:&5N+"!Y;W4@<VAO
  78. XM=6QD(&)E(&%B;&4@=&\@='EP92 G;6%K92<N"B @(RTM+2TM+2TM+2TM+2TM
  79. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
  80. XM+2TM+2TM+2TM+2TM+2TM+2TM"B$@5D524TE/3CT@,#,N,# N,#D*("!-051(
  81. XM3$E"/2 M;&T*(" *("!(1%)3/2!C;VYF:6<N:"!E<G(N:"!E>'!R+F@@9VQO
  82. XM8F%L<RYH('!R;W1O<RYH('1Y<&5S+F@@=F5R<VEO;BYH(%P**BHJ*BHJ*BHJ
  83. XM*BHJ*BHJ"BHJ*B V,BPV." J*BHJ"B @3$%.1TA$4E,](&5N9VQI<V@N:"!G
  84. XM97)M86XN:"!D=71C:"YH(&9I;FYI<V@N:"!F<F5N8V@N:"!N;W)W9VEA;BYH
  85. XM"B @"B @4U)#4ST@8V%L96YD87(N8R!D;W)E;2YC(&1O<W5B<W0N8R!E>'!R
  86. XM+F,@9FEL97,N8R!F=6YC<RYC(&=L;V)A;',N8R!H8F-A;"YC(%P*(2!I;FET
  87. XM+F,@;6%I;BYC(&]M:70N8R!S;W)T+F,@<75E=64N8R!T;VME;BYC('1R:6=G
  88. XM97(N8R!U<V5R9FYS+F,@=71I;',N8R!V87(N8PH@( H@($U!3DE&15-4/2!2
  89. XM14%$344N54Y)6"!214%$344N1$]3($-/4%E224=(5" D*$A$4E,I("0H4U)#
  90. XM4RD@36%K969I;&4@<F5M(')E;2XQ(%P*("!R96UI;F0N,2!R96UI;F0M86QL
  91. XM+F-S:"!R96UI;F0M86QL+G-H('1E<W0N<F5M('1E<W0M<F5M('1E<W0N8VUP
  92. XM(&UA:V5F:6QE+G1C(%P*+2TM(#8T+#<Q("TM+2T*("!,04Y'2$124ST@96YG
  93. XM;&ES:"YH(&=E<FUA;BYH(&1U=&-H+F@@9FEN;FES:"YH(&9R96YC:"YH(&YO
  94. XM<G=G:6%N+F@*(" *("!34D-3/2!C86QE;F1A<BYC(&1O<F5M+F,@9&]S=6)S
  95. XM="YC(&5X<'(N8R!F:6QE<RYC(&9U;F-S+F,@9VQO8F%L<RYC(&AB8V%L+F,@
  96. XM7 HA(&EN:70N8R!M86EN+F,@;6]O;BYC(&]M:70N8R!S;W)T+F,@<75E=64N
  97. XM8R!T;VME;BYC('1R:6=G97(N8R!U<V5R9FYS+F,@7 HA('5T:6QS+F,@=F%R
  98. XM+F,*(" *("!-04Y)1D535#T@4D5!1$U%+E5.25@@4D5!1$U%+D1/4R!#3U!9
  99. XM4DE'2%0@)"A(1%)3*2 D*%-20U,I($UA:V5F:6QE(')E;2!R96TN,2!<"B @
  100. XM<F5M:6YD+C$@<F5M:6YD+6%L;"YC<V@@<F5M:6YD+6%L;"YS:"!T97-T+G)E
  101. XM;2!T97-T+7)E;2!T97-T+F-M<"!M86ME9FEL92YT8R!<"BHJ*BHJ*BHJ*BHJ
  102. XM*BHJ*@HJ*BH@,3 S+#$P." J*BHJ"BTM+2 Q,#8L,3$R("TM+2T*("!H8F-A
  103. XM;"YO.B!H8F-A;"YC("0H4U1$2$124RD*("!I;FET+F\Z(&EN:70N8R D*%-4
  104. XM1$A$4E,I(&5X<'(N:"!V97)S:6]N+F@@;&%N9RYH("0H3$%.1TA$4E,I"B @
  105. XM;6%I;BYO.B!M86EN+F,@)"A35$1(1%)3*2!E>'!R+F@**R!M;V]N+F\Z(&UO
  106. XM;VXN8R D*%-41$A$4E,I"B @;VUI="YO.B!O;6ET+F,@)"A35$1(1%)3*0H@
  107. XM('-O<G0N;SH@<V]R="YC("0H4U1$2$124RD*("!Q=65U92YO.B!Q=65U92YC
  108. XM("0H4U1$2$124RD**BHJ*BHJ*BHJ*BHJ*BHJ"BHJ*B Q,3,L,3(P("HJ*BH*
  109. XM("!V87(N;SH@=F%R+F,@)"A35$1(1%)3*2!E>'!R+F@*(" *("!T87):.@HA
  110. XM( ET87(@8W9F(')E;6EN9"TS+C N."YT87(@)"A-04Y)1D535"D*(2 )8V]M
  111. XM<')E<W,@+78@<F5M:6YD+3,N,"XX+G1A<@H@( H@('-H87(Z"B @"7-H87(@
  112. XM+7@@+6XB4F5M:6YD("0H5D524TE/3BDB("UL-#4@+6\N+U-H87(@)"A-04Y)
  113. XM1D535"D*+2TM(#$Q-RPQ,C0@+2TM+0H@('9A<BYO.B!V87(N8R D*%-41$A$
  114. XM4E,I(&5X<'(N: H@( H@('1A<EHZ"B$@"71A<B!C=F8@<F5M:6YD+3,N,"XY
  115. XM+G1A<B D*$U!3DE&15-4*0HA( EC;VUP<F5S<R M=B!R96UI;F0M,RXP+CDN
  116. XM=&%R"B @"B @<VAA<CH*(" )<VAA<B M>" M;B)296UI;F0@)"A615)324].
  117. XM*2(@+6PT-2 M;RXO4VAA<B D*$U!3DE&15-4*0HJ*BHJ*BHJ*BHJ*BHJ*BH*
  118. XM*BHJ(#$T."PQ.#8@*BHJ*@H@( EC<"!R96UI;F0@)"A"24Y$25(I+W)E;6EN
  119. XM9 H@( DM8VAM;V0@)"A%6$5-3T1%*2 D*$))3D1)4BDO<F5M:6YD"B @"2UC
  120. XM:&]W;B D*$]73D52*2 D*$))3D1)4BDO<F5M:6YD"B @"6-P(')E;3)P<R D
  121. XM*$))3D1)4BDO<F5M,G!S"B @"2UC:&UO9" D*$5814U/1$4I("0H0DE.1$E2
  122. XM*2]R96TR<',*(" )+6-H;W=N("0H3U=.15(I("0H0DE.1$E2*2]R96TR<',*
  123. XM(" *("!I;G-T86QL+7-C<FEP=',Z"B @"6-P(&MA;&P@)"A30U))4%1$25(I
  124. XM+VMA;&P*(" )+6-H;6]D("0H15A%34]$12D@)"A30U))4%1$25(I+VMA;&P*
  125. XM(" )+6-H;W=N("0H3U=.15(I("0H4T-225!41$E2*2]K86QL"B @"6-P(')E
  126. XM;2 D*%-#4DE05$1)4BDO<F5M"B @"2UC:&UO9" D*$5814U/1$4I("0H4T-2
  127. XM25!41$E2*2]R96T*(" )+6-H;W=N("0H3U=.15(I("0H4T-225!41$E2*2]R
  128. XM96T*(" *("!I;G-T86QL+6UA;CH*(" )8W @<F5M:6YD+C$@)"A-04Y$25(I
  129. XM+VUA;B0H34%.4T5#5"DO<F5M:6YD+B0H34%.4T5#5"D*(" )+6-H;6]D("0H
  130. XM34%.34]$12D@)"A-04Y$25(I+VUA;B0H34%.4T5#5"DO<F5M:6YD+B0H34%.
  131. XM4T5#5"D*(" )+6-H;W=N("0H3U=.15(I("0H34%.1$E2*2]M86XD*$U!3E-%
  132. XM0U0I+W)E;6EN9"XD*$U!3E-%0U0I"B @"6-P(')E;2XQ("0H34%.1$E2*2]M
  133. XM86XD*$U!3E-%0U0I+W)E;2XD*$U!3E-%0U0I"B @"2UC:&UO9" D*$U!3DU/
  134. XM1$4I("0H34%.1$E2*2]M86XD*$U!3E-%0U0I+W)E;2XD*$U!3E-%0U0I"B @
  135. XM"2UC:&]W;B D*$]73D52*2 D*$U!3D1)4BDO;6%N)"A-04Y314-4*2]R96TN
  136. XM)"A-04Y314-4*0H@( EC<"!K86QL+C$@)"A-04Y$25(I+VUA;B0H34%.4T5#
  137. XM5"DO:V%L;"XD*$U!3E-%0U0I"B @"2UC:&UO9" D*$U!3DU/1$4I("0H34%.
  138. XM1$E2*2]M86XD*$U!3E-%0U0I+VMA;&PN)"A-04Y314-4*0H@( DM8VAO=VX@
  139. XM)"A/5TY%4BD@)"A-04Y$25(I+VUA;B0H34%.4T5#5"DO:V%L;"XD*$U!3E-%
  140. XM0U0I"B @"6-P(')E;3)P<RXQ("0H34%.1$E2*2]M86XD*$U!3E-%0U0I+W)E
  141. XM;3)P<RXD*$U!3E-%0U0I"B @"2UC:&UO9" D*$U!3DU/1$4I("0H34%.1$E2
  142. XM*2]M86XD*$U!3E-%0U0I+W)E;3)P<RXD*$U!3E-%0U0I"B @"2UC:&]W;B D
  143. XM*$]73D52*2 D*$U!3D1)4BDO;6%N)"A-04Y314-4*2]R96TR<',N)"A-04Y3
  144. XM14-4*0H@( H@(')E;&5A<V4Z"B @"2UM:V1I<B!214Q%05-%"B @"2UR;2 M
  145. XM9B!214Q%05-%+RH*(2 );6MP871C:" N+B]P<F5V("X@<&%T8V@N,#@@4VAA
  146. XM<B B4F5M:6YD+3,N,"]0871C:"TP."(*(" );78@4VAA<BH@4D5,14%310HA
  147. XM( ER;2 M9B!P871C:"XP. H@( EF;W(@:2!I;B J+C$[(&1O(&YR;V9F("UM
  148. XM86X@)"1I('P@<V5D("UE("=S+U\(+R]G)R ^(&!B87-E;F%M92 D)&D@+C%@
  149. XM+FUA;CL@9&]N90H@( EM=B J+FUA;B!214Q%05-%"B @"69O<B!I(&EN("HN
  150. XM,3L@9&\@9W)O9F8@+6UA;B M5'!S("0D:2 ^(&!B87-E;F%M92 D)&D@+C%@
  151. XM+G!S.R!D;VYE"B @"6UV("HN<',@4D5,14%310HM+2T@,34R+#(P-" M+2TM
  152. XM"B @"6-P(')E;6EN9" D*$))3D1)4BDO<F5M:6YD"B @"2UC:&UO9" D*$58
  153. XM14U/1$4I("0H0DE.1$E2*2]R96UI;F0*(" )+6-H;W=N("0H3U=.15(I("0H
  154. XM0DE.1$E2*2]R96UI;F0**R )+6-H9W)P("0H1U)/55 I("0H0DE.1$E2*2]R
  155. XM96UI;F0*(" )8W @<F5M,G!S("0H0DE.1$E2*2]R96TR<',*(" )+6-H;6]D
  156. XM("0H15A%34]$12D@)"A"24Y$25(I+W)E;3)P<PH@( DM8VAO=VX@)"A/5TY%
  157. XM4BD@)"A"24Y$25(I+W)E;3)P<PHK( DM8VAG<G @)"A'4D]54"D@)"A"24Y$
  158. XM25(I+W)E;3)P<PH@( H@(&EN<W1A;&PM<V-R:7!T<SH*(" )8W @:V%L;" D
  159. XM*%-#4DE05$1)4BDO:V%L; H@( DM8VAM;V0@)"A%6$5-3T1%*2 D*%-#4DE0
  160. XM5$1)4BDO:V%L; H@( DM8VAO=VX@)"A/5TY%4BD@)"A30U))4%1$25(I+VMA
  161. XM;&P**R )+6-H9W)P("0H1U)/55 I("0H4T-225!41$E2*2]K86QL"B @"6-P
  162. XM(')E;2 D*%-#4DE05$1)4BDO<F5M"B @"2UC:&UO9" D*$5814U/1$4I("0H
  163. XM4T-225!41$E2*2]R96T*(" )+6-H;W=N("0H3U=.15(I("0H4T-225!41$E2
  164. XM*2]R96T**R )+6-H9W)P("0H1U)/55 I("0H4T-225!41$E2*2]R96T*(" *
  165. XM("!I;G-T86QL+6UA;CH*(" )8W @<F5M:6YD+C$@)"A-04Y$25(I+VUA;B0H
  166. XM34%.4T5#5"DO<F5M:6YD+B0H34%.4T5#5"D*(" )+6-H;6]D("0H34%.34]$
  167. XM12D@)"A-04Y$25(I+VUA;B0H34%.4T5#5"DO<F5M:6YD+B0H34%.4T5#5"D*
  168. XM(" )+6-H;W=N("0H3U=.15(I("0H34%.1$E2*2]M86XD*$U!3E-%0U0I+W)E
  169. XM;6EN9"XD*$U!3E-%0U0I"BL@"2UC:&=R<" D*$=23U50*2 D*$U!3D1)4BDO
  170. XM;6%N)"A-04Y314-4*2]R96UI;F0N)"A-04Y314-4*0H@( EC<"!R96TN,2 D
  171. XM*$U!3D1)4BDO;6%N)"A-04Y314-4*2]R96TN)"A-04Y314-4*0H@( DM8VAM
  172. XM;V0@)"A-04Y-3T1%*2 D*$U!3D1)4BDO;6%N)"A-04Y314-4*2]R96TN)"A-
  173. XM04Y314-4*0H@( DM8VAO=VX@)"A/5TY%4BD@)"A-04Y$25(I+VUA;B0H34%.
  174. XM4T5#5"DO<F5M+B0H34%.4T5#5"D**R )+6-H9W)P("0H1U)/55 I("0H34%.
  175. XM1$E2*2]M86XD*$U!3E-%0U0I+W)E;2XD*$U!3E-%0U0I"B @"6-P(&MA;&PN
  176. XM,2 D*$U!3D1)4BDO;6%N)"A-04Y314-4*2]K86QL+B0H34%.4T5#5"D*(" )
  177. XM+6-H;6]D("0H34%.34]$12D@)"A-04Y$25(I+VUA;B0H34%.4T5#5"DO:V%L
  178. XM;"XD*$U!3E-%0U0I"B @"2UC:&]W;B D*$]73D52*2 D*$U!3D1)4BDO;6%N
  179. XM)"A-04Y314-4*2]K86QL+B0H34%.4T5#5"D**R )+6-H9W)P("0H1U)/55 I
  180. XM("0H34%.1$E2*2]M86XD*$U!3E-%0U0I+VMA;&PN)"A-04Y314-4*0H@( EC
  181. XM<"!R96TR<',N,2 D*$U!3D1)4BDO;6%N)"A-04Y314-4*2]R96TR<',N)"A-
  182. XM04Y314-4*0H@( DM8VAM;V0@)"A-04Y-3T1%*2 D*$U!3D1)4BDO;6%N)"A-
  183. XM04Y314-4*2]R96TR<',N)"A-04Y314-4*0H@( DM8VAO=VX@)"A/5TY%4BD@
  184. XM)"A-04Y$25(I+VUA;B0H34%.4T5#5"DO<F5M,G!S+B0H34%.4T5#5"D**R )
  185. XM+6-H9W)P("0H1U)/55 I("0H34%.1$E2*2]M86XD*$U!3E-%0U0I+W)E;3)P
  186. XM<RXD*$U!3E-%0U0I"B @"B @<F5L96%S93H*(" )+6UK9&ER(%)%3$5!4T4*
  187. XM(" )+7)M("UF(%)%3$5!4T4O*@HA( EM:W!A=&-H("XN+W!R978@+B!P871C
  188. XM:"XP.2!3:&%R(")296UI;F0M,RXP+U!A=&-H+3 Y+W!A<G0B"B @"6UV(%-H
  189. XM87(J(%)%3$5!4T4*(2 )<FT@+68@<&%T8V@N,#D*(" )9F]R(&D@:6X@*BXQ
  190. XM.R!D;R!N<F]F9B M;6%N("0D:2!\('-E9" M92 G<R]?""\O9R<@/B!@8F%S
  191. XM96YA;64@)"1I("XQ8"YM86X[(&1O;F4*(" );78@*BYM86X@4D5,14%310H@
  192. XM( EF;W(@:2!I;B J+C$[(&1O(&=R;V9F("UM86X@+51P<R D)&D@/B!@8F%S
  193. XM96YA;64@)"1I("XQ8"YP<SL@9&]N90H@( EM=B J+G!S(%)%3$5!4T4**R *
  194. XM*R C($UE86YT(&9O<B!D96)U9V=I;F<@+2!D;VXG="!I;G9O:V4@=&AI<R!T
  195. XM87)G970@=6YL97-S('EO=2!K;F]W('=H870**R C('EO=2=R92!D;VEN9R$*
  196. XM*R!M86IO<G1E<W0Z"BL@"69O<B!C;VUP(&EN(")C8R(@(F=C8R M5V%L;" M
  197. XM<&5D86YT:6,@+6%N<VDB(#L@9&\@9F]R(&QA;F<@:6X@,2 R(#,@-" U(# @
  198. XM.R!D;R!F;W(@9&5F(&EN($E33TQ!5$E.,2!)0DU%6%1%3D1%1"!&3T]"05)"
  199. XM05H@.R!D;R!E8VAO("0D9&5F("0D;&%N9R [("0H34%+12D@8VQO8F)E<B [
  200. XM("0H34%+12D@(D-$1493/2U$3$%.1STD)&QA;F<@+40D)&1E9CTQ(B!#1DQ!
  201. XM1U,]+4\@(D-#/20D8V]M<"(@(DQ$/20D8V]M<"(@.R!D;VYE(#L@9&]N92 [
  202. X)(&1O;F4**R *
  203. X 
  204. Xend
  205. END_OF_FILE
  206.   if test 10581 -ne `wc -c <'patch.09.A.UU'`; then
  207.     echo shar: \"'patch.09.A.UU'\" unpacked with wrong size!
  208.   else
  209.     echo shar: Uudecoding \"'patch.09.A'\" \(7659 characters\)
  210.     cat patch.09.A.UU | uudecode
  211.     if test 7659 -ne `wc -c <'patch.09.A'`; then
  212.       echo shar: \"'patch.09.A'\" uudecoded with wrong size!
  213.     else
  214.       rm patch.09.A.UU
  215.       if test -f 'patch.09.B' && test -f 'patch.09.C' && test -f 'patch.09.D'
  216.       then   
  217.         echo shar: Combining  \"'patch.09'\" \(145785 characters\)
  218.         cat 'patch.09.A' 'patch.09.B' 'patch.09.C' 'patch.09.D' > 'patch.09'
  219.         if test 145785 -ne `wc -c <'patch.09'`; then
  220.           echo shar: \"'patch.09'\" combined with wrong size!
  221.         else
  222.           rm patch.09.A patch.09.B patch.09.C patch.09.D
  223.         fi
  224.       fi
  225.     fi
  226.   fi
  227.   # end of 'patch.09.A.UU'
  228. fi
  229. if test -f 'patch.09.D' -a "${1}" != "-c" ; then 
  230.   echo shar: Will not clobber existing file \"'patch.09.D'\"
  231. else
  232.   echo shar: Extracting \"'patch.09.D'\" \(42130 characters\)
  233.   sed "s/^X//" >'patch.09.D' <<'END_OF_FILE'
  234. X         strcmp(SmallFont, DayFont)  &&
  235. X         strcmp(SmallFont, EntryFont)) printf(" %s", SmallFont);
  236. X     putchar('\n');
  237. X     printf("%%%%Creator: Rem2PS\n");
  238. X--- 326,340 ----
  239. X  /* Write the document structuring stuff */
  240. X     printf("%%!PS-Adobe-\n");
  241. X     printf("%%%%DocumentFonts: %s", HeadFont);
  242. X!    if (strcmp(TitleFont, HeadFont)) printf(" %s", TitleFont);
  243. X!    if (strcmp(TitleFont, DayFont) &&
  244. X!        strcmp(HeadFont, DayFont)) printf(" %s", DayFont);
  245. X     if (strcmp(EntryFont, HeadFont) &&
  246. X+        strcmp(TitleFont, EntryFont) &&
  247. X         strcmp(EntryFont, DayFont)) printf(" %s", EntryFont);
  248. X     if (!NoSmallCal && strcmp(SmallFont, HeadFont) &&
  249. X         strcmp(SmallFont, DayFont)  &&
  250. X+        strcmp(TitleFont, SmallFont) &&
  251. X         strcmp(SmallFont, EntryFont)) printf(" %s", SmallFont);
  252. X     putchar('\n');
  253. X     printf("%%%%Creator: Rem2PS\n");
  254. X***************
  255. X*** 335,343 ****
  256. X     printf("%%%%EndComments\n");
  257. X  
  258. X     for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
  259. X!    printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  260. X!       L_SUNDAY, L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  261. X!       L_THURSDAY, L_FRIDAY, L_SATURDAY);
  262. X     for (i=0; PSProlog2[i]; i++) puts(PSProlog2[i]);
  263. X  
  264. X     printf("/HeadFont /%s %s\n", HeadFont, isostuff);
  265. X--- 343,356 ----
  266. X     printf("%%%%EndComments\n");
  267. X  
  268. X     for (i=0; PSProlog1[i]; i++) puts(PSProlog1[i]);
  269. X!    if (!MondayFirst)
  270. X!       printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  271. X!          L_SUNDAY, L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  272. X!          L_THURSDAY, L_FRIDAY, L_SATURDAY);
  273. X!    else
  274. X!       printf("[(%s) (%s) (%s) (%s) (%s) (%s) (%s)]\n",
  275. X!          L_MONDAY, L_TUESDAY, L_WEDNESDAY,
  276. X!          L_THURSDAY, L_FRIDAY, L_SATURDAY, L_SUNDAY);
  277. X     for (i=0; PSProlog2[i]; i++) puts(PSProlog2[i]);
  278. X  
  279. X     printf("/HeadFont /%s %s\n", HeadFont, isostuff);
  280. X***************
  281. X*** 344,352 ****
  282. X--- 357,367 ----
  283. X     if (!NoSmallCal) printf("/SmallFont /%s %s\n", SmallFont, isostuff);
  284. X     printf("/DayFont /%s %s\n", DayFont, isostuff);
  285. X     printf("/EntryFont /%s %s\n", EntryFont, isostuff);
  286. X+    printf("/TitleFont /%s %s\n", TitleFont, isostuff);
  287. X     printf("/HeadSize %s def\n", HeadSize);
  288. X     printf("/DaySize %s def\n", DaySize);
  289. X     printf("/EntrySize %s def\n", EntrySize);
  290. X+    printf("/TitleSize %s def\n", TitleSize);
  291. X     printf("/XSIZE %d def\n", CurPage->xsize);
  292. X     printf("/MinX %d def\n", LeftMarg);
  293. X     printf("/MinY %d def\n", BotMarg);
  294. X***************
  295. X*** 402,408 ****
  296. X  
  297. X  /* Move to appropriate location */
  298. X     printf("/CAL%d {\n", CurDay);
  299. X!    printf("Border ytop %d xincr mul MinX add xincr\n", WkDayNum);
  300. X  
  301. X  /* Set up the text array */
  302. X     printf("[\n");
  303. X--- 417,426 ----
  304. X  
  305. X  /* Move to appropriate location */
  306. X     printf("/CAL%d {\n", CurDay);
  307. X!    if (!MondayFirst)
  308. X!       printf("Border ytop %d xincr mul MinX add xincr\n", WkDayNum);
  309. X!    else
  310. X!       printf("Border ytop %d xincr mul MinX add xincr\n", (WkDayNum ? WkDayNum-1 : 6));
  311. X  
  312. X  /* Set up the text array */
  313. X     printf("[\n");
  314. X***************
  315. X*** 427,437 ****
  316. X     printf("/y exch def y ymin lt {/ymin y def} if\n");
  317. X     printf("} def\n");
  318. X  
  319. X! /* If WkDayNum is a Sunday, move to next row.  Also handle the queued
  320. X!    PS and PSFILE reminders */
  321. X!    if (WkDayNum == 6 || CurDay == MaxDay) {
  322. X        HadQPS = 0;
  323. X!       begin = CurDay - WkDayNum;
  324. X        if (begin < 1) begin = 1;
  325. X        end = CurDay;
  326. X        for (i=begin; i<=end; i++) {
  327. X--- 445,457 ----
  328. X     printf("/y exch def y ymin lt {/ymin y def} if\n");
  329. X     printf("} def\n");
  330. X  
  331. X! /* If WkDayNum is a Sunday or Monday, depending on MondayFirst,
  332. X!    move to next row.  Also handle the queued PS and PSFILE reminders */
  333. X!    if ((!MondayFirst && WkDayNum == 6) ||
  334. X!         (MondayFirst && WkDayNum == 0) || CurDay == MaxDay) {
  335. X        HadQPS = 0;
  336. X!       if (MondayFirst) begin =  CurDay - (WkDayNum ? WkDayNum-1 : 6);
  337. X!       else             begin = CurDay - WkDayNum;
  338. X        if (begin < 1) begin = 1;
  339. X        end = CurDay;
  340. X        for (i=begin; i<=end; i++) {
  341. X***************
  342. X*** 533,538 ****
  343. X--- 553,560 ----
  344. X     BotMarg = 36;
  345. X     UseISO = 0;
  346. X     FillPage = 0;
  347. X+    MondayFirst = 0;
  348. X+    SmallLocation = "bt";
  349. X  
  350. X     for(j=0; j<32; j++) PsEntries[i] = NULL;
  351. X  
  352. X***************
  353. X*** 545,550 ****
  354. X--- 567,577 ----
  355. X        if (*s++ != '-') Usage("Options must begin with '-'");
  356. X  
  357. X        switch(*s++) {
  358. X+ 
  359. X+          case 'n':
  360. X+         MondayFirst = 1;
  361. X+         break;
  362. X+ 
  363. X           case 'p':
  364. X          if (i == argc) Usage("Prologue filename must be supplied");
  365. X          UserProlog = argv[i++];
  366. X***************
  367. X*** 558,564 ****
  368. X                case 'h': HeadSize = t; break;
  369. X            case 'e': EntrySize = t; break;
  370. X            case 'd': DaySize = t; break;
  371. X!                   default: Usage("Size must specify h, e, or d");        
  372. X             }
  373. X              }
  374. X          break;
  375. X--- 585,592 ----
  376. X                case 'h': HeadSize = t; break;
  377. X            case 'e': EntrySize = t; break;
  378. X            case 'd': DaySize = t; break;
  379. X!           case 't': TitleSize = t; break;
  380. X!                   default: Usage("Size must specify h, t, e, or d");        
  381. X             }
  382. X              }
  383. X          break;
  384. X***************
  385. X*** 572,578 ****
  386. X            case 'e': EntryFont = t; break;
  387. X            case 'd': DayFont = t; break;
  388. X            case 's': SmallFont = t; break;
  389. X!                   default: Usage("Font must specify s, h, e, or d");        
  390. X             }
  391. X              }
  392. X          break;
  393. X--- 600,607 ----
  394. X            case 'e': EntryFont = t; break;
  395. X            case 'd': DayFont = t; break;
  396. X            case 's': SmallFont = t; break;
  397. X!           case 't': TitleFont = t; break;
  398. X!                   default: Usage("Font must specify s, h, t, e, or d");        
  399. X             }
  400. X              }
  401. X          break;
  402. X***************
  403. X*** 627,633 ****
  404. X  
  405. X       case 'i': UseISO = 1; break;
  406. X  
  407. X!      case 'c': NoSmallCal = 1; break;
  408. X  
  409. X       case 'e': FillPage = 1; break;
  410. X  
  411. X--- 656,673 ----
  412. X  
  413. X       case 'i': UseISO = 1; break;
  414. X  
  415. X!      case 'c': j=(*s);
  416. X!                if (!j) {
  417. X!               SmallLocation = SmallCalLoc[0];
  418. X!                    } else {
  419. X!               j -= '0';
  420. X!               if (j>=0 && j<NUMSMALL) {
  421. X!                  SmallLocation = SmallCalLoc[j];
  422. X!               } else {
  423. X!                  SmallLocation = SmallCalLoc[0];
  424. X!                       }
  425. X!                    }
  426. X!            break;
  427. X  
  428. X       case 'e': FillPage = 1; break;
  429. X  
  430. X***************
  431. X*** 655,671 ****
  432. X     fprintf(stderr, "Options:\n\n");
  433. X     fprintf(stderr, "-p file       Include user-supplied PostScript code in prologue\n");
  434. X     fprintf(stderr, "-l            Do calendar in landscape mode\n");
  435. X!    fprintf(stderr, "-c            Do NOT generate small calendars for previous\n");
  436. X     fprintf(stderr, "              and next month\n");
  437. X     fprintf(stderr, "-i            Use ISO 8859-1 encoding in PostScript output\n");
  438. X     fprintf(stderr, "-m media      Set page size (eg, Letter, Legal, A4.)  Case sensitive!\n");
  439. X     fprintf(stderr, "              (Default page size is %s)\n", DefaultPage[0].name);
  440. X!    fprintf(stderr, "-f[shed] font Set font for small cal, hdr, cal entries and/or day numbers\n");
  441. X!    fprintf(stderr, "-s[hed] size  Set size for header, calendar entries and/or day numbers\n");
  442. X     fprintf(stderr, "-b size       Set border size for calendar entries\n");
  443. X     fprintf(stderr, "-t size       Set line thickness\n");
  444. X     fprintf(stderr, "-e            Make calendar fill entire page\n");
  445. X     fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
  446. X     exit(1);
  447. X  }
  448. X  
  449. X--- 695,712 ----
  450. X     fprintf(stderr, "Options:\n\n");
  451. X     fprintf(stderr, "-p file       Include user-supplied PostScript code in prologue\n");
  452. X     fprintf(stderr, "-l            Do calendar in landscape mode\n");
  453. X!    fprintf(stderr, "-c[n]         Control small calendars: 0=none; 1=bt; 2=tb; 3=sbt\n");
  454. X     fprintf(stderr, "              and next month\n");
  455. X     fprintf(stderr, "-i            Use ISO 8859-1 encoding in PostScript output\n");
  456. X     fprintf(stderr, "-m media      Set page size (eg, Letter, Legal, A4.)  Case sensitive!\n");
  457. X     fprintf(stderr, "              (Default page size is %s)\n", DefaultPage[0].name);
  458. X!    fprintf(stderr, "-f[shted] font Set font for small cal, hdr, title, cal entries, day numbers\n");
  459. X!    fprintf(stderr, "-s[hted] size Set size for header, title, calendar entries and/or day numbers\n");
  460. X     fprintf(stderr, "-b size       Set border size for calendar entries\n");
  461. X     fprintf(stderr, "-t size       Set line thickness\n");
  462. X     fprintf(stderr, "-e            Make calendar fill entire page\n");
  463. X     fprintf(stderr, "-o[lrtb] marg Specify left, right, top and bottom margins\n");
  464. X+    fprintf(stderr, "-n            Start calendar with Monday rather than Sunday\n");
  465. X     exit(1);
  466. X  }
  467. X  
  468. X***************
  469. X*** 676,692 ****
  470. X  /*                                                             */
  471. X  /***************************************************************/
  472. X  #ifdef HAVE_PROTOS
  473. X! void DoSmallCal(char *m, int days, int first, int col)
  474. X  #else
  475. X! void DoSmallCal(m, days, first, col)
  476. X  char *m;
  477. X  int days, first, col;
  478. X  #endif
  479. X  {
  480. X     /* Do the small calendar */
  481. X!    int i;
  482. X     int row = 2;
  483. X  
  484. X     /* Figure out the font size */
  485. X  
  486. X     printf("/SmallFontSize MinBoxSize Border sub Border sub 8 div 2 sub def\n");
  487. X--- 717,737 ----
  488. X  /*                                                             */
  489. X  /***************************************************************/
  490. X  #ifdef HAVE_PROTOS
  491. X! void DoSmallCal(char *m, int days, int first, int col, int which)
  492. X  #else
  493. X! void DoSmallCal(m, days, first, col, which)
  494. X  char *m;
  495. X  int days, first, col;
  496. X  #endif
  497. X  {
  498. X     /* Do the small calendar */
  499. X!    int i, j;
  500. X     int row = 2;
  501. X  
  502. X+    if (MondayFirst) {
  503. X+       first--;
  504. X+       if (first < 0) first = 6;
  505. X+    }
  506. X     /* Figure out the font size */
  507. X  
  508. X     printf("/SmallFontSize MinBoxSize Border sub Border sub 8 div 2 sub def\n");
  509. X***************
  510. X*** 703,716 ****
  511. X     printf("gsave\n");
  512. X  
  513. X     /* Move origin to upper-left hand corner of appropriate box */
  514. X!    printf("%d xincr mul MinX add ysmall translate\n", col);
  515. X  
  516. X     /* Print the month */   
  517. X     printf("SmallWidth 7 mul (%s) stringwidth pop sub 2 div Border add Border neg SmallFontSize sub moveto (%s) show\n", m, m);
  518. X  
  519. X     /* Print the days of the week */
  520. X!    for (i=0; i<7; i++)
  521. X!       printf("Border %d SmallWidth mul add Border neg SmallFontSize sub SmallFontSize sub 2 sub moveto (%c) show\n", i, Days[i]);
  522. X  
  523. X     /* Now do the days of the month */
  524. X     for (i=1; i<=days; i++) {
  525. X--- 748,764 ----
  526. X     printf("gsave\n");
  527. X  
  528. X     /* Move origin to upper-left hand corner of appropriate box */
  529. X!    printf("%d xincr mul MinX add ysmall%d translate\n", col, which);
  530. X  
  531. X     /* Print the month */   
  532. X     printf("SmallWidth 7 mul (%s) stringwidth pop sub 2 div Border add Border neg SmallFontSize sub moveto (%s) show\n", m, m);
  533. X  
  534. X     /* Print the days of the week */
  535. X!    for (i=0; i<7; i++) {
  536. X!       if (MondayFirst) j=(i+1)%7;
  537. X!       else             j=i;
  538. X!       printf("Border %d SmallWidth mul add Border neg SmallFontSize sub SmallFontSize sub 2 sub moveto (%c) show\n", i, Days[j]);
  539. X!    }
  540. X  
  541. X     /* Now do the days of the month */
  542. X     for (i=1; i<=days; i++) {
  543. X***************
  544. X*** 744,750 ****
  545. X     int fnoff;
  546. X     char buffer[LINELEN];
  547. X  
  548. X!    begin = CurDay - WkDayNum;
  549. X     wd = 0;
  550. X     while (begin < 1) begin++, wd++;
  551. X     end = CurDay;
  552. X--- 792,799 ----
  553. X     int fnoff;
  554. X     char buffer[LINELEN];
  555. X  
  556. X!    if (!MondayFirst) begin = CurDay - WkDayNum;
  557. X!    else             begin = CurDay - (WkDayNum ? WkDayNum-1 : 6);
  558. X     wd = 0;
  559. X     while (begin < 1) begin++, wd++;
  560. X     end = CurDay;
  561. X***************
  562. X*** 795,797 ****
  563. X--- 844,916 ----
  564. X     }
  565. X     return HadPS;
  566. X  }
  567. X+ 
  568. X+ /***************************************************************/
  569. X+ /*                                                             */
  570. X+ /* GetSmallLocations                                           */
  571. X+ /*                                                             */
  572. X+ /* Set up the locations for the small calendars.               */
  573. X+ /*                                                             */
  574. X+ /***************************************************************/
  575. X+ #ifdef HAVE_PROTOS
  576. X+ PUBLIC void GetSmallLocations(void)
  577. X+ #else
  578. X+ void GetSmallLocations()
  579. X+ #endif
  580. X+ {
  581. X+    char c;
  582. X+    char *s = SmallLocation;
  583. X+    int colfirst, collast;
  584. X+ 
  585. X+ /* Figure out the first and last columns */
  586. X+    colfirst = FirstWkDay;
  587. X+    collast = (FirstWkDay+MaxDay-1) % 7;
  588. X+    if (MondayFirst) {
  589. X+       colfirst = colfirst ? colfirst - 1 : 6;
  590. X+       collast = collast ? collast - 1 : 6;
  591. X+    }
  592. X+    NoSmallCal = 0;
  593. X+ 
  594. X+    while((c = *s++) != 0) {
  595. X+       switch(c) {
  596. X+          case 'b':
  597. X+         /* Adjust Feb. if we want it on the bottom */
  598. X+         if (MaxDay == 28 && colfirst == 0) { 
  599. X+            printf("/ysmallbot ymin def /ymin ysmallbot MinBoxSize sub def\n");
  600. X+            printf("MinX ymin MaxX ymin L\n");
  601. X+            printf("/ysmall1 ysmallbot def /ysmall2 ysmallbot def\n");
  602. X+            SmallCol1 = 5;
  603. X+            SmallCol2 = 6;
  604. X+            return;
  605. X+             }
  606. X+         if (collast <= 4) {
  607. X+            printf("/ysmall1 ysmallbot def /ysmall2 ysmallbot def\n");
  608. X+            SmallCol1 = 5;
  609. X+            SmallCol2 = 6;
  610. X+            return;
  611. X+         }
  612. X+         break;
  613. X+ 
  614. X+      case 't':
  615. X+         if (colfirst >= 2) {
  616. X+            printf("/ysmall1 ysmalltop def /ysmall2 ysmalltop def\n");
  617. X+            SmallCol1 = 0;
  618. X+            SmallCol2 = 1;
  619. X+            return;
  620. X+         }
  621. X+         break;
  622. X+ 
  623. X+      case 's':
  624. X+         if (colfirst >= 1 && collast<=5) {
  625. X+            printf("/ysmall1 ysmalltop def /ysmall2 ysmallbot def\n");
  626. X+            SmallCol1 = 0;
  627. X+            SmallCol2 = 6;
  628. X+            return;
  629. X+         }
  630. X+         break;
  631. X+       }
  632. X+    }
  633. X+    NoSmallCal = 1;
  634. X+    return;
  635. X+ }
  636. X+            
  637. X*** ../prev/rem2ps.h    Mon Jun 28 12:30:22 1993
  638. X--- ./rem2ps.h    Tue Sep 28 16:53:52 1993
  639. X***************
  640. X*** 64,80 ****
  641. X     "/doheading",
  642. X     "{",
  643. X     "   /monthyr exch def",
  644. X!    "   ",
  645. X!    "   /HeadFont findfont",
  646. X!    "   HeadSize scalefont setfont   ",
  647. X     "   monthyr stringwidth",
  648. X!    "   pop",
  649. X     "   2 div MaxX MinX add 2 div exch sub /x exch def",
  650. X!    "   MaxY HeadSize 1.5 mul sub /y exch def",
  651. X     "   newpath x y moveto monthyr show",
  652. X!    "   y HeadSize 0.5 mul sub /y exch def",
  653. X     "   MinX y MaxX y L",
  654. X     "   /topy y def",
  655. X     "% Do the days of the week",
  656. X     "   MaxX MinX sub 7 div /xincr exch def",
  657. X     "   /x MinX def",
  658. X--- 64,82 ----
  659. X     "/doheading",
  660. X     "{",
  661. X     "   /monthyr exch def",
  662. X!    "",
  663. X!    "   /TitleFont findfont",
  664. X!    "   TitleSize scalefont setfont",
  665. X     "   monthyr stringwidth",
  666. X!    "   /hgt exch def",
  667. X     "   2 div MaxX MinX add 2 div exch sub /x exch def",
  668. X!    "   MaxY Border sub TitleSize sub /y exch def",
  669. X     "   newpath x y moveto monthyr show",
  670. X!    "   newpath x y moveto monthyr false charpath flattenpath pathbbox",
  671. X!    "   pop pop Border sub /y exch def pop",
  672. X     "   MinX y MaxX y L",
  673. X     "   /topy y def",
  674. X+    "   /HeadFont findfont HeadSize scalefont setfont",
  675. X     "% Do the days of the week",
  676. X     "   MaxX MinX sub 7 div /xincr exch def",
  677. X     "   /x MinX def",
  678. X***************
  679. X*** 143,149 ****
  680. X     "   /curline () def",
  681. X     "   /len word length def",
  682. X     "   /Fcount len 1 sub def",
  683. X!    "   ",
  684. X     "   {",
  685. X     "     word 0 Fcount getinterval stringwidth pop width le",
  686. X     "     {exit} if",
  687. X--- 145,151 ----
  688. X     "   /curline () def",
  689. X     "   /len word length def",
  690. X     "   /Fcount len 1 sub def",
  691. X!    "",
  692. X     "   {",
  693. X     "     word 0 Fcount getinterval stringwidth pop width le",
  694. X     "     {exit} if",
  695. X*** ../prev/remind.1    Thu Aug 26 10:58:39 1993
  696. X--- ./remind.1    Thu Sep 30 15:25:03 1993
  697. X***************
  698. X*** 1,4 ****
  699. X! .TH REMIND 1 "14 April 1993"
  700. X  .UC 4
  701. X  .SH NAME
  702. X  remind \- a sophisticated reminder service
  703. X--- 1,4 ----
  704. X! .TH REMIND 1 "30 September 1993"
  705. X  .UC 4
  706. X  .SH NAME
  707. X  remind \- a sophisticated reminder service
  708. X***************
  709. X*** 59,64 ****
  710. X--- 59,70 ----
  711. X  \fBrem2ps\fR program, which creates a PostScript calendar.  For this
  712. X  option, \fIn\fR cannot start with "+"; it must specify a number of months.
  713. X  .TP
  714. X+ .B \-m
  715. X+ The \fB\-m\fR option causes the \fB\-c\fR option to produce a calendar whose
  716. X+ first column is Monday rather than Sunday.  (This conforms to the international
  717. X+ standard.)  It does \fInot\fR, however, affect the \fB\-p\fR or \fB\-s\fR
  718. X+ options.
  719. X+ .TP
  720. X  .B \-v
  721. X  The \fB\-v\fR option makes the output of \fBRemind\fR slightly more verbose.
  722. X  .TP
  723. X***************
  724. X*** 202,207 ****
  725. X--- 208,220 ----
  726. X  it, rather than the actual system date, as its notion of "today."
  727. X  This lets you create calendars for future months, or test to see
  728. X  how your reminders will be triggered in the future.
  729. X+ .PP
  730. X+ In addition, as part of the \fIdate\fR component, you can supply a
  731. X+ \fIrepeat\fR parameter, which has the form *\fInum\fR.  This causes
  732. X+ \fBRemind\fR to be run \fInum\fR times, with the date incrementing
  733. X+ on each iteration.  You may have to enclose the parameter in quotes
  734. X+ to avoid shell expansion.  See the subsection "Repeated Execution"
  735. X+ in the section "Calendar Mode" for more information.
  736. X  .SH REMINDER FILES
  737. X  .PP
  738. X  \fBRemind\fR uses scripts to control its operation.  The commands
  739. X***************
  740. X*** 281,287 ****
  741. X  reminders - they are \fB$FirstIndent\fR, \fB$SubsIndent\fR and
  742. X  \fB$FormWidth\fR.  They are discussed in the section "System Variables."
  743. X  The \fBMSF\fR keyword causes the spacing of your reminder to be altered -
  744. X! extra spaces are discarded, and two spaces are placed after periods.
  745. X  .PP
  746. X  A \fBRUN\fR-type
  747. X  reminder also passes the \fIbody\fR through the substitution filter, but
  748. X--- 294,306 ----
  749. X  reminders - they are \fB$FirstIndent\fR, \fB$SubsIndent\fR and
  750. X  \fB$FormWidth\fR.  They are discussed in the section "System Variables."
  751. X  The \fBMSF\fR keyword causes the spacing of your reminder to be altered -
  752. X! extra spaces are discarded, and two spaces are placed after periods and
  753. X! other characters, as specified by the system variables \fB$EndSent\fR and
  754. X! \fB$EndSentIg\fR.  Note that if the body of the reminder includes
  755. X! newline characters (placed there with the %_ sequence), then the newlines
  756. X! are treated as the beginnings of new paragraphs, and the \fB$FirstIndent\fR
  757. X! indentation is used for the next line.  You can use two consecutive
  758. X! newlines to have spaced paragraphs emitted from a single reminder body.
  759. X  .PP
  760. X  A \fBRUN\fR-type
  761. X  reminder also passes the \fIbody\fR through the substitution filter, but
  762. X***************
  763. X*** 291,297 ****
  764. X  .PP
  765. X  A \fBPS\fR or \fBPSFILE\fR-type reminder is used to pass PostScript code
  766. X  directly to the printer when producing PostScript calendars.  This can
  767. X! be used to shade certain calendar entries, include graphics in the calendar,
  768. X  or almost any other purpose you can think of.  You
  769. X  should not use these types of reminders unless you are an expert PostScript
  770. X  programmer.  The \fBPS\fR and \fBPSFILE\fR reminders are ignored unless
  771. X--- 310,317 ----
  772. X  .PP
  773. X  A \fBPS\fR or \fBPSFILE\fR-type reminder is used to pass PostScript code
  774. X  directly to the printer when producing PostScript calendars.  This can
  775. X! be used to shade certain calendar entries (see the psshade() function),
  776. X! include graphics in the calendar,
  777. X  or almost any other purpose you can think of.  You
  778. X  should not use these types of reminders unless you are an expert PostScript
  779. X  programmer.  The \fBPS\fR and \fBPSFILE\fR reminders are ignored unless
  780. X***************
  781. X*** 1468,1483 ****
  782. X  version 03.00.07 of \fBRemind\fR.
  783. X  .PP
  784. X  All system variables begin with a dollar sign '$'.  They can be used
  785. X! in \fBSET\fR commands and expressions just as regular variables can.  However,
  786. X! system variables always hold values of type \fBINT\fR.  In addition,
  787. X! some system variables cannot be modified, and you cannot create new
  788. X! system variables.  System variables can be initialized on the command
  789. X! line with the \fB\-i\fR option, but you may need to quote them to avoid
  790. X! having the shell interpret the dollar sign.  System variable names are
  791. X! not case-sensitive.
  792. X  .PP
  793. X  The following system variables are defined.  Those marked
  794. X  "read-only" cannot be changed with the \fBSET\fR command.
  795. X  .TP
  796. X  .B $CalcUTC 
  797. X  If 1 (the default), then \fBRemind\fR uses C library functions
  798. X--- 1488,1505 ----
  799. X  version 03.00.07 of \fBRemind\fR.
  800. X  .PP
  801. X  All system variables begin with a dollar sign '$'.  They can be used
  802. X! in \fBSET\fR commands and expressions just as regular variables can.
  803. X! All system variables always hold values of a specified type.  In
  804. X! addition, some system variables cannot be modified, and you cannot
  805. X! create new system variables.  System variables can be initialized on
  806. X! the command line with the \fB\-i\fR option, but you may need to quote
  807. X! them to avoid having the shell interpret the dollar sign.  System
  808. X! variable names are not case-sensitive.
  809. X  .PP
  810. X  The following system variables are defined.  Those marked
  811. X  "read-only" cannot be changed with the \fBSET\fR command.
  812. X+ All system variables hold values of type \fBINT\fR, unless otherwise
  813. X+ specified.
  814. X  .TP
  815. X  .B $CalcUTC 
  816. X  If 1 (the default), then \fBRemind\fR uses C library functions
  817. X***************
  818. X*** 1506,1511 ****
  819. X--- 1528,1556 ----
  820. X  If non-zero, then the \fB\-q\fR option was supplied on the command line.
  821. X  For the MS-DOS version, always contains 1.
  822. X  .TP
  823. X+ .B $EndSent (STRING type)
  824. X+ Contains a list of characters which end a sentence.  The \fBMSF\fR
  825. X+ keyword inserts two spaces after these characters.  Initially,
  826. X+ \fB$EndSent\fR is set to ".!?" (period, exclamation mark, and
  827. X+ question mark.)
  828. X+ .TP
  829. X+ .B $EndSentIg (STRING type)
  830. X+ Contains a list of characters which should be ignored when \fBMSF\fR
  831. X+ decides whether or not to place two spaces after a sentence.  Initially,
  832. X+ is set to "'>)]}"+CHAR(34) (single-quote, greater-than, right
  833. X+ parenthesis, right bracket, right brace, and double-quote.)
  834. X+ .PP
  835. X+ .RS
  836. X+ For example, the default values work as follows:
  837. X+ .PP
  838. X+ .nf
  839. X+     MSF He said, "Huh! (Two spaces will follow this.)"  Yup.
  840. X+ .fi
  841. X+ .PP
  842. X+ because the final parenthesis and quote are ignored (for the purposes
  843. X+ of spacing) when they follow a period.
  844. X+ .RE
  845. X+ .TP
  846. X  .B $FirstIndent
  847. X  The number of spaces by which to indent the first line of a \fBMSF\fR-type
  848. X  reminder.  The default is 0.
  849. X***************
  850. X*** 1545,1550 ****
  851. X--- 1590,1601 ----
  852. X  are positive; southern ones are negative.  For southern latitudes, all
  853. X  three components should be negative.
  854. X  .TP
  855. X+ .B $Location (STRING type)
  856. X+ This is a string specifying the name of your location.  It is usually
  857. X+ the name of your town or city.  It can be set to whatever you like,
  858. X+ but good style indicates that it should be kept consistent with
  859. X+ the latitude and longitude system variables.
  860. X+ .TP
  861. X  .B $LongDeg, $LongMin, $LongSec
  862. X  These specify the longitude of your location.  \fB$LongDeg\fR can
  863. X  range from -180 to 180.  Western longitudes are positive; eastern
  864. X***************
  865. X*** 1907,1912 ****
  866. X--- 1958,2005 ----
  867. X  Returns an \fBINT\fR from 1 to 12, representing the month component of
  868. X  \fIdate\fR.
  869. X  .TP
  870. X+ .B "moondate(i_phase [,d_date [,t_time]])"
  871. X+ This function returns the date of the first occurrence of the phase
  872. X+ \fIphase\fR of the moon on or after \fIdate\fR and \fItime\fR.
  873. X+ \fIPhase\fR can range from 0 to 3, with 0 signifying new moon, 1 first
  874. X+ quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  875. X+ it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  876. X+ to midnight.
  877. X+ .RS
  878. X+ .PP
  879. X+ For example, the following returns the date of the next full moon:
  880. X+ .PP
  881. X+ .nf
  882. X+         SET fullmoon moondate(2)
  883. X+ .fi
  884. X+ .PP
  885. X+ .RE
  886. X+ .TP
  887. X+ .B "moontime(i_phase [,d_date [,t_time]])"
  888. X+ This function returns the time of the first occurrence of the phase
  889. X+ \fIphase\fR of the moon on or after \fIdate\fR and \fItime\fR.
  890. X+ \fIPhase\fR can range from 0 to 3, with 0 signifying new moon, 1 first
  891. X+ quarter, 2 full moon, and 3 third quarter.  If \fIdate\fR is omitted,
  892. X+ it defaults to \fBtoday()\fR.  If \fItime\fR is omitted, it defaults
  893. X+ to midnight.  \fBMoontime()\fR is intended to be used in conjunction
  894. X+ with \fBmoondate()\fR.  Don't take the time too seriously - it's only
  895. X+ accurate to within 15-20 minutes.
  896. X+ .RS
  897. X+ .PP
  898. X+ For example, the following returns the date and time of the next full moon:
  899. X+ .PP
  900. X+ .nf
  901. X+         MSG Next full moon at [moontime(2)] on [moondate(2)]
  902. X+ .fi
  903. X+ .PP
  904. X+ .RE
  905. X+ .TP
  906. X+ .B moonphase([d_date [,t_time]])
  907. X+ This function returns the phase of the moon on \fIdate\fR and \fItime\fR,
  908. X+ which default to \fBtoday()\fR and midnight, respectively.  The returned
  909. X+ value is an integer from 0 to 359, representing the phase of the moon
  910. X+ in degrees.  0 is a new moon, 180 is a full moon, 90 is first-quarter, etc.
  911. X+ .TP
  912. X  .B now()
  913. X  Returns the current system time, as a \fBTIME\fR type.
  914. X  .TP
  915. X***************
  916. X*** 1931,1936 ****
  917. X--- 2024,2064 ----
  918. X  \fIstr2\fR otherwise.
  919. X  .RE
  920. X  .TP
  921. X+ .B psmoon(i_phase [,i_size])
  922. X+ Returns a \fBSTRING\fR consisting of PostScript code to draw a moon
  923. X+ in the upper-left hand corner of the calendar box.  \fIPhase\fR specifies
  924. X+ the phase of the moon, and is 0 (new moon), 1 (first quarter), 2 (full moon)
  925. X+ or 3 (third quarter).  If \fIsize\fR is specified, it controls the radius of
  926. X+ the moon in PostScript units (1/72 inch.)  If it is not specified, the size
  927. X+ of the day-number font is used.
  928. X+ .PP
  929. X+ .RS
  930. X+ For example, the following four lines place moon symbols on the PostScript
  931. X+ calendar:
  932. X+ .PP
  933. X+ .nf
  934. X+         REM [trigger(moondate(0))] PS [psmoon(0)]
  935. X+         REM [trigger(moondate(1))] PS [psmoon(1)]
  936. X+         REM [trigger(moondate(2))] PS [psmoon(2)]
  937. X+         REM [trigger(moondate(3))] PS [psmoon(3)]
  938. X+ .fi
  939. X+ .PP
  940. X+ .RE
  941. X+ .TP
  942. X+ .B psshade(i_num)
  943. X+ Returns a \fBSTRING\fR which consists of PostScript commands to
  944. X+ shade a calendar box.  \fINum\fR can range from 0 (completely black)
  945. X+ to 100 (completely white.)  Here's an example of how to use this:
  946. X+ .RS
  947. X+ .PP
  948. X+ .nf
  949. X+         REM Sat Sun PS [psshade(95)]
  950. X+ .fi
  951. X+ .PP
  952. X+ The above command emits PostScript code to lightly shade the boxes
  953. X+ for Saturday and Sunday in a PostScript calendar.
  954. X+ .RE
  955. X+ .TP
  956. X  .B realtoday()
  957. X  Returns the date as provided by the operating system.  This is in contrast to
  958. X  \fBRemind\fR's concept of "today", which may be changed if it is running
  959. X***************
  960. X*** 2460,2465 ****
  961. X--- 2588,2605 ----
  962. X  timed reminders are discarded.  If you are in calendar mode
  963. X  (described next), then the calendar processing is aborted.
  964. X  .PP
  965. X+ If you supply an \fBINT\fR-type expression after the \fBEXIT\fR command,
  966. X+ it is returned to the calling program as the exit status.  Otherwise,
  967. X+ an exit status of 99 is returned.
  968. X+ .PP
  969. X+ .B THE FLUSH COMMAND
  970. X+ .PP
  971. X+ This command simply consists of the word \fBFLUSH\fR on a line by
  972. X+ itself.  The command flushes the standard output and standard error
  973. X+ streams used by \fBRemind\fR.  This is not terribly useful to most
  974. X+ people, but may be useful if you run \fBRemind\fR as a subprocess of
  975. X+ another program, and want to use pipes for communication.
  976. X+ .PP
  977. X  .SH CALENDAR MODE
  978. X  .PP
  979. X  If you supply the \fB\-c\fR, \fB\-s\fR or \fB\-p\fR
  980. X***************
  981. X*** 2561,2566 ****
  982. X--- 2701,2728 ----
  983. X  places the time of timed reminders in the calendar according to the
  984. X  \fB\-b\fR command-line option.
  985. X  .PP
  986. X+ .B REPEATED EXECUTION
  987. X+ .PP
  988. X+ If you supply a \fIrepeat\fR parameter on the command line,
  989. X+ and do not use the \fB\-c\fR, \fB\-p\fR, or \fB\-s\fR options, \fBRemind\fR
  990. X+ operates in a similar manner to calendar mode.  It repeatedly executes
  991. X+ the reminder script, incrementing \fBtoday()\fR with each iteration.
  992. X+ The same rules about preserving variables and function definitions
  993. X+ apply.  Note that using \fIrepeat\fR on the command line also enables
  994. X+ the \fB\-q\fR option and disables any \fB\-z\fR option.
  995. X+ As an example, if you want to see how \fBRemind\fR
  996. X+ will behave for the next week, you can type:
  997. X+ .PP
  998. X+ .nf
  999. X+     remind .reminders '*7'
  1000. X+ .fi
  1001. X+ .PP
  1002. X+ If you want to print the dates of the next 1000 days, use:
  1003. X+ .PP
  1004. X+ .nf
  1005. X+     (echo 'banner %'; echo 'msg [today()]%') | remind - '*1000'
  1006. X+ .fi
  1007. X+ .PP
  1008. X  .SH INITIALIZING VARIABLES ON THE COMMAND LINE
  1009. X  .PP
  1010. X  The \fB\-i\fR option is used to initialize variables on the \fBRemind\fR
  1011. X***************
  1012. X*** 2640,2650 ****
  1013. X  of the regular calendar entry area.  The space from here to the top
  1014. X  of the box is used only to draw the day number.
  1015. X  .TP
  1016. X! /DayFont, /EntryFont, /SmallFont and /HeadFont
  1017. X  The fonts used to draw the day numbers, the calendar entries, the small
  1018. X! calendars, and the month and day headings, respectively.
  1019. X  .TP
  1020. X! DaySize, EntrySize and HeadSize
  1021. X  The sizes of the above fonts.  (The size of the small calendar font
  1022. X  is \fInot\fR defined here.)  For example, if you wanted to print
  1023. X  the Hebrew date next to the regular day number in the calendar, use:
  1024. X--- 2802,2813 ----
  1025. X  of the regular calendar entry area.  The space from here to the top
  1026. X  of the box is used only to draw the day number.
  1027. X  .TP
  1028. X! /DayFont, /EntryFont, /SmallFont, /TitleFont and /HeadFont
  1029. X  The fonts used to draw the day numbers, the calendar entries, the small
  1030. X! calendars, the calendar title (month, year)
  1031. X! and the day-of-the-week headings, respectively.
  1032. X  .TP
  1033. X! DaySize, EntrySize, TitleSize and HeadSize
  1034. X  The sizes of the above fonts.  (The size of the small calendar font
  1035. X  is \fInot\fR defined here.)  For example, if you wanted to print
  1036. X  the Hebrew date next to the regular day number in the calendar, use:
  1037. X***************
  1038. X*** 3144,3150 ****
  1039. X  versions of \fBRemind\fR prior to 03.00.01.
  1040. X  .SH AUTHOR
  1041. X  .PP
  1042. X! David F. Skoll
  1043. X  .SH BUGS
  1044. X  .PP
  1045. X  There's no good reason why read-only system variables are not
  1046. X--- 3307,3316 ----
  1047. X  versions of \fBRemind\fR prior to 03.00.01.
  1048. X  .SH AUTHOR
  1049. X  .PP
  1050. X! David F. Skoll wrote \fBRemind\fR.  The moon code was copied largely verbatim
  1051. X! from "moontool" by John Walker.  The Hebrew calendar support was taken
  1052. X! from "hdate" by Amos Shapir.  The authors of the language files are
  1053. X! listed in the header file "lang.h" which comes with \fBRemind\fR.
  1054. X  .SH BUGS
  1055. X  .PP
  1056. X  There's no good reason why read-only system variables are not
  1057. X*** ../prev/sort.c    Thu Aug 19 16:12:01 1993
  1058. X--- ./sort.c    Tue Aug 31 16:28:20 1993
  1059. X***************
  1060. X*** 182,187 ****
  1061. X--- 182,188 ----
  1062. X        free(cur);
  1063. X        cur = next;
  1064. X     }
  1065. X+    SortedQueue = NULL;
  1066. X  }
  1067. X  /***************************************************************/
  1068. X  /*                                                             */
  1069. X*** ../prev/test.cmp    Thu Aug 19 17:06:48 1993
  1070. X--- ./test.cmp    Tue Aug 31 13:22:46 1993
  1071. X***************
  1072. X*** 631,637 ****
  1073. X  "a05" + "6" => "a056"
  1074. X  value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1075. X  set a058 version()
  1076. X! version() => "03.00.08"
  1077. X  set a059 wkday(today())
  1078. X  today() => 1991/02/16
  1079. X  wkday(1991/02/16) => "Saturday"
  1080. X--- 631,637 ----
  1081. X  "a05" + "6" => "a056"
  1082. X  value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
  1083. X  set a058 version()
  1084. X! version() => "03.00.09"
  1085. X  set a059 wkday(today())
  1086. X  today() => 1991/02/16
  1087. X  wkday(1991/02/16) => "Saturday"
  1088. X***************
  1089. X*** 772,778 ****
  1090. X          a048  "foo"
  1091. X          a067  "INT"
  1092. X          a039  "February"
  1093. X!         a058  "03.00.08"
  1094. X          a077  "1992 92
  1095. X  "
  1096. X          a049  21
  1097. X--- 772,778 ----
  1098. X          a048  "foo"
  1099. X          a067  "INT"
  1100. X          a039  "February"
  1101. X!         a058  "03.00.09"
  1102. X          a077  "1992 92
  1103. X  "
  1104. X          a049  21
  1105. X*** ../prev/token.c    Tue Aug  3 12:29:05 1993
  1106. X--- ./token.c    Fri Sep  3 11:50:53 1993
  1107. X***************
  1108. X*** 57,62 ****
  1109. X--- 57,63 ----
  1110. X     { "errmsg",          6,      T_ErrMsg,       0 },
  1111. X     { "exit",        4,    T_Exit,        0 },
  1112. X     { "february",     3,     T_Month,    1 },
  1113. X+    { "flush",        5,    T_Flush,    0 },
  1114. X     { "friday",         3,    T_WkDay,    4 },
  1115. X     { "fset",        4,    T_Fset,        0 },
  1116. X     { "if",        2,    T_If,        0 },
  1117. X*** ../prev/types.h    Tue Aug  3 12:28:45 1993
  1118. X--- ./types.h    Fri Sep  3 11:50:48 1993
  1119. X***************
  1120. X*** 126,132 ****
  1121. X    T_Clr,
  1122. X    T_Debug,
  1123. X    T_Dumpvars,
  1124. X!   T_Scanfrom
  1125. X  };
  1126. X  
  1127. X  /* The structure of a token */
  1128. X--- 126,133 ----
  1129. X    T_Clr,
  1130. X    T_Debug,
  1131. X    T_Dumpvars,
  1132. X!   T_Scanfrom,
  1133. X!   T_Flush
  1134. X  };
  1135. X  
  1136. X  /* The structure of a token */
  1137. X*** ../prev/var.c    Thu Aug 19 16:40:40 1993
  1138. X--- ./var.c    Tue Sep 28 16:16:07 1993
  1139. X***************
  1140. X*** 12,17 ****
  1141. X--- 12,18 ----
  1142. X  
  1143. X  #include "config.h"
  1144. X  #include <stdio.h>
  1145. X+ #include <string.h>
  1146. X  #ifdef HAVE_STDLIB_H
  1147. X  #include <stdlib.h>
  1148. X  #endif
  1149. X***************
  1150. X*** 218,228 ****
  1151. X     r = EvaluateExpr(p, &v);
  1152. X     if (r) return r;
  1153. X  
  1154. X!    if (*TokBuffer == '$') {
  1155. X!       if (v.type != INT_TYPE) return E_BAD_TYPE;
  1156. X!       return SetSysVar(TokBuffer+1, v.v.val);
  1157. X!    }
  1158. X!    return SetVar(TokBuffer, &v);
  1159. X  }
  1160. X  
  1161. X  /***************************************************************/
  1162. X--- 219,226 ----
  1163. X     r = EvaluateExpr(p, &v);
  1164. X     if (r) return r;
  1165. X  
  1166. X!    if (*TokBuffer == '$') return SetSysVar(TokBuffer+1, &v);
  1167. X!    else return SetVar(TokBuffer, &v);
  1168. X  }
  1169. X  
  1170. X  /***************************************************************/
  1171. X***************
  1172. X*** 331,343 ****
  1173. X  /*  DestroyVars                                                */
  1174. X  /*                                                             */
  1175. X  /*  Free all the memory used by variables, but don't delete    */
  1176. X! /*  preserved variables.                                       */
  1177. X  /*                                                             */
  1178. X  /***************************************************************/
  1179. X  #ifdef HAVE_PROTOS
  1180. X! PUBLIC void DestroyVars(void)
  1181. X  #else
  1182. X! void DestroyVars()
  1183. X  #endif
  1184. X  {
  1185. X     int i;
  1186. X--- 329,342 ----
  1187. X  /*  DestroyVars                                                */
  1188. X  /*                                                             */
  1189. X  /*  Free all the memory used by variables, but don't delete    */
  1190. X! /*  preserved variables unless ALL is non-zero.                */
  1191. X  /*                                                             */
  1192. X  /***************************************************************/
  1193. X  #ifdef HAVE_PROTOS
  1194. X! PUBLIC void DestroyVars(int all)
  1195. X  #else
  1196. X! void DestroyVars(all)
  1197. X! int all;
  1198. X  #endif
  1199. X  {
  1200. X     int i;
  1201. X***************
  1202. X*** 348,354 ****
  1203. X        VHashTbl[i] = NULL;
  1204. X        prev = NULL;
  1205. X        while(v) {
  1206. X!          if (!v->preserve) {
  1207. X              DestroyValue(&(v->v));
  1208. X             next = v->next;
  1209. X          free(v);
  1210. X--- 347,353 ----
  1211. X        VHashTbl[i] = NULL;
  1212. X        prev = NULL;
  1213. X        while(v) {
  1214. X!          if (all || !v->preserve) {
  1215. X              DestroyValue(&(v->v));
  1216. X             next = v->next;
  1217. X          free(v);
  1218. X***************
  1219. X*** 431,472 ****
  1220. X  typedef struct {
  1221. X     char *name;
  1222. X     char modifiable;
  1223. X!    int *value;   
  1224. X     int min;
  1225. X     int max;
  1226. X  } SysVar;
  1227. X  
  1228. X! #define NO_CONSTRAINT 4532
  1229. X  /* All of the system variables sorted alphabetically */
  1230. X  static SysVar SysVarArr[] = {
  1231. X!        /* name          modifiable    value        min    max */
  1232. X!    {   "CalcUTC",      1,        &CalculateUTC,    0,    1   },
  1233. X!    {   "CalMode",      0,        &DoCalendar,    0,    0   },
  1234. X!    {   "Daemon",      0,        &Daemon,    0,    0   },
  1235. X!    {   "DontFork",      0,        &DontFork,    0,    0   },
  1236. X!    {   "DontQueue",      0,        &DontQueue,    0,    0   },
  1237. X!    {   "DontTrigAts",      0,        &DontIssueAts,    0,    0   },
  1238. X!    {   "FirstIndent",      1,        &FirstIndent,    0,    132 },
  1239. X!    {   "FoldYear",      1,        &FoldYear,    0,    1   },
  1240. X!    {   "FormWidth",      1,        &FormWidth,    20,    132 },
  1241. X!    {   "HushMode",      0,        &Hush,        0,    0   },
  1242. X!    {   "IgnoreOnce",      0,        &IgnoreOnce,    0,    0   },
  1243. X!    {   "InfDelta",      0,        &InfiniteDelta,    0,    0   },
  1244. X!    {   "LatDeg",      1,        &LatDeg,    -90,    90  },
  1245. X!    {   "LatMin",      1,        &LatMin,    -59,    59  },
  1246. X!    {   "LatSec",      1,        &LatSec,    -59,    59  },
  1247. X!    {   "LongDeg",      1,        &LongDeg,    -180,    180  },
  1248. X!    {   "LongMin",      1,        &LongMin,    -59,    59  },
  1249. X!    {   "LongSec",      1,        &LongSec,    -59,    59  },
  1250. X!    {   "MaxSatIter",      1,        &MaxSatIter,    10,    NO_CONSTRAINT },
  1251. X!    {   "MinsFromUTC",      1,        &MinsFromUTC,    -13*60,    13*60 },
  1252. X!    {   "NextMode",      0,        &NextMode,    0,    0   },
  1253. X!    {   "NumQueued",      0,        &NumQueued,    0,    0   },
  1254. X!    {   "NumTrig",      0,        &NumTriggered,    0,    0   },
  1255. X!    {   "PSCal",          0,        &PsCal,        0,    0   },
  1256. X!    {   "RunOff",      0,        &RunDisabled,    0,    0   },
  1257. X!    {   "SimpleCal",      0,        &DoSimpleCalendar,    0,  0 },
  1258. X!    {   "SubsIndent",      1,        &SubsIndent,    0,    132}
  1259. X  };
  1260. X  
  1261. X  #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  1262. X--- 430,480 ----
  1263. X  typedef struct {
  1264. X     char *name;
  1265. X     char modifiable;
  1266. X!    int type;
  1267. X!    void *value;
  1268. X     int min;
  1269. X     int max;
  1270. X  } SysVar;
  1271. X  
  1272. X! /* If the type of a sys variable is STR_TYPE, then min is redefined
  1273. X!    to be a flag indicating whether or not the value has been malloc'd. */
  1274. X! #define been_malloced min
  1275. X! 
  1276. X! /* Flag for no min/max constraint */
  1277. X! #define ANY 4532
  1278. X  /* All of the system variables sorted alphabetically */
  1279. X  static SysVar SysVarArr[] = {
  1280. X!        /* name          mod    type        value        min/mal    max */
  1281. X!    {   "CalcUTC",      1,    INT_TYPE,    &CalculateUTC,    0,    1   },
  1282. X!    {   "CalMode",      0,    INT_TYPE,    &DoCalendar,    0,    0   },
  1283. X!    {   "Daemon",      0,    INT_TYPE,    &Daemon,    0,    0   },
  1284. X!    {   "DontFork",      0,    INT_TYPE,    &DontFork,    0,    0   },
  1285. X!    {   "DontQueue",      0,    INT_TYPE,    &DontQueue,    0,    0   },
  1286. X!    {   "DontTrigAts",      0,    INT_TYPE,    &DontIssueAts,    0,    0   },
  1287. X!    {   "EndSent",      1,    STR_TYPE,    &EndSent,    0,    0   },
  1288. X!    {   "EndSentIg",      1,    STR_TYPE,    &EndSentIg,    0,    0   },
  1289. X!    {   "FirstIndent",      1,    INT_TYPE,    &FirstIndent,    0,    132 },
  1290. X!    {   "FoldYear",      1,    INT_TYPE,    &FoldYear,    0,    1   },
  1291. X!    {   "FormWidth",      1,    INT_TYPE,    &FormWidth,    20,    132 },
  1292. X!    {   "HushMode",      0,    INT_TYPE,    &Hush,        0,    0   },
  1293. X!    {   "IgnoreOnce",      0,    INT_TYPE,    &IgnoreOnce,    0,    0   },
  1294. X!    {   "InfDelta",      0,    INT_TYPE,    &InfiniteDelta,    0,    0   },
  1295. X!    {   "LatDeg",      1,    INT_TYPE,    &LatDeg,    -90,    90  },
  1296. X!    {   "LatMin",      1,    INT_TYPE,    &LatMin,    -59,    59  },
  1297. X!    {   "LatSec",      1,    INT_TYPE,    &LatSec,    -59,    59  },
  1298. X!    {   "Location",      1,    STR_TYPE,    &Location,    0,    0   },
  1299. X!    {   "LongDeg",      1,    INT_TYPE,    &LongDeg,    -180,    180  },
  1300. X!    {   "LongMin",      1,    INT_TYPE,    &LongMin,    -59,    59  },
  1301. X!    {   "LongSec",      1,    INT_TYPE,    &LongSec,    -59,    59  },
  1302. X!    {   "MaxSatIter",      1,    INT_TYPE,    &MaxSatIter,    10,    ANY },
  1303. X!    {   "MinsFromUTC",      1,    INT_TYPE,    &MinsFromUTC,    -13*60,    13*60 },
  1304. X!    {   "NextMode",      0,    INT_TYPE,    &NextMode,    0,    0   },
  1305. X!    {   "NumQueued",      0,    INT_TYPE,    &NumQueued,    0,    0   },
  1306. X!    {   "NumTrig",      0,    INT_TYPE,    &NumTriggered,    0,    0   },
  1307. X!    {   "PSCal",          0,    INT_TYPE,    &PsCal,        0,    0   },
  1308. X!    {   "RunOff",      0,    INT_TYPE,    &RunDisabled,    0,    0   },
  1309. X!    {   "SimpleCal",      0,    INT_TYPE,    &DoSimpleCalendar,    0,  0 },
  1310. X!    {   "SubsIndent",      1,    INT_TYPE,    &SubsIndent,    0,    132}
  1311. X  };
  1312. X  
  1313. X  #define NUMSYSVARS ( sizeof(SysVarArr) / sizeof(SysVar) )
  1314. X***************
  1315. X*** 480,501 ****
  1316. X  /*                                                             */
  1317. X  /***************************************************************/
  1318. X  #ifdef HAVE_PROTOS
  1319. X! PUBLIC int SetSysVar(const char *name, int value)
  1320. X  #else
  1321. X  int SetSysVar(name, value)
  1322. X  char *name;
  1323. X! int value;
  1324. X  #endif
  1325. X  {
  1326. X     SysVar *v = FindSysVar(name);
  1327. X     if (!v) return E_NOSUCH_VAR;
  1328. X     if (!v->modifiable) {
  1329. X        Eprint("%s: '$%s'", ErrMsg[E_CANT_MODIFY], name);
  1330. X        return E_CANT_MODIFY;
  1331. X     }
  1332. X!    if (v->max != NO_CONSTRAINT && value > v->max) return E_2HIGH;
  1333. X!    if (v->min != NO_CONSTRAINT && value < v->min) return E_2LOW;
  1334. X!    *(v->value) = value;
  1335. X     return OK;
  1336. X  }
  1337. X  
  1338. X--- 488,519 ----
  1339. X  /*                                                             */
  1340. X  /***************************************************************/
  1341. X  #ifdef HAVE_PROTOS
  1342. X! PUBLIC int SetSysVar(const char *name, Value *value)
  1343. X  #else
  1344. X  int SetSysVar(name, value)
  1345. X  char *name;
  1346. X! Value *value;
  1347. X  #endif
  1348. X  {
  1349. X     SysVar *v = FindSysVar(name);
  1350. X     if (!v) return E_NOSUCH_VAR;
  1351. X+    if (v->type != value->type) return E_BAD_TYPE;
  1352. X     if (!v->modifiable) {
  1353. X        Eprint("%s: '$%s'", ErrMsg[E_CANT_MODIFY], name);
  1354. X        return E_CANT_MODIFY;
  1355. X     }
  1356. X! 
  1357. X! /* If it's a string variable, special measures must be taken */
  1358. X!    if (v->type == STR_TYPE) {
  1359. X!       if (v->been_malloced) free(*((char **)(v->value)));
  1360. X!       v->been_malloced = 1;
  1361. X!       *((char **) v->value) = value->v.str;
  1362. X!       value->type = ERR_TYPE;  /* So that it's not accidentally freed */
  1363. X!    } else {
  1364. X!       if (v->max != ANY && value->v.val > v->max) return E_2HIGH;
  1365. X!       if (v->min != ANY && value->v.val < v->min) return E_2LOW;
  1366. X!       *((int *)v->value) = value->v.val;
  1367. X!    }
  1368. X     return OK;
  1369. X  }
  1370. X  
  1371. X***************
  1372. X*** 516,525 ****
  1373. X  {
  1374. X     SysVar *v = FindSysVar(name);
  1375. X  
  1376. X!    val->type = INT_TYPE;
  1377. X!    val->v.val = 0;
  1378. X     if (!v) return E_NOSUCH_VAR;
  1379. X!    val->v.val = *(v->value);
  1380. X     return OK;
  1381. X  }
  1382. X  
  1383. X--- 534,548 ----
  1384. X  {
  1385. X     SysVar *v = FindSysVar(name);
  1386. X  
  1387. X!    val->type = ERR_TYPE;
  1388. X     if (!v) return E_NOSUCH_VAR;
  1389. X!    if (v->type == STR_TYPE) {
  1390. X!       val->v.str = StrDup(*((char **) v->value));
  1391. X!       if (!val->v.str) return E_NO_MEM;
  1392. X!    } else {
  1393. X!       val->v.val = *((int *) v->value);
  1394. X!    }
  1395. X!    val->type = v->type;
  1396. X     return OK;
  1397. X  }
  1398. X  
  1399. X***************
  1400. X*** 603,615 ****
  1401. X     if (name) strcat(buffer, name); else strcat(buffer, v->name);
  1402. X     fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, buffer);
  1403. X     if (v) {
  1404. X!       if (!v->modifiable) fprintf(ErrFp, "%d\n", *v->value);
  1405. X!       else {
  1406. X!          fprintf(ErrFp, "%-10d  ", *v->value);
  1407. X!      if (v->min == NO_CONSTRAINT) fprintf(ErrFp, "(-Inf, ");
  1408. X!      else                         fprintf(ErrFp, "[%d, ", v->min);
  1409. X!      if (v->max == NO_CONSTRAINT) fprintf(ErrFp, "Inf)\n");
  1410. X!      else                         fprintf(ErrFp, "%d]\n", v->max);
  1411. X        }
  1412. X     } else   fprintf(ErrFp, "%s\n", UNDEF);
  1413. X  
  1414. X--- 626,648 ----
  1415. X     if (name) strcat(buffer, name); else strcat(buffer, v->name);
  1416. X     fprintf(ErrFp, "%*s  ", VAR_NAME_LEN, buffer);
  1417. X     if (v) {
  1418. X!       if (v->type == STR_TYPE) {
  1419. X!          char *s = *((char **)v->value);
  1420. X!      int y;
  1421. X!      putc('"', ErrFp);
  1422. X!      for (y=0; y<MAX_PRT_LEN && *s; y++) putc(*s++, ErrFp);
  1423. X!      putc('"', ErrFp);
  1424. X!      if (*s) fprintf(ErrFp, "...");
  1425. X!      putc('\n', ErrFp);
  1426. X!       } else {
  1427. X!          if (!v->modifiable) fprintf(ErrFp, "%d\n", *((int *)v->value));
  1428. X!          else {
  1429. X!             fprintf(ErrFp, "%-10d  ", *((int *)v->value));
  1430. X!            if (v->min == ANY) fprintf(ErrFp, "(-Inf, ");
  1431. X!         else                         fprintf(ErrFp, "[%d, ", v->min);
  1432. X!         if (v->max == ANY) fprintf(ErrFp, "Inf)\n");
  1433. X!         else                         fprintf(ErrFp, "%d]\n", v->max);
  1434. X!          }
  1435. X        }
  1436. X     } else   fprintf(ErrFp, "%s\n", UNDEF);
  1437. X  
  1438. END_OF_FILE
  1439.   if test 42130 -ne `wc -c <'patch.09.D'`; then
  1440.     echo shar: \"'patch.09.D'\" unpacked with wrong size!
  1441.   elif test -f 'patch.09.A' && test -f 'patch.09.B' && test -f 'patch.09.C'
  1442.   then
  1443.     echo shar: Combining  \"'patch.09'\" \(145785 characters\) 
  1444.     cat 'patch.09.A' 'patch.09.B' 'patch.09.C' 'patch.09.D' > 'patch.09' 
  1445.     if test 145785 -ne `wc -c <'patch.09'`; then 
  1446.       echo shar: \"'patch.09'\" combined with wrong size! 
  1447.     else 
  1448.       rm patch.09.A patch.09.B patch.09.C patch.09.D 
  1449.     fi 
  1450.   fi
  1451.   # end of 'patch.09.D'
  1452. fi
  1453. echo shar: End of archive 3 \(of 4\).
  1454. cp /dev/null ark3isdone
  1455. MISSING=""
  1456. for I in 1 2 3 4 ; do
  1457.     if test ! -f ark${I}isdone ; then
  1458.     MISSING="${MISSING} ${I}"
  1459.     fi
  1460. done
  1461. if test "${MISSING}" = "" ; then
  1462.     echo You have unpacked all 4 archives.
  1463.     rm -f ark[1-9]isdone
  1464. else
  1465.     echo You still must unpack the following archives:
  1466.     echo "        " ${MISSING}
  1467. fi
  1468. exit 0
  1469. exit 0 # Just in case...
  1470.