AliGeant4/config/doc_g4sorthtml.pl

   1 #!/usr/bin/perl
   2 # $Id$
   3 # Ivana Hrivnacova 15.2.00
   4 #
   5 # This script defines the class categories
   6 # and calls doc_alcategory.pl to generate
   7 # the html category pages
   8
   9 print "Generating html pages for class categories\n";
  10
  11 # main categories list
  12 $G4SOURCE = $ENV{'G4INSTALL'} . "/source";
  13 chdir $G4SOURCE;
  14 @DIRLIST = `ls`;
  15
  16 # categories
  17 foreach $DIR (@DIRLIST) {
  18   chop $DIR;
  19   # exclude unwanted subdirectories/files
  20   if ($DIR ne "GNUmakefile" && $DIR ne "History" && $DIR ne "nohup.out") {
  21     # subcategories are considered only in one level
  22     $DIRPATH = $G4SOURCE . "/" . $DIR;
  23     chdir $DIRPATH;
  24
  25     # test if subcategories are present
  26     @INCLUDE = `find . -name "include"`;
  27     $FIRSTINCLUDE = @INCLUDE[0];
  28     chop $FIRSTINCLUDE;
  29     if ($FIRSTINCLUDE eq "./include") {
  30       @CATLIST = ".";
  31     }
  32     else {
  33       @CATLIST = `ls`;
  34     }
  35
  36     # process subcategories
  37     foreach $CAT (@CATLIST) {
  38       chop $CAT;
  39       # exclude other subdirectories
  40       if ($CAT ne "GNUmakefile" && $CAT ne "History" && $CAT ne "nohup.out") {
  41         print "Processing category: " . $CAT . " of " . $DIR . "\n";
  42         if ($CAT eq ".") {
  43           $CATDIRPATH = $DIRPATH;
  44           $CATNAME = $DIR;
  45         }
  46         else {
  47           $CATDIRPATH = $DIRPATH . "/" . $CAT;
  48           $CATNAME = $DIR . "_" . $CAT;
  49         }
  50
  51         # generate the category pages
  52         system $ENV{'AG4_INSTALL'} . "/config/doc_g4category.pl " . $CATDIRPATH . " " . $CATNAME;
  53       }
  54     }
  55   }
  56 }