%!ps

% fixwhtnumenus1 attempts to repair whtnu menues
% =======
% Author and date
% Function
% Details
% ======



% Postscript demo to generate css compatible menu tables.
% Intended primarily for study as this was an internal workfile.

% Requires gonzo, gonzotut, and several older files relocated.
% Requires //acrodist /F from command line.
% Cut and paste .txt generated code from chrome, not wordpad.

% =======

% Uncomment and modify to use disk based Gonzo. ( or other disk access )
(C:/Users/Don/Desktop/Ghost/gonzo.psl) run % use internal 

/guru { gonzo begin
ps.util.1 begin printerror nuisance begin} def   

 guru                                           % activate gonzo utilities

% ==============================



/fileprefix (C:/Users/don/Desktop/web/new_whtnu11_618/) store

/infilename (whtnu11a.shtml) store
/outfilename (whtnu11newmenusa.shtml) store

 



/startarray [ ] store
/endarray [ ] store

/ststr (<a href=") store
/enstr (">) store

fileprefix infilename mergestr (r) file /nf exch store 
fileprefix outfilename mergestr (w) file /nfd exch store 

%%% findstart stashes the start and end filepositions for each header to be substituted

/findstart {   /endfile false store



          2000000     {     /endfile false store
                      nf 17 string readstring {        

                         (<table width="623) eq  { nf fileposition 17 sub  /cur exch store     
                                                   mark startarray aload pop cur ] /startarray exch store 
                                                  

  findend 
   endfile {exit} if

                                               } if


                                                  } {  pop   /endfile true store         exit} ifelse  % got to end



             endfile {exit} if   % forced by nest?

      nf fileposition 16 sub nf exch setfileposition 

                  

                   } repeat
                   }  store




/findend {
          20000    {    
                      nf  8 string readstring {                              

                         (</table>) eq { nf fileposition /cur exch store                
                                                   mark endarray aload pop cur  ] /endarray exch store 

                          exit                       } if

       
 
                                                  } { pop   /endfile true store exit} ifelse  % got to end

                 nf fileposition 7 sub nf exch setfileposition 

                   } repeat
                         
                   }  store








{



/fixspaces {/newurl () store
                  /bool exch store
                                        %  dup print
        50 {   ( ) search 
 
             {     (%20) mergestr  newurl exch mergestr /newurl exch store    pop % erase old space!!!


                            % (\n\n newurl is now -------------> ) print newurl ==
              }
             {   newurl exch mergestr /newurl exch store      exit    } ifelse 

              } repeat

         newurl


                       % dup print   (\n\n) print

bool

             } store 

} pop 


% %%%%%%%% demo- modify for actual use %%%%%

stopwatchon  
 findstart                                           
 stopwatchoff

nf closefile

   startarray length ==  startarray ==
   endarray length == endarray ==




startarray length endarray length eq {(\n\nArray lengths agree at ) endarray length 20 string cvs mergestr (!!\n\n) mergestr print}
{(\n\nArray lengths mismatch! CHECK ORIGINAL OR CODE PROBLEM!!\n\n) print} ifelse


(\n\n) print



% initial check

fileprefix infilename mergestr (r) file /nf exch store 
fileprefix outfilename mergestr (w) file /nfd exch store 


0 1 100 {startarray exch get /curpos exch store

nf curpos setfileposition  nf 31 string readstring {==}{==} ifelse
(\n) print  


} for


 nf closefile
nfd closefile


fileprefix infilename mergestr (r) file /nf exch store 
fileprefix outfilename mergestr (w) file /nfd exch store 


0 1 100 {endarray exch get /curpos exch store

nf curpos setfileposition  nf 60 string readstring {==}{==} ifelse
(\n) print  


} for


 nf closefile
nfd closefile


%%%%%%%%%%%%%%%%%%%%%%%%

/monthnames [
 (January)
 (February)
 (March)
 (April)
(May)
(June)
(July)
(August)
(September)
(October)
(November)
(December)
] store


% copy of valid menu

(<a id="d12.27.15"></a>
<table class="daily1">
  <tr>
    <td class="left"> December 27, 2015</td>
    <td class="right"><a href="http://www.tinaja.com/whtnu1.shtml#d05.27.13">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>	
) pop

%%%%%%%%%%%%%%%%%%%%%%%

 % warning: "13" is live loaded below!

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/oktocontinue {
               pop pop 0 8 getinterval  /sixhit exch store 
               (\n\nnamesearch is now ---> ) print sixhit ==

      sixhit 0 2 getinterval /month exch store                     month ==
      sixhit 3 2 getinterval /day exch store                       day ==
      sixhit 6 2 getinterval /year exch store                      year == 

/newid  ( id="d) sixhit mergestr (") mergestr store               newid ==
/newlink (#d)sixhit mergestr store                     newlink ==

/fulldate month cvi 1 sub monthnames exch get ( ) mergestr  
  day mergestr (, 20) mergestr year mergestr ( ) mergestr store    fulldate ==

             } store


                              
    /newmenu    {    (<a) newid mergestr (></a>\n) mergestr  

   (<table class="daily1">\n<tr>\n<td class="left">) mergestr
  fulldate mergestr
   (</td>\n<td class="right"><a href="http://www.tinaja.com/whtnu13.shtml) mergestr
newlink mergestr
(">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>) mergestr  

              } store


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/changeolddata {


                                                            (now changing old data) print

               olddata   (name="d)  search 

      {oktocontinue}{(did_not_find_name="d.) print} ifelse

                } store  

%%%%%%%%%%%%%%%%%%%%%%%%%


% file writing demo

fileprefix infilename mergestr (r) file /nf exch store 
fileprefix outfilename mergestr (w) file /nfd exch store 


stopwatchon

nf 300 string readstring == print



nf 0 setfileposition    % write up to first 

startarray 0 get 14 sub string   nf exch readstring    % up to first table


     { nfd exch writestring}{pop exit} ifelse

(\n\n============================ first write done |n|n) ==


0 1 endarray length      2 sub    {/curpos exch store 

 nf startarray curpos get 2 add setfileposition 
500 string nf exch readstring { }{} ifelse  /olddata exch store


(\n\n\n\nonepass\n\n) ==

olddata print   % temp

changeolddata 

nfd newmenu writestring

 

 nf endarray curpos get setfileposition

 nf startarray curpos 1 add get 
endarray curpos get sub string readstring   { nfd exch writestring}{pop exit} ifelse



       } for 


stopwatchoff


{
 nf endarray length 1 sub get                                         % last url
     startarray length 1 sub get sub string readstring
  { nfd exch writestring}{pop exit} ifelse

} pop

nf 10000 string readstring {(\n\nnot yet ended!\n\n)== }{ nfd exch writestring } ifelse   % past last url


stopwatchoff

nfd closefile


(\n\n) print
(\n\n) print

%EOF