moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-12 05:10:28 -05:00
Code Issues Releases Wiki Activity

Added define IS_INCLUDE to included files (may be useful for SRL).

Browse Source
This commit is contained in:
Niels 2010-05-13 12:14:33 +02:00
parent 10488dd0f8
commit 7f7d95a497
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/MMLAddon/mmlpsthread.pas
View File

@ -371,7 +371,7 @@ procedure TMThread.HandleError(ErrorRow,ErrorCol, ErrorPosition: integer; ErrorS
begin begin
if OnError = nil then if OnError = nil then
exit; exit;
ErrorData^.Row:= ErrorRow; ErrorData^.Row:= ErrorRow - 1;
ErrorData^.Col := ErrorCol; ErrorData^.Col := ErrorCol;
ErrorData^.Position:= ErrorPosition; ErrorData^.Position:= ErrorPosition;
ErrorData^.Error:= ErrorStr; ErrorData^.Error:= ErrorStr;
@ -650,7 +650,9 @@ end;
function TPSThread.RequireFile(Sender: TObject; function TPSThread.RequireFile(Sender: TObject;
const OriginFileName: String; var FileName, OutPut: string): Boolean; const OriginFileName: String; var FileName, OutPut: string): Boolean;
begin begin
result:= LoadFile(OriginFileName,FileName,OutPut); Result:= LoadFile(OriginFileName,FileName,OutPut);
if Result then
Output := '{$DEFINE IS_INCLUDE}'+LineEnding+Output+LineEnding+'{$UNDEF IS_INCLUDE}';
end; end;
procedure SIRegister_Mufasa(cl: TPSPascalCompiler); procedure SIRegister_Mufasa(cl: TPSPascalCompiler);
@ -1026,7 +1028,7 @@ end;
procedure TPSThread.SetScript(script: string); procedure TPSThread.SetScript(script: string);
begin begin
PSScript.Script.Text:= Script; PSScript.Script.Text:= LineEnding+Script; //A LineEnding to create space for future extra's in first line (defines?)
end; end;
{***implementation TCPThread***} {***implementation TCPThread***}