mirror of
https://github.com/moparisthebest/Simba
synced 2025-02-27 08:51:51 -05:00
3c8a311844
Adding the rest of the data is peanuts. Now to figure out a good place to install the scripts to. The hardest part is probably keeping track of installed scripts, and updating them when possible.
124 lines
2.5 KiB
ObjectPascal
124 lines
2.5 KiB
ObjectPascal
{
|
|
This file is part of the Simba Project
|
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
|
|
|
Simba 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.
|
|
|
|
Simba 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.
|
|
|
|
Script Manager for the Simba project.
|
|
}
|
|
|
|
unit scriptmanager;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
ExtCtrls, ComCtrls, settings, MufasaTypes;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Button1: TButton;
|
|
ImageList1: TImageList;
|
|
ListView1: TListView;
|
|
TreeView1: TTreeView;
|
|
procedure Button1Click(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
TSimbaScript = class(TObject)
|
|
|
|
public
|
|
Name, Version, Author, Description: String;
|
|
Tags, Files: TStringArray;
|
|
|
|
private
|
|
|
|
public
|
|
constructor Create;
|
|
destructor Delete;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
procedure fill(s: TMMLSettings);
|
|
var
|
|
i:integer;
|
|
ss: TSimbaScript;
|
|
LI: TListItem;
|
|
strarr: TStringArray;
|
|
begin
|
|
if not s.ListKeys('Scripts/ScriptList', strarr) then
|
|
writeln('ListKeys returned false');
|
|
writeln('strarr length: ' + inttostr(length(strarr)));
|
|
for i := 0 to high(strarr) do
|
|
begin
|
|
writeln(s.GetKeyValue('Scripts/ScriptList/Script/Name'));
|
|
ss := TSimbaScript.Create();
|
|
ss.Name := s.GetKeyValue('Scripts/ScriptList/Script/Name');
|
|
LI := Form1.ListView1.Items.Add;
|
|
LI.Caption := ss.Name;
|
|
LI.Data := ss;
|
|
LI.ImageIndex:= 0;
|
|
|
|
s.DeleteKey('Scripts/ScriptList/Script');
|
|
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;
|
|
begin
|
|
inherited;
|
|
|
|
{stuff here}
|
|
end;
|
|
|
|
destructor TSimbaScript.Delete;
|
|
begin
|
|
|
|
{stuff here}
|
|
|
|
inherited;
|
|
end;
|
|
|
|
end.
|
|
|