scripts/sphinx-pre-install

   1 #!/usr/bin/perl
   2 # SPDX-License-Identifier: GPL-2.0-or-later
   3 use strict;
   4
   5 # Copyright (c) 2017-2019 Mauro Carvalho Chehab <mchehab@kernel.org>
   6 #
   7
   8 my $prefix = "./";
   9 $prefix = "$ENV{'srctree'}/" if ($ENV{'srctree'});
  10
  11 my $conf = $prefix . "Documentation/conf.py";
  12 my $requirement_file = $prefix . "Documentation/sphinx/requirements.txt";
  13 my $virtenv_prefix = "sphinx_";
  14
  15 #
  16 # Static vars
  17 #
  18
  19 my %missing;
  20 my $system_release;
  21 my $need = 0;
  22 my $optional = 0;
  23 my $need_symlink = 0;
  24 my $need_sphinx = 0;
  25 my $rec_sphinx_upgrade = 0;
  26 my $install = "";
  27 my $virtenv_dir = "";
  28 my $min_version;
  29
  30 #
  31 # Command line arguments
  32 #
  33
  34 my $pdf = 1;
  35 my $virtualenv = 1;
  36 my $version_check = 0;
  37
  38 #
  39 # List of required texlive packages on Fedora and OpenSuse
  40 #
  41
  42 my %texlive = (
  43         'amsfonts.sty'       => 'texlive-amsfonts',
  44         'amsmath.sty'        => 'texlive-amsmath',
  45         'amssymb.sty'        => 'texlive-amsfonts',
  46         'amsthm.sty'         => 'texlive-amscls',
  47         'anyfontsize.sty'    => 'texlive-anyfontsize',
  48         'atbegshi.sty'       => 'texlive-oberdiek',
  49         'bm.sty'             => 'texlive-tools',
  50         'capt-of.sty'        => 'texlive-capt-of',
  51         'cmap.sty'           => 'texlive-cmap',
  52         'ecrm1000.tfm'       => 'texlive-ec',
  53         'eqparbox.sty'       => 'texlive-eqparbox',
  54         'eu1enc.def'         => 'texlive-euenc',
  55         'fancybox.sty'       => 'texlive-fancybox',
  56         'fancyvrb.sty'       => 'texlive-fancyvrb',
  57         'float.sty'          => 'texlive-float',
  58         'fncychap.sty'       => 'texlive-fncychap',
  59         'footnote.sty'       => 'texlive-mdwtools',
  60         'framed.sty'         => 'texlive-framed',
  61         'luatex85.sty'       => 'texlive-luatex85',
  62         'multirow.sty'       => 'texlive-multirow',
  63         'needspace.sty'      => 'texlive-needspace',
  64         'palatino.sty'       => 'texlive-psnfss',
  65         'parskip.sty'        => 'texlive-parskip',
  66         'polyglossia.sty'    => 'texlive-polyglossia',
  67         'tabulary.sty'       => 'texlive-tabulary',
  68         'threeparttable.sty' => 'texlive-threeparttable',
  69         'titlesec.sty'       => 'texlive-titlesec',
  70         'ucs.sty'            => 'texlive-ucs',
  71         'upquote.sty'        => 'texlive-upquote',
  72         'wrapfig.sty'        => 'texlive-wrapfig',
  73 );
  74
  75 #
  76 # Subroutines that checks if a feature exists
  77 #
  78
  79 sub check_missing(%)
  80 {
  81         my %map = %{$_[0]};
  82
  83         foreach my $prog (sort keys %missing) {
  84                 my $is_optional = $missing{$prog};
  85
  86                 # At least on some LTS distros like CentOS 7, texlive doesn't
  87                 # provide all packages we need. When such distros are
  88                 # detected, we have to disable PDF output.
  89                 #
  90                 # So, we need to ignore the packages that distros would
  91                 # need for LaTeX to work
  92                 if ($is_optional == 2 && !$pdf) {
  93                         $optional--;
  94                         next;
  95                 }
  96
  97                 if ($is_optional) {
  98                         print "Warning: better to also install \"$prog\".\n";
  99                 } else {
 100                         print "ERROR: please install \"$prog\", otherwise, build won't work.\n";
 101                 }
 102                 if (defined($map{$prog})) {
 103                         $install .= " " . $map{$prog};
 104                 } else {
 105                         $install .= " " . $prog;
 106                 }
 107         }
 108
 109         $install =~ s/^\s//;
 110 }
 111
 112 sub add_package($$)
 113 {
 114         my $package = shift;
 115         my $is_optional = shift;
 116
 117         $missing{$package} = $is_optional;
 118         if ($is_optional) {
 119                 $optional++;
 120         } else {
 121                 $need++;
 122         }
 123 }
 124
 125 sub check_missing_file($$$)
 126 {
 127         my $files = shift;
 128         my $package = shift;
 129         my $is_optional = shift;
 130
 131         for (@$files) {
 132                 return if(-e $_);
 133         }
 134
 135         add_package($package, $is_optional);
 136 }
 137
 138 sub findprog($)
 139 {
 140         foreach(split(/:/, $ENV{PATH})) {
 141                 return "$_/$_[0]" if(-x "$_/$_[0]");
 142         }
 143 }
 144
 145 sub check_program($$)
 146 {
 147         my $prog = shift;
 148         my $is_optional = shift;
 149
 150         return if findprog($prog);
 151
 152         add_package($prog, $is_optional);
 153 }
 154
 155 sub check_perl_module($$)
 156 {
 157         my $prog = shift;
 158         my $is_optional = shift;
 159
 160         my $err = system("perl -M$prog -e 1 2>/dev/null /dev/null");
 161         return if ($err == 0);
 162
 163         add_package($prog, $is_optional);
 164 }
 165
 166 sub check_python_module($$)
 167 {
 168         my $prog = shift;
 169         my $is_optional = shift;
 170
 171         my $err = system("python3 -c 'import $prog' 2>/dev/null /dev/null");
 172         return if ($err == 0);
 173         my $err = system("python -c 'import $prog' 2>/dev/null /dev/null");
 174         return if ($err == 0);
 175
 176         add_package($prog, $is_optional);
 177 }
 178
 179 sub check_rpm_missing($$)
 180 {
 181         my @pkgs = @{$_[0]};
 182         my $is_optional = $_[1];
 183
 184         foreach my $prog(@pkgs) {
 185                 my $err = system("rpm -q '$prog' 2>/dev/null >/dev/null");
 186                 add_package($prog, $is_optional) if ($err);
 187         }
 188 }
 189
 190 sub check_pacman_missing($$)
 191 {
 192         my @pkgs = @{$_[0]};
 193         my $is_optional = $_[1];
 194
 195         foreach my $prog(@pkgs) {
 196                 my $err = system("pacman -Q '$prog' 2>/dev/null >/dev/null");
 197                 add_package($prog, $is_optional) if ($err);
 198         }
 199 }
 200
 201 sub check_missing_tex($)
 202 {
 203         my $is_optional = shift;
 204         my $kpsewhich = findprog("kpsewhich");
 205
 206         foreach my $prog(keys %texlive) {
 207                 my $package = $texlive{$prog};
 208                 if (!$kpsewhich) {
 209                         add_package($package, $is_optional);
 210                         next;
 211                 }
 212                 my $file = qx($kpsewhich $prog);
 213                 add_package($package, $is_optional) if ($file =~ /^\s*$/);
 214         }
 215 }
 216
 217 sub get_sphinx_fname()
 218 {
 219         my $fname = "sphinx-build";
 220         return $fname if findprog($fname);
 221
 222         $fname = "sphinx-build-3";
 223         if (findprog($fname)) {
 224                 $need_symlink = 1;
 225                 return $fname;
 226         }
 227
 228         if ($virtualenv) {
 229                 my $prog = findprog("virtualenv-3");
 230                 $prog = findprog("virtualenv-3.5") if (!$prog);
 231
 232                 check_program("virtualenv", 0) if (!$prog);
 233                 $need_sphinx = 1;
 234         } else {
 235                 add_package("python-sphinx", 0);
 236         }
 237
 238         return "";
 239 }
 240
 241 sub check_sphinx()
 242 {
 243         my $rec_version;
 244         my $cur_version;
 245
 246         open IN, $conf or die "Can't open $conf";
 247         while (<IN>) {
 248                 if (m/^\s*needs_sphinx\s*=\s*[\'\"]([\d\.]+)[\'\"]/) {
 249                         $min_version=$1;
 250                         last;
 251                 }
 252         }
 253         close IN;
 254
 255         die "Can't get needs_sphinx version from $conf" if (!$min_version);
 256
 257         open IN, $requirement_file or die "Can't open $requirement_file";
 258         while (<IN>) {
 259                 if (m/^\s*Sphinx\s*==\s*([\d\.]+)$/) {
 260                         $rec_version=$1;
 261                         last;
 262                 }
 263         }
 264         close IN;
 265
 266         die "Can't get recommended sphinx version from $requirement_file" if (!$min_version);
 267
 268         $virtenv_dir = $virtenv_prefix . $rec_version;
 269
 270         my $sphinx = get_sphinx_fname();
 271         return if ($sphinx eq "");
 272
 273         open IN, "$sphinx --version 2>&1 |" or die "$sphinx returned an error";
 274         while (<IN>) {
 275                 if (m/^\s*sphinx-build\s+([\d\.]+)$/) {
 276                         $cur_version=$1;
 277                         last;
 278                 }
 279                 # Sphinx 1.2.x uses a different format
 280                 if (m/^\s*Sphinx.*\s+([\d\.]+)$/) {
 281                         $cur_version=$1;
 282                         last;
 283                 }
 284         }
 285         close IN;
 286
 287         die "$sphinx didn't return its version" if (!$cur_version);
 288
 289         if ($cur_version lt $min_version) {
 290                 printf "ERROR: Sphinx version is %s. It should be >= %s (recommended >= %s)\n",
 291                        $cur_version, $min_version, $rec_version;;
 292                 $need_sphinx = 1;
 293                 return;
 294         }
 295
 296         if ($cur_version lt $rec_version) {
 297                 printf "Sphinx version %s\n", $cur_version;
 298                 print "Warning: It is recommended at least Sphinx version $rec_version.\n";
 299                 $rec_sphinx_upgrade = 1;
 300                 return;
 301         }
 302
 303         # On version check mode, just assume Sphinx has all mandatory deps
 304         exit (0) if ($version_check);
 305 }
 306
 307 #
 308 # Ancillary subroutines
 309 #
 310
 311 sub catcheck($)
 312 {
 313   my $res = "";
 314   $res = qx(cat $_[0]) if (-r $_[0]);
 315   return $res;
 316 }
 317
 318 sub which($)
 319 {
 320         my $file = shift;
 321         my @path = split ":", $ENV{PATH};
 322
 323         foreach my $dir(@path) {
 324                 my $name = $dir.'/'.$file;
 325                 return $name if (-x $name );
 326         }
 327         return undef;
 328 }
 329
 330 #
 331 # Subroutines that check distro-specific hints
 332 #
 333
 334 sub give_debian_hints()
 335 {
 336         my %map = (
 337                 "python-sphinx"         => "python3-sphinx",
 338                 "sphinx_rtd_theme"      => "python3-sphinx-rtd-theme",
 339                 "virtualenv"            => "virtualenv",
 340                 "dot"                   => "graphviz",
 341                 "convert"               => "imagemagick",
 342                 "Pod::Usage"            => "perl-modules",
 343                 "xelatex"               => "texlive-xetex",
 344                 "rsvg-convert"          => "librsvg2-bin",
 345         );
 346
 347         if ($pdf) {
 348                 check_missing_file(["/usr/share/fonts/truetype/dejavu/DejaVuSans.ttf"],
 349                                    "fonts-dejavu", 2);
 350
 351                 check_missing_file(["/usr/share/fonts/noto-cjk/NotoSansCJK-Regular.ttc"],
 352                                    "fonts-noto-cjk", 2);
 353         }
 354
 355         check_program("dvipng", 2) if ($pdf);
 356         check_missing(\%map);
 357
 358         return if (!$need && !$optional);
 359         printf("You should run:\n\n\tsudo apt-get install $install\n");
 360 }
 361
 362 sub give_redhat_hints()
 363 {
 364         my %map = (
 365                 "python-sphinx"         => "python3-sphinx",
 366                 "sphinx_rtd_theme"      => "python3-sphinx_rtd_theme",
 367                 "virtualenv"            => "python3-virtualenv",
 368                 "dot"                   => "graphviz",
 369                 "convert"               => "ImageMagick",
 370                 "Pod::Usage"            => "perl-Pod-Usage",
 371                 "xelatex"               => "texlive-xetex-bin",
 372                 "rsvg-convert"          => "librsvg2-tools",
 373         );
 374
 375         my @fedora26_opt_pkgs = (
 376                 "graphviz-gd",          # Fedora 26: needed for PDF support
 377         );
 378
 379         my @fedora_tex_pkgs = (
 380                 "texlive-collection-fontsrecommended",
 381                 "texlive-collection-latex",
 382                 "texlive-xecjk",
 383                 "dejavu-sans-fonts",
 384                 "dejavu-serif-fonts",
 385                 "dejavu-sans-mono-fonts",
 386         );
 387
 388         #
 389         # Checks valid for RHEL/CentOS version 7.x.
 390         #
 391         my $old = 0;
 392         my $rel;
 393         $rel = $1 if ($system_release =~ /release\s+(\d+)/);
 394
 395         if (!($system_release =~ /Fedora/)) {
 396                 $map{"virtualenv"} = "python-virtualenv";
 397
 398                 if ($rel && $rel < 8) {
 399                         $old = 1;
 400                         $pdf = 0;
 401
 402                         printf("Note: texlive packages on RHEL/CENTOS <= 7 are incomplete. Can't support PDF output\n");
 403                         printf("If you want to build PDF, please read:\n");
 404                         printf("\thttps://www.systutorials.com/241660/how-to-install-tex-live-on-centos-7-linux/\n");
 405                 }
 406         } else {
 407                 if ($rel && $rel < 26) {
 408                         $old = 1;
 409                 }
 410         }
 411         if (!$rel) {
 412                 printf("Couldn't identify release number\n");
 413                 $old = 1;
 414                 $pdf = 0;
 415         }
 416
 417         if ($pdf) {
 418                 check_missing_file(["/usr/share/fonts/google-noto-cjk/NotoSansCJK-Regular.ttc"],
 419                                    "google-noto-sans-cjk-ttc-fonts", 2);
 420         }
 421
 422         check_rpm_missing(\@fedora26_opt_pkgs, 2) if ($pdf && !$old);
 423         check_rpm_missing(\@fedora_tex_pkgs, 2) if ($pdf);
 424         check_missing_tex(2) if ($pdf);
 425         check_missing(\%map);
 426
 427         return if (!$need && !$optional);
 428
 429         if (!$old) {
 430                 # dnf, for Fedora 18+
 431                 printf("You should run:\n\n\tsudo dnf install -y $install\n");
 432         } else {
 433                 # yum, for RHEL (and clones) or Fedora version < 18
 434                 printf("You should run:\n\n\tsudo yum install -y $install\n");
 435         }
 436 }
 437
 438 sub give_opensuse_hints()
 439 {
 440         my %map = (
 441                 "python-sphinx"         => "python3-sphinx",
 442                 "sphinx_rtd_theme"      => "python3-sphinx_rtd_theme",
 443                 "virtualenv"            => "python3-virtualenv",
 444                 "dot"                   => "graphviz",
 445                 "convert"               => "ImageMagick",
 446                 "Pod::Usage"            => "perl-Pod-Usage",
 447                 "xelatex"               => "texlive-xetex-bin",
 448                 "rsvg-convert"          => "rsvg-view",
 449         );
 450
 451         my @suse_tex_pkgs = (
 452                 "texlive-babel-english",
 453                 "texlive-caption",
 454                 "texlive-colortbl",
 455                 "texlive-courier",
 456                 "texlive-dvips",
 457                 "texlive-helvetic",
 458                 "texlive-makeindex",
 459                 "texlive-metafont",
 460                 "texlive-metapost",
 461                 "texlive-palatino",
 462                 "texlive-preview",
 463                 "texlive-times",
 464                 "texlive-zapfchan",
 465                 "texlive-zapfding",
 466         );
 467
 468         $map{"latexmk"} = "texlive-latexmk-bin";
 469
 470         # FIXME: add support for installing CJK fonts
 471         #
 472         # I tried hard, but was unable to find a way to install
 473         # "Noto Sans CJK SC" on openSUSE
 474
 475         check_rpm_missing(\@suse_tex_pkgs, 2) if ($pdf);
 476         check_missing_tex(2) if ($pdf);
 477         check_missing(\%map);
 478
 479         return if (!$need && !$optional);
 480         printf("You should run:\n\n\tsudo zypper install --no-recommends $install\n");
 481 }
 482
 483 sub give_mageia_hints()
 484 {
 485         my %map = (
 486                 "python-sphinx"         => "python3-sphinx",
 487                 "sphinx_rtd_theme"      => "python3-sphinx_rtd_theme",
 488                 "virtualenv"            => "python3-virtualenv",
 489                 "dot"                   => "graphviz",
 490                 "convert"               => "ImageMagick",
 491                 "Pod::Usage"            => "perl-Pod-Usage",
 492                 "xelatex"               => "texlive",
 493                 "rsvg-convert"          => "librsvg2-tools",
 494         );
 495
 496         my @tex_pkgs = (
 497                 "texlive-fontsextra",
 498         );
 499
 500         $map{"latexmk"} = "texlive-collection-basic";
 501
 502         if ($pdf) {
 503                 check_missing_file(["/usr/share/fonts/google-noto-cjk/NotoSansCJK-Regular.ttc"],
 504                                    "google-noto-sans-cjk-ttc-fonts", 2);
 505         }
 506
 507         check_rpm_missing(\@tex_pkgs, 2) if ($pdf);
 508         check_missing(\%map);
 509
 510         return if (!$need && !$optional);
 511         printf("You should run:\n\n\tsudo urpmi $install\n");
 512 }
 513
 514 sub give_arch_linux_hints()
 515 {
 516         my %map = (
 517                 "sphinx_rtd_theme"      => "python-sphinx_rtd_theme",
 518                 "virtualenv"            => "python-virtualenv",
 519                 "dot"                   => "graphviz",
 520                 "convert"               => "imagemagick",
 521                 "xelatex"               => "texlive-bin",
 522                 "rsvg-convert"          => "extra/librsvg",
 523         );
 524
 525         my @archlinux_tex_pkgs = (
 526                 "texlive-core",
 527                 "texlive-latexextra",
 528                 "ttf-dejavu",
 529         );
 530         check_pacman_missing(\@archlinux_tex_pkgs, 2) if ($pdf);
 531
 532         if ($pdf) {
 533                 check_missing_file(["/usr/share/fonts/noto-cjk/NotoSansCJK-Regular.ttc"],
 534                                    "noto-fonts-cjk", 2);
 535         }
 536
 537         check_missing(\%map);
 538
 539         return if (!$need && !$optional);
 540         printf("You should run:\n\n\tsudo pacman -S $install\n");
 541 }
 542
 543 sub give_gentoo_hints()
 544 {
 545         my %map = (
 546                 "sphinx_rtd_theme"      => "dev-python/sphinx_rtd_theme",
 547                 "virtualenv"            => "dev-python/virtualenv",
 548                 "dot"                   => "media-gfx/graphviz",
 549                 "convert"               => "media-gfx/imagemagick",
 550                 "xelatex"               => "dev-texlive/texlive-xetex media-fonts/dejavu",
 551                 "rsvg-convert"          => "gnome-base/librsvg",
 552         );
 553
 554         check_missing_file(["/usr/share/fonts/dejavu/DejaVuSans.ttf"],
 555                            "media-fonts/dejavu", 2) if ($pdf);
 556
 557         if ($pdf) {
 558                 check_missing_file(["/usr/share/fonts/noto-cjk/NotoSansCJKsc-Regular.otf"],
 559                                    "media-fonts/noto-cjk", 2);
 560         }
 561
 562         check_missing(\%map);
 563
 564         return if (!$need && !$optional);
 565
 566         printf("You should run:\n\n");
 567
 568         my $imagemagick = "media-gfx/imagemagick svg png";
 569         my $cairo = "media-gfx/graphviz cairo pdf";
 570         my $portage_imagemagick = "/etc/portage/package.use/imagemagick";
 571         my $portage_cairo = "/etc/portage/package.use/graphviz";
 572
 573         if (qx(cat $portage_imagemagick) ne "$imagemagick\n") {
 574                 printf("\tsudo su -c 'echo \"$imagemagick\" > $portage_imagemagick'\n")
 575         }
 576         if (qx(cat $portage_cairo) ne  "$cairo\n") {
 577                 printf("\tsudo su -c 'echo \"$cairo\" > $portage_cairo'\n");
 578         }
 579
 580         printf("\tsudo emerge --ask $install\n");
 581
 582 }
 583
 584 sub check_distros()
 585 {
 586         # Distro-specific hints
 587         if ($system_release =~ /Red Hat Enterprise Linux/) {
 588                 give_redhat_hints;
 589                 return;
 590         }
 591         if ($system_release =~ /CentOS/) {
 592                 give_redhat_hints;
 593                 return;
 594         }
 595         if ($system_release =~ /Scientific Linux/) {
 596                 give_redhat_hints;
 597                 return;
 598         }
 599         if ($system_release =~ /Oracle Linux Server/) {
 600                 give_redhat_hints;
 601                 return;
 602         }
 603         if ($system_release =~ /Fedora/) {
 604                 give_redhat_hints;
 605                 return;
 606         }
 607         if ($system_release =~ /Ubuntu/) {
 608                 give_debian_hints;
 609                 return;
 610         }
 611         if ($system_release =~ /Debian/) {
 612                 give_debian_hints;
 613                 return;
 614         }
 615         if ($system_release =~ /openSUSE/) {
 616                 give_opensuse_hints;
 617                 return;
 618         }
 619         if ($system_release =~ /Mageia/) {
 620                 give_mageia_hints;
 621                 return;
 622         }
 623         if ($system_release =~ /Arch Linux/) {
 624                 give_arch_linux_hints;
 625                 return;
 626         }
 627         if ($system_release =~ /Gentoo/) {
 628                 give_gentoo_hints;
 629                 return;
 630         }
 631
 632         #
 633         # Fall-back to generic hint code for other distros
 634         # That's far from ideal, specially for LaTeX dependencies.
 635         #
 636         my %map = (
 637                 "sphinx-build" => "sphinx"
 638         );
 639         check_missing_tex(2) if ($pdf);
 640         check_missing(\%map);
 641         print "I don't know distro $system_release.\n";
 642         print "So, I can't provide you a hint with the install procedure.\n";
 643         print "There are likely missing dependencies.\n";
 644 }
 645
 646 #
 647 # Common dependencies
 648 #
 649
 650 sub deactivate_help()
 651 {
 652         printf "\tIf you want to exit the virtualenv, you can use:\n";
 653         printf "\tdeactivate\n";
 654 }
 655
 656 sub check_needs()
 657 {
 658         # Check for needed programs/tools
 659         check_sphinx();
 660
 661         if ($system_release) {
 662                 print "Detected OS: $system_release.\n\n";
 663         } else {
 664                 print "Unknown OS\n\n";
 665         }
 666
 667         print "To upgrade Sphinx, use:\n\n" if ($rec_sphinx_upgrade);
 668
 669         # Check for needed programs/tools
 670         check_perl_module("Pod::Usage", 0);
 671         check_program("make", 0);
 672         check_program("gcc", 0);
 673         check_python_module("sphinx_rtd_theme", 1) if (!$virtualenv);
 674         check_program("dot", 1);
 675         check_program("convert", 1);
 676
 677         # Extra PDF files - should use 2 for is_optional
 678         check_program("xelatex", 2) if ($pdf);
 679         check_program("rsvg-convert", 2) if ($pdf);
 680         check_program("latexmk", 2) if ($pdf);
 681
 682         check_distros();
 683
 684         if ($need_symlink) {
 685                 printf "\tsudo ln -sf %s /usr/bin/sphinx-build\n\n",
 686                        which("sphinx-build-3");
 687         }
 688         if ($need_sphinx || $rec_sphinx_upgrade) {
 689                 my $min_activate = "$ENV{'PWD'}/${virtenv_prefix}${min_version}/bin/activate";
 690                 my @activates = glob "$ENV{'PWD'}/${virtenv_prefix}*/bin/activate";
 691
 692                 @activates = sort {$b cmp $a} @activates;
 693
 694                 if ($need_sphinx && scalar @activates > 0 && $activates[0] ge $min_activate) {
 695                         printf "\nNeed to activate a compatible Sphinx version on virtualenv with:\n";
 696                         printf "\t. $activates[0]\n";
 697                         deactivate_help();
 698                         exit (1);
 699                 } else {
 700                         my $rec_activate = "$virtenv_dir/bin/activate";
 701                         my $virtualenv = findprog("virtualenv-3");
 702                         $virtualenv = findprog("virtualenv-3.5") if (!$virtualenv);
 703                         $virtualenv = findprog("virtualenv") if (!$virtualenv);
 704                         $virtualenv = "virtualenv" if (!$virtualenv);
 705
 706                         printf "\t$virtualenv $virtenv_dir\n";
 707                         printf "\t. $rec_activate\n";
 708                         printf "\tpip install -r $requirement_file\n";
 709                         deactivate_help();
 710
 711                         $need++ if (!$rec_sphinx_upgrade);
 712                 }
 713         }
 714         printf "\n";
 715
 716         print "All optional dependencies are met.\n" if (!$optional);
 717
 718         if ($need == 1) {
 719                 die "Can't build as $need mandatory dependency is missing";
 720         } elsif ($need) {
 721                 die "Can't build as $need mandatory dependencies are missing";
 722         }
 723
 724         print "Needed package dependencies are met.\n";
 725 }
 726
 727 #
 728 # Main
 729 #
 730
 731 while (@ARGV) {
 732         my $arg = shift(@ARGV);
 733
 734         if ($arg eq "--no-virtualenv") {
 735                 $virtualenv = 0;
 736         } elsif ($arg eq "--no-pdf"){
 737                 $pdf = 0;
 738         } elsif ($arg eq "--version-check"){
 739                 $version_check = 1;
 740         } else {
 741                 print "Usage:\n\t$0 <--no-virtualenv> <--no-pdf> <--version-check>\n\n";
 742                 print "Where:\n";
 743                 print "\t--no-virtualenv\t- Recommend installing Sphinx instead of using a virtualenv\n";
 744                 print "\t--version-check\t- if version is compatible, don't check for missing dependencies\n";
 745                 print "\t--no-pdf\t- don't check for dependencies required to build PDF docs\n\n";
 746                 exit -1;
 747         }
 748 }
 749
 750 #
 751 # Determine the system type. There's no standard unique way that would
 752 # work with all distros with a minimal package install. So, several
 753 # methods are used here.
 754 #
 755 # By default, it will use lsb_release function. If not available, it will
 756 # fail back to reading the known different places where the distro name
 757 # is stored
 758 #
 759
 760 $system_release = qx(lsb_release -d) if which("lsb_release");
 761 $system_release =~ s/Description:\s*// if ($system_release);
 762 $system_release = catcheck("/etc/system-release") if !$system_release;
 763 $system_release = catcheck("/etc/redhat-release") if !$system_release;
 764 $system_release = catcheck("/etc/lsb-release") if !$system_release;
 765 $system_release = catcheck("/etc/gentoo-release") if !$system_release;
 766 $system_release = catcheck("/etc/issue") if !$system_release;
 767 $system_release =~ s/\s+$//;
 768
 769 check_needs;