@@ -92,37 +92,27 @@ sub pre_workspace {
92
92
my $ghs_os_dir = defined $ENV {GHS_OS_DIR } ? $ENV {GHS_OS_DIR } : ' C:\ghs\int1146' ;
93
93
my $ghs_bsp_name = defined $ENV {GHS_BSP_NAME } ? $ENV {GHS_BSP_NAME } : " sim800" ;
94
94
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
-
99
95
# # Print out the preliminary information
100
96
print $fh " #!gbuild$crlf " ,
97
+ " import ACE_ROOT$crlf " ,
98
+ " import TAO_ROOT$crlf " ,
101
99
" macro __OS_DIR=$ghs_os_dir$crlf " ,
102
100
" macro __BSP_NAME=$ghs_bsp_name$crlf " ,
103
101
" macro __BSP_DIR=\$ {__OS_DIR}\\\$ {__BSP_NAME}$crlf " ,
104
- " macro ACE_ROOT=$ace_root$crlf " ,
105
102
" macro __BUILD_DIR=\$ {ACE_ROOT}\\ build$crlf " ,
106
- # "macro __BUILD_DIR=%expand_path(.)\\build$crlf",
107
- " macro TAO_ROOT=$tao_root$crlf " ,
108
103
" macro __LIBS_DIR_BASE=\$ {__OS_DIR}\\ libs$crlf " ,
109
104
" primaryTarget=$tgt$crlf " ,
110
105
" customization=\$ {__OS_DIR}\\ target\\ integrity.bod$crlf " ,
111
106
" [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 " ,
114
107
" \t -gcc$crlf " ,
115
108
" \t --c++11$crlf " ,
116
- # "\t--libcxx$crlf",
117
109
" \t :sourceDir=.$crlf " ,
118
110
" \t :optionsFile=\$ {__OS_DIR}\\ target\\\$ {__BSP_NAME}.opt$crlf " ,
119
- " \t -I\$ {ACE_ROOT}$crlf " ,
111
+ " \t -I\$ {ACE_ROOT}$crlf " ,
120
112
" \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 " ;
126
116
}
127
117
128
118
# Write a .int file processed by the Integrate tool to create a dynamic download image.
@@ -140,14 +130,16 @@ sub create_integrity_project {
140
130
my $fh = new FileHandle();
141
131
my $int_file = $int_proj ;
142
132
$int_file =~ s /\. gpj$/ .int/ ;
133
+ my $int_file_base = $self -> mpc_basename($int_file );
134
+ my $project_base = $self -> mpc_basename($project );
143
135
144
136
my $int_proj_path = is_absolute_path($int_proj ) ? $int_proj : " $outdir /$int_proj " ;
145
137
if (open ($fh , " >$int_proj_path " )) {
146
138
# # First print out the project file
147
139
print $fh " #!gbuild$crlf " ,
148
140
" \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 " ;
151
143
foreach my $bsp (@integ_bsps ) {
152
144
print $fh " $bsp$crlf " ;
153
145
}
0 commit comments