"Fossies" - the Fresh Open Source Software Archive

Member "cposthdr.bak" (9 May 1995, 15390 Bytes) of package /linux/misc/old/cpost.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 /*------------------------------------------------------------------
    2  * cposthdr.h : default postscript header for cPost output
    3  *------------------------------------------------------------------
    4  * 02-01-93 originally by Patrick J. Mueller
    5  *------------------------------------------------------------------*/
    6 
    7 static char *Header_1[] =
    8    {
    9    "%%-----------------------------------------------------------------",
   10    "%% font names and sizes",
   11    "%%-----------------------------------------------------------------",
   12    "",
   13    "/Inch { 72    mul } def",
   14    "/Cm   { 28.35 mul } def",
   15    "/Mm   { 2.835 mul } def",
   16    "",
   17    "/nFontName /Courier              def % font name for normal text",
   18    "/kFontName /Times-BoldItalic     def % font name for keywords",
   19    "/iFontName /Courier              def % font name for identifiers",
   20    "/fFontName /Times-Bold           def % font name for functions",
   21    "/dFontName /Times-Bold           def % font name for function definitions",
   22    "/cFontName /Courier-Oblique      def % font name for comments",
   23    "/pFontName /Helvetica            def % font name for preprocessor",
   24    "/lFontName /Courier              def % font name for line numbers",
   25    "",
   26    "/nFontSize  6                    def % font size for normal text",
   27    "/kFontSize  6                    def % font size for keywords",
   28    "/iFontSize  6                    def % font size for identifiers",
   29    "/fFontSize  9                    def % font size for functions",
   30    "/dFontSize  9                    def % font size for function definitions",
   31    "/cFontSize  6                    def % font size for comments",
   32    "/pFontSize  6                    def % font size for preprocessor",
   33    "/lFontSize  5                    def % font size for line numbers",
   34    "",
   35    "%%-----------------------------------------------------------------",
   36    "%% colors",
   37    "%%-----------------------------------------------------------------",
   38    "/nColor [ 0 0 0 ]                def % color for normal text",
   39    "/kColor [ 0 0 0 ]                def % color for keywords",
   40    "/iColor [ 0 0 0 ]                def % color for identifiers",
   41    "/fColor [ 0 0 0 ]                def % color for functions",
   42    "/dColor [ 0 0 0 ]                def % color for function definitions",
   43    "/cColor [ 0 0 0 ]                def % color for comments",
   44    "/pColor [ 0 0 0 ]                def % color for preprocessor",
   45    "/lColor [ 0 0 0 ]                def % color for line numbers",
   46    "",
   47    "",
   48    "%%------------------------------------------------------------------",
   49    "%% page size, margin size",
   50    "%%------------------------------------------------------------------",
   51    "/pLength   11     Inch           def % page length",
   52    "/pWidth     8.5   Inch           def % page width",
   53    "",
   54    "/lMargin     .5   Inch           def % margin: left",
   55    "/rMargin     .5   Inch           def % margin: right",
   56    "/tMargin     .75  Inch           def % margin: top",
   57    "/bMargin     .75  Inch           def % margin: bottom",
   58    "",
   59    "%%------------------------------------------------------------------",
   60    "%% header (and footer) info",
   61    "%%------------------------------------------------------------------",
   62    "/yh1 pLength .65 Inch sub def",
   63    "/yh2 pLength .5  Inch sub def",
   64    "/yh3 .65  Inch def",
   65    "/yh4 .45  Inch def",
   66    "",
   67    "%%------------------------------------------------------------------",
   68    "%% print a header and footer for odd numbered pages",
   69    "%%------------------------------------------------------------------",
   70    "/header1",
   71    "   {",
   72    "   lColor aload pop setrgbcolor",
   73    "   newpath",
   74    "      lMargin            yh1 moveto",
   75    "      pWidth rMargin sub yh1 lineto",
   76    "   stroke",
   77    "",
   78    "   /Times-Roman findfont 14 scalefont setfont",
   79    "",
   80    "   lMargin yh2 moveto",
   81    "   currFunc show",
   82    "",
   83    "   /numberBuffer 10 string def",
   84    "   pWidth rMargin                           sub",
   85    "   pageNum numberBuffer cvs stringwidth pop sub",
   86    "   (page ) stringwidth pop                  sub",
   87    "   yh2 moveto",
   88    "   (page ) show numberBuffer show",
   89    "",
   90    "   newpath",
   91    "      lMargin yh3 moveto",
   92    "      pWidth rMargin sub yh3 lineto",
   93    "   stroke",
   94    "",
   95    "   /Helvetica findfont 7 scalefont setfont",
   96    "",
   97    "   lMargin yh4 moveto",
   98    "   (Print date: ) show",
   99    "   printDate show",
  100    "",
  101    "   lMargin 2 Inch add yh4 moveto",
  102    "   (File date: ) show",
  103    "   fileDateTime show",
  104    "",
  105    "   /Times-Roman findfont 14 scalefont setfont",
  106    "",
  107    "   pWidth rMargin           sub",
  108    "   fileName stringwidth pop sub",
  109    "",
  110    "   yh4 moveto",
  111    "   fileName show",
  112    "   }",
  113    "   def",
  114    "",
  115    "%%------------------------------------------------------------------",
  116    "%% print a header and footer for even numbered pages",
  117    "%%------------------------------------------------------------------",
  118    "/header2",
  119    "   {",
  120    "   lColor aload pop setrgbcolor",
  121    "   newpath",
  122    "      lMargin            yh1 moveto",
  123    "      pWidth rMargin sub yh1 lineto",
  124    "   stroke",
  125    "",
  126    "   /Times-Roman findfont 14 scalefont setfont",
  127    "",
  128    "   pWidth rMargin           sub",
  129    "   currFunc stringwidth pop sub",
  130    "   yh2 moveto",
  131    "   currFunc show",
  132    "",
  133    "   /numberBuffer 10 string def",
  134    "   pageNum numberBuffer cvs pop",
  135    "   lMargin yh2 moveto",
  136    "   (page ) show numberBuffer show",
  137    "",
  138    "   newpath",
  139    "      lMargin yh3 moveto",
  140    "      pWidth rMargin sub yh3 lineto",
  141    "   stroke",
  142    "",
  143    "   /Helvetica findfont 7 scalefont setfont",
  144    "",
  145    "   4 Inch yh4 moveto",
  146    "   (Print date: ) show",
  147    "   printDate show",
  148    "",
  149    "   6 Inch yh4 moveto",
  150    "   (File date: ) show",
  151    "   fileDateTime show",
  152    "",
  153    "   /Times-Roman findfont 14 scalefont setfont",
  154    "",
  155    "   lMargin yh4 moveto",
  156    "   fileName show",
  157    "   }",
  158    "   def",
  159    "",
  160    "%%------------------------------------------------------------------",
  161    "%% user defined from imbed file",
  162    "%%------------------------------------------------------------------",
  163    "",
  164    };
  165 
  166 static char *Header_2[] =
  167    {
  168    "",
  169    "%%------------------------------------------------------------------",
  170    "%% define actual header procs to use",
  171    "%%------------------------------------------------------------------",
  172    "/Header1 { header1 } def",
  173    "/Header2 { oDuplex { header2 } { header1 } ifelse } def",
  174    "",
  175    "%%------------------------------------------------------------------",
  176    "%% define our fonts to shorter names",
  177    "%%------------------------------------------------------------------",
  178    "/nFont nFontName findfont nFontSize scalefont def",
  179    "/kFont kFontName findfont kFontSize scalefont def",
  180    "/iFont iFontName findfont iFontSize scalefont def",
  181    "/fFont fFontName findfont fFontSize scalefont def",
  182    "/dFont dFontName findfont dFontSize scalefont def",
  183    "/cFont cFontName findfont cFontSize scalefont def",
  184    "/pFont pFontName findfont pFontSize scalefont def",
  185    "/lFont lFontName findfont lFontSize scalefont def",
  186    "",
  187    "%%------------------------------------------------------------------",
  188    "%% define our fonts to REAL short names",
  189    "%%------------------------------------------------------------------",
  190    "/n { nColor nFont nFontSize } def",
  191    "/k { kColor kFont kFontSize } def",
  192    "/i { iColor iFont iFontSize } def",
  193    "/f { fColor fFont fFontSize } def",
  194    "/d { dColor dFont dFontSize } def",
  195    "/c { cColor cFont cFontSize } def",
  196    "/p { pColor pFont pFontSize } def",
  197    "/l { lColor lFont lFontSize } def",
  198    "",
  199    "%%-----------------------------------------------------------------",
  200    "%% max function",
  201    "%%-----------------------------------------------------------------",
  202    "/max",
  203    "   {",
  204    "   2 copy",
  205    "   lt { exch } if",
  206    "   pop",
  207    "   } def",
  208    "",
  209    "%%-----------------------------------------------------------------",
  210    "%% maximum line height",
  211    "%%-----------------------------------------------------------------",
  212    "/maxLineHeight",
  213    "   nFontSize",
  214    "   kFontSize max",
  215    "   iFontSize max",
  216    "   fFontSize max",
  217    "   dFontSize max",
  218    "   cFontSize max",
  219    "   pFontSize max",
  220    "   lFontSize max",
  221    "   def",
  222    "",
  223    "%%------------------------------------------------------------------",
  224    "%% see if x lines will fit on the page",
  225    "%%------------------------------------------------------------------",
  226    "/linesFit",
  227    "   {",
  228    "   maxLineHeight mul currY exch sub bMargin sub",
  229    "   0 lt",
  230    "   { showPage } if",
  231    "   } def",
  232    "",
  233    "%%-----------------------------------------------------------------",
  234    "%% print stack",
  235    "%%-----------------------------------------------------------------",
  236    "/Stack",
  237    "   {",
  238    "   (같같같같같같같같같같stack같같같같(bottom->top)같같같같) print <0D0A> print",
  239    "   pstack",
  240    "   } def",
  241    "",
  242    "%%------------------------------------------------------------------",
  243    "%% width of one space in normal font",
  244    "%%------------------------------------------------------------------",
  245    "/spaceWidth",
  246    "   nFont setfont ( ) stringwidth pop",
  247    "   def",
  248    "",
  249    "%%------------------------------------------------------------------",
  250    "%% width of line number information",
  251    "%%------------------------------------------------------------------",
  252    "/lineNoWidth",
  253    "   oNumber",
  254    "      { lFont setfont (12345678) stringwidth pop }",
  255    "      { 0 }",
  256    "      ifelse",
  257    "   def",
  258    "",
  259    "%%------------------------------------------------------------------",
  260    "%% take a column, return an X offset from left margin",
  261    "%%------------------------------------------------------------------",
  262    "/getXfromCol",
  263    "   {",
  264    "   spaceWidth mul                % size of column number of spaces",
  265    "   lMargin  lineNoWidth add add  % left margin and size of line no info",
  266    "   spaceWidth oSpace mul add     % add spaces",
  267    "   } def",
  268    "",
  269    "%%------------------------------------------------------------------",
  270    "%% given the text/font array from showLine, calculate line height",
  271    "%%------------------------------------------------------------------",
  272    "/calcLineHeight",
  273    "   {",
  274    "   /lineHeight lFontSize def",
  275    "",
  276    "   lineArray aload",
  277    "",
  278    "   length 4 idiv",
  279    "      {",
  280    "      pop",
  281    "      pop",
  282    "",
  283    "      dup",
  284    "      lineHeight gt",
  285    "         {",
  286    "         /lineHeight exch def",
  287    "         }",
  288    "         {",
  289    "         pop",
  290    "         } ifelse",
  291    "",
  292    "      pop",
  293    "      } repeat",
  294    "",
  295    "   } def",
  296    "",
  297    "%%------------------------------------------------------------------",
  298    "%% reverse contents of an array",
  299    "%%------------------------------------------------------------------",
  300    "/reverseLineArray",
  301    "   {",
  302    "",
  303    "   /Ind1 0                 def",
  304    "   /Ind2 numElements 1 sub def",
  305    "",
  306    "   numElements 2 idiv",
  307    "      {",
  308    "      /Item1 lineArray Ind1 get def",
  309    "      /Item2 lineArray Ind2 get def",
  310    "",
  311    "      lineArray Ind1 Item2 put",
  312    "      lineArray Ind2 Item1 put",
  313    "",
  314    "      /Ind1 Ind1 1 add def",
  315    "      /Ind2 Ind2 1 sub def",
  316    "      } repeat",
  317    "",
  318    "   } def",
  319    "",
  320    "%%------------------------------------------------------------------",
  321    "%% given an array of text/font info, print it",
  322    "%%------------------------------------------------------------------",
  323    "/showLine",
  324    "   {",
  325    "   /lineArray exch def",
  326    "   /numElements lineArray length def",
  327    "",
  328    "   reverseLineArray",
  329    "",
  330    "   calcLineHeight",
  331    "",
  332    "   currY lineHeight sub bMargin le",
  333    "      {",
  334    "      showPage",
  335    "      } if",
  336    "",
  337    "   /currY currY lineHeight sub def",
  338    "",
  339    "",
  340    "   oNumber",
  341    "      {",
  342    "      lColor aload pop setrgbcolor",
  343    "      lMargin currY moveto",
  344    "",
  345    "      lFont setfont",
  346    "",
  347    "      /numberBuffer 8 string def",
  348    "      lineNum numberBuffer cvs stringwidth pop",
  349    "      lineNoWidth exch sub 0 rmoveto",
  350    "",
  351    "      numberBuffer show",
  352    "      } if",
  353    "",
  354    "   0 getXfromCol currY moveto",
  355    "",
  356    "   lineArray aload pop",
  357    "",
  358    "   numElements 4 idiv",
  359    "     {",
  360    "     aload pop setrgbcolor",
  361    "     setfont",
  362    "     pop",
  363    "     show",
  364    "     } repeat",
  365    "",
  366    "   /lineNum lineNum 1 add def",
  367    "",
  368    "   } def",
  369    "",
  370    "%%------------------------------------------------------------------",
  371    "%% end of page reached",
  372    "%%------------------------------------------------------------------",
  373    "/showPage",
  374    "   {",
  375    "   pageNum 2 mod 1 eq { Header1 } { Header2 } ifelse",
  376    "   showpage",
  377    "   oXlate",
  378    "   /pageNum pageNum 1 add def",
  379    "   /currY pLength tMargin sub def",
  380    "   } def",
  381    "",
  382    "%%------------------------------------------------------------------",
  383    "%% start a new source file",
  384    "%%------------------------------------------------------------------",
  385    "/startFile",
  386    "   {",
  387    "   /fileDateTime exch def",
  388    "   /fileName     exch def",
  389    "   /pageNum         1 def",
  390    "   /lineNum         1 def",
  391    "   /currFunc       () def",
  392    "   /currY     pLength tMargin sub def",
  393    "   oXlate",
  394    "   } def",
  395    "",
  396    "%%------------------------------------------------------------------",
  397    "%% end a source file",
  398    "%%------------------------------------------------------------------",
  399    "/endFile",
  400    "   {",
  401    "   oDuplex { pageNum 2 mod 1 eq { showPage } if } if",
  402    "   showPage",
  403    "   } def",
  404    "",
  405    "%%------------------------------------------------------------------",
  406    "%% middle bracket",
  407    "%%------------------------------------------------------------------",
  408    "/mB",
  409    "   {",
  410    "   1 sub getXfromCol /currX exch def",
  411    "   gsave",
  412    "   newpath",
  413    "",
  414    "   currX currY moveto",
  415    "   0 lineHeight rlineto",
  416    "",
  417    "   .2 setlinewidth",
  418    "   stroke",
  419    "   grestore",
  420    "   } def",
  421    "",
  422    "%%------------------------------------------------------------------",
  423    "%% upper bracket",
  424    "%%------------------------------------------------------------------",
  425    "/uB",
  426    "   {",
  427    "   1 sub getXfromCol /currX exch def",
  428    "   gsave",
  429    "   newpath",
  430    "",
  431    "   currX currY moveto",
  432    "",
  433    "   currX                currY lineHeight .4 mul add",
  434    "   currX spaceWidth add currY lineHeight .4 mul add",
  435    "   spaceWidth 2 div arcto 4 { pop } repeat",
  436    "",
  437    "   .2 setlinewidth",
  438    "   stroke",
  439    "   grestore",
  440    "   } def",
  441    "",
  442    "%%------------------------------------------------------------------",
  443    "%% lower bracket",
  444    "%%------------------------------------------------------------------",
  445    "/lB",
  446    "   {",
  447    "   1 sub getXfromCol /currX exch def",
  448    "   gsave",
  449    "   newpath",
  450    "",
  451    "   currX currY lineHeight add moveto",
  452    "",
  453    "   currX                currY lineHeight .4 mul add",
  454    "   currX spaceWidth add currY lineHeight .4 mul add",
  455    "   spaceWidth 2 div arcto 4 { pop } repeat",
  456    "",
  457    "   .2 setlinewidth",
  458    "   stroke",
  459    "   grestore",
  460    "   } def",
  461    "",
  462    "%%-----------------------------------------------------------------",
  463    "%% now the actual file data",
  464    "%%-----------------------------------------------------------------",
  465    };