home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / x / volume13 / xcal / part01 / pscal / pscal.script < prev   
Text File  |  1991-05-12  |  13KB  |  624 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 ] [ 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 2;;
  90.     -P*) eval ENVAR=$1; shift 1;;
  91.     -F) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  92.         TFONT="$2"; shift 2;;
  93.     -F*) TFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
  94.     -f) test $# -lt 2 && { echo "$USAGE" 1>&2; exit 1; }
  95.         DFONT="$2"; shift 2;;
  96.     -f*) DFONT=`echo $1 | sed -n 1s/-.//p`; shift 1;;
  97.     -t) LPR=cat; shift 1;;
  98.     -r) ROTATE=90; shift 1;;
  99.     -R) ROTATE=0; SCALE="0.75 0.75"; TRANSLATE="50 900"; shift 1;;
  100.     --|-) break;;
  101.     -*) eval ENVAR=\"$ENVAR $1\"; shift 1;;
  102.     *) break
  103.     esac
  104. done
  105.  
  106. test $# -gt 2 && { echo "$USAGE" 1>&2; exit 1; }
  107.  
  108. case $# in
  109.     0)    set `date`; YEAR=$6; MONTH=$2;;
  110.     1)    MONTH=$1; set `date`; YEAR=$6;;
  111.     2)    MONTH=$1 YEAR=$2;;
  112. esac
  113.  
  114. MONTH=`case $MONTH in Jan|jan) echo 1;;Feb|feb) echo 2;;Mar|mar) echo 3;;Apr|apr) echo 4;;
  115.     May|may) echo 5;;Jun|jun) echo 6;;Jul|jul) echo 7;;Aug|aug) echo 8;;
  116.     Sep|sep) echo 9;;Oct|oct) echo 10;;Nov|nov) echo 11;;Dec|dec) echo 12;;
  117.     1|2|3|4|5|6|7|8|9|10|11|12) echo $MONTH;;esac`
  118.  
  119. test $YEAR -lt 100 && YEAR=`expr $YEAR + 1900`
  120.  
  121. if [ -n "$EFILE" -a -r "$EFILE" ]
  122. then
  123.     Files=$EFILE
  124.     monthday=yes
  125. elif [ -r Events ]
  126. then
  127.     Files=Events
  128.     monthday=yes
  129. elif [ -r $HOME/.holiday ]
  130. then
  131.     Files=$HOME/.holiday
  132.     monthday=yes
  133. elif [ -d $Calendar ]
  134. then
  135.     cd $Calendar
  136.     if [ -d xy$YEAR ]
  137.     then
  138.         cd xy$YEAR
  139.     fi
  140.     set 'dummy' 'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov' 'Dec'
  141.     shift $MONTH
  142.     list=`echo xc*$1$YEAR`
  143.     case "$list" in
  144.     xc\*$1$YEAR)
  145.             ;;
  146.     *)
  147.         for file in $list
  148.         do
  149.             day=`expr $file : 'xc\([0-9]*\)'`
  150.             (cat $file;echo) | sed '/^$/d
  151.                     s/^/./' | fmt -25 |
  152.                      sed -n "7q
  153.                     s/^\.//
  154.                     s/^/$day ( /
  155.                     s/\$/ )/
  156.                     p"
  157.         done > /tmp/pscal$$
  158.         holidays=`cat /tmp/pscal$$`
  159.         rm -f /tmp/pscal$$    
  160.     esac
  161. fi
  162.  
  163. case "$monthday" in
  164. yes)
  165.     holidays=`cat $Files | grep \^$MONTH: | awk -F: '{printf("%s ( %s",$2,$3);\
  166.         for(i = 4; i <= NF; i++) printf(":%s", $i);printf(")\n"); }'`
  167. esac
  168.  
  169.  
  170. $LPR $ENVAR <<END-OF-CALENDAR
  171. %!
  172. % PostScript program to draw calendar
  173. % Copyright (C) 1987 by Pipeline Associates, Inc.
  174. % Permission is granted to modify and distribute this free of charge.
  175.  
  176. % The number after /month should be set to a number from 1 to 12.
  177. % The number after /year should be set to the year you want.
  178. % You can change the title and date fonts, if you want.
  179. % We figure out the rest.
  180. % This program won't produce valid calendars before 1800 due to the switch
  181. % from Julian to Gregorian calendars in September of 1752 wherever English
  182. % was spoken.
  183.  
  184. /month $MONTH def
  185. /year $YEAR def
  186. /titlefont /$TFONT def
  187. /dayfont /$DFONT def
  188. /eventfont /$EFONT def
  189. /holidays [ $holidays ] def
  190. /Bannerstring ($BANNER) def
  191. /Lfootstring ($LFOOT) def
  192. /Rfootstring ($RFOOT) def
  193. /Cfootstring ($CFOOT) def
  194.  
  195. % calendar names - change these if you don't speak english
  196. % "August", "April" and "February" could stand to be kerned even if you do
  197.  
  198. /month_names
  199. [ (January) (February) (March) (April) (May) (June) (July)
  200. (August) (September) (October) (November) (December) ]
  201. def
  202.  
  203. /day_names
  204. [ (Sunday) (Monday) (Tuesday) (Wednesday) (Thursday) (Friday) (Saturday) ]
  205. def
  206.  
  207. % layout parameters - you can change these, but things may not look nice
  208.  
  209. /daywidth 100 def
  210. /dayheight 95 def
  211.  
  212. /titlefontsize 48 def
  213. /weekdayfontsize 10 def
  214. /datefontsize 30 def
  215. /footfontsize 20 def
  216.  
  217. /topgridmarg 35 def
  218. /leftmarg 35 def
  219. /daytopmarg 10 def
  220. /dayleftmarg 5 def
  221.  
  222. % layout constants - don't change these, things probably won't work
  223.  
  224. /rows 5 def
  225. /subrows 6 def
  226.  
  227. % calendar constants - change these if you want a French revolutionary calendar
  228.  
  229. /days_week 7 def
  230.  
  231. /days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def
  232.  
  233. /isleap {                % is this a leap year?
  234.     year 4 mod 0 eq            % multiple of 4
  235.     year 100 mod 0 ne         % not century
  236.     year 1000 mod 0 eq or and    % unless it's a millenia
  237. } def
  238.  
  239. /ndays {                % number of days in this month
  240.     days_month month 1 sub get
  241.     month 2 eq            % February
  242.     isleap and
  243.     {
  244.         1 add
  245.     } if
  246. } def
  247.  
  248. /weekday {                % weekday (range 0-6) for integer date
  249.     days_week mod
  250. } def
  251.  
  252. /startday {                % starting day-of-week for this month
  253.     /off year 2000 sub def        % offset from start of "epoch"
  254.     off
  255.     off 4 idiv add            % number of leap years
  256.     off 100 idiv sub        % number of centuries
  257.     off 1000 idiv add        % number of millenia
  258.     6 add weekday days_week add     % offset from Jan 1 2000
  259.     /off exch def
  260.     1 1 month 1 sub {
  261.         /idx exch def
  262.         days_month idx 1 sub get
  263.         idx 2 eq
  264.         isleap and
  265.         {
  266.             1 add
  267.         } if
  268.         /off exch off add def
  269.     } for
  270.     off weekday            % 0--Sunday, 1--monday, etc.
  271. } def
  272.  
  273. /prtevent {        % event-string day prtevent
  274.             %  print out an event
  275.     /start startday def
  276.     /day 2 1 roll def
  277.     day start add 1 sub 7 mod daywidth mul
  278.     day start add 1 sub 7 div truncate dayheight neg mul 
  279.     -5 
  280.     numevents day start add get -10 mul add
  281.     numevents
  282.     day start add 
  283.     numevents day start add get 1 add
  284.     put
  285.     add moveto
  286.     show
  287. } def
  288.  
  289. /drawevents {        % read in a file full of events; print
  290.             %  the events for this month
  291.     /numevents
  292.     [0 0 0 0 0 0 0
  293.      0 0 0 0 0 0 0
  294.      0 0 0 0 0 0 0
  295.      0 0 0 0 0 0 0
  296.      0 0 0 0 0 0 0
  297.      0 0 0 0 0 0 0] def 
  298.      eventfont findfont 9 scalefont setfont
  299.      0 2 holidays length 2 sub {
  300.         dup
  301.         1 add holidays 2 1 roll get
  302.         2 1 roll holidays 2 1 roll get
  303.         prtevent
  304.     } for
  305.         
  306. } def
  307.  
  308. % ------------------------------------------------------------------------
  309.  
  310. /prtnum { 3 string cvs show } def
  311.  
  312. /center {                % center string in given width
  313.     /width exch def
  314.     /str exch def width str 
  315.     stringwidth pop sub 2 div 0 rmoveto str show
  316. } def
  317.  
  318. /centernum { exch 3 string cvs exch center } def
  319.  
  320. /drawgrid {                % draw calendar boxes
  321.     titlefont findfont weekdayfontsize scalefont setfont
  322.     currentpoint /y0 exch def /x0 exch def
  323.     0 1 days_week 1 sub {
  324.         submonth 0 eq
  325.         {
  326.             x0 y0 moveto
  327.             dup dup daywidth mul 40 rmoveto
  328.             day_names exch get
  329.             daywidth center
  330.         } if
  331.         x0 y0 moveto
  332.         daywidth mul topgridmarg rmoveto
  333.         1.0 setlinewidth
  334.         submonth 0 eq
  335.         {
  336.             /rowsused rows 1 sub def
  337.         }
  338.         {
  339.             /rowsused rows def
  340.         }
  341.         ifelse
  342.         0 1 rowsused {
  343.             gsave
  344.             daywidth 0 rlineto 
  345.             0 dayheight neg rlineto
  346.             daywidth neg 0 rlineto
  347.             closepath stroke
  348.             grestore
  349.             0 dayheight neg rmoveto
  350.         } for
  351.     } for
  352. } def
  353.  
  354. /drawnums {                % place day numbers on calendar
  355.     dayfont findfont datefontsize
  356.     submonth 0 ne
  357.     {
  358.         2.5 mul
  359.     } if scalefont setfont
  360.     /start startday def
  361.     /days ndays def
  362.     start daywidth mul dayleftmarg add daytopmarg rmoveto
  363.     submonth 0 ne
  364.     {
  365.         dayleftmarg neg dayheight -2 div rmoveto
  366.     } if
  367.     1 1 days {
  368.         /day exch def
  369.         gsave
  370.         day start add weekday 0 eq
  371.         {
  372.             submonth 0 eq
  373.             {
  374.                 .7 setgray
  375.             } if
  376.         } if
  377.         day start add weekday 1 eq
  378.         {
  379.             submonth 0 eq
  380.             {
  381.                 .7 setgray
  382.             } if
  383.         } if
  384.         submonth 0 eq
  385.         {
  386.             isdouble
  387.             {
  388.                 day prtdouble
  389.             }
  390.             {
  391.                 day prtnum
  392.             } ifelse
  393.         }
  394.         {
  395.             day daywidth centernum
  396.         } ifelse
  397.         grestore
  398.         day start add weekday 0 eq
  399.         {
  400.             currentpoint exch pop dayheight sub 0 exch moveto
  401.             submonth 0 eq
  402.             {
  403.                 dayleftmarg 0 rmoveto
  404.             } if
  405.         }
  406.         {
  407.             daywidth 0 rmoveto
  408.         } ifelse
  409.     } for
  410. } def
  411. /isdouble {                % overlay today with next/last week?
  412.     days start add rows days_week mul gt
  413.     {
  414.         day start add rows days_week mul gt
  415.         {
  416.             true true
  417.         }
  418.         {
  419.             day start add rows 1 sub days_week mul gt
  420.             day days_week add days le and
  421.             {
  422.                 false true
  423.             }
  424.             {
  425.                 false
  426.             } ifelse
  427.         } ifelse
  428.     }
  429.     {
  430.         false
  431.     } ifelse
  432. } def
  433.  
  434. /prtdouble {
  435.     gsave
  436.       dayfont findfont datefontsize 2 mul 3 div scalefont setfont
  437.       exch
  438.       {
  439.         (23/) stringwidth pop dayheight rmoveto
  440.         prtnum
  441.       }
  442.       {
  443.         0 datefontsize 5 div rmoveto
  444.         prtnum
  445.         0 datefontsize -5 div rmoveto
  446.         gsave
  447.           dayfont findfont datefontsize scalefont setfont
  448.           (/) show
  449.         grestore
  450.       } ifelse
  451.     grestore
  452. } def
  453.  
  454. /drawfill {                % place fill squares on calendar
  455.     /start startday def
  456.     /days ndays def
  457.     currentpoint /y0 exch def /x0 exch def
  458.     submonth 0 eq
  459.     {
  460.         usefirst
  461.         {
  462.             /fillstart 2 def
  463.         }
  464.         {
  465.             /fillstart 0 def
  466.         }
  467.         ifelse
  468.     }
  469.     {
  470.         /fillstart 0 def
  471.     }
  472.     ifelse
  473.     fillstart daywidth mul topgridmarg rmoveto
  474.     1.0 setlinewidth
  475.     fillstart 1 start 1 sub {
  476.         gsave
  477.         .9 setgray
  478.         daywidth 0 rlineto 
  479.         0 dayheight neg rlineto
  480.         daywidth neg 0 rlineto
  481.         closepath fill
  482.         grestore
  483.         daywidth 0 rmoveto
  484.     } for
  485.     x0 y0 moveto
  486.     submonth 0 ne
  487.     {
  488.         /lastday rows 1 add days_week mul def
  489.         days_week 1 sub daywidth mul -440 rmoveto
  490.     }
  491.     {
  492.         /lastday rows days_week mul 2 sub fillstart add def
  493.         days_week 3 sub fillstart add daywidth mul
  494.         -440 dayheight add rmoveto
  495.     } ifelse
  496.     lastday -1 ndays start 1 add add
  497.     {
  498.         /day exch def
  499.         gsave
  500.         .9 setgray
  501.         daywidth 0 rlineto 
  502.         0 dayheight neg rlineto
  503.         daywidth neg 0 rlineto
  504.         closepath fill
  505.         grestore
  506.         day weekday 1 eq
  507.         {
  508.             x0 y0 moveto
  509.             days_week 1 sub daywidth mul -440 dayheight add rmoveto
  510.         }
  511.         {
  512.             daywidth neg 0 rmoveto
  513.         } ifelse
  514.     } for
  515. } def
  516.  
  517. /usefirst {                % are last two boxes used by days?
  518.     start ndays add rows days_week mul 3 sub gt
  519.     start 2 ge and
  520.     
  521. } def
  522.  
  523. /calendar
  524. {
  525.     titlefont findfont titlefontsize scalefont setfont
  526.     0 60 moveto
  527.     /month_name month_names month 1 sub get def
  528.     month_name show
  529.     /yearstring year 10 string cvs def
  530.     daywidth days_week mul yearstring stringwidth pop sub 60 moveto
  531.     yearstring show
  532.  
  533.     eventflag {
  534.         % Show a centered Banner if any at the Top
  535.         daywidth days_week mul 2 div
  536.         Bannerstring stringwidth pop 2 div sub
  537.         60 moveto
  538.         Bannerstring show
  539.         % Show footnotes left-center-right
  540.         eventfont findfont footfontsize scalefont setfont
  541.         /bottomrow { dayheight rows mul 5 sub neg } def
  542.         0 bottomrow moveto
  543.         Lfootstring show
  544.         daywidth days_week mul Rfootstring stringwidth pop sub
  545.         bottomrow moveto
  546.         Rfootstring show
  547.         daywidth days_week mul Cfootstring stringwidth pop sub 2 div
  548.         bottomrow moveto
  549.         Cfootstring show
  550.         
  551.     } if
  552.  
  553.     0 -5 moveto
  554.     drawnums
  555.  
  556.     0 -5 moveto
  557.     drawfill
  558.  
  559.     eventflag {
  560.         0 0 moveto
  561.         drawevents
  562.     } if
  563.  
  564.     0 -5 moveto
  565.     drawgrid
  566. } def
  567.  
  568. /eventflag true def
  569.  
  570. $SCALE scale
  571. $ROTATE rotate
  572. $TRANSLATE translate
  573. /submonth 0 def
  574. calendar
  575. /eventflag false def
  576. month 1 sub 0 eq
  577. {
  578.     /lmonth 12 def
  579.     /lyear year 1 sub def
  580. }
  581. {
  582.     /lmonth month 1 sub def
  583.     /lyear year def
  584. } ifelse
  585. month 1 add 13 eq
  586. {
  587.     /nmonth 1 def
  588.     /nyear year 1 add def
  589. } 
  590. {
  591.     /nmonth month 1 add def
  592.     /nyear year def
  593. } ifelse
  594. usefirst
  595. {
  596.     0 30 translate
  597. }
  598. {
  599.     days_week 2 sub daywidth mul -350 translate
  600. }
  601. ifelse
  602. /submonth 1 def
  603. /year lyear def
  604. /month lmonth def
  605. gsave
  606. .138 .138 scale
  607. 12 -120 translate
  608. calendar
  609. grestore
  610. /submonth 1 def
  611. /year nyear def
  612. /month nmonth def
  613. daywidth 0 translate
  614. gsave
  615. .138 .138 scale
  616. 12 -120 translate
  617. calendar
  618. grestore
  619.  
  620. showpage
  621.  
  622. END-OF-CALENDAR
  623.  
  624.