[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.1 - (view) (download) (as text)

1 : olson 1.1
2 :     #
3 :     # MacPython appears to want this for pythonw use.
4 :     #
5 :    
6 :     use FileHandle;
7 :    
8 :     my $osx_dir = "$ENV{HOME}/.MacOSX";
9 :    
10 :     if (! -d $osx_dir)
11 :     {
12 :     mkdir($osx_dir);
13 :     }
14 :    
15 :     my $plist = "$osx_dir/environment.plist";
16 :    
17 :     if (-f $plist)
18 :     {
19 :     #
20 :     # One already exists, try making a backup if there's not one already.
21 :     #
22 :    
23 :     my $bak = "$plist.bak";
24 :    
25 :     if (! -f $bak)
26 :     {
27 :     rename($plist, $bak);
28 :     }
29 :     }
30 :    
31 :     $fh = new FileHandle(">$plist");
32 :    
33 :     my $path = $OtherConfig->{pythonpath};
34 :    
35 :     print $fh <<EOF;
36 :     <?xml version="1.0" encoding="UTF-8"?>
37 :     <!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
38 :     <plist version="1.0">
39 :     <dict>
40 :     <key>DISPLAY</key>
41 :     <string>:0.0</string>
42 :     <key>PYTHONPATH</key>
43 :     <string>$path</string>
44 :     </dict>
45 :     </plist>
46 :     EOF
47 :    
48 :     $fh->close();
49 :    
50 :     #
51 :     # The Mac SEED always uses postgres. Load the postgres intiialization
52 :     # code.
53 :     #
54 :    
55 :     #
56 :     # First, determine physical memory size and shmmax parameters.
57 :     #
58 :    
59 :     sub get_sysctl
60 :     {
61 :     my($var) = @_;
62 :     my $sysctl = find_in_path("sysctl", "/sbin", "/usr/sbin");
63 :    
64 :     if (! -x $sysctl)
65 :     {
66 :     return undef;
67 :     }
68 :    
69 :     my $out = `$sysctl $var`;
70 :     chomp($out);
71 :     my @a = split(/\s+/, $out);
72 :    
73 :     return $a[1];
74 :     }
75 :    
76 :     $OtherConfig->{memory} = get_sysctl("hw.memsize");
77 :     $OtherConfig->{shmmax} = get_sysctl("kern.sysv.shmmax");
78 :    
79 :     $pg_script = "$ENV{FIGCONFIG_RELEASE_DIR}/FigCommon/envsub.postgres.pl";
80 :    
81 :     run_script($pg_script);
82 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3