[Bio] / FigCommon / env.mac-tiger.pl Repository:
ViewVC logotype

Annotation of /FigCommon/env.mac-tiger.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (view) (download) (as text)

1 : olson 1.2 #
2 :     # Copyright (c) 2003-2006 University of Chicago and Fellowship
3 :     # for Interpretations of Genomes. All Rights Reserved.
4 :     #
5 :     # This file is part of the SEED Toolkit.
6 :     #
7 :     # The SEED Toolkit is free software. You can redistribute
8 :     # it and/or modify it under the terms of the SEED Toolkit
9 :     # Public License.
10 :     #
11 :     # You should have received a copy of the SEED Toolkit Public License
12 :     # along with this program; if not write to the University of Chicago
13 :     # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14 :     # Genomes at veronika@thefig.info or download a copy from
15 :     # http://www.theseed.org/LICENSE.TXT.
16 :     #
17 :    
18 : olson 1.1
19 :     #
20 :     # MacPython appears to want this for pythonw use.
21 :     #
22 :    
23 :     use FileHandle;
24 :    
25 :     my $osx_dir = "$ENV{HOME}/.MacOSX";
26 :    
27 :     if (! -d $osx_dir)
28 :     {
29 :     mkdir($osx_dir);
30 :     }
31 :    
32 :     my $plist = "$osx_dir/environment.plist";
33 :    
34 :     if (-f $plist)
35 :     {
36 :     #
37 :     # One already exists, try making a backup if there's not one already.
38 :     #
39 :    
40 :     my $bak = "$plist.bak";
41 :    
42 :     if (! -f $bak)
43 :     {
44 :     rename($plist, $bak);
45 :     }
46 :     }
47 :    
48 :     $fh = new FileHandle(">$plist");
49 :    
50 :     my $path = $OtherConfig->{pythonpath};
51 :    
52 :     print $fh <<EOF;
53 :     <?xml version="1.0" encoding="UTF-8"?>
54 :     <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
55 :     <plist version="1.0">
56 :     <dict>
57 :     <key>DISPLAY</key>
58 :     <string>:0.0</string>
59 :     <key>PYTHONPATH</key>
60 :     <string>$path</string>
61 :     </dict>
62 :     </plist>
63 :     EOF
64 :    
65 :     $fh->close();
66 :    
67 :     #
68 :     # The Mac SEED always uses postgres. Load the postgres intiialization
69 :     # code.
70 :     #
71 :    
72 :     #
73 :     # First, determine physical memory size and shmmax parameters.
74 :     #
75 :    
76 :     sub get_sysctl
77 :     {
78 :     my($var) = @_;
79 :     my $sysctl = find_in_path("sysctl", "/sbin", "/usr/sbin");
80 :    
81 :     if (! -x $sysctl)
82 :     {
83 :     return undef;
84 :     }
85 :    
86 :     my $out = `$sysctl $var`;
87 :     chomp($out);
88 :     my @a = split(/\s+/, $out);
89 :    
90 :     return $a[1];
91 :     }
92 :    
93 :     $OtherConfig->{memory} = get_sysctl("hw.memsize");
94 :     $OtherConfig->{shmmax} = get_sysctl("kern.sysv.shmmax");
95 :    
96 :     $pg_script = "$ENV{FIGCONFIG_RELEASE_DIR}/FigCommon/envsub.postgres.pl";
97 :    
98 :     run_script($pg_script);
99 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3