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

Annotation of /FigCommon/tool_hdr.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (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 : olson 1.2
37 :     if (-f $out)
38 :     {
39 :     #
40 :     # Better would be to replace the existing tool_hdr, if present,
41 :     # with the right thing. But not yet.
42 :     #
43 :    
44 :     die "Output file $out already exists, not overwriting.\n";
45 :     }
46 :    
47 :    
48 : olson 1.1 open(OUT, ">$out") or die "Cannot open output $out: $!\n";
49 :     while (<FH>)
50 :     {
51 :     print OUT $_;
52 :     }
53 :     close(FH);
54 :     close(OUT);
55 :     system("chmod +x $out");
56 :     }
57 :    
58 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3