diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/kernel-doc | 4 | ||||
| -rwxr-xr-x | scripts/sphinx-pre-install | 609 |
2 files changed, 613 insertions, 0 deletions
diff --git a/scripts/kernel-doc b/scripts/kernel-doc index 6e36b7889001..9d3eafea58f0 100755 --- a/scripts/kernel-doc +++ b/scripts/kernel-doc | |||
| @@ -2226,6 +2226,7 @@ sub dump_enum($$) { | |||
| 2226 | if ($x =~ /enum\s+(\w+)\s*{(.*)}/) { | 2226 | if ($x =~ /enum\s+(\w+)\s*{(.*)}/) { |
| 2227 | $declaration_name = $1; | 2227 | $declaration_name = $1; |
| 2228 | my $members = $2; | 2228 | my $members = $2; |
| 2229 | $members =~ s/\s+$//; | ||
| 2229 | 2230 | ||
| 2230 | foreach my $arg (split ',', $members) { | 2231 | foreach my $arg (split ',', $members) { |
| 2231 | $arg =~ s/^\s*(\w+).*/$1/; | 2232 | $arg =~ s/^\s*(\w+).*/$1/; |
| @@ -2766,6 +2767,9 @@ sub process_proto_type($$) { | |||
| 2766 | 2767 | ||
| 2767 | while (1) { | 2768 | while (1) { |
| 2768 | if ( $x =~ /([^{};]*)([{};])(.*)/ ) { | 2769 | if ( $x =~ /([^{};]*)([{};])(.*)/ ) { |
| 2770 | if( length $prototype ) { | ||
| 2771 | $prototype .= " " | ||
| 2772 | } | ||
| 2769 | $prototype .= $1 . $2; | 2773 | $prototype .= $1 . $2; |
| 2770 | ($2 eq '{') && $brcount++; | 2774 | ($2 eq '{') && $brcount++; |
| 2771 | ($2 eq '}') && $brcount--; | 2775 | ($2 eq '}') && $brcount--; |
diff --git a/scripts/sphinx-pre-install b/scripts/sphinx-pre-install new file mode 100755 index 000000000000..677756ae34c9 --- /dev/null +++ b/scripts/sphinx-pre-install | |||
| @@ -0,0 +1,609 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | use strict; | ||
| 3 | |||
| 4 | # Copyright (c) 2017 Mauro Carvalho Chehab <mchehab@kernel.org> | ||
| 5 | # | ||
| 6 | # This program is free software; you can redistribute it and/or | ||
| 7 | # modify it under the terms of the GNU General Public License | ||
| 8 | # as published by the Free Software Foundation; either version 2 | ||
| 9 | # of the License, or (at your option) any later version. | ||
| 10 | # | ||
| 11 | # This program is distributed in the hope that it will be useful, | ||
| 12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 14 | # GNU General Public License for more details. | ||
| 15 | |||
| 16 | my $virtenv_dir = "sphinx_1.4"; | ||
| 17 | my $requirement_file = "Documentation/sphinx/requirements.txt"; | ||
| 18 | |||
| 19 | # | ||
| 20 | # Static vars | ||
| 21 | # | ||
| 22 | |||
| 23 | my %missing; | ||
| 24 | my $system_release; | ||
| 25 | my $need = 0; | ||
| 26 | my $optional = 0; | ||
| 27 | my $need_symlink = 0; | ||
| 28 | my $need_sphinx = 0; | ||
| 29 | my $install = ""; | ||
| 30 | |||
| 31 | # | ||
| 32 | # Command line arguments | ||
| 33 | # | ||
| 34 | |||
| 35 | my $pdf = 1; | ||
| 36 | my $virtualenv = 1; | ||
| 37 | |||
| 38 | # | ||
| 39 | # List of required texlive packages on Fedora and OpenSuse | ||
| 40 | # | ||
| 41 | |||
| 42 | my %texlive = ( | ||
| 43 | 'adjustbox.sty' => 'texlive-adjustbox', | ||
| 44 | 'amsfonts.sty' => 'texlive-amsfonts', | ||
| 45 | 'amsmath.sty' => 'texlive-amsmath', | ||
| 46 | 'amssymb.sty' => 'texlive-amsfonts', | ||
| 47 | 'amsthm.sty' => 'texlive-amscls', | ||
| 48 | 'anyfontsize.sty' => 'texlive-anyfontsize', | ||
| 49 | 'atbegshi.sty' => 'texlive-oberdiek', | ||
| 50 | 'bm.sty' => 'texlive-tools', | ||
| 51 | 'capt-of.sty' => 'texlive-capt-of', | ||
| 52 | 'cmap.sty' => 'texlive-cmap', | ||
| 53 | 'ecrm1000.tfm' => 'texlive-ec', | ||
| 54 | 'eqparbox.sty' => 'texlive-eqparbox', | ||
| 55 | 'eu1enc.def' => 'texlive-euenc', | ||
| 56 | 'fancybox.sty' => 'texlive-fancybox', | ||
| 57 | 'fancyvrb.sty' => 'texlive-fancyvrb', | ||
| 58 | 'float.sty' => 'texlive-float', | ||
| 59 | 'fncychap.sty' => 'texlive-fncychap', | ||
| 60 | 'footnote.sty' => 'texlive-mdwtools', | ||
| 61 | 'framed.sty' => 'texlive-framed', | ||
| 62 | 'luatex85.sty' => 'texlive-luatex85', | ||
| 63 | 'multirow.sty' => 'texlive-multirow', | ||
| 64 | 'needspace.sty' => 'texlive-needspace', | ||
| 65 | 'palatino.sty' => 'texlive-psnfss', | ||
| 66 | 'parskip.sty' => 'texlive-parskip', | ||
| 67 | 'polyglossia.sty' => 'texlive-polyglossia', | ||
| 68 | 'tabulary.sty' => 'texlive-tabulary', | ||
| 69 | 'threeparttable.sty' => 'texlive-threeparttable', | ||
| 70 | 'titlesec.sty' => 'texlive-titlesec', | ||
| 71 | 'ucs.sty' => 'texlive-ucs', | ||
| 72 | 'upquote.sty' => 'texlive-upquote', | ||
| 73 | 'wrapfig.sty' => 'texlive-wrapfig', | ||
| 74 | ); | ||
| 75 | |||
| 76 | # | ||
| 77 | # Subroutines that checks if a feature exists | ||
| 78 | # | ||
| 79 | |||
| 80 | sub check_missing(%) | ||
| 81 | { | ||
| 82 | my %map = %{$_[0]}; | ||
| 83 | |||
| 84 | foreach my $prog (sort keys %missing) { | ||
| 85 | my $is_optional = $missing{$prog}; | ||
| 86 | |||
| 87 | if ($is_optional) { | ||
| 88 | print "Warning: better to also install \"$prog\".\n"; | ||
| 89 | } else { | ||
| 90 | print "ERROR: please install \"$prog\", otherwise, build won't work.\n"; | ||
| 91 | } | ||
| 92 | if (defined($map{$prog})) { | ||
| 93 | $install .= " " . $map{$prog}; | ||
| 94 | } else { | ||
| 95 | $install .= " " . $prog; | ||
| 96 | } | ||
| 97 | } | ||
| 98 | |||
| 99 | $install =~ s/^\s//; | ||
| 100 | } | ||
| 101 | |||
| 102 | sub add_package($$) | ||
| 103 | { | ||
| 104 | my $package = shift; | ||
| 105 | my $is_optional = shift; | ||
| 106 | |||
| 107 | $missing{$package} = $is_optional; | ||
| 108 | if ($is_optional) { | ||
| 109 | $optional++; | ||
| 110 | } else { | ||
| 111 | $need++; | ||
| 112 | } | ||
| 113 | } | ||
| 114 | |||
| 115 | sub check_missing_file($$$) | ||
| 116 | { | ||
| 117 | my $file = shift; | ||
| 118 | my $package = shift; | ||
| 119 | my $is_optional = shift; | ||
| 120 | |||
| 121 | return if(-e $file); | ||
| 122 | |||
| 123 | add_package($package, $is_optional); | ||
| 124 | } | ||
| 125 | |||
| 126 | sub findprog($) | ||
| 127 | { | ||
| 128 | foreach(split(/:/, $ENV{PATH})) { | ||
| 129 | return "$_/$_[0]" if(-x "$_/$_[0]"); | ||
| 130 | } | ||
| 131 | } | ||
| 132 | |||
| 133 | sub check_program($$) | ||
| 134 | { | ||
| 135 | my $prog = shift; | ||
| 136 | my $is_optional = shift; | ||
| 137 | |||
| 138 | return if findprog($prog); | ||
| 139 | |||
| 140 | add_package($prog, $is_optional); | ||
| 141 | } | ||
| 142 | |||
| 143 | sub check_perl_module($$) | ||
| 144 | { | ||
| 145 | my $prog = shift; | ||
| 146 | my $is_optional = shift; | ||
| 147 | |||
| 148 | my $err = system("perl -M$prog -e 1 2>/dev/null /dev/null"); | ||
| 149 | return if ($err == 0); | ||
| 150 | |||
| 151 | add_package($prog, $is_optional); | ||
| 152 | } | ||
| 153 | |||
| 154 | sub check_python_module($$) | ||
| 155 | { | ||
| 156 | my $prog = shift; | ||
| 157 | my $is_optional = shift; | ||
| 158 | |||
| 159 | my $err = system("python3 -c 'import $prog' 2>/dev/null /dev/null"); | ||
| 160 | return if ($err == 0); | ||
| 161 | my $err = system("python -c 'import $prog' 2>/dev/null /dev/null"); | ||
| 162 | return if ($err == 0); | ||
| 163 | |||
| 164 | add_package($prog, $is_optional); | ||
| 165 | } | ||
| 166 | |||
| 167 | sub check_rpm_missing($$) | ||
| 168 | { | ||
| 169 | my @pkgs = @{$_[0]}; | ||
| 170 | my $is_optional = $_[1]; | ||
| 171 | |||
| 172 | foreach my $prog(@pkgs) { | ||
| 173 | my $err = system("rpm -q '$prog' 2>/dev/null >/dev/null"); | ||
| 174 | add_package($prog, $is_optional) if ($err); | ||
| 175 | } | ||
| 176 | } | ||
| 177 | |||
| 178 | sub check_pacman_missing($$) | ||
| 179 | { | ||
| 180 | my @pkgs = @{$_[0]}; | ||
| 181 | my $is_optional = $_[1]; | ||
| 182 | |||
| 183 | foreach my $prog(@pkgs) { | ||
| 184 | my $err = system("pacman -Q '$prog' 2>/dev/null >/dev/null"); | ||
| 185 | add_package($prog, $is_optional) if ($err); | ||
| 186 | } | ||
| 187 | } | ||
| 188 | |||
| 189 | sub check_missing_tex($) | ||
| 190 | { | ||
| 191 | my $is_optional = shift; | ||
| 192 | my $kpsewhich = findprog("kpsewhich"); | ||
| 193 | |||
| 194 | foreach my $prog(keys %texlive) { | ||
| 195 | my $package = $texlive{$prog}; | ||
| 196 | if (!$kpsewhich) { | ||
| 197 | add_package($package, $is_optional); | ||
| 198 | next; | ||
| 199 | } | ||
| 200 | my $file = qx($kpsewhich $prog); | ||
| 201 | add_package($package, $is_optional) if ($file =~ /^\s*$/); | ||
| 202 | } | ||
| 203 | } | ||
| 204 | |||
| 205 | sub check_sphinx() | ||
| 206 | { | ||
| 207 | return if findprog("sphinx-build"); | ||
| 208 | |||
| 209 | if (findprog("sphinx-build-3")) { | ||
| 210 | $need_symlink = 1; | ||
| 211 | return; | ||
| 212 | } | ||
| 213 | |||
| 214 | if ($virtualenv) { | ||
| 215 | my $prog = findprog("virtualenv-3"); | ||
| 216 | $prog = findprog("virtualenv-3.5") if (!$prog); | ||
| 217 | |||
| 218 | check_program("virtualenv", 0) if (!$prog); | ||
| 219 | $need_sphinx = 1; | ||
| 220 | } else { | ||
| 221 | add_package("python-sphinx", 0); | ||
| 222 | } | ||
| 223 | } | ||
| 224 | |||
| 225 | # | ||
| 226 | # Ancillary subroutines | ||
| 227 | # | ||
| 228 | |||
| 229 | sub catcheck($) | ||
| 230 | { | ||
| 231 | my $res = ""; | ||
| 232 | $res = qx(cat $_[0]) if (-r $_[0]); | ||
| 233 | return $res; | ||
| 234 | } | ||
| 235 | |||
| 236 | sub which($) | ||
| 237 | { | ||
| 238 | my $file = shift; | ||
| 239 | my @path = split ":", $ENV{PATH}; | ||
| 240 | |||
| 241 | foreach my $dir(@path) { | ||
| 242 | my $name = $dir.'/'.$file; | ||
| 243 | return $name if (-x $name ); | ||
| 244 | } | ||
| 245 | return undef; | ||
| 246 | } | ||
| 247 | |||
| 248 | # | ||
| 249 | # Subroutines that check distro-specific hints | ||
| 250 | # | ||
| 251 | |||
| 252 | sub give_debian_hints() | ||
| 253 | { | ||
| 254 | my %map = ( | ||
| 255 | "python-sphinx" => "python3-sphinx", | ||
| 256 | "sphinx_rtd_theme" => "python3-sphinx-rtd-theme", | ||
| 257 | "virtualenv" => "virtualenv", | ||
| 258 | "dot" => "graphviz", | ||
| 259 | "convert" => "imagemagick", | ||
| 260 | "Pod::Usage" => "perl-modules", | ||
| 261 | "xelatex" => "texlive-xetex", | ||
| 262 | "rsvg-convert" => "librsvg2-bin", | ||
| 263 | ); | ||
| 264 | |||
| 265 | if ($pdf) { | ||
| 266 | check_missing_file("/usr/share/fonts/truetype/dejavu/DejaVuSans.ttf", | ||
| 267 | "fonts-dejavu", 1); | ||
| 268 | } | ||
| 269 | |||
| 270 | check_program("dvipng", 1) if ($pdf); | ||
| 271 | check_missing(\%map); | ||
| 272 | |||
| 273 | return if (!$need && !$optional); | ||
| 274 | printf("You should run:\n\n\tsudo apt-get install $install\n"); | ||
| 275 | } | ||
| 276 | |||
| 277 | sub give_redhat_hints() | ||
| 278 | { | ||
| 279 | my %map = ( | ||
| 280 | "python-sphinx" => "python3-sphinx", | ||
| 281 | "sphinx_rtd_theme" => "python3-sphinx_rtd_theme", | ||
| 282 | "virtualenv" => "python3-virtualenv", | ||
| 283 | "dot" => "graphviz", | ||
| 284 | "convert" => "ImageMagick", | ||
| 285 | "Pod::Usage" => "perl-Pod-Usage", | ||
| 286 | "xelatex" => "texlive-xetex-bin", | ||
| 287 | "rsvg-convert" => "librsvg2-tools", | ||
| 288 | ); | ||
| 289 | |||
| 290 | my @fedora26_opt_pkgs = ( | ||
| 291 | "graphviz-gd", # Fedora 26: needed for PDF support | ||
| 292 | ); | ||
| 293 | |||
| 294 | my @fedora_tex_pkgs = ( | ||
| 295 | "texlive-collection-fontsrecommended", | ||
| 296 | "texlive-collection-latex", | ||
| 297 | "dejavu-sans-fonts", | ||
| 298 | "dejavu-serif-fonts", | ||
| 299 | "dejavu-sans-mono-fonts", | ||
| 300 | ); | ||
| 301 | |||
| 302 | # | ||
| 303 | # Checks valid for RHEL/CentOS version 7.x. | ||
| 304 | # | ||
| 305 | if (! $system_release =~ /Fedora/) { | ||
| 306 | $map{"virtualenv"} = "python-virtualenv"; | ||
| 307 | } | ||
| 308 | |||
| 309 | my $release; | ||
| 310 | |||
| 311 | $release = $1 if ($system_release =~ /Fedora\s+release\s+(\d+)/); | ||
| 312 | |||
| 313 | check_rpm_missing(\@fedora26_opt_pkgs, 1) if ($pdf && $release >= 26); | ||
| 314 | check_rpm_missing(\@fedora_tex_pkgs, 1) if ($pdf); | ||
| 315 | check_missing_tex(1) if ($pdf); | ||
| 316 | check_missing(\%map); | ||
| 317 | |||
| 318 | return if (!$need && !$optional); | ||
| 319 | |||
| 320 | if ($release >= 18) { | ||
| 321 | # dnf, for Fedora 18+ | ||
| 322 | printf("You should run:\n\n\tsudo dnf install -y $install\n"); | ||
| 323 | } else { | ||
| 324 | # yum, for RHEL (and clones) or Fedora version < 18 | ||
| 325 | printf("You should run:\n\n\tsudo yum install -y $install\n"); | ||
| 326 | } | ||
| 327 | } | ||
| 328 | |||
| 329 | sub give_opensuse_hints() | ||
| 330 | { | ||
| 331 | my %map = ( | ||
| 332 | "python-sphinx" => "python3-sphinx", | ||
| 333 | "sphinx_rtd_theme" => "python3-sphinx_rtd_theme", | ||
| 334 | "virtualenv" => "python3-virtualenv", | ||
| 335 | "dot" => "graphviz", | ||
| 336 | "convert" => "ImageMagick", | ||
| 337 | "Pod::Usage" => "perl-Pod-Usage", | ||
| 338 | "xelatex" => "texlive-xetex-bin", | ||
| 339 | "rsvg-convert" => "rsvg-view", | ||
| 340 | ); | ||
| 341 | |||
| 342 | my @suse_tex_pkgs = ( | ||
| 343 | "texlive-babel-english", | ||
| 344 | "texlive-caption", | ||
| 345 | "texlive-colortbl", | ||
| 346 | "texlive-courier", | ||
| 347 | "texlive-dvips", | ||
| 348 | "texlive-helvetic", | ||
| 349 | "texlive-makeindex", | ||
| 350 | "texlive-metafont", | ||
| 351 | "texlive-metapost", | ||
| 352 | "texlive-palatino", | ||
| 353 | "texlive-preview", | ||
| 354 | "texlive-times", | ||
| 355 | "texlive-zapfchan", | ||
| 356 | "texlive-zapfding", | ||
| 357 | ); | ||
| 358 | |||
| 359 | check_rpm_missing(\@suse_tex_pkgs, 1) if ($pdf); | ||
| 360 | check_missing_tex(1) if ($pdf); | ||
| 361 | check_missing(\%map); | ||
| 362 | |||
| 363 | return if (!$need && !$optional); | ||
| 364 | printf("You should run:\n\n\tsudo zypper install --no-recommends $install\n"); | ||
| 365 | } | ||
| 366 | |||
| 367 | sub give_mageia_hints() | ||
| 368 | { | ||
| 369 | my %map = ( | ||
| 370 | "python-sphinx" => "python3-sphinx", | ||
| 371 | "sphinx_rtd_theme" => "python3-sphinx_rtd_theme", | ||
| 372 | "virtualenv" => "python3-virtualenv", | ||
| 373 | "dot" => "graphviz", | ||
| 374 | "convert" => "ImageMagick", | ||
| 375 | "Pod::Usage" => "perl-Pod-Usage", | ||
| 376 | "xelatex" => "texlive", | ||
| 377 | "rsvg-convert" => "librsvg2-tools", | ||
| 378 | ); | ||
| 379 | |||
| 380 | my @tex_pkgs = ( | ||
| 381 | "texlive-fontsextra", | ||
| 382 | ); | ||
| 383 | |||
| 384 | check_rpm_missing(\@tex_pkgs, 1) if ($pdf); | ||
| 385 | check_missing(\%map); | ||
| 386 | |||
| 387 | return if (!$need && !$optional); | ||
| 388 | printf("You should run:\n\n\tsudo urpmi $install\n"); | ||
| 389 | } | ||
| 390 | |||
| 391 | sub give_arch_linux_hints() | ||
| 392 | { | ||
| 393 | my %map = ( | ||
| 394 | "sphinx_rtd_theme" => "python-sphinx_rtd_theme", | ||
| 395 | "virtualenv" => "python-virtualenv", | ||
| 396 | "dot" => "graphviz", | ||
| 397 | "convert" => "imagemagick", | ||
| 398 | "xelatex" => "texlive-bin", | ||
| 399 | "rsvg-convert" => "extra/librsvg", | ||
| 400 | ); | ||
| 401 | |||
| 402 | my @archlinux_tex_pkgs = ( | ||
| 403 | "texlive-core", | ||
| 404 | "texlive-latexextra", | ||
| 405 | "ttf-dejavu", | ||
| 406 | ); | ||
| 407 | check_pacman_missing(\@archlinux_tex_pkgs, 1) if ($pdf); | ||
| 408 | check_missing(\%map); | ||
| 409 | |||
| 410 | return if (!$need && !$optional); | ||
| 411 | printf("You should run:\n\n\tsudo pacman -S $install\n"); | ||
| 412 | } | ||
| 413 | |||
| 414 | sub give_gentoo_hints() | ||
| 415 | { | ||
| 416 | my %map = ( | ||
| 417 | "sphinx_rtd_theme" => "dev-python/sphinx_rtd_theme", | ||
| 418 | "virtualenv" => "dev-python/virtualenv", | ||
| 419 | "dot" => "media-gfx/graphviz", | ||
| 420 | "convert" => "media-gfx/imagemagick", | ||
| 421 | "xelatex" => "dev-texlive/texlive-xetex media-fonts/dejavu", | ||
| 422 | "rsvg-convert" => "gnome-base/librsvg", | ||
| 423 | ); | ||
| 424 | |||
| 425 | check_missing_file("/usr/share/fonts/dejavu/DejaVuSans.ttf", | ||
| 426 | "media-fonts/dejavu", 1) if ($pdf); | ||
| 427 | |||
| 428 | check_missing(\%map); | ||
| 429 | |||
| 430 | return if (!$need && !$optional); | ||
| 431 | |||
| 432 | printf("You should run:\n\n"); | ||
| 433 | printf("\tsudo su -c 'echo \"media-gfx/imagemagick svg png\" > /etc/portage/package.use/imagemagick'\n"); | ||
| 434 | printf("\tsudo su -c 'echo \"media-gfx/graphviz cairo pdf\" > /etc/portage/package.use/graphviz'\n"); | ||
| 435 | printf("\tsudo emerge --ask $install\n"); | ||
| 436 | |||
| 437 | } | ||
| 438 | |||
| 439 | sub check_distros() | ||
| 440 | { | ||
| 441 | # Distro-specific hints | ||
| 442 | if ($system_release =~ /Red Hat Enterprise Linux/) { | ||
| 443 | give_redhat_hints; | ||
| 444 | return; | ||
| 445 | } | ||
| 446 | if ($system_release =~ /CentOS/) { | ||
| 447 | give_redhat_hints; | ||
| 448 | return; | ||
| 449 | } | ||
| 450 | if ($system_release =~ /Scientific Linux/) { | ||
| 451 | give_redhat_hints; | ||
| 452 | return; | ||
| 453 | } | ||
| 454 | if ($system_release =~ /Oracle Linux Server/) { | ||
| 455 | give_redhat_hints; | ||
| 456 | return; | ||
| 457 | } | ||
| 458 | if ($system_release =~ /Fedora/) { | ||
| 459 | give_redhat_hints; | ||
| 460 | return; | ||
| 461 | } | ||
| 462 | if ($system_release =~ /Ubuntu/) { | ||
| 463 | give_debian_hints; | ||
| 464 | return; | ||
| 465 | } | ||
| 466 | if ($system_release =~ /Debian/) { | ||
| 467 | give_debian_hints; | ||
| 468 | return; | ||
| 469 | } | ||
| 470 | if ($system_release =~ /openSUSE/) { | ||
| 471 | give_opensuse_hints; | ||
| 472 | return; | ||
| 473 | } | ||
| 474 | if ($system_release =~ /Mageia/) { | ||
| 475 | give_mageia_hints; | ||
| 476 | return; | ||
| 477 | } | ||
| 478 | if ($system_release =~ /Arch Linux/) { | ||
| 479 | give_arch_linux_hints; | ||
| 480 | return; | ||
| 481 | } | ||
| 482 | if ($system_release =~ /Gentoo/) { | ||
| 483 | give_gentoo_hints; | ||
| 484 | return; | ||
| 485 | } | ||
| 486 | |||
| 487 | # | ||
| 488 | # Fall-back to generic hint code for other distros | ||
| 489 | # That's far from ideal, specially for LaTeX dependencies. | ||
| 490 | # | ||
| 491 | my %map = ( | ||
| 492 | "sphinx-build" => "sphinx" | ||
| 493 | ); | ||
| 494 | check_missing_tex(1) if ($pdf); | ||
| 495 | check_missing(\%map); | ||
| 496 | print "I don't know distro $system_release.\n"; | ||
| 497 | print "So, I can't provide you a hint with the install procedure.\n"; | ||
| 498 | print "There are likely missing dependencies.\n"; | ||
| 499 | } | ||
| 500 | |||
| 501 | # | ||
| 502 | # Common dependencies | ||
| 503 | # | ||
| 504 | |||
| 505 | sub check_needs() | ||
| 506 | { | ||
| 507 | if ($system_release) { | ||
| 508 | print "Detected OS: $system_release.\n"; | ||
| 509 | } else { | ||
| 510 | print "Unknown OS\n"; | ||
| 511 | } | ||
| 512 | |||
| 513 | # RHEL 7.x and clones have Sphinx version 1.1.x and incomplete texlive | ||
| 514 | if (($system_release =~ /Red Hat Enterprise Linux/) || | ||
| 515 | ($system_release =~ /CentOS/) || | ||
| 516 | ($system_release =~ /Scientific Linux/) || | ||
| 517 | ($system_release =~ /Oracle Linux Server/)) { | ||
| 518 | $virtualenv = 1; | ||
| 519 | $pdf = 0; | ||
| 520 | |||
| 521 | printf("NOTE: On this distro, Sphinx and TexLive shipped versions are incompatible\n"); | ||
| 522 | printf("with doc build. So, use Sphinx via a Python virtual environment.\n\n"); | ||
| 523 | printf("This script can't install a TexLive version that would provide PDF.\n"); | ||
| 524 | } | ||
| 525 | |||
| 526 | # Check for needed programs/tools | ||
| 527 | check_sphinx(); | ||
| 528 | check_perl_module("Pod::Usage", 0); | ||
| 529 | check_program("make", 0); | ||
| 530 | check_program("gcc", 0); | ||
| 531 | check_python_module("sphinx_rtd_theme", 1) if (!$virtualenv); | ||
| 532 | check_program("xelatex", 1) if ($pdf); | ||
| 533 | check_program("dot", 1); | ||
| 534 | check_program("convert", 1); | ||
| 535 | check_program("rsvg-convert", 1) if ($pdf); | ||
| 536 | |||
| 537 | check_distros(); | ||
| 538 | |||
| 539 | if ($need_symlink) { | ||
| 540 | printf "\tsudo ln -sf %s /usr/bin/sphinx-build\n\n", | ||
| 541 | which("sphinx-build-3"); | ||
| 542 | } | ||
| 543 | if ($need_sphinx) { | ||
| 544 | my $activate = "$virtenv_dir/bin/activate"; | ||
| 545 | if (-e "$ENV{'PWD'}/$activate") { | ||
| 546 | printf "\nNeed to activate virtualenv with:\n"; | ||
| 547 | printf "\t. $activate\n"; | ||
| 548 | } else { | ||
| 549 | my $virtualenv = findprog("virtualenv-3"); | ||
| 550 | $virtualenv = findprog("virtualenv-3.5") if (!$virtualenv); | ||
| 551 | $virtualenv = findprog("virtualenv") if (!$virtualenv); | ||
| 552 | $virtualenv = "virtualenv" if (!$virtualenv); | ||
| 553 | |||
| 554 | printf "\t$virtualenv $virtenv_dir\n"; | ||
| 555 | printf "\t. $activate\n"; | ||
| 556 | printf "\tpip install -r $requirement_file\n"; | ||
| 557 | $need++; | ||
| 558 | } | ||
| 559 | } | ||
| 560 | printf "\n"; | ||
| 561 | |||
| 562 | print "All optional dependenties are met.\n" if (!$optional); | ||
| 563 | |||
| 564 | if ($need == 1) { | ||
| 565 | die "Can't build as $need mandatory dependency is missing"; | ||
| 566 | } elsif ($need) { | ||
| 567 | die "Can't build as $need mandatory dependencies are missing"; | ||
| 568 | } | ||
| 569 | |||
| 570 | print "Needed package dependencies are met.\n"; | ||
| 571 | } | ||
| 572 | |||
| 573 | # | ||
| 574 | # Main | ||
| 575 | # | ||
| 576 | |||
| 577 | while (@ARGV) { | ||
| 578 | my $arg = shift(@ARGV); | ||
| 579 | |||
| 580 | if ($arg eq "--no-virtualenv") { | ||
| 581 | $virtualenv = 0; | ||
| 582 | } elsif ($arg eq "--no-pdf"){ | ||
| 583 | $pdf = 0; | ||
| 584 | } else { | ||
| 585 | print "Usage:\n\t$0 <--no-virtualenv> <--no-pdf>\n\n"; | ||
| 586 | exit -1; | ||
| 587 | } | ||
| 588 | } | ||
| 589 | |||
| 590 | # | ||
| 591 | # Determine the system type. There's no standard unique way that would | ||
| 592 | # work with all distros with a minimal package install. So, several | ||
| 593 | # methods are used here. | ||
| 594 | # | ||
| 595 | # By default, it will use lsb_release function. If not available, it will | ||
| 596 | # fail back to reading the known different places where the distro name | ||
| 597 | # is stored | ||
| 598 | # | ||
| 599 | |||
| 600 | $system_release = qx(lsb_release -d) if which("lsb_release"); | ||
| 601 | $system_release =~ s/Description:\s*// if ($system_release); | ||
| 602 | $system_release = catcheck("/etc/system-release") if !$system_release; | ||
| 603 | $system_release = catcheck("/etc/redhat-release") if !$system_release; | ||
| 604 | $system_release = catcheck("/etc/lsb-release") if !$system_release; | ||
| 605 | $system_release = catcheck("/etc/gentoo-release") if !$system_release; | ||
| 606 | $system_release = catcheck("/etc/issue") if !$system_release; | ||
| 607 | $system_release =~ s/\s+$//; | ||
| 608 | |||
| 609 | check_needs; | ||
