trick/libexec/trick/sie_concat

#!/usr/bin/perl
package sie_concat;

use File::Basename ;
use FindBin qw($RealBin);
use lib "$RealBin/pm" ;
use get_paths ;

my @trick_python_paths = get_paths( "TRICK_PYTHON_PATH") ;

open(my $S_sie_resource, ">", "./S_sie.resource")
	or die "cannot open S_sie.resource $!";
print $S_sie_resource "<?xml version=\"1.0\"?>\n\n<sie>\n\n";


open(my $classes_resource, "<", "build/classes.resource")
	or die "cannot open build/classes.resource";
while(my $line = <$classes_resource>) {
	print $S_sie_resource $line;
}

close($classes_resource);

# Add trickified classes.resource if available
foreach my $path ( @trick_python_paths ) {
	my $trickified_dir = dirname($path);
	if (open(my $classes_resource, "<", "$trickified_dir/build/classes.resource")) {
		while(my $line = <$classes_resource>) {
			print $S_sie_resource $line;
		}
		close($classes_resource);
	}
}

open(my $top_level_objects_resource, "<", "build/top_level_objects.resource")
	or die "cannot open build/top_level_objects.resource";
while(my $line = <$top_level_objects_resource>) {
	print $S_sie_resource $line;
}

close($top_level_objects_resource);

my $sim_services_resource;
open($sim_services_resource, "<", "$ENV{TRICK_HOME}/share/trick/xml/sim_services_classes.resource")
    or open($sim_services_resource, "<", "$ENV{TRICK_HOME}/temp_src/io_src/sim_services_classes.resource")
	or die "cannot open sim_services_classes.resource";

while(my $line = <$sim_services_resource>) {
	print $S_sie_resource $line;
}

close($sim_services_resource);
print $S_sie_resource "<!--\nRuntime Allocations\nDo not edit this comment or file content past this point\n-->\n";
print $S_sie_resource "</sie>";
close($S_sie_resource);