ExternalVendorCode/trick
1
0
Fork 0
mirror of https://github.com/nasa/trick.git synced 2024-12-20 05:37:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

#1098 fix instantiation perl bug in sie_concat (#1100)

Browse Source 
Co-authored-by: Fennell, Scott P 263712616 <scott.p.fennell@nasa.gov>
This commit is contained in:
Scott Fennell 2021-01-27 17:05:28 -06:00 committed by GitHub
parent 7f045f0d72
commit 540eebe368
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libexec/trick/sie_concat
View File

@ -12,14 +12,15 @@ while(my $line = <$classes_resource>) {
print $S_sie_resource $line; print $S_sie_resource $line;
} }
close($classes_resource); close($classes_resource);
my $sim_services_resource;
open(my $sim_services_resource, "<", "$ENV{TRICK_HOME}/share/trick/xml/sim_services_classes.resource") open($sim_services_resource, "<", "$ENV{TRICK_HOME}/share/trick/xml/sim_services_classes.resource")
or open(my $sim_services_resource, "<", "$ENV{TRICK_HOME}/temp_src/io_src/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"; or die "cannot open sim_services_classes.resource";
while(my $line = <$sim_services_resource>) { while(my $line = <$sim_services_resource>) {
print $S_sie_resource $line; print $S_sie_resource $line;
} }
close($sim_services_resource); 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 "<!--\nRuntime Allocations\nDo not edit this comment or file content past this point\n-->\n";
print $S_sie_resource "</sie>"; print $S_sie_resource "</sie>";