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

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