@@ -92,37 +92,27 @@ sub pre_workspace {
9292 my $ghs_os_dir = defined $ENV {GHS_OS_DIR } ? $ENV {GHS_OS_DIR } : ' C:\ghs\int1146' ;
9393 my $ghs_bsp_name = defined $ENV {GHS_BSP_NAME } ? $ENV {GHS_BSP_NAME } : " sim800" ;
9494
95- # # Require that ACE_ROOT and TAO_ROOT environment variables are set.
96- my $ace_root = $ENV {ACE_ROOT };
97- my $tao_root = $ENV {TAO_ROOT };
98-
9995 # # Print out the preliminary information
10096 print $fh " #!gbuild$crlf " ,
97+ " import ACE_ROOT$crlf " ,
98+ " import TAO_ROOT$crlf " ,
10199 " macro __OS_DIR=$ghs_os_dir$crlf " ,
102100 " macro __BSP_NAME=$ghs_bsp_name$crlf " ,
103101 " macro __BSP_DIR=\$ {__OS_DIR}\\\$ {__BSP_NAME}$crlf " ,
104- " macro ACE_ROOT=$ace_root$crlf " ,
105102 " macro __BUILD_DIR=\$ {ACE_ROOT}\\ build$crlf " ,
106- # "macro __BUILD_DIR=%expand_path(.)\\build$crlf",
107- " macro TAO_ROOT=$tao_root$crlf " ,
108103 " macro __LIBS_DIR_BASE=\$ {__OS_DIR}\\ libs$crlf " ,
109104 " primaryTarget=$tgt$crlf " ,
110105 " customization=\$ {__OS_DIR}\\ target\\ integrity.bod$crlf " ,
111106 " [Project]$crlf " ,
112- " \t #Trick ACE to proceed with C++11; we're not actually using C++14!$crlf " ,
113- " \t -DACE_HAS_CPP14$crlf " ,
114107 " \t -gcc$crlf " ,
115108 " \t --c++11$crlf " ,
116- # "\t--libcxx$crlf",
117109 " \t :sourceDir=.$crlf " ,
118110 " \t :optionsFile=\$ {__OS_DIR}\\ target\\\$ {__BSP_NAME}.opt$crlf " ,
119- " \t -I\$ {ACE_ROOT}$crlf " ,
111+ " \t -I\$ {ACE_ROOT}$crlf " ,
120112 " \t -I\$ {TAO_ROOT}$crlf " ,
121- # "\t-I$ace_root$crlf",
122- # "\t-I$tao_root$crlf",
123- " \t -language=cxx$crlf " ,
124- " \t --new_style_casts$crlf " ,
125- " \t -non_shared$crlf " ;
113+ " \t -language=cxx$crlf " ,
114+ " \t --new_style_casts$crlf " ,
115+ " \t -non_shared$crlf " ;
126116}
127117
128118# Write a .int file processed by the Integrate tool to create a dynamic download image.
@@ -140,14 +130,16 @@ sub create_integrity_project {
140130 my $fh = new FileHandle();
141131 my $int_file = $int_proj ;
142132 $int_file =~ s /\. gpj$/ .int/ ;
133+ my $int_file_base = $self -> mpc_basename($int_file );
134+ my $project_base = $self -> mpc_basename($project );
143135
144136 my $int_proj_path = is_absolute_path($int_proj ) ? $int_proj : " $outdir /$int_proj " ;
145137 if (open ($fh , " >$int_proj_path " )) {
146138 # # First print out the project file
147139 print $fh " #!gbuild$crlf " ,
148140 " \t $integrity$crlf " ,
149- " $project \t\t $type$crlf " ,
150- " $int_file $crlf " ;
141+ " $project_base \t\t $type$crlf " ,
142+ " $int_file_base $crlf " ;
151143 foreach my $bsp (@integ_bsps ) {
152144 print $fh " $bsp$crlf " ;
153145 }
0 commit comments