]>
Commit | Line | Data |
---|---|---|
70eaea82 | 1 | #!/usr/bin/perl |
676fb573 | 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 | } |