moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-16 15:20:09 -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

43
Projects/SAMufasaGUI/about.lfm
View File

@ -1,21 +1,22 @@
object AboutForm: TAboutForm object AboutForm: TAboutForm
Left = 622 Left = 622
Height = 300 Height = 300
Top = 271 Top = 271
Width = 400 Width = 400
Caption = 'AboutForm' ActiveControl = Memo1
ClientHeight = 300 Caption = 'AboutForm'
ClientWidth = 400 ClientHeight = 300
LCLVersion = '0.9.29' ClientWidth = 400
object Memo1: TMemo LCLVersion = '0.9.29'
Left = 0 object Memo1: TMemo
Height = 300 Left = 0
Top = 0 Height = 300
Width = 400 Top = 0
Align = alClient Width = 400
Lines.Strings = ( Align = alClient
'Mufasa is, and always will be, sick.' Lines.Strings = (
) 'Mufasa is, and always will be, sick.'
TabOrder = 0 )
end TabOrder = 0
end end
end

18
Projects/SAMufasaGUI/about.lrs
View File

@ -1,10 +1,10 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
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
]); ]);

87
Projects/SAMufasaGUI/about.pas
View File

@ -1,32 +1,55 @@
unit about; {
This file is part of the Mufasa Macro Library (MML)
{$mode objfpc}{$H+} Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
interface MML is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
uses the Free Software Foundation, either version 3 of the License, or
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, (at your option) any later version.
StdCtrls;
MML is distributed in the hope that it will be useful,
type but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
{ TAboutForm } GNU General Public License for more details.
TAboutForm = class(TForm) You should have received a copy of the GNU General Public License
Memo1: TMemo; along with MML. If not, see <http://www.gnu.org/licenses/>.
private
{ private declarations } See the file COPYING, included in this distribution,
public for details about the copyright.
{ public declarations }
end; about form for the Mufasa Macro Library
}
var
AboutForm: TAboutForm; unit about;
implementation {$mode objfpc}{$H+}
initialization interface
{$I about.lrs}
uses
end. Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TAboutForm }
TAboutForm = class(TForm)
Memo1: TMemo;
private
{ private declarations }
public
{ public declarations }
end;
var
AboutForm: TAboutForm;
implementation
initialization
{$I about.lrs}
end.

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;