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

Annotation of /FigCommon/tool_hdr.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : olson 1.1 #
2 :     # Create a new fig script.
3 :     #
4 :    
5 :     open(FH, "<$FIG_Config::fig_disk/config/fig-user-env.sh");
6 :     while (<FH>)
7 :     {
8 :     chomp;
9 :     if (/^RTARCH=\"(.*)\"/)
10 :     {
11 :     $arch = $1;
12 :     last;
13 :     }
14 :     }
15 :    
16 :     if (!$arch)
17 :     {
18 :     die "Couldn't determine FIG architecture name\n";
19 :     }
20 :    
21 :     $file = "$FIG_Config::fig_disk/dist/releases/current/$arch/tool_hdr";
22 :    
23 :     open(FH, "<$file") or die "Cannot open tool_hdr file $file: $!\n";
24 :    
25 :     if (@ARGV == 0)
26 :     {
27 :     while (<FH>)
28 :     {
29 :     print;
30 :     }
31 :     close(FH);
32 :     }
33 :     else
34 :     {
35 :     $out = $ARGV[0];
36 :     open(OUT, ">$out") or die "Cannot open output $out: $!\n";
37 :     while (<FH>)
38 :     {
39 :     print OUT $_;
40 :     }
41 :     close(FH);
42 :     close(OUT);
43 :     system("chmod +x $out");
44 :     }
45 :    
46 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3