ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/clientfile.pm
(Generate patch)

Comparing COMP/SCRAM/src/clientfile.pm (file contents):
Revision 1.2 by williamc, Mon Mar 1 11:01:42 1999 UTC vs.
Revision 1.4 by williamc, Thu Mar 18 10:32:03 1999 UTC

# Line 12 | Line 12 | $scramdir="$ENV{INTwork}/SCRAM";
12   $Arch=1;
13   push @ARCHBLOCK, $Arch;
14  
15 < sub BuildClientFile($projectfile) {
15 > sub BuildClientFile {
16          my $projectfile=shift;
17          my $archdir=".SCRAM/$ENV{SCRAM_ARCH}";
18          my $clientfile="$archdir/clientsettings";
19          use Utilities::AddDir;
20          use ToolBox;
21  
22 <        adddir($archdir);
22 >        AddDir::adddir($archdir);
23          initialiseclient($clientfile) or return; # get out if it already exists
24          $toolbox=ToolBox->new();
25          open ( CLIENT, ">$ENV{LOCALTOP}/$clientfile" ) ||
26                  die "clientfile: Cannot open clientsettings file "
27                          ."$clientfile $!\n";
28 +        open ( CLIENT2, ">$ENV{LOCALTOP}/".$clientfile."_reqs" ) ||
29 +                die "clientfile: Cannot open clientsettings file "
30 +                        ."$clientfile $!\n";
31          open (INSTALLLOG, ">$archdir/installation_log")
32                          || die "clientfile: Cannot open log file $!\n";
33          print CLIENT "# Machine Generated File - do not edit\n";
34          _ParseProjectReqs($projectfile);
35          close INSTALLLOG;
36          close CLIENT;
37 +        close CLIENT2;
38   }
39  
40 < sub _ParseProjectReqs($reqfile) {
40 > sub _ParseProjectReqs {
41          my $reqfile=shift;
42          use Utilities::Switcher;
43  
# Line 70 | Line 74 | sub Require_start {
74   #
75   #---------------------------------------------------------------------------
76  
77 < sub _gettool($toolurl) {
77 > sub _gettool {
78   # set the $toolfile variable
79          my $toolurl=shift;
80          my @toolpath= split /:/, $ENV{SCRAM_BootStrapFiles};
# Line 117 | Line 121 | sub _tool {
121                  'System' => \&system_body,
122                  'Splice' => 'none',
123                  'Splice_starttag' => \&splice_start,
120 –                'INCLUDE' => 'none' ,
121 –                'INCLUDE_StartTag' => \&_dirchecktest ,
122 –                'LIBDIR_StartTag' => \&_dirchecktest ,
123 –                'LIBDIR' => 'none',
124                  'Client' => 'none',
125                  'LIB' => 'none',
126                  'LIB_StartTag' => \&lib_start,
# Line 129 | Line 129 | sub _tool {
129                  'Architecture' => 'none',
130                  'Function' => 'none',
131                  'Function_StartTag' => \&Function_start,
132 <                'Function_EndTag' => \&Function_end
132 >                'Function_EndTag' => \&Function_end,
133 >                'External' => 'none',
134 >                'External_StartTag' => \&External_client,
135            };
136                 # 'INCLUDE_StartTag' => \&INCLUDE_start ,
137  
# Line 145 | Line 147 | sub _tool {
147   # multiple defaults can be specified > colon seperated
148   #
149  
150 + sub External_client {
151 +        my $name=shift;
152 +        my @vars=@_;
153 +        my $hashref;
154 +
155 +        $hashref=$toolswitch->SetupValueHash( \@vars );
156 +        $toolswitch->checkparam( $hashref, $name, 'ref' );
157 +        print CLIENT2 <<ENDTEXT;
158 + ifdef $toolname
159 + $$hashref{ref}=true\n";
160 + endif
161 + ENDTEXT
162 + }
163 +
164   sub Arch_Start {
165          my $name=shift;
166          my @vars=@_;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines