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

Committing a new smart... it has some bug fixes, plus its open source. Experimenting with ps bugs too...

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@449 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
BenLand100 2010-01-22 03:11:37 +00:00
parent c0a68352af
commit bbd9f73942
5 changed files with 145 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
trunk/Plugins/libsmart.dll
View File

Binary file not shown.

BIN
trunk/Plugins/libsmart.so
View File

Binary file not shown.

245
trunk/Projects/SAMufasaGUI/project1.lpi
View File

@ -10,7 +10,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Simba"/> <Title Value="Simba"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="5"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -26,7 +26,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/> <LaunchingApplication Use="True" PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -38,16 +38,14 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="289"> <Units Count="291">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<CursorPos X="3" Y="36"/> <CursorPos X="3" Y="36"/>
<TopLine Value="15"/> <TopLine Value="15"/>
<EditorIndex Value="9"/>
<UsageCount Value="205"/> <UsageCount Value="205"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
@ -141,9 +139,9 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="6" Y="549"/> <CursorPos X="3" Y="1550"/>
<TopLine Value="731"/> <TopLine Value="1548"/>
<EditorIndex Value="14"/> <EditorIndex Value="8"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit13> </Unit13>
@ -203,7 +201,7 @@
<UnitName Value="MufasaTypes"/> <UnitName Value="MufasaTypes"/>
<CursorPos X="20" Y="32"/> <CursorPos X="20" Y="32"/>
<TopLine Value="26"/> <TopLine Value="26"/>
<EditorIndex Value="4"/> <EditorIndex Value="11"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit21> </Unit21>
@ -270,8 +268,8 @@
<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="76" Y="571"/> <CursorPos X="27" Y="344"/>
<TopLine Value="537"/> <TopLine Value="318"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -279,9 +277,9 @@
<Unit31> <Unit31>
<Filename Value="../../Units/PascalScript/uPSComponent.pas"/> <Filename Value="../../Units/PascalScript/uPSComponent.pas"/>
<UnitName Value="uPSComponent"/> <UnitName Value="uPSComponent"/>
<CursorPos X="12" Y="918"/> <CursorPos X="2" Y="675"/>
<TopLine Value="903"/> <TopLine Value="669"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
</Unit31> </Unit31>
<Unit32> <Unit32>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/classesh.inc"/>
@ -372,9 +370,11 @@
<Unit45> <Unit45>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/bitmap.inc"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<CursorPos X="10" Y="170"/> <CursorPos X="1" Y="1"/>
<TopLine Value="170"/> <TopLine Value="1"/>
<EditorIndex Value="15"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit45> </Unit45>
<Unit46> <Unit46>
<Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/> <Filename Value="../../../FPC/FPCCheckout/packages/fcl-image/src/fpcanvas.inc"/>
@ -491,11 +491,9 @@
</Unit62> </Unit62>
<Unit63> <Unit63>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/mouse.inc"/>
<CursorPos X="11" Y="26"/> <CursorPos X="1" Y="1"/>
<TopLine Value="12"/> <TopLine Value="1"/>
<EditorIndex Value="8"/> <UsageCount Value="21"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit63> </Unit63>
<Unit64> <Unit64>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/other.inc"/>
@ -533,7 +531,9 @@
<UnitName Value="uPSRuntime"/> <UnitName Value="uPSRuntime"/>
<CursorPos X="89" Y="10"/> <CursorPos X="89" Y="10"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="7"/> <EditorIndex Value="7"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit69> </Unit69>
<Unit70> <Unit70>
<Filename Value="../../Units/MMLAddon/plugins.pas"/> <Filename Value="../../Units/MMLAddon/plugins.pas"/>
@ -541,17 +541,13 @@
<UnitName Value="plugins"/> <UnitName Value="plugins"/>
<CursorPos X="34" Y="70"/> <CursorPos X="34" Y="70"/>
<TopLine Value="49"/> <TopLine Value="49"/>
<EditorIndex Value="5"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit70> </Unit70>
<Unit71> <Unit71>
<Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/psdefines.inc"/>
<CursorPos X="1" Y="37"/> <CursorPos X="1" Y="37"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit71> </Unit71>
<Unit72> <Unit72>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/math.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/math.inc"/>
@ -590,8 +586,8 @@
<Filename Value="../../Units/MMLCore/dtm.pas"/> <Filename Value="../../Units/MMLCore/dtm.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="dtm"/> <UnitName Value="dtm"/>
<CursorPos X="114" Y="245"/> <CursorPos X="84" Y="51"/>
<TopLine Value="226"/> <TopLine Value="33"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
</Unit77> </Unit77>
<Unit78> <Unit78>
@ -632,9 +628,7 @@
<UnitName Value="windowselector"/> <UnitName Value="windowselector"/>
<CursorPos X="37" Y="34"/> <CursorPos X="37" Y="34"/>
<TopLine Value="12"/> <TopLine Value="12"/>
<EditorIndex Value="12"/>
<UsageCount Value="201"/> <UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit82> </Unit82>
<Unit83> <Unit83>
<Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/> <Filename Value="../../../usr/lib64/fpc/2.2.4/source/rtl/objpas/classes/classesh.inc"/>
@ -673,9 +667,11 @@
</Unit87> </Unit87>
<Unit88> <Unit88>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/dtm.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/dtm.inc"/>
<CursorPos X="35" Y="42"/> <CursorPos X="1" Y="1"/>
<TopLine Value="64"/> <TopLine Value="1"/>
<EditorIndex Value="16"/>
<UsageCount Value="53"/> <UsageCount Value="53"/>
<Loaded Value="True"/>
</Unit88> </Unit88>
<Unit89> <Unit89>
<Filename Value="../../../cogat/compscript.pas"/> <Filename Value="../../../cogat/compscript.pas"/>
@ -773,9 +769,11 @@
</Unit102> </Unit102>
<Unit103> <Unit103>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
<CursorPos X="52" Y="52"/> <CursorPos X="1" Y="1"/>
<TopLine Value="22"/> <TopLine Value="1"/>
<UsageCount Value="9"/> <EditorIndex Value="3"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit103> </Unit103>
<Unit104> <Unit104>
<Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/compon.inc"/> <Filename Value="../../../FPC/FPCCheckout/rtl/objpas/classes/compon.inc"/>
@ -819,8 +817,10 @@
<Filename Value="../../Units/PascalScript/uPSDebugger.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
<UnitName Value="uPSDebugger"/> <UnitName Value="uPSDebugger"/>
<CursorPos X="13" Y="627"/> <CursorPos X="13" Y="627"/>
<TopLine Value="624"/> <TopLine Value="323"/>
<UsageCount Value="9"/> <EditorIndex Value="6"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit110> </Unit110>
<Unit111> <Unit111>
<Filename Value="../../Units/MMLCore/web.pas"/> <Filename Value="../../Units/MMLCore/web.pas"/>
@ -1202,9 +1202,9 @@
<ComponentName Value="ColourHistoryForm"/> <ComponentName Value="ColourHistoryForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="colourhistory"/> <UnitName Value="colourhistory"/>
<CursorPos X="7" Y="73"/> <CursorPos X="59" Y="72"/>
<TopLine Value="55"/> <TopLine Value="54"/>
<EditorIndex Value="11"/> <EditorIndex Value="4"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit166> </Unit166>
@ -1373,10 +1373,10 @@
</Unit190> </Unit190>
<Unit191> <Unit191>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/keyboard.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/keyboard.inc"/>
<CursorPos X="26" Y="43"/> <CursorPos X="1" Y="1"/>
<TopLine Value="12"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="12"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit191> </Unit191>
<Unit192> <Unit192>
@ -1491,9 +1491,7 @@
<UnitName Value="debugimage"/> <UnitName Value="debugimage"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="13"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/>
</Unit207> </Unit207>
<Unit208> <Unit208>
<Filename Value="debugimage.lrs"/> <Filename Value="debugimage.lrs"/>
@ -1601,7 +1599,7 @@
<UnitName Value="framefunctionlist"/> <UnitName Value="framefunctionlist"/>
<CursorPos X="26" Y="295"/> <CursorPos X="26" Y="295"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<UsageCount Value="169"/> <UsageCount Value="173"/>
</Unit223> </Unit223>
<Unit224> <Unit224>
<Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../usr/local/share/lazarus/lcl/comctrls.pp"/>
@ -1656,7 +1654,7 @@
<UnitName Value="simpleanalyzer"/> <UnitName Value="simpleanalyzer"/>
<CursorPos X="52" Y="104"/> <CursorPos X="52" Y="104"/>
<TopLine Value="193"/> <TopLine Value="193"/>
<UsageCount Value="156"/> <UsageCount Value="160"/>
</Unit231> </Unit231>
<Unit232> <Unit232>
<Filename Value="../../Units/Misc/mPasLex.pas"/> <Filename Value="../../Units/Misc/mPasLex.pas"/>
@ -1714,9 +1712,11 @@
</Unit239> </Unit239>
<Unit240> <Unit240>
<Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
<CursorPos X="25" Y="163"/> <CursorPos X="8" Y="61"/>
<TopLine Value="154"/> <TopLine Value="36"/>
<UsageCount Value="23"/> <EditorIndex Value="10"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit240> </Unit240>
<Unit241> <Unit241>
<Filename Value="../../Units/Synapse/synautil.pas"/> <Filename Value="../../Units/Synapse/synautil.pas"/>
@ -1731,7 +1731,7 @@
<UnitName Value="updater"/> <UnitName Value="updater"/>
<CursorPos X="38" Y="211"/> <CursorPos X="38" Y="211"/>
<TopLine Value="65"/> <TopLine Value="65"/>
<UsageCount Value="129"/> <UsageCount Value="133"/>
</Unit242> </Unit242>
<Unit243> <Unit243>
<Filename Value="updateform.pas"/> <Filename Value="updateform.pas"/>
@ -1742,7 +1742,7 @@
<ComponentState Value="1"/> <ComponentState Value="1"/>
<CursorPos X="111" Y="102"/> <CursorPos X="111" Y="102"/>
<TopLine Value="207"/> <TopLine Value="207"/>
<UsageCount Value="124"/> <UsageCount Value="128"/>
</Unit243> </Unit243>
<Unit244> <Unit244>
<Filename Value="../../../Documents/lazarus/lcl/fileutil.pas"/> <Filename Value="../../../Documents/lazarus/lcl/fileutil.pas"/>
@ -1863,16 +1863,14 @@
<UnitName Value="simbasettings"/> <UnitName Value="simbasettings"/>
<CursorPos X="26" Y="9"/> <CursorPos X="26" Y="9"/>
<TopLine Value="11"/> <TopLine Value="11"/>
<UsageCount Value="87"/> <UsageCount Value="91"/>
</Unit261> </Unit261>
<Unit262> <Unit262>
<Filename Value="../../Units/MMLAddon/settings.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<UnitName Value="settings"/> <UnitName Value="settings"/>
<CursorPos X="29" Y="603"/> <CursorPos X="29" Y="603"/>
<TopLine Value="583"/> <TopLine Value="583"/>
<EditorIndex Value="10"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit262> </Unit262>
<Unit263> <Unit263>
<Filename Value="../../../fpc/packages/unixutil/src/unixutils.pp"/> <Filename Value="../../../fpc/packages/unixutil/src/unixutils.pp"/>
@ -1903,7 +1901,7 @@
<UnitName Value="reportbug"/> <UnitName Value="reportbug"/>
<CursorPos X="53" Y="23"/> <CursorPos X="53" Y="23"/>
<TopLine Value="21"/> <TopLine Value="21"/>
<UsageCount Value="70"/> <UsageCount Value="74"/>
</Unit266> </Unit266>
<Unit267> <Unit267>
<Filename Value="../../Units/Synapse/synsock.pas"/> <Filename Value="../../Units/Synapse/synsock.pas"/>
@ -1960,9 +1958,7 @@
<UnitName Value="newinternets"/> <UnitName Value="newinternets"/>
<CursorPos X="37" Y="171"/> <CursorPos X="37" Y="171"/>
<TopLine Value="153"/> <TopLine Value="153"/>
<EditorIndex Value="15"/> <UsageCount Value="70"/>
<UsageCount Value="66"/>
<Loaded Value="True"/>
</Unit274> </Unit274>
<Unit275> <Unit275>
<Filename Value="reportbug.lrs"/> <Filename Value="reportbug.lrs"/>
@ -2010,8 +2006,8 @@
<UnitName Value="IOManager"/> <UnitName Value="IOManager"/>
<CursorPos X="1" Y="543"/> <CursorPos X="1" Y="543"/>
<TopLine Value="526"/> <TopLine Value="526"/>
<EditorIndex Value="3"/> <EditorIndex Value="9"/>
<UsageCount Value="24"/> <UsageCount Value="25"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit281> </Unit281>
<Unit282> <Unit282>
@ -2019,8 +2015,8 @@
<UnitName Value="os_linux"/> <UnitName Value="os_linux"/>
<CursorPos X="9" Y="342"/> <CursorPos X="9" Y="342"/>
<TopLine Value="325"/> <TopLine Value="325"/>
<EditorIndex Value="17"/> <EditorIndex Value="14"/>
<UsageCount Value="24"/> <UsageCount Value="25"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit282> </Unit282>
<Unit283> <Unit283>
@ -2035,8 +2031,8 @@
<UnitName Value="os_windows"/> <UnitName Value="os_windows"/>
<CursorPos X="3" Y="314"/> <CursorPos X="3" Y="314"/>
<TopLine Value="300"/> <TopLine Value="300"/>
<EditorIndex Value="16"/> <EditorIndex Value="13"/>
<UsageCount Value="20"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit284> </Unit284>
<Unit285> <Unit285>
@ -2059,9 +2055,7 @@
<UnitName Value="libloader"/> <UnitName Value="libloader"/>
<CursorPos X="1" Y="149"/> <CursorPos X="1" Y="149"/>
<TopLine Value="128"/> <TopLine Value="128"/>
<EditorIndex Value="6"/> <UsageCount Value="28"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit287> </Unit287>
<Unit288> <Unit288>
<Filename Value="../../Units/MMLAddon/tpa.pas"/> <Filename Value="../../Units/MMLAddon/tpa.pas"/>
@ -2070,127 +2064,144 @@
<TopLine Value="1677"/> <TopLine Value="1677"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit288> </Unit288>
<Unit289>
<Filename Value="../../Units/PascalScript/x86.inc"/>
<CursorPos X="1" Y="162"/>
<TopLine Value="134"/>
<EditorIndex Value="2"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit289>
<Unit290>
<Filename Value="../../Units/PascalScript/uPSUtils.pas"/>
<UnitName Value="uPSUtils"/>
<CursorPos X="63" Y="722"/>
<TopLine Value="713"/>
<EditorIndex Value="5"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit290>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="300" Column="36" TopLine="283"/> <Caret Line="295" Column="29" TopLine="278"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="301" Column="27" TopLine="283"/> <Caret Line="333" Column="31" TopLine="316"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="303" Column="53" TopLine="283"/> <Caret Line="334" Column="41" TopLine="316"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLCore/iomanager.pas"/>
<Caret Line="304" Column="41" TopLine="283"/> <Caret Line="543" Column="1" TopLine="526"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="332" Column="30" TopLine="315"/> <Caret Line="560" Column="43" TopLine="537"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="333" Column="54" TopLine="315"/> <Caret Line="571" Column="76" TopLine="537"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
<Caret Line="331" Column="59" TopLine="315"/> <Caret Line="64" Column="24" TopLine="36"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/psexportedmethods.inc"/>
<Caret Line="93" Column="43" TopLine="77"/> <Caret Line="61" Column="8" TopLine="36"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="219" Column="34" TopLine="203"/> <Caret Line="511" Column="27" TopLine="494"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="248" Column="33" TopLine="232"/> <Caret Line="1439" Column="47" TopLine="1421"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="32" Column="42" TopLine="23"/> <Caret Line="511" Column="29" TopLine="494"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="37" Column="14" TopLine="23"/> <Caret Line="508" Column="18" TopLine="491"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="295" Column="29" TopLine="278"/> <Caret Line="105" Column="22" TopLine="88"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="333" Column="31" TopLine="316"/> <Caret Line="344" Column="19" TopLine="325"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="334" Column="41" TopLine="316"/> <Caret Line="344" Column="10" TopLine="327"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="18" Column="42" TopLine="1"/> <Caret Line="106" Column="27" TopLine="89"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
<Caret Line="37" Column="14" TopLine="20"/> <Caret Line="330" Column="29" TopLine="316"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="colourhistory.pas"/>
<Caret Line="295" Column="29" TopLine="278"/> <Caret Line="73" Column="7" TopLine="55"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/PascalScript/uPSDebugger.pas"/>
<Caret Line="333" Column="31" TopLine="316"/> <Caret Line="627" Column="13" TopLine="323"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
<Caret Line="334" Column="41" TopLine="316"/> <Caret Line="162" Column="1" TopLine="145"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
<Caret Line="149" Column="1" TopLine="128"/> <Caret Line="330" Column="1" TopLine="313"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
<Caret Line="150" Column="1" TopLine="128"/> <Caret Line="37" Column="1" TopLine="19"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
<Caret Line="151" Column="1" TopLine="128"/> <Caret Line="154" Column="16" TopLine="145"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="152" Column="1" TopLine="128"/> <Caret Line="115" Column="45" TopLine="106"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="../../Units/MMLCore/iomanager.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="543" Column="1" TopLine="526"/> <Caret Line="128" Column="62" TopLine="106"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="149" Column="1" TopLine="128"/> <Caret Line="131" Column="62" TopLine="106"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="150" Column="1" TopLine="128"/> <Caret Line="344" Column="27" TopLine="318"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/PascalScript/x86.inc"/>
<Caret Line="151" Column="1" TopLine="128"/> <Caret Line="162" Column="1" TopLine="134"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../Units/MMLCore/libloader.pas"/> <Filename Value="../../Units/PascalScript/uPSUtils.pas"/>
<Caret Line="152" Column="1" TopLine="128"/> <Caret Line="730" Column="5" TopLine="713"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/window.inc"/>
<Caret Line="560" Column="43" TopLine="537"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

2
trunk/Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -58,7 +58,7 @@ AddFunction(@ps_RandomRange,'function RandomRange(aFrom,aTo: Integer): Integer;'
SetCurrSection('Window'); SetCurrSection('Window');
AddFunction(@Freeze, 'function Freeze:boolean;'); AddFunction(@Freeze, 'function Freeze:boolean;');
AddFunction(@Unfreeze, 'function Unfreeze: boolean;'); AddFunction(@Unfreeze, 'function Unfreeze: boolean;');
AddFunction(@GetClientDimensions, 'procedure GetClientDimensions(out w, h:integer);'); AddFunction(@GetClientDimensions, 'procedure GetClientDimensions(var w, h:integer);');
AddFunction(@SetTargetBitmap,'procedure SetTargetBitmap(Bitmap : integer);'); AddFunction(@SetTargetBitmap,'procedure SetTargetBitmap(Bitmap : integer);');
AddFunction(@SetDesktopAsClient,'procedure SetDesktopAsClient'); AddFunction(@SetDesktopAsClient,'procedure SetDesktopAsClient');
AddFunction(@SetTargetArray, 'procedure SetTargetArray(P: Integer; w, h: integer);'); AddFunction(@SetTargetArray, 'procedure SetTargetArray(P: Integer; w, h: integer);');

18
trunk/Units/MMLAddon/mmlpsthread.pas
View File

@ -512,26 +512,28 @@ class function TMMLPSThread.GetExportedMethods: TExpMethodArr;
var var
c : integer; c : integer;
CurrSection : string; CurrSection : string;
procedure SetCurrSection(str : string);
begin;
CurrSection := Str;
end;
procedure AddFunction( Ptr : Pointer; DeclStr : String); procedure SetCurrSection(str : string);
begin; begin;
// SetLength(ExportedMethods,c+1); CurrSection := Str;
end;
procedure AddFunction( Ptr : Pointer; DeclStr : String);
begin;
// SetLength(ExportedMethods,c+1);
if c >= 300 then if c >= 300 then
raise exception.create('PSThread.LoadMethods: Exported more than 300 functions'); raise exception.create('PSThread.LoadMethods: Exported more than 300 functions');
Result[c].FuncDecl:= DeclStr; Result[c].FuncDecl:= DeclStr;
Result[c].FuncPtr:= Ptr; Result[c].FuncPtr:= Ptr;
Result[c].Section:= CurrSection; Result[c].Section:= CurrSection;
inc(c); inc(c);
end; end;
begin begin
c := 0; c := 0;
CurrSection := 'Other'; CurrSection := 'Other';
SetLength(Result,300); SetLength(Result,300);
{$i PSInc/psexportedmethods.inc} {$i PSInc/psexportedmethods.inc}
SetLength(Result,c); SetLength(Result,c);