moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

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

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