sbsv1_os/e32toolp/platform/ide_vc6.pm
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
equal deleted inserted replaced
62:7416fe50a180 73:22bdd8a90cc4
    49 			PMStartSrc
    49 			PMStartSrc
    50 			PMSrcDepend
    50 			PMSrcDepend
    51 	PMEndSrcList
    51 	PMEndSrcList
    52 );
    52 );
    53 
    53 
    54 use strict;
       
    55 use Winutl;
    54 use Winutl;
    56 use Pathutl;
    55 use Pathutl;
    57 
    56 
    58 sub PMHelp_Mmp {
    57 sub PMHelp_Mmp {
    59 # get the windows help from WINUTL
    58 # get the windows help from WINUTL
   192 			"\n",
   191 			"\n",
   193 			"MAKEWORKLIBRARY : \"${LibPath}UDEB\"\n",
   192 			"MAKEWORKLIBRARY : \"${LibPath}UDEB\"\n",
   194 			"\n",
   193 			"\n",
   195 			"\"${LibPath}UDEB\" :\n"
   194 			"\"${LibPath}UDEB\" :\n"
   196 		);
   195 		);
   197 		$SupText.="\t\@perl -w -S emkdir.pl \"${LibPath}UDEB\"\n\n\n";
   196 		$SupText.="\t\@perl -S emkdir.pl \"${LibPath}UDEB\"\n\n\n";
   198 	}
   197 	}
   199 
   198 
   200 
   199 
   201 
   200 
   202 	&main::Output(
   201 	&main::Output(
   886 			);
   885 			);
   887 		}
   886 		}
   888 
   887 
   889 #		call makedef to reorder the export information
   888 #		call makedef to reorder the export information
   890 #		call perl on the script here so nmake will die if there are errors - this doesn't happen if calling perl in a batch file
   889 #		call perl on the script here so nmake will die if there are errors - this doesn't happen if calling perl in a batch file
   891 		$SupText.="\tperl -w -S makedef.pl $AbsentSubst -Inffile \"\$(EPOCBLD$Bld)\\$ExportLibrary.inf\"";
   890 		$SupText.="\tperl -S makedef.pl $AbsentSubst -Inffile \"\$(EPOCBLD$Bld)\\$ExportLibrary.inf\"";
   892 		if (-e $DefFile) { # effectively "if project frozen ..."
   891 		if (-e $DefFile) { # effectively "if project frozen ..."
   893 			$SupText.=" -Frzfile \"$DefFile\"";
   892 			$SupText.=" -Frzfile \"$DefFile\"";
   894 		}
   893 		}
   895 		# freeze ordinals, a maximum of 2, for polymorphic dlls
   894 		# freeze ordinals, a maximum of 2, for polymorphic dlls
   896 		my $Ordinal;
   895 		my $Ordinal;
  1086 # 			change because if a .RSC file is output then VC5 tries to link it to the main target as a Win32 resource file
  1085 # 			change because if a .RSC file is output then VC5 tries to link it to the main target as a Win32 resource file
  1087 			if ($Lang eq 'SC') {
  1086 			if ($Lang eq 'SC') {
  1088 				$SupText.="\techo this is a dummy output file > \"$ResrcTrgFullName$Lang.dummy\"\n";
  1087 				$SupText.="\techo this is a dummy output file > \"$ResrcTrgFullName$Lang.dummy\"\n";
  1089 			}
  1088 			}
  1090 			$SupText.=join('',
  1089 			$SupText.=join('',
  1091 				"\tperl -w -S ecopyfile.pl \"$SrcPath$BaseResrc.rs~\" \"$ResrcHdr\"\n",
  1090 				"\tperl -S ecopyfile.pl \"$SrcPath$BaseResrc.rs~\" \"$ResrcHdr\"\n",
  1092 				"\tdel \"$SrcPath$BaseResrc.rs~\"\n",
  1091 				"\tdel \"$SrcPath$BaseResrc.rs~\"\n",
  1093 				"\n"
  1092 				"\n"
  1094 			);
  1093 			);
  1095 		}
  1094 		}
  1096 
  1095 
  1212 #	reload the workspace.
  1211 #	reload the workspace.
  1213 	$SupText.=join('',
  1212 	$SupText.=join('',
  1214 		"\n",
  1213 		"\n",
  1215 		"RECREATEWORKSPACE :\n",
  1214 		"RECREATEWORKSPACE :\n",
  1216 		'	cd ', &main::Path_Chop(&main::Path_WorkPath), "\n",
  1215 		'	cd ', &main::Path_Chop(&main::Path_WorkPath), "\n",
  1217 		'	perl -w -S makmake.pl -D ', &main::MmpFile, ' ', &main::PlatName, "\n",
  1216 		'	perl -S makmake.pl -D ', &main::MmpFile, ' ', &main::PlatName, "\n",
  1218 		"\n"
  1217 		"\n"
  1219 	);
  1218 	);
  1220 
  1219 
  1221 #	Create the supplementary makefile
  1220 #	Create the supplementary makefile
  1222 	
  1221