moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-10-31 15:35:12 -04:00
Code Issues Releases Wiki Activity

RUTIS define for Wizzup...

Browse Source
This commit is contained in:
Raymond 2011-02-06 00:33:56 +01:00
parent 40f6b542c6
commit b45dfce1ac
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Projects/Simba/simbaunit.pas
View File

@ -23,6 +23,7 @@
unit SimbaUnit; unit SimbaUnit;
{$undef EditButtons} {$undef EditButtons}
{$define USE_RUTIS}
{$Undef ProcessMessages} //Define this for processmessages in ThreadSafeCall {$Undef ProcessMessages} //Define this for processmessages in ThreadSafeCall
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -1469,7 +1470,7 @@ begin
try try
case Interpreter of case Interpreter of
interp_PS : Thread := TPSThread.Create(true,@CurrentSyncInfo,PluginPath); interp_PS : Thread := TPSThread.Create(true,@CurrentSyncInfo,PluginPath);
interp_RT : Thread := TRTThread.Create(true,@CurrentSyncInfo,PluginPath); interp_RT : {$IFDEF USE_RUTIS}Thread := TRTThread.Create(true,@CurrentSyncInfo,PluginPath){$ELSE}formWriteln('RUTIS NOT SUPPORTED') {$ENDIF};
interp_CP : Thread := TCPThread.Create(true,@CurrentSyncInfo,PluginPath); interp_CP : Thread := TCPThread.Create(true,@CurrentSyncInfo,PluginPath);
end; end;
except except

11
Units/MMLAddon/mmlpsthread.pas
View File

@ -33,7 +33,10 @@ uses
Classes, SysUtils, client, uPSComponent,uPSCompiler, Classes, SysUtils, client, uPSComponent,uPSCompiler,
uPSRuntime,stdCtrls, uPSPreProcessor,MufasaTypes,MufasaBase, web, uPSRuntime,stdCtrls, uPSPreProcessor,MufasaTypes,MufasaBase, web,
bitmaps, plugins, libloader, dynlibs,internets,scriptproperties, bitmaps, plugins, libloader, dynlibs,internets,scriptproperties,
settings,settingssandbox, Rutis_Engine,Rutis_Defs,lcltype, dialogs; settings,settingssandbox, lcltype, dialogs
{$IFDEF USE_RUTIS}
,Rutis_Engine,Rutis_Defs
{$ENDIF};
const const
m_Status = 0; //Data = PChar to new status m_Status = 0; //Data = PChar to new status
@ -207,7 +210,7 @@ type
end; end;
{ TRTThread } { TRTThread }
{$IFDEF USE_RUTIS}
TRTThread = class(TMThread) TRTThread = class(TMThread)
private private
procedure RTOnWrite(s : String); procedure RTOnWrite(s : String);
@ -220,6 +223,7 @@ type
procedure Execute; override; procedure Execute; override;
procedure Terminate; override; procedure Terminate; override;
end; end;
{$ENDIF}
threadvar threadvar
@ -1012,7 +1016,7 @@ begin
end; end;
{ TRTThread } { TRTThread }
{$IFDEF USE_RUTIS}
procedure TRTThread.RTOnWrite(s: String); procedure TRTThread.RTOnWrite(s: String);
begin begin
psWriteln(s); psWriteln(s);
@ -1116,6 +1120,7 @@ procedure TRTThread.Terminate;
begin begin
RUTIS.Stop; RUTIS.Stop;
end; end;
{$ENDIF}
initialization initialization
PluginsGlob := TMPlugins.Create; PluginsGlob := TMPlugins.Create;