home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / X11R6 / bin / pscal < prev    next >
Text File  |  1997-10-12  |  13KB  |  638 lines
  1. #!/bin/sh
  2. #+
  3. #
  4. # NAME:
  5. #    pscal
  6. #
  7. # SYNOPSIS:
  8. #    pscal [-Pprinter] [other printer flags] month year
  9. #
  10. # DESCRIPTION:
  11. #    `Pscal' is a PostScript program to print calendars.
  12. #
  13. #    The file $HOME/.holiday is read and used to print short messages
  14. #    on specified days.  The .holiday file should consist of lines of
  15. #    the form 
  16. #        month:day:message string
  17. #    Messages should be 20 characters or less, with no more than 6
  18. #    messages per day.  No spaces should appear from the beginning
  19. #    of a line until after the second colon.
  20. #    Month and day should be numbers in the obvious ranges.
  21. #    12/89 - The holiday checking has been loosened up in that the
  22. #    following takes place:
  23. #        1. The Shell Variable EFILE is used preferentially
  24. #        2. Then the file Events in the current directory is used
  25. #        3. Finally the $HOME/.holiday file is used.
  26. #    The whole process can be turned off by setting EFILE=/dev/null.
  27. #
  28. # OPTIONS:
  29. #    Any argument whose first character is '-' is passed on to lpr.
  30. #    The shell variables BANNER, LFOOT, CFOOT, and RFOOT become a
  31. #    top centered banner, and left, centered, or right justified
  32. #    footers respectively.  As in:
  33. #
  34. #        BANNER="Schedule 1" CFOOT=Preliminary pscal 4 90
  35. #
  36. # AUTHOR:
  37. #    Patrick Wood
  38. #    Copyright (C) 1987 by Pipeline Associates, Inc.
  39. #    Permission is granted to modify and distribute this free of charge.
  40. # 
  41. # HISTORY:
  42. #    @Original From: patwood@unirot.UUCP (Patrick Wood)
  43. #    @Shell stuff added 3/9/87 by King Ables
  44. #    @Made pretty by tjt 1988
  45. #    @Holiday and printer flag passing hacks added Dec 1988 
  46. #    @ by smann@june.cs.washington.edu 
  47. #    @Used the better looking version with 5 rows of days rather than 6
  48. #    @ hacked together with holiday and banner/footnotes added
  49. #    @ by Joe (No Relation) Wood, 12/89, jlw@lzga.ATT.COM
  50. #    @Fixed "-R" (didn't work at all; now it at least works on 8.5x11)
  51. #    @Also fixed handling of unrecognized arguments
  52. #    @ by Jeff Mogul, 1/90, mogul@decwrl.dec.com
  53. #
  54. # BUGS:
  55. #    `Pscal' doesn't work for months before 1753 (weird stuff happened
  56. #    in September, 1752).
  57. #
  58. #    A better format for the dates of holidays would be nice.
  59. #    An escape to allow holiday messages to be raw PostScript would
  60. #    also be nice.
  61. #    The holiday messages should be handled more intelligently (ie,
  62. #    the messages should be clipped to the day).
  63. #
  64.  
  65. # 
  66. # PostScript program to print calendars.
  67. # Doesn't deal well with September 1752 or before.
  68. # 
  69.  
  70. USAGE="Usage: pscal [ -Rrt ] [ -F hfont ] [ -f font ] [-d directory] [ month [ year ] ]"
  71.  
  72. TFONT=Times-Bold
  73. DFONT=Helvetica-Bold
  74. EFONT=Times-Roman
  75.  
  76. Calendar=$HOME/Calendar
  77.  
  78. ROTATE=90
  79. SCALE="1.0 1.0"
  80. #    Was 50 -120 - changed to 71 -120 for A4 Use
  81. TRANSLATE="71 -120"
  82.  
  83. LPR="lpr"
  84.  
  85. while test $# != 0
  86. do
  87.     case $1 in
  88.     -P) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  89.         eval ENVAR="$1$2"; shift; shift;;
  90.     -P*) eval ENVAR=$1; shift;;
  91.     -F) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  92.         TFONT="$2"; shift; shift;;
  93.     -F*) TFONT=`echo $1 | sed -n 1s/-.//p`; shift;;
  94.     -f) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  95.         DFONT="$2"; shift; shift;;
  96.     -f*) DFONT=`echo $1 | sed -n 1s/-.//p`; shift;;
  97.     -t) LPR=cat; shift;;
  98.     -r) ROTATE=90; shift;;
  99.     -R) ROTATE=0; SCALE="0.75 0.75"; TRANSLATE="50 900"; shift;;
  100.     -d) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  101.         Calendar="$2"; shift; shift;;
  102.     --|-) break;;
  103.     -*) eval ENVAR=\"$ENVAR $1\"; shift;;
  104.     *) break
  105.     esac
  106. done
  107.  
  108. test $# -gt 2 && { echo "$USAGE" 1>&2; exit 1; }
  109.  
  110. case $# in
  111.     0)    set `date`; YEAR=$6; MONTH=$2;;
  112.     1)    MONTH=$1; set `date`; YEAR=$6;;
  113.     2)    MONTH=$1 YEAR=$2;;
  114. esac
  115.  
  116. MONTH=`case $MONTH in Jan|jan) echo 1;;Feb|feb) echo 2;;Mar|mar) echo 3;;Apr|apr) echo 4;;
  117.     May|may) echo 5;;Jun|jun) echo 6;;Jul|jul) echo 7;;Aug|aug) echo 8;;
  118.     Sep|sep) echo 9;;Oct|oct) echo 10;;Nov|nov) echo 11;;Dec|dec) echo 12;;
  119.     1|2|3|4|5|6|7|8|9|10|11|12) echo $MONTH;;esac`
  120.  
  121. MONTHNAME=`sed -n ${MONTH}p <<END-monthlist
  122. Jan
  123. Feb
  124. Mar
  125. Apr
  126. May
  127. Jun
  128. Jul
  129. Aug
  130. Sep
  131. Oct
  132. Nov
  133. Dec
  134. END-monthlist`
  135.  
  136. test $YEAR -lt 100 && YEAR=`expr $YEAR + 1900`
  137.  
  138. if [ -n "$EFILE" -a -r "$EFILE" ]
  139. then
  140.     Files=$EFILE
  141.     monthday=yes
  142. elif [ -r Events ]
  143. then
  144.     Files=Events
  145.     monthday=yes
  146. elif [ -r $HOME/.holiday ]
  147. then
  148.     Files=$HOME/.holiday
  149.     monthday=yes
  150. elif [ -d $Calendar ]
  151. then
  152.     cd $Calendar
  153.     if [ -d xy$YEAR ]
  154.     then
  155.         cd xy$YEAR
  156.     fi
  157.     list=`echo xc*$MONTHNAME$YEAR`
  158.     case "$list" in
  159.     xc\*$MONTHNAME$YEAR)
  160.             ;;
  161.     *)
  162.         for file in $list
  163.         do
  164.             day=`expr $file : 'xc\([0-9]*\)'`
  165.             (cat $file;echo) | sed '/^$/d
  166.                     s/^/./' | fmt -25 |
  167.                      sed -n "7q
  168.                     s/^\.//
  169.                     s/^/$day ( /
  170.                     s/\$/ )/
  171.                     p"
  172.         done > /tmp/pscal$$
  173.         holidays=`cat /tmp/pscal$$`
  174.         rm -f /tmp/pscal$$    
  175.     esac
  176. fi
  177.  
  178. case "$monthday" in
  179. yes)
  180.     holidays=`cat $Files | grep \^$MONTH: | awk -F: '{printf("%s ( %s",$2,$3);\
  181.         for(i = 4; i <= NF; i++) printf(":%s", $i);printf(")\n"); }'`
  182. esac
  183.  
  184. $LPR $ENVAR <<END-OF-CALENDAR
  185. %!
  186. % PostScript program to draw calendar
  187. % Copyright (C) 1987 by Pipeline Associates, Inc.
  188. % Permission is granted to modify and distribute this free of charge.
  189.  
  190. % The number after /month should be set to a number from 1 to 12.
  191. % The number after /year should be set to the year you want.
  192. % You can change the title and date fonts, if you want.
  193. % We figure out the rest.
  194. % This program won't produce valid calendars before 1800 due to the switch
  195. % from Julian to Gregorian calendars in September of 1752 wherever English
  196. % was spoken.
  197.  
  198. /month $MONTH def
  199. /year $YEAR def
  200. /titlefont /$TFONT def
  201. /dayfont /$DFONT def
  202. /eventfont /$EFONT def
  203. /holidays [ $holidays ] def
  204. /Bannerstring ($BANNER) def
  205. /Lfootstring ($LFOOT) def
  206. /Rfootstring ($RFOOT) def
  207. /Cfootstring ($CFOOT) def
  208.  
  209. % calendar names - change these if you don't speak english
  210. % "August", "April" and "February" could stand to be kerned even if you do
  211.  
  212. /month_names
  213. [ (January) (February) (March) (April) (May) (June) (July)
  214. (August) (September) (October) (November) (December) ]
  215. def
  216.  
  217. /day_names
  218. [ (Sunday) (Monday) (Tuesday) (Wednesday) (Thursday) (Friday) (Saturday) ]
  219. def
  220.  
  221. % layout parameters - you can change these, but things may not look nice
  222.  
  223. /daywidth 100 def
  224. /dayheight 95 def
  225.  
  226. /titlefontsize 48 def
  227. /weekdayfontsize 10 def
  228. /datefontsize 30 def
  229. /footfontsize 20 def
  230.  
  231. /topgridmarg 35 def
  232. /leftmarg 35 def
  233. /daytopmarg 10 def
  234. /dayleftmarg 5 def
  235.  
  236. % layout constants - don't change these, things probably won't work
  237.  
  238. /rows 5 def
  239. /subrows 6 def
  240.  
  241. % calendar constants - change these if you want a French revolutionary calendar
  242.  
  243. /days_week 7 def
  244.  
  245. /days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def
  246.  
  247. /isleap {                % is this a leap year?
  248.     year 4 mod 0 eq            % multiple of 4
  249.     year 100 mod 0 ne         % not century
  250.     year 1000 mod 0 eq or and    % unless it's a millenia
  251. } def
  252.  
  253. /ndays {                % number of days in this month
  254.     days_month month 1 sub get
  255.     month 2 eq            % February
  256.     isleap and
  257.     {
  258.         1 add
  259.     } if
  260. } def
  261.  
  262. /weekday {                % weekday (range 0-6) for integer date
  263.     days_week mod
  264. } def
  265.  
  266. /startday {                % starting day-of-week for this month
  267.     /off year 2000 sub def        % offset from start of "epoch"
  268.     off
  269.     off 4 idiv add            % number of leap years
  270.     off 100 idiv sub        % number of centuries
  271.     off 1000 idiv add        % number of millenia
  272.     6 add weekday days_week add     % offset from Jan 1 2000
  273.     /off exch def
  274.     1 1 month 1 sub {
  275.         /idx exch def
  276.         days_month idx 1 sub get
  277.         idx 2 eq
  278.         isleap and
  279.         {
  280.             1 add
  281.         } if
  282.         /off exch off add def
  283.     } for
  284.     off weekday            % 0--Sunday, 1--monday, etc.
  285. } def
  286.  
  287. /prtevent {        % event-string day prtevent
  288.             %  print out an event
  289.     /start startday def
  290.     /day 2 1 roll def
  291.     day start add 1 sub 7 mod daywidth mul
  292.     day start add 1 sub 7 div truncate dayheight neg mul 
  293.     -5 
  294.     numevents day start add get -10 mul add
  295.     numevents
  296.     day start add 
  297.     numevents day start add get 1 add
  298.     put
  299.     add moveto
  300.     show
  301. } def
  302.  
  303. /drawevents {        % read in a file full of events; print
  304.             %  the events for this month
  305.     /numevents
  306.     [0 0 0 0 0 0 0
  307.      0 0 0 0 0 0 0
  308.      0 0 0 0 0 0 0
  309.      0 0 0 0 0 0 0
  310.      0 0 0 0 0 0 0
  311.      0 0 0 0 0 0 0] def 
  312.      eventfont findfont 9 scalefont setfont
  313.      0 2 holidays length 2 sub {
  314.         dup
  315.         1 add holidays 2 1 roll get
  316.         2 1 roll holidays 2 1 roll get
  317.         prtevent
  318.     } for
  319.         
  320. } def
  321.  
  322. % ------------------------------------------------------------------------
  323.  
  324. /prtnum { 3 string cvs show } def
  325.  
  326. /center {                % center string in given width
  327.     /width exch def
  328.     /str exch def width str 
  329.     stringwidth pop sub 2 div 0 rmoveto str show
  330. } def
  331.  
  332. /centernum { exch 3 string cvs exch center } def
  333.  
  334. /drawgrid {                % draw calendar boxes
  335.     titlefont findfont weekdayfontsize scalefont setfont
  336.     currentpoint /y0 exch def /x0 exch def
  337.     0 1 days_week 1 sub {
  338.         submonth 0 eq
  339.         {
  340.             x0 y0 moveto
  341.             dup dup daywidth mul 40 rmoveto
  342.             day_names exch get
  343.             daywidth center
  344.         } if
  345.         x0 y0 moveto
  346.         daywidth mul topgridmarg rmoveto
  347.         1.0 setlinewidth
  348.         submonth 0 eq
  349.         {
  350.             /rowsused rows 1 sub def
  351.         }
  352.         {
  353.             /rowsused rows def
  354.         }
  355.         ifelse
  356.         0 1 rowsused {
  357.             gsave
  358.             daywidth 0 rlineto 
  359.             0 dayheight neg rlineto
  360.             daywidth neg 0 rlineto
  361.             closepath stroke
  362.             grestore
  363.             0 dayheight neg rmoveto
  364.         } for
  365.     } for
  366. } def
  367.  
  368. /drawnums {                % place day numbers on calendar
  369.     dayfont findfont datefontsize
  370.     submonth 0 ne
  371.     {
  372.         2.5 mul
  373.     } if scalefont setfont
  374.     /start startday def
  375.     /days ndays def
  376.     start daywidth mul dayleftmarg add daytopmarg rmoveto
  377.     submonth 0 ne
  378.     {
  379.         dayleftmarg neg dayheight -2 div rmoveto
  380.     } if
  381.     1 1 days {
  382.         /day exch def
  383.         gsave
  384.         day start add weekday 0 eq
  385.         {
  386.             submonth 0 eq
  387.             {
  388.                 .7 setgray
  389.             } if
  390.         } if
  391.         day start add weekday 1 eq
  392.         {
  393.             submonth 0 eq
  394.             {
  395.                 .7 setgray
  396.             } if
  397.         } if
  398.         submonth 0 eq
  399.         {
  400.             isdouble
  401.             {
  402.                 day prtdouble
  403.             }
  404.             {
  405.                 day prtnum
  406.             } ifelse
  407.         }
  408.         {
  409.             day daywidth centernum
  410.         } ifelse
  411.         grestore
  412.         day start add weekday 0 eq
  413.         {
  414.             currentpoint exch pop dayheight sub 0 exch moveto
  415.             submonth 0 eq
  416.             {
  417.                 dayleftmarg 0 rmoveto
  418.             } if
  419.         }
  420.         {
  421.             daywidth 0 rmoveto
  422.         } ifelse
  423.     } for
  424. } def
  425. /isdouble {                % overlay today with next/last week?
  426.     days start add rows days_week mul gt
  427.     {
  428.         day start add rows days_week mul gt
  429.         {
  430.             true true
  431.         }
  432.         {
  433.             day start add rows 1 sub days_week mul gt
  434.             day days_week add days le and
  435.             {
  436.                 false true
  437.             }
  438.             {
  439.                 false
  440.             } ifelse
  441.         } ifelse
  442.     }
  443.     {
  444.         false
  445.     } ifelse
  446. } def
  447.  
  448. /prtdouble {
  449.     gsave
  450.       dayfont findfont datefontsize 2 mul 3 div scalefont setfont
  451.       exch
  452.       {
  453.         (23/) stringwidth pop dayheight rmoveto
  454.         prtnum
  455.       }
  456.       {
  457.         0 datefontsize 5 div rmoveto
  458.         prtnum
  459.         0 datefontsize -5 div rmoveto
  460.         gsave
  461.           dayfont findfont datefontsize scalefont setfont
  462.           (/) show
  463.         grestore
  464.       } ifelse
  465.     grestore
  466. } def
  467.  
  468. /drawfill {                % place fill squares on calendar
  469.     /start startday def
  470.     /days ndays def
  471.     currentpoint /y0 exch def /x0 exch def
  472.     submonth 0 eq
  473.     {
  474.         usefirst
  475.         {
  476.             /fillstart 2 def
  477.         }
  478.         {
  479.             /fillstart 0 def
  480.         }
  481.         ifelse
  482.     }
  483.     {
  484.         /fillstart 0 def
  485.     }
  486.     ifelse
  487.     fillstart daywidth mul topgridmarg rmoveto
  488.     1.0 setlinewidth
  489.     fillstart 1 start 1 sub {
  490.         gsave
  491.         .9 setgray
  492.         daywidth 0 rlineto 
  493.         0 dayheight neg rlineto
  494.         daywidth neg 0 rlineto
  495.         closepath fill
  496.         grestore
  497.         daywidth 0 rmoveto
  498.     } for
  499.     x0 y0 moveto
  500.     submonth 0 ne
  501.     {
  502.         /lastday rows 1 add days_week mul def
  503.         days_week 1 sub daywidth mul -440 rmoveto
  504.     }
  505.     {
  506.         /lastday rows days_week mul 2 sub fillstart add def
  507.         days_week 3 sub fillstart add daywidth mul
  508.         -440 dayheight add rmoveto
  509.     } ifelse
  510.     lastday -1 ndays start 1 add add
  511.     {
  512.         /day exch def
  513.         gsave
  514.         .9 setgray
  515.         daywidth 0 rlineto 
  516.         0 dayheight neg rlineto
  517.         daywidth neg 0 rlineto
  518.         closepath fill
  519.         grestore
  520.         day weekday 1 eq
  521.         {
  522.             x0 y0 moveto
  523.             days_week 1 sub daywidth mul -440 dayheight add rmoveto
  524.         }
  525.         {
  526.             daywidth neg 0 rmoveto
  527.         } ifelse
  528.     } for
  529. } def
  530.  
  531. /usefirst {                % are last two boxes used by days?
  532.     start ndays add rows days_week mul 3 sub gt
  533.     start 2 ge and
  534.     
  535. } def
  536.  
  537. /calendar
  538. {
  539.     titlefont findfont titlefontsize scalefont setfont
  540.     0 60 moveto
  541.     /month_name month_names month 1 sub get def
  542.     month_name show
  543.     /yearstring year 10 string cvs def
  544.     daywidth days_week mul yearstring stringwidth pop sub 60 moveto
  545.     yearstring show
  546.  
  547.     eventflag {
  548.         % Show a centered Banner if any at the Top
  549.         daywidth days_week mul 2 div
  550.         Bannerstring stringwidth pop 2 div sub
  551.         60 moveto
  552.         Bannerstring show
  553.         % Show footnotes left-center-right
  554.         eventfont findfont footfontsize scalefont setfont
  555.         /bottomrow { dayheight rows mul 5 sub neg } def
  556.         0 bottomrow moveto
  557.         Lfootstring show
  558.         daywidth days_week mul Rfootstring stringwidth pop sub
  559.         bottomrow moveto
  560.         Rfootstring show
  561.         daywidth days_week mul Cfootstring stringwidth pop sub 2 div
  562.         bottomrow moveto
  563.         Cfootstring show
  564.         
  565.     } if
  566.  
  567.     0 -5 moveto
  568.     drawnums
  569.  
  570.     0 -5 moveto
  571.     drawfill
  572.  
  573.     eventflag {
  574.         0 0 moveto
  575.         drawevents
  576.     } if
  577.  
  578.     0 -5 moveto
  579.     drawgrid
  580. } def
  581.  
  582. /eventflag true def
  583.  
  584. $SCALE scale
  585. $ROTATE rotate
  586. $TRANSLATE translate
  587. /submonth 0 def
  588. calendar
  589. /eventflag false def
  590. month 1 sub 0 eq
  591. {
  592.     /lmonth 12 def
  593.     /lyear year 1 sub def
  594. }
  595. {
  596.     /lmonth month 1 sub def
  597.     /lyear year def
  598. } ifelse
  599. month 1 add 13 eq
  600. {
  601.     /nmonth 1 def
  602.     /nyear year 1 add def
  603. } 
  604. {
  605.     /nmonth month 1 add def
  606.     /nyear year def
  607. } ifelse
  608. usefirst
  609. {
  610.     0 30 translate
  611. }
  612. {
  613.     days_week 2 sub daywidth mul -350 translate
  614. }
  615. ifelse
  616. /submonth 1 def
  617. /year lyear def
  618. /month lmonth def
  619. gsave
  620. .138 .138 scale
  621. 12 -120 translate
  622. calendar
  623. grestore
  624. /submonth 1 def
  625. /year nyear def
  626. /month nmonth def
  627. daywidth 0 translate
  628. gsave
  629. .138 .138 scale
  630. 12 -120 translate
  631. calendar
  632. grestore
  633.  
  634. showpage
  635.  
  636. END-OF-CALENDAR
  637.  
  638.