docs/examples/adddocsref.pl

   1 #!/usr/bin/perl
   2
   3 # pass files as argument(s)
   4
   5 my $docroot="http://curl.haxx.se/libcurl/c";
   6
   7 for $f (@ARGV) {
   8     open(NEW, ">$f.new");
   9     open(F, "<$f");
  10     while(<F>) {
  11         my $l = $_;
  12         if($l =~ /\/* $docroot/) {
  13             # just ignore preciously added refs
  14         }
  15         elsif($l =~ /^( *).*curl_easy_setopt\([^,]*, *([^ ,]*) *,/) {
  16             my ($prefix, $anc) = ($1, $2);
  17             $anc =~ s/_//g;
  18             print NEW "$prefix/* $docroot/curl_easy_setopt.html#$anc */\n";
  19             print NEW $l;
  20         }
  21         elsif($l =~ /^( *).*(curl_([^\(]*))\(/) {
  22             my ($prefix, $func) = ($1, $2);
  23             print NEW "$prefix/* $docroot/$func.html */\n";
  24             print NEW $l;
  25         }
  26         else {
  27             print NEW $l;
  28         }
  29     }
  30     close(F);
  31     close(NEW);
  32
  33     system("mv $f $f.org");
  34     system("mv $f.new $f");
  35 }