Mercurial > hgrepos > Python2 > PyMuPDF

comparison mupdf-source/thirdparty/curl/docs/examples/adddocsref.pl @ 3:2c135c81b16c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MERGE: upstream PyMuPDF 1.26.4 with MuPDF 1.26.7
author Franz Glasner <fzglas.hg@dom66.de>
date Mon, 15 Sep 2025 11:44:09 +0200
parents b50eed0cc0ef
children
comparison
equal deleted inserted replaced
0:6015a75abc2d 3:2c135c81b16c
1 #!/usr/bin/env perl
2
3 # pass files as argument(s)
4
5 my $docroot="https://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 }