ExternalVendorCode/trick
1
0
Fork 0
mirror of https://github.com/nasa/trick.git synced 2025-04-07 19:34:23 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

separate perl generated top level objects from icg generated class information #1127 (#1161)

Browse Source 
closes #1127 
Co-authored-by: Fennell, Scott P 263712616 <scott.p.fennell@nasa.gov>
This commit is contained in:
Scott Fennell 2021-06-14 13:50:32 -05:00 committed by GitHub
parent ac159c3edc
commit d6bdd35f5e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libexec/trick/pm/s_source.pm
View File

@ -17,7 +17,7 @@ sub s_source($) {
# Generate S_source.c
open S_SOURCE, ">build/S_source.cpp" or die "Couldn't open build/S_source.cpp!\n";
open S_SOURCE_H, ">S_source.hh" or die "Couldn't open S_source.hh!\n";
open CLASSES_RESOURCE, ">build/classes.resource" or die "Couldn't open classes.resource!";
open TOP_LEVEL_OBJECTS_RESOURCE, ">build/top_level_objects.resource" or die "Couldn't open top_level_objects.resource!";
# Get Trick version
my ($version, $thread) = get_trick_version() ;
@ -211,7 +211,7 @@ PURPOSE:
print S_SOURCE " " x 4 , "if ( (ai = get_alloc_info_at(&$inst)) != NULL ) {\n" ;
print S_SOURCE " " x 8 , "ai->alloced_in_memory_init = 1 ;\n" ;
print S_SOURCE " " x 4 , "}\n" ;
print CLASSES_RESOURCE " \<top_level_object\n name=\"$inst\"\n type=\"$temp_type\"\n alloc_memory_init=\"1\"\>\n \</top_level_object\>\n\n";
print TOP_LEVEL_OBJECTS_RESOURCE " \<top_level_object\n name=\"$inst\"\n type=\"$temp_type\"\n alloc_memory_init=\"1\"\>\n \</top_level_object\>\n\n";
}
@ -222,9 +222,9 @@ PURPOSE:
print S_SOURCE " " x 4 , "if ( (ai = get_alloc_info_at(&$$integ_loop{name})) != NULL ) {\n" ;
print S_SOURCE " " x 8 , "ai->alloced_in_memory_init = 1 ;\n" ;
print S_SOURCE " " x 4 , "}\n" ;
print CLASSES_RESOURCE " \<top_level_object\n name=\"$$integ_loop{name}\"\n type=\"IntegLoopSimObject\"\n alloc_memory_init=\"1\"\>\n \</top_level_object\>\n\n";
print TOP_LEVEL_OBJECTS_RESOURCE " \<top_level_object\n name=\"$$integ_loop{name}\"\n type=\"IntegLoopSimObject\"\n alloc_memory_init=\"1\"\>\n \</top_level_object\>\n\n";
}
close CLASSES_RESOURCE ;
close TOP_LEVEL_OBJECTS_RESOURCE ;
print S_SOURCE "\n" ;
print S_SOURCE $$sim_ref{create_connections} ;

10
libexec/trick/sie_concat
View File

@ -11,7 +11,17 @@ open(my $classes_resource, "<", "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")