moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-30 12:52:16 -05:00
Code Issues Releases Wiki Activity

Merge pull request #30 from Dgby714/lape-integration

Browse Source 
TLPThread Update
This commit is contained in:
Merlijn Wajer 2011-07-23 13:41:15 -07:00
commit c1051efbeb
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;
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}
@ -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