moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Watch the case sensitivity please. ;)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@40 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-09-12 06:47:21 +00:00
parent 9a55b3711f
commit 2abd1feb48
2 changed files with 296 additions and 281 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="8"/> <ActiveEditorIndexAtStart Value="7"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -33,13 +33,13 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="64"> <Units Count="66">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="13" Y="17"/> <CursorPos X="13" Y="17"/>
<TopLine Value="7"/> <TopLine Value="1"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="70"/> <UsageCount Value="70"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -171,8 +171,8 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="19" Y="271"/> <CursorPos X="19" Y="271"/>
<TopLine Value="259"/> <TopLine Value="255"/>
<EditorIndex Value="7"/> <EditorIndex Value="6"/>
<UsageCount Value="36"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit18> </Unit18>
@ -304,7 +304,7 @@
<UnitName Value="Client"/> <UnitName Value="Client"/>
<CursorPos X="25" Y="4"/> <CursorPos X="25" Y="4"/>
<TopLine Value="4"/> <TopLine Value="4"/>
<EditorIndex Value="5"/> <EditorIndex Value="4"/>
<UsageCount Value="35"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit37> </Unit37>
@ -313,8 +313,8 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<CursorPos X="4" Y="26"/> <CursorPos X="4" Y="26"/>
<TopLine Value="12"/> <TopLine Value="1"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<UsageCount Value="35"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit38> </Unit38>
@ -339,7 +339,7 @@
<UnitName Value="Window"/> <UnitName Value="Window"/>
<CursorPos X="8" Y="262"/> <CursorPos X="8" Y="262"/>
<TopLine Value="255"/> <TopLine Value="255"/>
<EditorIndex Value="6"/> <EditorIndex Value="5"/>
<UsageCount Value="35"/> <UsageCount Value="35"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit41> </Unit41>
@ -377,7 +377,7 @@
<UnitName Value="finder"/> <UnitName Value="finder"/>
<CursorPos X="24" Y="130"/> <CursorPos X="24" Y="130"/>
<TopLine Value="111"/> <TopLine Value="111"/>
<EditorIndex Value="3"/> <EditorIndex Value="2"/>
<UsageCount Value="28"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
@ -406,9 +406,9 @@
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="23" Y="160"/> <CursorPos X="11" Y="46"/>
<TopLine Value="150"/> <TopLine Value="31"/>
<EditorIndex Value="8"/> <EditorIndex Value="7"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit50> </Unit50>
@ -417,7 +417,7 @@
<UnitName Value="uPSComponent"/> <UnitName Value="uPSComponent"/>
<CursorPos X="21" Y="193"/> <CursorPos X="21" Y="193"/>
<TopLine Value="183"/> <TopLine Value="183"/>
<EditorIndex Value="13"/> <EditorIndex Value="9"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit51> </Unit51>
@ -425,34 +425,28 @@
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
<CursorPos X="94" Y="494"/> <CursorPos X="94" Y="494"/>
<TopLine Value="489"/> <TopLine Value="489"/>
<EditorIndex Value="12"/>
<UsageCount Value="13"/> <UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit52> </Unit52>
<Unit53> <Unit53>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/types.pp"/>
<UnitName Value="types"/> <UnitName Value="types"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="11"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit53> </Unit53>
<Unit54> <Unit54>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/typinfo.pp"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/typinfo.pp"/>
<UnitName Value="typinfo"/> <UnitName Value="typinfo"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="10"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit54> </Unit54>
<Unit55> <Unit55>
<Filename Value="../../Units/PascalScript/uPSC_forms.pas"/> <Filename Value="../../Units/PascalScript/uPSC_forms.pas"/>
<UnitName Value="uPSC_forms"/> <UnitName Value="uPSC_forms"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="9"/> <EditorIndex Value="8"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit55> </Unit55>
@ -469,9 +463,7 @@
<UnitName Value="LResources"/> <UnitName Value="LResources"/>
<CursorPos X="3" Y="1396"/> <CursorPos X="3" Y="1396"/>
<TopLine Value="1396"/> <TopLine Value="1396"/>
<EditorIndex Value="2"/>
<UsageCount Value="12"/> <UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit57> </Unit57>
<Unit58> <Unit58>
<Filename Value="../../../lazarus/components/synedit/synmemo.pas"/> <Filename Value="../../../lazarus/components/synedit/synmemo.pas"/>
@ -515,8 +507,22 @@
<TopLine Value="124"/> <TopLine Value="124"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit63> </Unit63>
<Unit64>
<Filename Value="../../Units/PascalScript/uPSC_std.pas"/>
<UnitName Value="uPSC_std"/>
<CursorPos X="35" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit64>
<Unit65>
<Filename Value="../../Units/PascalScript/uPSC_controls.pas"/>
<UnitName Value="uPSC_controls"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="11"/>
<UsageCount Value="10"/>
</Unit65>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="18" HistoryIndex="17">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="274" Column="26" TopLine="258"/> <Caret Line="274" Column="26" TopLine="258"/>
@ -543,44 +549,52 @@
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="8" Column="73" TopLine="22"/> <Caret Line="30" Column="45" TopLine="22"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="30" Column="45" TopLine="22"/> <Caret Line="225" Column="50" TopLine="217"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="225" Column="50" TopLine="217"/> <Caret Line="227" Column="5" TopLine="219"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="227" Column="5" TopLine="219"/> <Caret Line="53" Column="19" TopLine="40"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="53" Column="19" TopLine="40"/> <Caret Line="279" Column="3" TopLine="270"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="279" Column="3" TopLine="270"/> <Caret Line="271" Column="19" TopLine="259"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="271" Column="19" TopLine="259"/> <Caret Line="65" Column="26" TopLine="22"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="65" Column="26" TopLine="22"/> <Caret Line="49" Column="15" TopLine="21"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="49" Column="15" TopLine="21"/> <Caret Line="55" Column="16" TopLine="26"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="55" Column="16" TopLine="26"/> <Caret Line="7" Column="22" TopLine="1"/>
</Position16> </Position16>
<Position17>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="45" Column="74" TopLine="29"/>
</Position17>
<Position18>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="198" Column="19" TopLine="183"/>
</Position18>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

491
Units/MMLAddon/mmlpsthread.pas
View File

@ -1,245 +1,246 @@
unit mmlpsthread; unit mmlpsthread;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,SynMemo; Classes, SysUtils, client, uPSComponent,uPSCompiler,uPSRuntime,SynMemo;
type type
{ TMMLPSThread } { TMMLPSThread }
TMMLPSThread = class(TThread) TMMLPSThread = class(TThread)
protected protected
// PSScript : TPSScript; // PSScript : TPSScript;
// PSClient : TPSScript; // PSClient : TPSScript;
// Client: TClient; // Client: TClient;
// DebugTo : TStrings; // DebugTo : TStrings;
Client : TClient; Client : TClient;
PSScript : TPSScript; PSScript : TPSScript;
DebugTo : TSynMemo; DebugTo : TSynMemo;
procedure OnCompile(Sender: TPSScript); procedure OnCompile(Sender: TPSScript);
procedure AfterExecute(Sender : TPSScript); procedure AfterExecute(Sender : TPSScript);
function RequireFile(Sender: TObject; const OriginFileName: String; function RequireFile(Sender: TObject; const OriginFileName: String;
var FileName, OutPut: string): Boolean; var FileName, OutPut: string): Boolean;
procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler); procedure OnCompImport(Sender: TObject; x: TPSPascalCompiler);
procedure OnExecImport(Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter); procedure OnExecImport(Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter);
procedure OutputMessages; procedure OutputMessages;
procedure Execute; override; procedure Execute; override;
public public
procedure SetPSScript(Script : string); procedure SetPSScript(Script : string);
procedure SetDebug( Strings : TSynMemo ); procedure SetDebug( Strings : TSynMemo );
function SetClientInfo : boolean; function SetClientInfo : boolean;
// function CompilePSScript : boolean; // function CompilePSScript : boolean;
// function // function
constructor Create(CreateSuspended: Boolean); constructor Create(CreateSuspended: Boolean);
destructor Destroy; destructor Destroy;
end; end;
implementation implementation
uses uses
MufasaTypes,{$ifdef mswindows}windows,{$endif} MufasaTypes,{$ifdef mswindows}windows,{$endif}
uPSC_std, uPSC_Controls,uPSC_Classes,uPSC_Graphics,uPSC_stdctrls,uPSC_Forms,uPSC_extctrls, //Compile-libs uPSC_std, uPSC_controls,uPSC_classes,uPSC_graphics,uPSC_stdctrls,uPSC_forms,uPSC_extctrls, //Compile-libs
uPSR_std, uPSR_Controls,uPSR_Classes,uPSR_Graphics,uPSR_stdctrls,uPSR_Forms,uPSR_extctrls; //Runtime-libs uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms,uPSR_extctrls, //Runtime-libs
lclintf;
threadvar
CurrThread : TMMLPSThread; threadvar
CurrThread : TMMLPSThread;
{Some General PS Functions here}
procedure Writeln(str : string); {Some General PS Functions here}
begin; procedure Writeln(str : string);
if CurrThread.DebugTo <> nil then begin;
CurrThread.DebugTo.Lines.Add(Str); if CurrThread.DebugTo <> nil then
//Just overwriting itz.. soz. CurrThread.DebugTo.Lines.Add(Str);
end; //Just overwriting itz.. soz.
end;
function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
var function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;
i : integer; var
begin; i : integer;
Writeln('We have a length of: ' + inttostr(length(v))); begin;
Try Writeln('We have a length of: ' + inttostr(length(v)));
Result := CurrThread.PSScript.Exec.RunProcPVar(v,CurrThread.PSScript.Exec.GetProc(Procname)); Try
Except Result := CurrThread.PSScript.Exec.RunProcPVar(v,CurrThread.PSScript.Exec.GetProc(Procname));
Writeln('We has some errors :-('); Except
end; Writeln('We has some errors :-(');
end; end;
end;
{
Note to Raymond: For PascalScript, Create it on the .Create, {
Execute it on the .Execute, and don't forget to Destroy it on .Destroy. Note to Raymond: For PascalScript, Create it on the .Create,
Execute it on the .Execute, and don't forget to Destroy it on .Destroy.
Furthermore, all the wrappers can be in the unit "implementation" section.
Better still to create an .inc for it, otherwise this unit will become huge. Furthermore, all the wrappers can be in the unit "implementation" section.
(You can even split up the .inc's in stuff like color, bitmap, etc. ) Better still to create an .inc for it, otherwise this unit will become huge.
(You can even split up the .inc's in stuff like color, bitmap, etc. )
Also, don't add PS to this unit, but make a seperate unit for it.
Unit "MMLPSThread", perhaps? Also, don't add PS to this unit, but make a seperate unit for it.
Unit "MMLPSThread", perhaps?
See the TestUnit for use of this thread, it's pretty straightforward.
See the TestUnit for use of this thread, it's pretty straightforward.
It may also be wise to turn the "Importing of wrappers" into an include as
well, it will really make the unit more straightforward to use and read. It may also be wise to turn the "Importing of wrappers" into an include as
} well, it will really make the unit more straightforward to use and read.
}
constructor TMMLPSThread.Create(CreateSuspended : boolean);
begin constructor TMMLPSThread.Create(CreateSuspended : boolean);
if Client <> nil then begin
Writeln('ThreadClient seems to be set, so not recreating it.') //reset client to defaults? if Client <> nil then
//ThreadClient.ResetToDefaults Writeln('ThreadClient seems to be set, so not recreating it.') //reset client to defaults?
else //ThreadClient.ResetToDefaults
Client := TClient.Create; else
if PSScript <> nil then Client := TClient.Create;
PSScript.Free; if PSScript <> nil then
// Create Stuff here PSScript.Free;
PSScript := TPSScript.Create(nil); // Create Stuff here
PSScript.UsePreProcessor:= True; PSScript := TPSScript.Create(nil);
PSScript.OnNeedFile := @RequireFile; PSScript.UsePreProcessor:= True;
PSScript.OnNeedFile := @RequireFile;
PSScript.OnCompile:= @OnCompile;
PSScript.OnCompImport:= @OnCompImport; PSScript.OnCompile:= @OnCompile;
PSScript.OnExecImport:= @OnExecImport; PSScript.OnCompImport:= @OnCompImport;
PSScript.OnAfterExecute:= @AfterExecute; PSScript.OnExecImport:= @OnExecImport;
{$IFDEF CPU386 } PSScript.OnAfterExecute:= @AfterExecute;
PSScript.Defines.Add ('CPU386'); {$IFDEF CPU386 }
{$ENDIF } PSScript.Defines.Add ('CPU386');
PSScript.Defines.Add ('MUFASA'); {$ENDIF }
PSScript.Defines.Add ('COGAT'); PSScript.Defines.Add ('MUFASA');
PSScript.Defines.Add ('RAYMONDPOWNS'); PSScript.Defines.Add ('COGAT');
{$IFDEF MSWINDOWS } PSScript.Defines.Add ('RAYMONDPOWNS');
PSScript.Defines.Add ('MSWINDOWS'); {$IFDEF MSWINDOWS }
PSScript.Defines.Add ('WIN32'); PSScript.Defines.Add ('MSWINDOWS');
PSScript.Defines.Add ('WINDOWS'); PSScript.Defines.Add ('WIN32');
{$ENDIF } PSScript.Defines.Add ('WINDOWS');
{$IFDEF LINUX } {$ENDIF }
PSScript.Defines.Add ('LINUX'); {$IFDEF LINUX }
{$ENDIF } PSScript.Defines.Add ('LINUX');
FreeOnTerminate := True; {$ENDIF }
inherited Create(CreateSuspended); FreeOnTerminate := True;
end; inherited Create(CreateSuspended);
end;
destructor TMMLPSThread.Destroy;
begin destructor TMMLPSThread.Destroy;
Client.Free; begin
PSScript.Free; Client.Free;
inherited Destroy; PSScript.Free;
end; inherited Destroy;
end;
procedure TMMLPSThread.OnCompile(Sender: TPSScript);
begin procedure TMMLPSThread.OnCompile(Sender: TPSScript);
//Here we add all the initalizing, of BMPArray etc begin
Sender.AddFunction(@ThreadSafeCall,'function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;'); //Here we add all the initalizing, of BMPArray etc
Sender.AddFunction(@Writeln,'procedure writeln(s : string);'); Sender.AddFunction(@ThreadSafeCall,'function ThreadSafeCall(ProcName: string; var V: TVariantArray): Variant;');
//Also the functions get added into the engine, right here. Sender.AddFunction(@Writeln,'procedure writeln(s : string);');
end; //Also the functions get added into the engine, right here.
end;
procedure TMMLPSThread.AfterExecute(Sender: TPSScript);
begin procedure TMMLPSThread.AfterExecute(Sender: TPSScript);
//Here we add all the Script-freeing-leftovers (like BMParray etc) begin
end; //Here we add all the Script-freeing-leftovers (like BMParray etc)
end;
function TMMLPSThread.RequireFile(Sender: TObject;
const OriginFileName: String; var FileName, OutPut: string): Boolean; function TMMLPSThread.RequireFile(Sender: TObject;
begin const OriginFileName: String; var FileName, OutPut: string): Boolean;
begin
end;
end;
procedure TMMLPSThread.OnCompImport(Sender: TObject; x: TPSPascalCompiler);
begin procedure TMMLPSThread.OnCompImport(Sender: TObject; x: TPSPascalCompiler);
SIRegister_Std(x); begin
SIRegister_Controls(x); SIRegister_Std(x);
SIRegister_Classes(x, true); SIRegister_Controls(x);
SIRegister_Graphics(x, true); SIRegister_Classes(x, true);
SIRegister_stdctrls(x); SIRegister_Graphics(x, true);
SIRegister_Forms(x); SIRegister_stdctrls(x);
SIRegister_ExtCtrls(x); SIRegister_Forms(x);
end; SIRegister_ExtCtrls(x);
end;
procedure TMMLPSThread.OnExecImport(Sender: TObject; se: TPSExec;
x: TPSRuntimeClassImporter); procedure TMMLPSThread.OnExecImport(Sender: TObject; se: TPSExec;
begin x: TPSRuntimeClassImporter);
RIRegister_Std(x); begin
RIRegister_Classes(x, True); RIRegister_Std(x);
RIRegister_Controls(x); RIRegister_Classes(x, True);
RIRegister_Graphics(x, True); RIRegister_Controls(x);
RIRegister_stdctrls(x); RIRegister_Graphics(x, True);
RIRegister_Forms(x); RIRegister_stdctrls(x);
RIRegister_ExtCtrls(x); RIRegister_Forms(x);
end; RIRegister_ExtCtrls(x);
end;
procedure TMMLPSThread.OutputMessages;
var procedure TMMLPSThread.OutputMessages;
l: Longint; var
b: Boolean; l: Longint;
begin b: Boolean;
b := False; begin
for l := 0 to PSScript.CompilerMessageCount - 1 do b := False;
begin for l := 0 to PSScript.CompilerMessageCount - 1 do
Writeln(PSScript.CompilerErrorToStr(l)); begin
if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then Writeln(PSScript.CompilerErrorToStr(l));
begin if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
b := True; begin
// FormMain.CurrSynEdit.SelStart := PSScript.CompilerMessages[l].Pos; b := True;
// FormMain.CurrSynEdit.SelStart := PSScript.CompilerMessages[l].Pos;
end;
end; end;
end; end;
end;
procedure TMMLPSThread.Execute;
var procedure TMMLPSThread.Execute;
time, i, ii: Integer; var
begin; time, i, ii: Integer;
CurrThread := Self; begin;
time := GetTickCount; CurrThread := Self;
try time := lclintf.GetTickCount;
if PSScript.Compile then try
begin if PSScript.Compile then
OutputMessages; begin
Writeln('Compiled succesfully in ' + IntToStr(GetTickCount - time) + ' ms.'); OutputMessages;
// if not (ScriptState = SCompiling) then Writeln('Compiled succesfully in ' + IntToStr(GetTickCount - time) + ' ms.');
if not PSScript.Execute then // if not (ScriptState = SCompiling) then
begin if not PSScript.Execute then
// FormMain.CurrSynEdit.SelStart := Script.PSScript.ExecErrorPosition; begin
Writeln(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.' // FormMain.CurrSynEdit.SelStart := Script.PSScript.ExecErrorPosition;
+Inttostr(PSScript.ExecErrorByteCodePosition)); Writeln(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'
end else Writeln('Succesfully executed'); +Inttostr(PSScript.ExecErrorByteCodePosition));
end else end else Writeln('Succesfully executed');
begin end else
OutputMessages; begin
Writeln('Compiling failed'); OutputMessages;
end; Writeln('Compiling failed');
except end;
on E : Exception do except
Writeln('Error: ' + E.Message); on E : Exception do
end; Writeln('Error: ' + E.Message);
end; end;
end;
procedure TMMLPSThread.SetPSScript(Script: string);
begin procedure TMMLPSThread.SetPSScript(Script: string);
PSScript.Script.Text:= Script; begin
end; PSScript.Script.Text:= Script;
end;
procedure TMMLPSThread.SetDebug(Strings: TSynMemo);
begin procedure TMMLPSThread.SetDebug(Strings: TSynMemo);
DebugTo := Strings; begin
end; DebugTo := Strings;
end;
function TMMLPSThread.SetClientInfo: boolean;
begin function TMMLPSThread.SetClientInfo: boolean;
//Set the client handle, etc begin
end; //Set the client handle, etc
end;
{ Include stuff here? }
{ Include stuff here? }
//{$I inc/colors.inc}
//{$I inc/bitmaps.inc} //{$I inc/colors.inc}
//{$I inc/bitmaps.inc}
end.
end.