%!
% 2007 header logfile generator
/yrfull (2007) store
/yr2 (07)store
/mofull [(January)(February)(March)(April)(May)(June)(July)(August)(September)(October)(November)(December)] store
/mo2 [(31)(28)(31)(30)(31)(30)(31)(31)(30)(31)(30)(31)] store

/buildhead {11 -1 0 { /curmo exch store
                      mofull curmo get /curmofull exch store  % get current month

                     mo2 curmo get cvi -1 1 {3 string cvs /curday exch store % get current day 

                    buildheadx  } for 

(\n) print % month break

} for 
} store




/buildheadx {


   (\n) print

% deeplink marker 
   (\n) print(<a id="d) print 
   curmo 1 add 3 string cvs print (.) print 
   curday length 2 lt {(0) print} if curday print 
   (.) print yr2 print
  ("></a> \n) print

% deeplink table   % beware of PS hex (<!
 ( <table class="daily1">\n <tr><td class="left"> ) print
 curmofull print ( ) print % print full month
 curday print (, ) print yrfull print  (\n) print

% href link
  ( <td class="right"><a href="#d) print
   curmo 1 add 3 string cvs print (.) print 
   curday length 2 lt {(0) print} if curday print 
   (.) print yr2 print (">) print
   (\n deeplink</a> &nbsp;&nbsp;<a href="#top">top</a>) print
   (\n &nbsp;&nbsp;<a href="#bot">bot</a> &nbsp;&nbsp;) print 
   (\n <a href="mailto:don@tinaja.com">respond</a>) print
   (\n</td></tr></table> ) print




        } store 





% {
% <a id="d03.31.19"></a>
%<table class="daily1">
 %       <tr>
  %        <td class="left"> March 31, 2019</td>
  %        <td class="right"><a href="#d03.31.19">deeplink</a> &nbsp;&nbsp;<a href="#top">top</a>
 % &nbsp;&nbsp;<a href="#bot">bot</a> &nbsp;&nbsp;<a href="mailto:don@tinaja.com">respond</a></td>
 %       </tr>
% </table>
% <blockquote>
%  <blockquote
% } pop % old 19 samp 






buildhead

% EOF