moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Just a bit of the Script Manager code. 

I need to code a lot more, and it will be a bit hackish.

Basically, the TMMLSettings is not able to handle childs with the same name.
It can parse them into the tree, but the finding methods will not work. (They
will always find the first.)
Three possibilities:
-   Delete the one we just parsed, and search again. (We will get the next
result)
-   Use WalkToNode and then manually parse the node. (This is more dangerous
but doesn't delete the settints)
-   Do the XML parsing semi-manually, kind of like rewriting the settings unit.
This commit is contained in:
Merlijn Wajer 2010-06-08 00:15:20 +02:00
parent 496e4e5dbd
commit 14e929decc
3 changed files with 201 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

169
Projects/ScriptManager/project1.lpi
View File

@ -10,7 +10,6 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/> <ActiveWindowIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
@ -35,12 +34,12 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<UsageCount Value="24"/> <UsageCount Value="36"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
@ -51,9 +50,9 @@
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="34"/>
<CursorPos X="77" Y="17"/> <CursorPos X="6" Y="58"/>
<UsageCount Value="24"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -61,76 +60,186 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1276"/> <TopLine Value="1276"/>
<CursorPos X="1" Y="1294"/> <CursorPos X="1" Y="1294"/>
<SyntaxHighlighter Value="FreePascal"/> <UsageCount Value="8"/>
<DefaultSyntaxHighlighter Value="Delphi"/>
</Unit2>
<Unit3>
<Filename Value="../../Units/MMLCore/bitmaps.pas"/>
<UnitName Value="bitmaps"/>
<WindowIndex Value="0"/>
<TopLine Value="112"/>
<CursorPos X="79" Y="138"/>
<UsageCount Value="9"/>
</Unit3>
<Unit4>
<Filename Value="../../Units/MMLAddon/settings.pas"/>
<UnitName Value="settings"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="45"/>
<CursorPos X="5" Y="74"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../Units/MMLCore/os_linux.pas"/>
<UnitName Value="os_linux"/>
<WindowIndex Value="0"/>
<TopLine Value="11"/>
<CursorPos X="64" Y="29"/>
<UsageCount Value="9"/>
</Unit5>
<Unit6>
<Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
<UnitName Value="MufasaTypes"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="23"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="../../Units/MMLCore/mufasabase.pas"/>
<UnitName Value="mufasabase"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="7"/>
<CursorPos X="1" Y="1"/>
<UsageCount Value="13"/>
<Loaded Value="True"/>
</Unit7>
<Unit8>
<Filename Value="../../../lazarus/lcl/include/treeview.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="2214"/>
<CursorPos X="1" Y="2232"/>
<SyntaxHighlighter Value="Delphi"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<DefaultSyntaxHighlighter Value="Text"/> <DefaultSyntaxHighlighter Value="Text"/>
</Unit2> </Unit8>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="15" Column="32" TopLine="1"/> <Caret Line="36" Column="29" TopLine="4"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="19" Column="32" TopLine="1"/> <Caret Line="37" Column="29" TopLine="4"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="13" Column="32" TopLine="1"/> <Caret Line="38" Column="37" TopLine="7"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="35" Column="29" TopLine="4"/> <Caret Line="37" Column="37" TopLine="6"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/> <Caret Line="36" Column="37" TopLine="5"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="29" TopLine="4"/> <Caret Line="11" Column="52" TopLine="1"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="29" TopLine="4"/> <Caret Line="24" Column="86" TopLine="1"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="29" TopLine="4"/> <Caret Line="19" Column="26" TopLine="6"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="scriptmanager.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="37" Column="29" TopLine="4"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="scriptmanager.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="36" Column="29" TopLine="4"/> <Caret Line="31" Column="54" TopLine="1"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="scriptmanager.pas"/> <Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="37" Column="29" TopLine="4"/> <Caret Line="31" Column="71" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="38" Column="37" TopLine="7"/> <Caret Line="41" Column="10" TopLine="6"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="37" TopLine="6"/> <Caret Line="35" Column="82" TopLine="10"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="36" Column="37" TopLine="5"/> <Caret Line="21" Column="69" TopLine="10"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="11" Column="52" TopLine="1"/> <Caret Line="41" Column="39" TopLine="11"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="scriptmanager.pas"/> <Filename Value="scriptmanager.pas"/>
<Caret Line="24" Column="86" TopLine="1"/> <Caret Line="42" Column="15" TopLine="11"/>
</Position16> </Position16>
<Position17>
<Filename Value="scriptmanager.pas"/>
<Caret Line="30" Column="62" TopLine="12"/>
</Position17>
<Position18>
<Filename Value="scriptmanager.pas"/>
<Caret Line="29" Column="62" TopLine="12"/>
</Position18>
<Position19>
<Filename Value="scriptmanager.pas"/>
<Caret Line="31" Column="31" TopLine="12"/>
</Position19>
<Position20>
<Filename Value="scriptmanager.pas"/>
<Caret Line="37" Column="23" TopLine="19"/>
</Position20>
<Position21>
<Filename Value="scriptmanager.pas"/>
<Caret Line="64" Column="25" TopLine="36"/>
</Position21>
<Position22>
<Filename Value="scriptmanager.pas"/>
<Caret Line="55" Column="11" TopLine="45"/>
</Position22>
<Position23>
<Filename Value="scriptmanager.pas"/>
<Caret Line="52" Column="5" TopLine="28"/>
</Position23>
<Position24>
<Filename Value="scriptmanager.pas"/>
<Caret Line="59" Column="13" TopLine="34"/>
</Position24>
<Position25>
<Filename Value="../../Units/MMLAddon/settings.pas"/>
<Caret Line="63" Column="24" TopLine="52"/>
</Position25>
<Position26>
<Filename Value="scriptmanager.pas"/>
<Caret Line="53" Column="12" TopLine="34"/>
</Position26>
<Position27>
<Filename Value="scriptmanager.pas"/>
<Caret Line="57" Column="22" TopLine="35"/>
</Position27>
<Position28>
<Filename Value="scriptmanager.pas"/>
<Caret Line="55" Column="21" TopLine="38"/>
</Position28>
<Position29>
<Filename Value="scriptmanager.pas"/>
<Caret Line="33" Column="17" TopLine="27"/>
</Position29>
<Position30>
<Filename Value="scriptmanager.pas"/>
<Caret Line="58" Column="34" TopLine="50"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -140,6 +249,7 @@
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)/"/> <IncludeFiles Value="$(ProjOutDir)/"/>
<OtherUnitFiles Value="$(ProjPath)../../Units/MMLCore/;$(ProjPath)../../Units/MMLAddon/;$(ProjPath)../../Units/PascalScript/;$(ProjPath)../../Units/Misc/;$(ProjPath)../../Units/MMLAddon/PSInc/;$(ProjPath)../../Units/Linux/;$(LazarusDir)/components/mouseandkeyinput/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
@ -148,12 +258,11 @@
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<CodeGeneration> <CodeGeneration>
<TargetCPU Value="arm"/> <TargetCPU Value="x86_64"/>
<TargetOS Value="Linux"/> <TargetOS Value="Linux"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Options> <Options>
<PassLinkerOptions Value="True"/>
<LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/> <LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

44
Projects/ScriptManager/scriptmanager.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 369 Left = 1499
Height = 567 Height = 567
Top = 144 Top = 51
Width = 825 Width = 825
ActiveControl = Button1 ActiveControl = Button1
Caption = 'Form1' Caption = 'Form1'
@ -12,7 +12,7 @@ object Form1: TForm1
Left = 32 Left = 32
Height = 520 Height = 520
Top = 24 Top = 24
Width = 216 Width = 384
Columns = < Columns = <
item item
Caption = 'Scripts' Caption = 'Scripts'
@ -20,12 +20,6 @@ object Form1: TForm1
end> end>
IconOptions.Arrangement = iaLeft IconOptions.Arrangement = iaLeft
ItemIndex = -1 ItemIndex = -1
Items.LazData = {
640000000400000000000000FFFFFFFFFFFFFFFF000000000100000061000000
00FFFFFFFFFFFFFFFF00000000050000004974656D3100000000FFFFFFFFFFFF
FFFF00000000040000006664686400000000FFFFFFFFFFFFFFFF000000000200
00006466
}
LargeImages = ImageList1 LargeImages = ImageList1
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
SmallImages = ImageList1 SmallImages = ImageList1
@ -33,34 +27,26 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
end end
object ListBox1: TListBox
Left = 560
Height = 520
Top = 24
Width = 240
Items.Strings = (
'wat'
'wa'
'asd'
'd'
'd'
)
ItemHeight = 40
Style = lbOwnerDrawFixed
TabOrder = 1
end
object Button1: TButton object Button1: TButton
Left = 360 Left = 432
Height = 25 Height = 25
Top = 24 Top = 504
Width = 75 Width = 75
Caption = 'Button1' Caption = 'Button1'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 1
end
object TreeView1: TTreeView
Left = 528
Height = 528
Top = 16
Width = 272
DefaultItemHeight = 19
TabOrder = 2 TabOrder = 2
end end
object ImageList1: TImageList object ImageList1: TImageList
left = 288 left = 368
top = 16 top = 504
Bitmap = { Bitmap = {
4C69010000001000000010000000424242004242420042424200424242004242 4C69010000001000000010000000424242004242420042424200424242004242
420042424200424242004242420042424200424242004242420042424200A155 420042424200424242004242420042424200424242004242420042424200A155

48
Projects/ScriptManager/scriptmanager.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, ComCtrls; ExtCtrls, ComCtrls, settings, MufasaTypes;
type type
@ -15,7 +15,6 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton; Button1: TButton;
ImageList1: TImageList; ImageList1: TImageList;
ListBox1: TListBox;
ListView1: TListView; ListView1: TListView;
TreeView1: TTreeView; TreeView1: TTreeView;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
@ -25,6 +24,19 @@ type
{ public declarations } { public declarations }
end; end;
TSimbaScript = class(TObject)
public
Name, Version, Author, Description: String;
Tags, Files: TStringArray;
private
public
constructor Create(n: TTreeNode);
destructor Delete;
end;
var var
Form1: TForm1; Form1: TForm1;
@ -33,9 +45,41 @@ implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 } { TForm1 }
procedure fill(s: TMMLSettings);
var
i:integer;
n, nn: TTreeNode;
ss: TSimbaScript;
begin
n := s.WalkToNode('Scripts/ScriptList/');
nn := n.GetFirstChild;
while nn <> nil do
begin
ss := TSimbaScript.Create(nn);
nn := nn.GetNextSibling;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);
var
s: TMMLSettings;
begin begin
s := TMMLSettings.Create(TreeView1.Items);
s.LoadFromXML('/scratch/gittest/list.xml');
fill(s);
s.Free;
end;
{ TSimbaScript }
constructor TSimbaScript.Create(n: TTreeNode);
begin
end;
destructor TSimbaScript.Delete;
begin
end; end;
end. end.