moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-27 19:42:22 -05:00
Code Issues Releases Wiki Activity

TLPThread Update

Browse Source 
- Init Result to False in OnHandleDirective.
	- Override lape _writeln, Now adds to Debug memo.
This commit is contained in:
John P (Dgby714) 2011-07-07 12:22:51 -04:00
parent ad2e3ca3c3
commit b83a277502
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Units/MMLAddon/mmlpsthread.pas
View File

@ -1233,6 +1233,11 @@ type
PMDTM = ^TMDTM; PMDTM = ^TMDTM;
PMDTMPoint = ^TMDTMPoint; PMDTMPoint = ^TMDTMPoint;
PSDTM = ^TSDTM; PSDTM = ^TSDTM;
procedure lp_WriteLn(Params: PParamArray);
begin
psWriteLn(PlpString(Params^[0])^);
end;
//Generate these wrappers with a script -Dg //Generate these wrappers with a script -Dg
//{$I LPInc/Wrappers/other.inc} //{$I LPInc/Wrappers/other.inc}
@ -1266,6 +1271,8 @@ begin
Fonts := Client.MOCR.Fonts; Fonts := Client.MOCR.Fonts;
with Compiler do with Compiler do
begin begin
addGlobalFunc('procedure _writeln; override;', @lp_WriteLn);
for I := Fonts.Count - 1 downto 0 do for I := Fonts.Count - 1 downto 0 do
addGlobalVar(Fonts[I].Name, Fonts[I].Name); addGlobalVar(Fonts[I].Name, Fonts[I].Name);
@ -1310,6 +1317,7 @@ function TLPThread.OnHandleDirective(Sender: TLapeCompiler; Directive, Argument:
var var
plugin_idx: integer; plugin_idx: integer;
begin begin
Result := False;
if (Directive = 'loadlib') then if (Directive = 'loadlib') then
begin begin
if (Argument <> '') then if (Argument <> '') then