git.maemo.org Git - chessclock/blob - www/html/installdox

   1 #!/usr/bin/perl
   2
   3 %subst = ( );
   4 $quiet   = 0;
   5
   6 if (open(F,"search.cfg"))
   7 {
   8   $_=<F> ; s/[ \t\n]*$//g ; $subst{"_doc"} = $_;
   9   $_=<F> ; s/[ \t\n]*$//g ; $subst{"_cgi"} = $_;
  10 }
  11
  12 while ( @ARGV ) {
  13   $_ = shift @ARGV;
  14   if ( s/^-// ) {
  15     if ( /^l(.*)/ ) {
  16       $v = ($1 eq "") ? shift @ARGV : $1;
  17       ($v =~ /\/$/) || ($v .= "/");
  18       $_ = $v;
  19       if ( /(.+)\@(.+)/ ) {
  20         if ( exists $subst{$1} ) {
  21           $subst{$1} = $2;
  22         } else {
  23           print STDERR "Unknown tag file $1 given with option -l\n";
  24           &usage();
  25         }
  26       } else {
  27         print STDERR "Argument $_ is invalid for option -l\n";
  28         &usage();
  29       }
  30     }
  31     elsif ( /^q/ ) {
  32       $quiet = 1;
  33     }
  34     elsif ( /^\?|^h/ ) {
  35       &usage();
  36     }
  37     else {
  38       print STDERR "Illegal option -$_\n";
  39       &usage();
  40     }
  41   }
  42   else {
  43     push (@files, $_ );
  44   }
  45 }
  46
  47 foreach $sub (keys %subst)
  48 {
  49   if ( $subst{$sub} eq "" )
  50   {
  51     print STDERR "No substitute given for tag file `$sub'\n";
  52     &usage();
  53   }
  54   elsif ( ! $quiet && $sub ne "_doc" && $sub ne "_cgi" )
  55   {
  56     print "Substituting $subst{$sub} for each occurence of tag file $sub\n";
  57   }
  58 }
  59
  60 if ( ! @files ) {
  61   if (opendir(D,".")) {
  62     foreach $file ( readdir(D) ) {
  63       $match = ".html";
  64       next if ( $file =~ /^\.\.?$/ );
  65       ($file =~ /$match/) && (push @files, $file);
  66       ($file =~ "tree.js") && (push @files, $file);
  67     }
  68     closedir(D);
  69   }
  70 }
  71
  72 if ( ! @files ) {
  73   print STDERR "Warning: No input files given and none found!\n";
  74 }
  75
  76 foreach $f (@files)
  77 {
  78   if ( ! $quiet ) {
  79     print "Editing: $f...\n";
  80   }
  81   $oldf = $f;
  82   $f   .= ".bak";
  83   unless (rename $oldf,$f) {
  84     print STDERR "Error: cannot rename file $oldf\n";
  85     exit 1;
  86   }
  87   if (open(F,"<$f")) {
  88     unless (open(G,">$oldf")) {
  89       print STDERR "Error: opening file $oldf for writing\n";
  90       exit 1;
  91     }
  92     if ($oldf ne "tree.js") {
  93       while (<F>) {
  94         s/doxygen\=\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\" (href|src)=\"\2/doxygen\=\"$1:$subst{$1}\" \3=\"$subst{$1}/g;
  95         print G "$_";
  96       }
  97     }
  98     else {
  99       while (<F>) {
 100         s/\"([^ \"\:\t\>\<]*)\:([^ \"\t\>\<]*)\", \"\2/\"$1:$subst{$1}\" ,\"$subst{$1}/g;
 101         print G "$_";
 102       }
 103     }
 104   }
 105   else {
 106     print STDERR "Warning file $f does not exist\n";
 107   }
 108   unlink $f;
 109 }
 110
 111 sub usage {
 112   print STDERR "Usage: installdox [options] [html-file [html-file ...]]\n";
 113   print STDERR "Options:\n";
 114   print STDERR "     -l tagfile\@linkName   tag file + URL or directory \n";
 115   print STDERR "     -q                    Quiet mode\n\n";
 116   exit 1;
 117 }