doc/tech-notes/pnuts.4tech-notes

   1 #!/usr/local/bin/perl
   2 #################################################
   3 #pnuts version 0.4  part of the WN server package
   4 #################################################
   5 # for more info, see http://hopf.math.nwu.edu/docs/utility.html#pnuts
   6 # Modified by Stefan Kramer for use with Pine Technical Notes
   7 # Last modified on 1995 Nov. 02
   8
   9
  10 require "getopts.pl";
  11
  12 # Edit to specify what should appear as text of navigation bar.  Note:
  13 # If the HTML files processed by PNUTS will be converted to plain-text files,
  14 # the PNUTS-generated link text will probably be stripped out, so this
  15 # text should be unique (i.e., not expected to occur elsewhere in text).
  16
  17 # This is the original link appearance, without graphic buttons
  18 # $prevw="<b>Previous</b>";
  19 # $nextw="<b>Next</b>";
  20 # $upw="<b>Up one level</b>";
  21 # $topw="<b>Table of Contents</b>";
  22 # $searchw="<b>Search</b>";
  23 # $indexw="<b>Index</b>";
  24
  25 $prevw='<IMG SRC="../graphics/BPprev.gif" ALT="[Previous]">';
  26 $nextw='<IMG SRC="../graphics/BPnext.gif" ALT="[Next]">';
  27 $upw=''; # not needed and don't have a graphic for UP
  28 $topw='<IMG SRC="../graphics/BPtoc.gif" ALT="[Table of Contents]">';
  29 $searchw='<IMG SRC="../graphics/BPsearch.gif" ALT="[Search]">';
  30 $indexw=''; # no index here and no graphic for it
  31
  32
  33
  34 $VERSION = "0.4";
  35
  36         &Getopts('s:i:');
  37         $search = $opt_s if $opt_s ne "";
  38         $index = $opt_i if $opt_i ne "";
  39
  40         $file = shift;
  41         $marker = "<!-- pnuts -->";
  42
  43
  44         open( LIST, "<$file") || die "Can't open file: $!";
  45
  46
  47         $nextfile = <LIST>;
  48         print $nextfile;
  49         chop( $nextfile);
  50         $top = $nextfile;
  51
  52         while ( &getnextfile() ) {
  53                 $curcopy = $currentfile."~";
  54
  55                 rename( $currentfile, $curcopy)
  56                         || die "Can't rename file: $currentfile";
  57                 open( OLDCURR, "<$curcopy" ) || die "Can't open file: $!";
  58                 open( NEWCURR, ">$currentfile" ) || die "Can't open file: $!";
  59                 while ( $line = <OLDCURR>) {
  60                         if ( $line =~ "^$marker") {
  61                                 &pnutline();
  62                         }
  63                         else {
  64                                 print NEWCURR $line;
  65                         }
  66                 }
  67                 close( OLDCURR);
  68                 close( NEWCURR);
  69         }
  70
  71
  72 close( LIST);
  73 exit(0);
  74
  75 sub pnutline {
  76         printf( NEWCURR  "$marker");
  77         printf( NEWCURR "<P><HR>");
  78         if ( $previous ) {
  79                 printf( NEWCURR " <a href=\"%s\">$prevw</a>", $previous);
  80         }
  81         if ( $nextfile ) {
  82                 printf( NEWCURR  " <a href=\"%s\">$nextw</a>", $nextfile);
  83         }
  84         if ( $up[$curlevel - 1] ) {
  85                 printf( NEWCURR  " <a href=\"%s\">$upw</a>",
  86                                 $up[$curlevel-1]);
  87         }
  88         if ( $top && ( $top ne $currentfile) ) {
  89                 printf( NEWCURR  " <a href=\"%s\">$topw</a>", $top);
  90         }
  91         if ( $search ) {
  92                 printf( NEWCURR  " <a href=\"%s\">$searchw</a>", $search);
  93         }
  94         if ( $index ) {
  95                 printf( NEWCURR  " <a href=\"%s\">$indexw</a>", $index);
  96         }
  97         printf( NEWCURR "\n");
  98 }
  99
 100 sub getnextfile {
 101         if ( $nextfile eq "") {
 102                 return 0;
 103         }
 104         $previous = $currentfile;
 105         $up[$curlevel] = $currentfile;
 106
 107         $currentfile = $nextfile;
 108         while ( 1 ) {
 109                 ($nextfile = <LIST>) || ($nextfile = "");
 110                 $nextfile =~ s/(\t*)//;
 111                 last if $nextfile eq "";
 112                 print $nextfile;
 113                 chop( $nextfile);
 114                 if ( -d $nextfile ) {
 115                         print "$nextfile is directory, ignoring it\n";
 116                         next;
 117                 }
 118                 last;
 119         }
 120         $curlevel = $nextlevel;
 121         $nextlevel = length( $1);
 122         return 1;
 123 }
 124
 125
 126
 127
 128
 129
 130
 131
 132
 133
 134