File: mkartemis.PL

package info (click to toggle)
horae 071~svn536-1
  • links: PTS
  • area: contrib
  • in suites: wheezy
  • size: 12,996 kB
  • sloc: perl: 67,215; lisp: 744; sh: 78; makefile: 76; ansic: 35
file content (17 lines) | stat: -rwxr-xr-x 583 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
use Fatal qw(open close);
my $mode = 0755;

## ----- build ARTEMIS
(-e "bin/artemis") and unlink "bin/artemis";
open my $TO, ">bin/artemis";
foreach my $p (qw(top head main_window gds2 feff atoms2 path file athena firstshell
		  data palettes fit plot zip project record macro mru
		  prefs log logview feffit rc misc)) {
  open my $FROM, "artemis_parts/$p.pl";
  foreach my $line (<$FROM>) { print $TO $line };
  close $FROM
};
close $TO;
print "===> Assembled bin/artemis from its parts (artemis_parts/) and wrote to bin/artemis.\n";
chmod $mode, 'bin/artemis';