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 branch 'lape-integration' of github.com:MerlijnWajer/Simba into lape-integration

Browse Source
This commit is contained in:
Merlijn Wajer 2011-07-28 20:53:01 +02:00
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

@ -1238,6 +1238,11 @@ type
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}
//{$I LPInc/Wrappers/settings.inc} //{$I LPInc/Wrappers/settings.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