Файловый менеджер - Редактировать - /snap/gnome-3-38-2004/140/usr/share/mm-common/doctool/doc-postprocess.pl
Назад
package main; # Copyright (c) 2009 Openismus GmbH <http://www.openismus.com/> # # This file is part of mm-common. # # mm-common is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published # by the Free Software Foundation, either version 2 of the License, # or (at your option) any later version. # # mm-common is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with mm-common. If not, see <http://www.gnu.org/licenses/>. use strict; use warnings; use bytes; use File::Glob qw(:glob); use File::Spec; use Getopt::Long qw(:config no_getopt_compat no_ignore_case require_order bundling); sub path_basename ($) { my ($path) = @_; my $basename = File::Spec->splitpath($path); return $basename; } sub exit_help () { my $script_name = path_basename($0) || 'doc-postprocess.pl'; print <<"EOF"; Usage: perl $script_name [OPTION]... [PATTERN]... Post-process the Doxygen-generated HTML files matching PATTERN. Options: -?, --help display this help and exit EOF exit; } sub error (@) { my $script_name = path_basename($0); $script_name =~ s/\.[^.]*$//s if (defined $script_name); print STDERR ($script_name || 'doc-postprocess', ': ', @_, "\n"); exit 1; } GetOptions('help|?' => \&exit_help) or exit 2; foreach my $filename (map(bsd_glob($_, GLOB_NOSORT), @ARGV)) { my @buf; my $file; open($file, '<', $filename) and (@buf = <$file>) and close($file) or error('Failed to read ', path_basename($filename), ': ', $!); foreach (@buf) { if (/<a class="el"/) { # return value s/ & */& /; s/ \* */* /; # parameters s/ &/&/g; s/&\b/& /g; s/ \*/*/g; s/\*\b/* /g; # templates s/\btemplate</template </; } elsif (/<td class="md(?:name)?"/) { # left parenthesis s/\( */(/; # return value s/ & /& /g; s/ \* /* /g; # parameters s/ & */& /g; s/ \* */* /g; # templates s/\btemplate</template </; } else { # template decls s/^(<h\d>|)template</$1template </; } # For some reason, recent versions of Doxygen output the full path to # referenced tag files. This is bad since it breaks doc-install.pl, # and also because it leaks local path names into source tarballs. # Thus, strip the directory prefix here. s| doxygen="[^":]*/([^":]+\.tag):| doxygen="$1:|g; s/©/©/g; s/—/—/g; s/–/–/g; s/ * */ /g; } # write the whole buffer back open($file, '>', $filename) and print $file (@buf) and close($file) or error('Failed to write ', path_basename($filename), ': ', $!); } exit;
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка