method StartRootUI() corrected
[u/mrichter/AliRoot.git] / AliGeant4 / config / make_source.pl
1 #!/usr/local/bin/perl
2 # $Id$
3 # by I. Hrivnacova, 22.6. 2000
4 #
5 # This script creates source directory structured
6 # according subcategories with links to the flat
7 # source structure.
8   
9 # main categories (packages)
10 @DIRLIST = "TGeant4";
11 @DIRLIST = (@DIRLIST,"AliGeant4");
12
13 # subcategories
14 @CATLIST = "global";
15 @CATLIST = (@CATLIST,"geometry");
16 @CATLIST = (@CATLIST,"physics");
17 @CATLIST = (@CATLIST,"event");
18 @CATLIST = (@CATLIST,"run");
19 @CATLIST = (@CATLIST,"visualization");
20
21 # create source dir structure
22 for( $i = 0 ; $i < $#DIRLIST+1 ; $i++ ) {
23   $DIR = @DIRLIST[$i];
24   $NAME = @NAMELIST[$i];
25   $DIRPATH = $ENV{'AG4_INSTALL'} . "/../" . $DIR;
26   chdir $DIRPATH;
27   if (! grep(/source/, `ls`)) {
28     `mkdir source ` ;
29     foreach $CAT (@CATLIST) {
30        $CATDIRPATH = "source" . "/" . $CAT;
31        $INCLUDEPATH = $CATDIRPATH . "/" . "include";
32        $SRCPATH = $CATDIRPATH . "/" . "src";
33        `mkdir $CATDIRPATH` ;
34        `mkdir $INCLUDEPATH` ;
35        `mkdir $SRCPATH` ;
36     }    
37     print $DIR . "/source directory has been created." . "\n";
38   }
39 }  
40
41 # link source files
42 for( $i = 0 ; $i < $#DIRLIST+1 ; $i++ ) {
43   $DIR = @DIRLIST[$i];
44   $NAME = @NAMELIST[$i];
45   $DIRPATH = $ENV{'AG4_INSTALL'} . "/../" . $DIR;
46   $RELDIRPATH = "../../..";
47
48   foreach $CAT (@CATLIST) {
49     chdir $DIRPATH;
50
51     $CATSTRING = "\"Category: " . $CAT . "\"";
52     @FILELIST_H   = `find . -maxdepth 1 -name \"*.h\" -exec grep -l  $CATSTRING  {} \\;`;
53     @FILELIST_ICC = `find . -maxdepth 1 -name \"*.icc\" -exec grep -l  $CATSTRING  {} \\;`;
54     @FILELIST_CXX = `find . -maxdepth 1 -name \"*.cxx\" -exec grep -l  $CATSTRING  {} \\;`;
55
56     print "Processing category: " . $CAT . "\n"; 
57     $CATDIRPATH = "source" . "/" . $CAT;
58     $INCLUDEPATH = $CATDIRPATH . "/" . "include";
59     $SRCPATH = $CATDIRPATH . "/" . "src";
60     $CVSBASE  = $DIRPATH . "/CVS";
61  
62     chdir $DIRPATH . "/" . $INCLUDEPATH;
63     `ln -s $CVSBASE "CVS" `;
64     foreach $FILEPATH (@FILELIST_H) { 
65       @TEMP = split('/',$FILEPATH);
66       $FILE = @TEMP[@TEMP - 1];
67       chop $FILE;
68       print "   Linking file " . $FILE . "\n";
69       $FILEBASE = $RELDIRPATH . "/" . $FILE;
70       `ln -s $FILEBASE $FILE`;
71     }
72
73     foreach $FILEPATH (@FILELIST_ICC) { 
74       @TEMP = split('/',$FILEPATH);
75       $FILE = @TEMP[@TEMP - 1];
76       chop $FILE;
77       print "   Linking file " . $FILE . "\n";
78       $FILEBASE = $RELDIRPATH . "/" . $FILE;
79       `ln -s $FILEBASE $FILE`;
80     }
81
82     chdir $DIRPATH . "/" . $SRCPATH;
83     `ln -s $CVSBASE "CVS" `;
84     foreach $FILEPATH (@FILELIST_CXX) { 
85       @TEMP = split('/',$FILEPATH);
86       $FILE = @TEMP[@TEMP - 1];
87       chop $FILE;
88       print "   Linking file " . $FILE . " in " . $SRCPATH . "\n";
89       $FILEBASE = $RELDIRPATH . "/" . $FILE;
90       `ln -s $FILEBASE $FILE`;
91     }
92   }
93 }