Explorar o código

synch-isfiles.bat: avoid duplicating the three manually edited text files since it leads to mistakingly editing the duplicate. Instead pick up the files from their source dir on DEBUG. Now on correct branch and with .gitignore update.

Martijn Laan hai 3 meses
pai
achega
d79a45e937

+ 0 - 3
Projects/Bin/.gitignore

@@ -4,8 +4,5 @@
 *.issig
 *.issig
 Setup-*.bin
 Setup-*.bin
 Setup.log
 Setup.log
-Default.isl
-ISPPBuiltins.iss
-whatsnew.htm
 *.chm
 *.chm
 *.chw
 *.chw

+ 8 - 7
Projects/Bin/synch-isfiles.bat

@@ -4,8 +4,6 @@ cd /d %~dp0
 
 
 echo - Synching files from Files to Projects\Bin
 echo - Synching files from Files to Projects\Bin
 
 
-copy ..\..\Files\Default.isl
-copy ..\..\Files\ISPPBuiltins.iss
 copy ..\..\Files\is7z*.dll
 copy ..\..\Files\is7z*.dll
 copy ..\..\Files\is7z*.dll.issig
 copy ..\..\Files\is7z*.dll.issig
 copy ..\..\Files\is*zip.dll
 copy ..\..\Files\is*zip.dll
@@ -21,12 +19,15 @@ copy ..\..\Files\islzma*.exe.issig
 copy ..\..\Files\ISetup.chm
 copy ..\..\Files\ISetup.chm
 copy ..\..\Files\ISetup-dark.chm
 copy ..\..\Files\ISetup-dark.chm
 copy ..\..\Files\WizClassicSmallImage.bmp
 copy ..\..\Files\WizClassicSmallImage.bmp
-copy ..\..\whatsnew.htm
 
 
-del *.exp
-del *.lib
-del *.pdb
-del *.bsc
+if exist Default.isl (del Default.isl)
+if exist ISPPBuiltins.iss (del ISPPBuiltins.iss)
+if exist whatsnew.htm (del whatsnew.htm)
+
+if exist *.exp (del *.exp)
+if exist *.lib (del *.lib)
+if exist *.pdb (del *.pdb)
+if exist *.bsc (del *.bsc)
 
 
 echo - Synching files done
 echo - Synching files done
 
 

+ 7 - 3
Projects/Src/Compiler.SetupCompiler.pas

@@ -6098,12 +6098,16 @@ begin
   end;
   end;
 end;
 end;
 
 
+
+const
+  DefaultIsl = {$IFDEF DEBUG} 'compiler:..\..\Files\Default.isl' {$ELSE} 'Default.isl' {$ENDIF};
+
 procedure TSetupCompiler.ReadDefaultMessages;
 procedure TSetupCompiler.ReadDefaultMessages;
 var
 var
   J: TSetupMessageID;
   J: TSetupMessageID;
 begin
 begin
   { Read messages from Default.isl into DefaultLangData }
   { Read messages from Default.isl into DefaultLangData }
-  EnumIniSection(EnumMessagesProc, 'Messages', -2, False, True, 'compiler:Default.isl', True, False);
+  EnumIniSection(EnumMessagesProc, 'Messages', -2, False, True, DefaultIsl, True, False);
   CallIdleProc;
   CallIdleProc;
 
 
   { Check for missing messages in Default.isl }
   { Check for missing messages in Default.isl }
@@ -6131,7 +6135,7 @@ procedure TSetupCompiler.ReadMessagesFromScriptPre;
     end;
     end;
     PreLangDataList.Add(NewPreLangData);
     PreLangDataList.Add(NewPreLangData);
 
 
-    ReadMessagesFromFilesPre('compiler:Default.isl', PreLangDataList.Count-1);
+    ReadMessagesFromFilesPre(DefaultIsl, PreLangDataList.Count-1);
   end;
   end;
 
 
 begin
 begin
@@ -6170,7 +6174,7 @@ procedure TSetupCompiler.ReadMessagesFromScript;
     LanguageEntries.Add(NewLanguageEntry);
     LanguageEntries.Add(NewLanguageEntry);
     LangDataList.Add(NewLangData);
     LangDataList.Add(NewLangData);
 
 
-    ReadMessagesFromFiles('compiler:Default.isl', LanguageEntries.Count-1);
+    ReadMessagesFromFiles(DefaultIsl, LanguageEntries.Count-1);
   end;
   end;
 
 
   function IsOptional(const MessageID: TSetupMessageID): Boolean;
   function IsOptional(const MessageID: TSetupMessageID): Boolean;

+ 1 - 1
Projects/Src/IDE.MainForm.pas

@@ -3504,7 +3504,7 @@ end;
 
 
 procedure TMainForm.HWhatsNewClick(Sender: TObject);
 procedure TMainForm.HWhatsNewClick(Sender: TObject);
 begin
 begin
-  LaunchFileOrURL(PathExtractPath(NewParamStr(0)) + 'whatsnew.htm');
+  LaunchFileOrURL(PathExtractPath(NewParamStr(0)) + {$IFDEF DEBUG} '..\..\' + {$ENDIF} 'whatsnew.htm');
 end;
 end;
 
 
 procedure TMainForm.HWebsiteClick(Sender: TObject);
 procedure TMainForm.HWebsiteClick(Sender: TObject);

+ 1 - 1
Projects/Src/ISPP.Preprocess.pas

@@ -191,7 +191,7 @@ var
     end;
     end;
 
 
   const
   const
-    SBuiltins = 'ISPPBuiltins.iss';
+    SBuiltins = {$IFDEF DEBUG} '..\..\Files\ISPPBuiltins.iss' {$ELSE} 'ISPPBuiltins.iss' {$ENDIF};
   var
   var
     DelimPos: PChar;
     DelimPos: PChar;
     N: Integer;
     N: Integer;