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

Added licenses. Removed a few comments.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@234 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-17 11:08:09 +00:00
parent cc3b9d401f
commit 2682acc57f
6 changed files with 182 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/SAMufasaGUI/about.lfm
View File

@ -3,6 +3,7 @@ object AboutForm: TAboutForm
Height = 300 Height = 300
Top = 271 Top = 271
Width = 400 Width = 400
ActiveControl = Memo1
Caption = 'AboutForm' Caption = 'AboutForm'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400

10
Projects/SAMufasaGUI/about.lrs
View File

@ -2,9 +2,9 @@
LazarusResources.Add('TAboutForm','FORMDATA',[ LazarusResources.Add('TAboutForm','FORMDATA',[
'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3'n'#2#6'Height'#3','#1#3'Top'#3#15 'TPF0'#10'TAboutForm'#9'AboutForm'#4'Left'#3'n'#2#6'Height'#3','#1#3'Top'#3#15
+#1#5'Width'#3#144#1#7'Caption'#6#9'AboutForm'#12'ClientHeight'#3','#1#11'Cli' +#1#5'Width'#3#144#1#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#9'AboutForm'#12
+'entWidth'#3#144#1#10'LCLVersion'#6#6'0.9.29'#0#5'TMemo'#5'Memo1'#4'Left'#2#0 +'ClientHeight'#3','#1#11'ClientWidth'#3#144#1#10'LCLVersion'#6#6'0.9.29'#0#5
+#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5'Align'#7#8'alClient'#13'Line' +'TMemo'#5'Memo1'#4'Left'#2#0#6'Height'#3','#1#3'Top'#2#0#5'Width'#3#144#1#5
+'s.Strings'#1#6'$Mufasa is, and always will be, sick.'#0#8'TabOrder'#2#0#0#0 +'Align'#7#8'alClient'#13'Lines.Strings'#1#6'$Mufasa is, and always will be, '
+#0 +'sick.'#0#8'TabOrder'#2#0#0#0#0
]); ]);

23
Projects/SAMufasaGUI/about.pas
View File

@ -1,3 +1,26 @@
{
This file is part of the Mufasa Macro Library (MML)
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
MML is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
MML is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with MML. If not, see <http://www.gnu.org/licenses/>.
See the file COPYING, included in this distribution,
for details about the copyright.
about form for the Mufasa Macro Library
}
unit about; unit about;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}

142
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="10"/> <ActiveEditorIndexAtStart Value="8"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -162,8 +162,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="8" Y="36"/> <CursorPos X="1" Y="1"/>
<TopLine Value="16"/> <TopLine Value="1"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -248,7 +248,7 @@
<UnitName Value="files"/> <UnitName Value="files"/>
<CursorPos X="1" Y="46"/> <CursorPos X="1" Y="46"/>
<TopLine Value="37"/> <TopLine Value="37"/>
<EditorIndex Value="11"/> <EditorIndex Value="12"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit28> </Unit28>
@ -282,7 +282,7 @@
<CursorPos X="71" Y="274"/> <CursorPos X="71" Y="274"/>
<TopLine Value="242"/> <TopLine Value="242"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="82"/> <UsageCount Value="84"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit32> </Unit32>
<Unit33> <Unit33>
@ -313,7 +313,7 @@
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="20" Y="249"/> <CursorPos X="20" Y="249"/>
<TopLine Value="221"/> <TopLine Value="221"/>
<EditorIndex Value="8"/> <EditorIndex Value="9"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit36> </Unit36>
@ -381,8 +381,8 @@
<Unit46> <Unit46>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<CursorPos X="32" Y="80"/> <CursorPos X="32" Y="80"/>
<TopLine Value="65"/> <TopLine Value="1"/>
<EditorIndex Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="100"/> <UsageCount Value="100"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit46> </Unit46>
@ -709,9 +709,9 @@
<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="17" Y="440"/> <CursorPos X="1" Y="1"/>
<TopLine Value="440"/> <TopLine Value="1"/>
<EditorIndex Value="12"/> <EditorIndex Value="13"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit95> </Unit95>
@ -993,7 +993,7 @@
<UnitName Value="web"/> <UnitName Value="web"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="130"/> <UsageCount Value="133"/>
</Unit136> </Unit136>
<Unit137> <Unit137>
<Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/> <Filename Value="../../../lazarus/lcl/lazhelphtml.pas"/>
@ -1193,7 +1193,7 @@
<CursorPos X="15" Y="195"/> <CursorPos X="15" Y="195"/>
<TopLine Value="180"/> <TopLine Value="180"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<UsageCount Value="123"/> <UsageCount Value="126"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit161> </Unit161>
<Unit162> <Unit162>
@ -1508,7 +1508,7 @@
<UnitName Value="colourhistory"/> <UnitName Value="colourhistory"/>
<CursorPos X="65" Y="46"/> <CursorPos X="65" Y="46"/>
<TopLine Value="46"/> <TopLine Value="46"/>
<UsageCount Value="60"/> <UsageCount Value="63"/>
</Unit208> </Unit208>
<Unit209> <Unit209>
<Filename Value="../../../Documents/lazarus/lcl/comctrls.pp"/> <Filename Value="../../../Documents/lazarus/lcl/comctrls.pp"/>
@ -1756,139 +1756,141 @@
<ComponentName Value="AboutForm"/> <ComponentName Value="AboutForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="about"/> <UnitName Value="about"/>
<CursorPos X="61" Y="6"/> <CursorPos X="81" Y="11"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<UsageCount Value="23"/> <EditorIndex Value="8"/>
<UsageCount Value="26"/>
<Loaded Value="True"/>
</Unit245> </Unit245>
<Unit246> <Unit246>
<Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/Wrappers/file.inc"/>
<CursorPos X="21" Y="26"/> <CursorPos X="13" Y="21"/>
<TopLine Value="17"/> <TopLine Value="1"/>
<EditorIndex Value="10"/> <EditorIndex Value="11"/>
<UsageCount Value="10"/> <UsageCount Value="12"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit246> </Unit246>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="83" Column="78" TopLine="68"/> <Caret Line="277" Column="20" TopLine="262"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="142" Column="35" TopLine="127"/> <Caret Line="279" Column="19" TopLine="262"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="144" Column="45" TopLine="127"/> <Caret Line="110" Column="39" TopLine="102"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="277" Column="20" TopLine="262"/> <Caret Line="139" Column="33" TopLine="124"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="279" Column="19" TopLine="262"/> <Caret Line="140" Column="66" TopLine="124"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="110" Column="39" TopLine="102"/> <Caret Line="142" Column="63" TopLine="124"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="139" Column="33" TopLine="124"/> <Caret Line="144" Column="62" TopLine="124"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="140" Column="66" TopLine="124"/> <Caret Line="145" Column="30" TopLine="124"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="142" Column="63" TopLine="124"/> <Caret Line="193" Column="19" TopLine="178"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="144" Column="62" TopLine="124"/> <Caret Line="347" Column="23" TopLine="332"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/window.pas"/>
<Caret Line="145" Column="30" TopLine="124"/> <Caret Line="374" Column="26" TopLine="359"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="193" Column="19" TopLine="178"/> <Caret Line="47" Column="24" TopLine="31"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/input.pas"/>
<Caret Line="347" Column="23" TopLine="332"/> <Caret Line="271" Column="54" TopLine="261"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="../../Units/MMLCore/window.pas"/> <Filename Value="../../Units/MMLCore/input.pas"/>
<Caret Line="374" Column="26" TopLine="359"/> <Caret Line="273" Column="7" TopLine="258"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="47" Column="24" TopLine="31"/> <Caret Line="50" Column="29" TopLine="31"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../Units/MMLCore/input.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="271" Column="54" TopLine="261"/> <Caret Line="127" Column="10" TopLine="112"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="../../Units/MMLCore/input.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="273" Column="7" TopLine="258"/> <Caret Line="386" Column="10" TopLine="371"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="50" Column="29" TopLine="31"/> <Caret Line="424" Column="10" TopLine="409"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="127" Column="10" TopLine="112"/> <Caret Line="738" Column="10" TopLine="723"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/> <Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="386" Column="10" TopLine="371"/> <Caret Line="758" Column="10" TopLine="743"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="424" Column="10" TopLine="409"/>
</Position21>
<Position22>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="738" Column="10" TopLine="723"/>
</Position22>
<Position23>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<Caret Line="758" Column="10" TopLine="743"/>
</Position23>
<Position24>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="36" Column="8" TopLine="16"/> <Caret Line="36" Column="8" TopLine="16"/>
</Position24> </Position21>
<Position25> <Position22>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="198" Column="21" TopLine="181"/> <Caret Line="198" Column="21" TopLine="181"/>
</Position25> </Position22>
<Position26> <Position23>
<Filename Value="../../Units/MMLCore/client.pas"/> <Filename Value="../../Units/MMLCore/client.pas"/>
<Caret Line="48" Column="23" TopLine="31"/> <Caret Line="48" Column="23" TopLine="31"/>
</Position26> </Position23>
<Position27> <Position24>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="249" Column="20" TopLine="221"/> <Caret Line="249" Column="20" TopLine="221"/>
</Position27> </Position24>
<Position28> <Position25>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="21" Column="51" TopLine="1"/> <Caret Line="21" Column="51" TopLine="1"/>
</Position28> </Position25>
<Position29> <Position26>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="84" Column="95" TopLine="61"/> <Caret Line="84" Column="95" TopLine="61"/>
</Position29> </Position26>
<Position30> <Position27>
<Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/> <Filename Value="../../Units/MMLAddon/PSInc/pscompile.inc"/>
<Caret Line="77" Column="37" TopLine="62"/> <Caret Line="77" Column="37" TopLine="62"/>
</Position27>
<Position28>
<Filename Value="../../Units/MMLCore/dtm.pas"/>
<Caret Line="114" Column="36" TopLine="100"/>
</Position28>
<Position29>
<Filename Value="../../Units/MMLCore/dtm.pas"/>
<Caret Line="664" Column="17" TopLine="661"/>
</Position29>
<Position30>
<Filename Value="testunit.pas"/>
<Caret Line="40" Column="45" TopLine="16"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

23
Units/MMLAddon/PSInc/Wrappers/file.inc
View File

@ -1,3 +1,26 @@
{
This file is part of the Mufasa Macro Library (MML)
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
MML is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
MML is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with MML. If not, see <http://www.gnu.org/licenses/>.
See the file COPYING, included in this distribution,
for details about the copyright.
File.inc for the Mufasa Macro Library
}
function ps_CreateFile(Path: string): Integer; function ps_CreateFile(Path: string): Integer;
begin begin
Result := CurrThread.Client.MFiles.CreateFile(Path); Result := CurrThread.Client.MFiles.CreateFile(Path);

4
Units/MMLCore/dtm.pas
View File

@ -87,9 +87,6 @@ const
I am not sure wether I should simply copy and paste the old DTM implementation, I am not sure wether I should simply copy and paste the old DTM implementation,
or rewrite it from scratch. or rewrite it from scratch.
I recall there was something partially wrong with SCAR-alike DTM conversions
to Mufasa DTM's...
The old DTM system problaby doesn't perform that well, but seems to be quite The old DTM system problaby doesn't perform that well, but seems to be quite
stable and complete. stable and complete.
@ -412,6 +409,7 @@ begin
Y2 -= B.Y2; Y2 -= B.Y2;
end; end;
// TODO
procedure DTMRotatedBounds(dtm: pDTM; var x1, y1, x2, y2: Integer); procedure DTMRotatedBounds(dtm: pDTM; var x1, y1, x2, y2: Integer);
var var
i: Integer; i: Integer;