From 14e929decc789dab8770b73f6345a8ab444048de Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wajer.org>
Date: Tue, 8 Jun 2010 00:15:20 +0200
Subject: [PATCH] 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.
---
 Projects/ScriptManager/project1.lpi      | 169 +++++++++++++++++++----
 Projects/ScriptManager/scriptmanager.lfm |  44 ++----
 Projects/ScriptManager/scriptmanager.pas |  50 ++++++-
 3 files changed, 201 insertions(+), 62 deletions(-)

diff --git a/Projects/ScriptManager/project1.lpi b/Projects/ScriptManager/project1.lpi
index 1c43f37..a1d406d 100644
--- a/Projects/ScriptManager/project1.lpi
+++ b/Projects/ScriptManager/project1.lpi
@@ -10,7 +10,6 @@
       <TargetFileExt Value=""/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
-      <Icon Value="0"/>
       <ActiveWindowIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
@@ -35,12 +34,12 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="3">
+    <Units Count="9">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="project1"/>
-        <UsageCount Value="24"/>
+        <UsageCount Value="36"/>
       </Unit0>
       <Unit1>
         <Filename Value="scriptmanager.pas"/>
@@ -51,9 +50,9 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="77" Y="17"/>
-        <UsageCount Value="24"/>
+        <TopLine Value="34"/>
+        <CursorPos X="6" Y="58"/>
+        <UsageCount Value="36"/>
         <Loaded Value="True"/>
       </Unit1>
       <Unit2>
@@ -61,76 +60,186 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1276"/>
         <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"/>
         <DefaultSyntaxHighlighter Value="Text"/>
-      </Unit2>
+      </Unit8>
     </Units>
-    <JumpHistory Count="16" HistoryIndex="15">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="15" Column="32" TopLine="1"/>
+        <Caret Line="36" Column="29" TopLine="4"/>
       </Position1>
       <Position2>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="19" Column="32" TopLine="1"/>
+        <Caret Line="37" Column="29" TopLine="4"/>
       </Position2>
       <Position3>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="13" Column="32" TopLine="1"/>
+        <Caret Line="38" Column="37" TopLine="7"/>
       </Position3>
       <Position4>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="35" Column="29" TopLine="4"/>
+        <Caret Line="37" Column="37" TopLine="6"/>
       </Position4>
       <Position5>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="37" Column="29" TopLine="4"/>
+        <Caret Line="36" Column="37" TopLine="5"/>
       </Position5>
       <Position6>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="36" Column="29" TopLine="4"/>
+        <Caret Line="11" Column="52" TopLine="1"/>
       </Position6>
       <Position7>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="37" Column="29" TopLine="4"/>
+        <Caret Line="24" Column="86" TopLine="1"/>
       </Position7>
       <Position8>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="36" Column="29" TopLine="4"/>
+        <Caret Line="19" Column="26" TopLine="6"/>
       </Position8>
       <Position9>
-        <Filename Value="scriptmanager.pas"/>
-        <Caret Line="37" Column="29" TopLine="4"/>
+        <Filename Value="../../Units/MMLAddon/settings.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
       </Position9>
       <Position10>
-        <Filename Value="scriptmanager.pas"/>
-        <Caret Line="36" Column="29" TopLine="4"/>
+        <Filename Value="../../Units/MMLAddon/settings.pas"/>
+        <Caret Line="31" Column="54" TopLine="1"/>
       </Position10>
       <Position11>
-        <Filename Value="scriptmanager.pas"/>
-        <Caret Line="37" Column="29" TopLine="4"/>
+        <Filename Value="../../Units/MMLAddon/settings.pas"/>
+        <Caret Line="31" Column="71" TopLine="1"/>
       </Position11>
       <Position12>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="38" Column="37" TopLine="7"/>
+        <Caret Line="41" Column="10" TopLine="6"/>
       </Position12>
       <Position13>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="37" Column="37" TopLine="6"/>
+        <Caret Line="35" Column="82" TopLine="10"/>
       </Position13>
       <Position14>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="36" Column="37" TopLine="5"/>
+        <Caret Line="21" Column="69" TopLine="10"/>
       </Position14>
       <Position15>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="11" Column="52" TopLine="1"/>
+        <Caret Line="41" Column="39" TopLine="11"/>
       </Position15>
       <Position16>
         <Filename Value="scriptmanager.pas"/>
-        <Caret Line="24" Column="86" TopLine="1"/>
+        <Caret Line="42" Column="15" TopLine="11"/>
       </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>
   </ProjectOptions>
   <CompilerOptions>
@@ -140,6 +249,7 @@
     </Target>
     <SearchPaths>
       <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)"/>
     </SearchPaths>
     <Parsing>
@@ -148,12 +258,11 @@
       </SyntaxOptions>
     </Parsing>
     <CodeGeneration>
-      <TargetCPU Value="arm"/>
+      <TargetCPU Value="x86_64"/>
       <TargetOS Value="Linux"/>
     </CodeGeneration>
     <Linking>
       <Options>
-        <PassLinkerOptions Value="True"/>
         <LinkerOptions Value="-L/home/merlijn/Programs/fpc/libcross/"/>
         <Win32>
           <GraphicApplication Value="True"/>
diff --git a/Projects/ScriptManager/scriptmanager.lfm b/Projects/ScriptManager/scriptmanager.lfm
index 4f7ecd8..04f7c49 100644
--- a/Projects/ScriptManager/scriptmanager.lfm
+++ b/Projects/ScriptManager/scriptmanager.lfm
@@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 369
+  Left = 1499
   Height = 567
-  Top = 144
+  Top = 51
   Width = 825
   ActiveControl = Button1
   Caption = 'Form1'
@@ -12,7 +12,7 @@ object Form1: TForm1
     Left = 32
     Height = 520
     Top = 24
-    Width = 216
+    Width = 384
     Columns = <    
       item
         Caption = 'Scripts'
@@ -20,12 +20,6 @@ object Form1: TForm1
       end>
     IconOptions.Arrangement = iaLeft
     ItemIndex = -1
-    Items.LazData = {
-      640000000400000000000000FFFFFFFFFFFFFFFF000000000100000061000000
-      00FFFFFFFFFFFFFFFF00000000050000004974656D3100000000FFFFFFFFFFFF
-      FFFF00000000040000006664686400000000FFFFFFFFFFFFFFFF000000000200
-      00006466
-    }
     LargeImages = ImageList1
     ScrollBars = ssAutoBoth
     SmallImages = ImageList1
@@ -33,34 +27,26 @@ object Form1: TForm1
     TabOrder = 0
     ViewStyle = vsReport
   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
-    Left = 360
+    Left = 432
     Height = 25
-    Top = 24
+    Top = 504
     Width = 75
     Caption = 'Button1'
     OnClick = Button1Click
+    TabOrder = 1
+  end
+  object TreeView1: TTreeView
+    Left = 528
+    Height = 528
+    Top = 16
+    Width = 272
+    DefaultItemHeight = 19
     TabOrder = 2
   end
   object ImageList1: TImageList
-    left = 288
-    top = 16
+    left = 368
+    top = 504
     Bitmap = {
       4C69010000001000000010000000424242004242420042424200424242004242
       420042424200424242004242420042424200424242004242420042424200A155
diff --git a/Projects/ScriptManager/scriptmanager.pas b/Projects/ScriptManager/scriptmanager.pas
index b92cc79..a042790 100644
--- a/Projects/ScriptManager/scriptmanager.pas
+++ b/Projects/ScriptManager/scriptmanager.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, ComCtrls;
+  ExtCtrls, ComCtrls, settings, MufasaTypes;
 
 type
 
@@ -15,7 +15,6 @@ type
   TForm1 = class(TForm)
     Button1: TButton;
     ImageList1: TImageList;
-    ListBox1: TListBox;
     ListView1: TListView;
     TreeView1: TTreeView;
     procedure Button1Click(Sender: TObject);
@@ -23,7 +22,20 @@ type
     { private declarations }
   public
     { 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
   Form1: TForm1; 
@@ -33,9 +45,41 @@ implementation
 {$R *.lfm}
 
 { 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);
+var
+  s: TMMLSettings;
 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.