view release on metacpan or  search on metacpan

contrib/hp_disk_info.cgi  view on Meta::CPAN

print POSTOUT "/check_xwrap {","\n";
print POSTOUT " totalxmove 500 gt {%if","\n";
print POSTOUT "        /xmove 0 def","\n";
print POSTOUT "        /ymove 0 def","\n";
print POSTOUT "        /totalxmove 0 def","\n";
print POSTOUT "        /totalymove 0 def","\n";
print POSTOUT "        /totaltranslate 0 def","\n";
print POSTOUT "        /negtotaltranslate 0 def","\n";
#added 20 translate so each page starts futher down
print POSTOUT "        showpage 20 0 translate","\n";
print POSTOUT "                } if","\n";
print POSTOUT "        }def","\n";

print POSTOUT "%pre pretranslate to keep track of x","\n";
print POSTOUT "/pretranslate   {","\n";
print POSTOUT "        /ymove exch def","\n";
print POSTOUT "        /xmove exch def","\n";
print POSTOUT "        /totalymove totalymove ymove add def","\n";
print POSTOUT "        /totalxmove totalxmove xmove add def","\n";
print POSTOUT "        xmove ymove translate","\n";
print POSTOUT "                } def","\n";
print POSTOUT "%keep track of total table width (including the padding between them) as","\n";
print POSTOUT "% add them all up as we go so we know how much to translate back to the","\n";
print POSTOUT "% start.","\n";
print POSTOUT "/totalrowwidthcalc   {%def","\n";
print POSTOUT "  htablepad add totaltranslate add /totaltranslate exch def ","\n";
print POSTOUT "  /negtotaltranslate totaltranslate -1 mul def ","\n";
print POSTOUT "                   } def","\n";
print POSTOUT "\n";
print POSTOUT "%Check to see how far over we can go before wrapping","\n";
print POSTOUT "/check_ywrap {","\n";
print POSTOUT " /curr_xtrans exch def","\n";
print POSTOUT " /curr_xtrans curr_xtrans cellh mul cellh add def","\n";
print POSTOUT "  widthofsheet 200 sub totaltranslate lt  {%if","\n";
print POSTOUT "         0 negtotaltranslate pretranslate","\n";
print POSTOUT "         curr_xtrans 0 pretranslate","\n";
print POSTOUT "         /totaltranslate 0 def","\n";
print POSTOUT "         /negtotaltranslate 0 def","\n";
# add a spacer
print POSTOUT "(CONTINUED ROW) check_length","\n";
#print POSTOUT "() (CONTINUED ROW) MakeHeader","cellh 0 pretranslate\n";
print POSTOUT "cellh 0 pretranslate\n";
#print POSTOUT "(CONTINUED ROW) (CONTINUED ROW) (CONTRINUED ROW) DoShadeRow","cellh 0 pretranslate\n";
print POSTOUT "cellh 0 pretranslate\n";
print POSTOUT "/maxcellwidth maxlength def         ","\n";
print POSTOUT "/negmaxcellwidth maxcellwidth -1 mul def         ","\n";
print POSTOUT "/tablewidth maxcellwidth 3 mul def         ","\n";
print POSTOUT "/negtablewidth maxcellwidth -3 mul def         ","\n";
#print POSTOUT "(NA) (NA) DoTotalandFree         ","cellh 0 pretranslate cellh 0 pretranslate\n";
print POSTOUT "cellh 0 pretranslate cellh 0 pretranslate\n";
print POSTOUT "/maxlength 0 def         ","\n";
print POSTOUT "/negmaxlength 0 def         ","\n";
print POSTOUT "tablewidth totalrowwidthcalc         ","\n";
print POSTOUT "0 tablewidth htablepad add pretranslate         ","\n";
print POSTOUT "cellh -3 mul 0 pretranslate         ","\n";
print POSTOUT "check_xwrap","\n";
#end of spacer
print POSTOUT "             } if","\n";
print POSTOUT "                } def","\n";
print POSTOUT "%","\n";
print POSTOUT "%------------defines--formula-based","\n";
print POSTOUT "%","\n";
print POSTOUT "","\n";
print POSTOUT "% Define the Font","\n";
print POSTOUT "/HelveticaBold findfont fonth scalefont setfont","\n";
print POSTOUT "%width of cell (will vary depening on maximum string width","\n";
print POSTOUT "/cellw maxlength def %not used yet","\n";
print POSTOUT "%cell height total","\n";
print POSTOUT "/cellh fontpad 2 mul fonth add def","\n";
print POSTOUT "/negcellh cellh -1 mul def","\n";
print POSTOUT "%starting point (bottom left corner point xy pos) of string in cell","\n";
print POSTOUT "/cellstrstart cellh fontpad sub def","\n";
print POSTOUT "/negcellstrstart cellstrstart -1 mul def","\n";
print POSTOUT "/headstringstart cellstrstart def","\n";
print POSTOUT "%","\n";
print POSTOUT "%------------drawing procs","\n";
print POSTOUT "%","\n";
print POSTOUT "/DoRowTitle 	{","\n";
print POSTOUT " 0 0 moveto show /HelveticaBold findfont fonth scalefont setfont","\n";
print POSTOUT " 		} bind def","\n";
print POSTOUT "","\n";
print POSTOUT "/DoTableTitle	{","\n";
print POSTOUT " /titleval exch def","\n";
#print POSTOUT " 0 cellh moveto 90 rotate titleval show -90 rotate","\n";
print POSTOUT "  cellh cellh moveto fonth fonth rmoveto fonth -1.5 mul 0 rmoveto 90 rotate titleval show -90 rotate","\n";
print POSTOUT "		} def","\n";
print POSTOUT "	","\n";
print POSTOUT "/DoCell	{","\n";
print POSTOUT " /value exch def","\n";
print POSTOUT "%skip over title","\n";
print POSTOUT "%cellh accomodates the title","\n";
print POSTOUT " rightmargin leftmargin moveto","\n";
print POSTOUT " 0 maxlength rlineto cellh 0 rlineto 0 negmaxlength rlineto negcellh 0 rlineto fill stroke","\n";
print POSTOUT " rightmargin cellstrstart add leftmargin moveto","\n";
print POSTOUT " 90 rotate 1 setgray value show -90 rotate 0 setgray","\n";
print POSTOUT " 0 maxlength pretranslate","\n";
print POSTOUT "	} def","\n";
print POSTOUT "","\n";
print POSTOUT "/MakeHeaderalt{ ","\n";
print POSTOUT " /devicefileprimary exch def","\n";
print POSTOUT " /devicefilealternate exch def ","\n";
print POSTOUT " devicefileprimary DoTableTitle","\n";
print POSTOUT " (Class) DoCell","\n";
print POSTOUT " (Driver) DoCell","\n";
print POSTOUT " (Description) DoCell","\n";
print POSTOUT " 0 negmaxlength pretranslate","\n";
print POSTOUT " 0 negmaxlength pretranslate","\n";
print POSTOUT " 0 negmaxlength pretranslate","\n";
print POSTOUT " %translate down 1 row to start regular rows","\n";
print POSTOUT " cellh 0 pretranslate","\n";
print POSTOUT " 	  } bind def","\n";
print POSTOUT "","\n";
print POSTOUT "/MakeHeader{ ","\n";
print POSTOUT " /devicefileprimary exch def","\n";
print POSTOUT " /devicefilealternate exch def ","\n";
print POSTOUT " devicefileprimary DoTableTitle","\n";
print POSTOUT " (LVOL) DoCell","\n";
print POSTOUT " (Mount Point) DoCell","\n";
print POSTOUT " (Extents) DoCell","\n";
print POSTOUT " 0 negmaxlength pretranslate","\n";
print POSTOUT " 0 negmaxlength pretranslate","\n";