[Bio] / FigCommon / bootstrap.pl Repository:
ViewVC logotype

Diff of /FigCommon/bootstrap.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10, Thu Apr 1 12:59:40 2004 UTC revision 1.22, Wed May 4 21:42:50 2005 UTC
# Line 131  Line 131 
131    
132      my $fig = "$fig_disk/FIG";      my $fig = "$fig_disk/FIG";
133      my $data = "$fig/Data";      my $data = "$fig/Data";
134        my $sproutData = "$fig/SproutData";
135    
136      my $hostname = `hostname`;      my $hostname = `hostname`;
137      chomp $hostname;      chomp $hostname;
# Line 140  Line 141 
141      push(@$Config, ["fig", $fig, 1]);      push(@$Config, ["fig", $fig, 1]);
142      push(@$Config, ["bin", $fig_bin, 1]);      push(@$Config, ["bin", $fig_bin, 1]);
143      push(@$Config, ["ext_bin", $env_bin, 1]);      push(@$Config, ["ext_bin", $env_bin, 1]);
144        push(@$Config, ["common_runtime", $env_dir, 1]);
145        push(@$Config, ["arch", $ENV{FIGCONFIG_ENV}, 1]);
146        push(@$Config, ["var", "$fig/var", 1]);
147      push(@$Config, ["data", $data, 1]);      push(@$Config, ["data", $data, 1]);
148      push(@$Config, ["global", "$data/Global", 1]);      push(@$Config, ["global", "$data/Global", 1]);
149      push(@$Config, ["organisms", "$data/Organisms", 1]);      push(@$Config, ["organisms", "$data/Organisms", 1]);
150      push(@$Config, ["RC", "$fig_disk/FIG/ResolutionCenter", 1]);      push(@$Config, ["RC", "$fig_disk/FIG/ResolutionCenter", 1]);
151      push(@$Config, ["NR", "$fig_disk/FIG/NR", 1]);      push(@$Config, ["NR", "$fig_disk/FIG/NR", 1]);
152      push(@$Config, ["temp", "$fig_disk/FIG/Tmp", 1]);      push(@$Config, ["temp", "$fig_disk/FIG/Tmp", 1]);
153      push(@$Config, ["temp_url", "http://$hostname/FIG-Tmp", 1]);      push(@$Config, ["sproutData", $sproutData, 1]);
154      push(@$Config, ["cgi_url", "http://$hostname/FIG", 1]);  
155        my $sandbox;
156        if ($ENV{FIGCONFIG_SANDBOX})
157        {
158            $sandbox = "/$ENV{FIGCONFIG_SANDBOX}";
159        }
160    
161        push(@$Config, ["temp_url", "http://$hostname$sandbox/FIG-Tmp", 1]);
162        push(@$Config, ["cgi_url", "http://$hostname$sandbox/FIG", 1]);
163    
164      #      #
165      # Add values for a relative base href of temp and CGI pages.  The latter      # Add values for a relative base href of temp and CGI pages.  The latter
# Line 155  Line 167 
167      # sense to derive the above 2 values from these.  -- GJO      # sense to derive the above 2 values from these.  -- GJO
168      #      #
169    
170      push(@$Config, ["temp_base", "/FIG-Tmp/", 1]);      push(@$Config, ["temp_base", "$sandbox/FIG-Tmp/", 1]);
171      push(@$Config, ["cgi_base", "/FIG/", 1]);      push(@$Config, ["cgi_base", "$sandbox/FIG/", 1]);
172  }  }
173    
174  sub compute_environment  sub compute_environment
# Line 188  Line 200 
200      push(@$Env, ["PATH", join(":", @path), 1]);      push(@$Env, ["PATH", join(":", @path), 1]);
201    
202      push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]);      push(@$Env, ["LD_LIBRARY_PATH", "${env_lib}", 1]);
203    
204        my @perllib = grep({ $_ ne "." } @INC, "$fig_disk/config", $release_lib,
205                          "$release_lib/FigKernelPackages");
206    
207        push(@$Env, ["PERL5LIB", join(":", @perllib), 1]);
208  }  }
209    
210  sub configure_python  sub configure_python
# Line 247  Line 264 
264      #      #
265      # Special case for the mac.      # Special case for the mac.
266      #      #
267        # RDO 20040603 - don't do this any more; we want to pick up
268        # the python we ship.
269        #
270    
271      if ($ENV{FIGCONFIG_ENV} eq "mac")      if (0 && $ENV{FIGCONFIG_ENV} eq "mac")
272      {      {
273          #          #
274          # We'd like to use the MacPython that is installed          # We'd like to use the MacPython that is installed
# Line 272  Line 292 
292      $python = "$ENV{FIGCONFIG_ENV_DIR}/bin/python";      $python = "$ENV{FIGCONFIG_ENV_DIR}/bin/python";
293      if (-x $python)      if (-x $python)
294      {      {
295            #
296            # The mac doesn't seem to like the long #! lines, so we'll use poundbang env.
297            #
298            if ($ENV{FIGCONFIG_ENV} =~ /^mac/)
299            {
300                $OtherConfig->{python_require_poundbang_env} = 1;
301            }
302          return $python;          return $python;
303      }      }
304    
# Line 324  Line 351 
351              print $fh "export $name\n";              print $fh "export $name\n";
352          }          }
353      }      }
354        print $fh "alias rtpath='source \$RTDIST/releases/\$RTCURRENT/ReleaseTools/RTPath.sh'\n";
355  }  }
356    
357  sub write_csh_init  sub write_csh_init
# Line 354  Line 382 
382          }          }
383      }      }
384    
385        #
386        # Alias for RT stuff.
387        #
388        print $fh "alias rtpath 'source \$RTDIST/releases/\$RTCURRENT/ReleaseTools/RTPath.csh'\n";
389  }  }
390    
391  sub run_script  sub run_script
# Line 534  Line 566 
566    
567      print $fh "use FIG_Config;\n";      print $fh "use FIG_Config;\n";
568      print $fh "\n";      print $fh "\n";
569        print $fh "#### END tool_hdr ####\n\n"
570  }  }
571    
572  sub write_tool_hdr_python  sub write_tool_hdr_python
# Line 552  Line 585 
585      }      }
586      print $fh "\n";      print $fh "\n";
587    
588      print $fh "import sys\n";      print $fh "import sys, os\n";
589    
590    
591      print $fh "sys.path.append('$OtherConfig->{python_site_path}')\n";      print $fh "sys.path.append('$OtherConfig->{python_site_path}')\n";
592    
593        #
594        # Append the perl path to the environment, for use later with CallPerl.
595        #
596    
597        my $perlpath = join(":", @INC, "$fig_disk/config", $release_lib, "$release_lib/FigKernelPackages");
598        print $fh <<END;
599    if os.getenv("PERL5LIB", "") != "":
600        _delim = ":"
601    else:
602        _delim = ""
603    os.environ["PERL5LIB"] = "$perlpath" + _delim + os.getenv("PERL5LIB", "")
604    
605    END
606    
607      print $fh "# Following block is expanded by switch_to_release to add use lib directives\n";      print $fh "# Following block is expanded by switch_to_release to add use lib directives\n";
608      print $fh "# to point at the correct locations in the release directory.\n";      print $fh "# to point at the correct locations in the release directory.\n";
609      print $fh "#BEGIN switch_to_release generated code\n";      print $fh "#BEGIN switch_to_release generated code\n";
# Line 567  Line 614 
614    
615      print $fh "import FIG_Config\n";      print $fh "import FIG_Config\n";
616      print $fh "\n";      print $fh "\n";
617        print $fh "#### END tool_hdr_py ####\n\n"
618  }  }
619    
620  setup_directories("$fig_disk/bin",  setup_directories("$fig_disk/bin",
# Line 581  Line 629 
629  configure_std_fig_environment();  configure_std_fig_environment();
630  configure_python();  configure_python();
631  configure_environment_specific();  configure_environment_specific();
632    # configure_database();
633    
634  finalize_server_scripts();  finalize_server_scripts();
635    
# Line 623  Line 672 
672    
673  require FigCommon::SwitchRelease;  require FigCommon::SwitchRelease;
674    
675    #
676    # We need to tweak the current path and PERL5LIB environment to get bootstrapping to
677    # work correctly.
678    #
679    
680    $ENV{PATH} = "$ENV{FIGCONFIG_ENVDIR}/bin:$ENV{PATH}";
681    
682    $ENV{PERL5LIB} = (map { $_->[1] } grep { $_->[0] eq "PERL5LIB"} @$Env)[0];
683    
684  &FigCommon::SwitchRelease::switch_to_release($fig_disk, $ENV{FIGCONFIG_ENV}, $ENV{FIGCONFIG_RELEASE});  &FigCommon::SwitchRelease::switch_to_release($fig_disk, $ENV{FIGCONFIG_ENV}, $ENV{FIGCONFIG_RELEASE});

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3