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

Merge branch 'lape-integration' of github.com:MerlijnWajer/Simba into lape-integration

This commit is contained in:
Merlijn Wajer 2011-07-28 20:53:01 +02:00
parent 4c6f30462c c1051efbeb
commit e124ae396a
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

@ -1237,6 +1237,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}
@ -1270,6 +1275,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);
@ -1314,6 +1321,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