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

Merge pull request #22 from Dgby714/Paster.sex

Browse Source 
Extension: Paster Update
This commit is contained in:
Merlijn Wajer 2011-06-13 11:42:29 -07:00
commit bfc3f862e9
3 changed files with 293 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Extensions/Updater.sei
View File

@ -322,6 +322,16 @@ begin
Result := True; Result := True;
end; end;
{ procedure Free; //Doesn't Work
var
I: integer;
begin
for I := 0 to High(UpdaterArr) do
with UpdaterArr[I] do
if (Timer <> nil) then
Timer.Free;
end; }
procedure Attach; procedure Attach;
var var
I: integer; I: integer;

352
Extensions/paster.sex
View File

@ -10,17 +10,32 @@ end;
function GetVersion: string; function GetVersion: string;
begin; begin;
Result := '0.4a'; Result := '1.0b';
end; end;
{$IFDEF EXTENSION} {$IFDEF EXTENSION}
type
TAltHost_Menu = record
Index: integer;
Menu: TMenuItem;
Paste_MenuItem: TMenuItem;
PasteS_MenuItem: TMenuItem;
GetPaste_MenuItem: TMenuItem;
Divider_MenuItem: TMenuItem;
Default_MenuItem: TMenuItem;
Update_MenuItem: TMenuItem;
Delete_MenuItem: TMenuItem;
end;
TAltHost_Menus = array of TAltHost_Menu;
var var
Paster_Menu, GetPaste_MenuItem, Private_MenuItem, Paster_Menu, GetPaste_MenuItem, Private_MenuItem,
Browser_MenuItem, Paster_MenuItem, AltHost_Menu: TMenuItem; Browser_MenuItem, AltHost_Menu, AltHostAdd_MenuItem: TMenuItem;
Divider_MenuItems: array[1..2] of TMenuItem; Paster_MenuItems: array[1..2] of TMenuItem;
AltHost_Menus: array[1..5] of TMenuItem; Divider_MenuItems: array[1..3] of TMenuItem;
AltHost_MenuItems: array[1..5] of array[1..5] of TMenuItem; AltHost_Menus: TAltHost_Menus;
AltHost_Top: integer;
function EncodeString(Data: string): string; function EncodeString(Data: string): string;
var var
@ -97,17 +112,24 @@ begin
end; end;
end; end;
function PasteIt(out Data: string; HOST: string): boolean; function PasteIt(out Data: string; HOST, S: string): boolean;
var var
ScriptTextEx: string; ScriptTextEx: string;
begin begin
if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Upload this script to ' + HOST + '?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Upload this script to ' + HOST + '?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin begin
ScriptTextEx := ScriptText; ScriptTextEx := S;
if (ExecRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])', ScriptTextEx)) then if (ExecRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])', ScriptTextEx)) then
if (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Would you like to mask sensitive data?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then case (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Would you like to mask sensitive data?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)) of
ScriptTextEx := ReplaceRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])\s*\:\=\s*\''.*?\'';', ScriptTextEx, '$1 := ''*********'';', True); mrYes: ScriptTextEx := ReplaceRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])\s*\:\=\s*\''.*?\'';', ScriptTextEx, '$1 := ''*********'';', True);
mrNo: WriteLn('[Paster]Warning: Not masking data!');
else
begin
WriteLn('[Paster]: Paste canceled');
Exit;
end;
end;
Data := '{"language": "delphi", "code": "' + EncodeString(ScriptTextEx) + '", "private": ' + Lowercase(BoolToStr(Private_MenuItem.Checked)) + '}'; Data := '{"language": "delphi", "code": "' + EncodeString(ScriptTextEx) + '", "private": ' + Lowercase(BoolToStr(Private_MenuItem.Checked)) + '}';
JSONRequest(Data, HOST, 'pastes.newPaste'); JSONRequest(Data, HOST, 'pastes.newPaste');
@ -120,13 +142,20 @@ begin
end; end;
end; end;
procedure Paste(Host: string); procedure Paste(Host, S: string);
var var
Data: string; Data: string;
begin begin
if (HOST = '') then if (HOST = '') then
HOST := HOSTDef; HOST := HOSTDef;
if PasteIt(Data, Host) then
if (S = '') then
begin
WriteLn('[Paster]Error: Ether your script is empty or you didn''t select any text.');
Exit;
end;
if PasteIt(Data, Host, S) then
begin begin
if (Browser_MenuItem.Checked) then if (Browser_MenuItem.Checked) then
begin begin
@ -135,19 +164,21 @@ begin
end else end else
WriteLn('Script pasted at id "' + Data + '"'); WriteLn('Script pasted at id "' + Data + '"');
end else end else
if (Data <> '') then
WriteLn(Data); WriteLn(Data);
end; end;
procedure UpdateDefault(I: integer); procedure UpdateDefault(Index: integer);
var var
J: integer; I: integer;
begin begin
Settings.setKeyValue('DefaultHost', IntToStr(I)); Settings.setKeyValue('DefaultHost', IntToStr(Index));
for J := 1 to 5 do for I := 0 to High(AltHost_Menus) do
if (J = I) then AltHost_Menus[I].Default_MenuItem.Checked := (Index = AltHost_Menus[I].Index);
AltHost_MenuItems[J][4].Checked := True
else Paster_MenuItems[1].Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
AltHost_MenuItems[J][4].Checked := False; Paster_MenuItems[2].Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
GetPaste_MenuItem.Enabled := (Settings.getKeyValueDef('DefaultHost', '-1') <> '-1');
end; end;
procedure UpdateHost(I: integer); procedure UpdateHost(I: integer);
@ -158,40 +189,115 @@ begin
begin begin
{$IFDEF DEV}WriteLn('Data := '#39 + Data + #39';');{$ENDIF} {$IFDEF DEV}WriteLn('Data := '#39 + Data + #39';');{$ENDIF}
if (Data = '') then if (Data = '') then
if (AltHost_Menus[I].Caption = 'Host ' + IntToStr(I)) then
begin begin
WriteLn('[Paster]Error: The host cannot be blank!'); WriteLn('[Paster]Error: The host cannot be blank!');
Exit; Exit;
end else
begin
AltHost_Menus[I].Caption := 'Host ' + IntToStr(I);
AltHost_MenuItems[I][1].Enabled := False;
AltHost_MenuItems[I][2].Enabled := False;
AltHost_MenuItems[I][4].Enabled := False;
Settings.setKeyValue('Host' + IntToStr(I), 'Host ' + IntToStr(I));
if (Settings.getKeyValueDef('DefaultHost', '1') = IntToStr(I)) then
UpdateDefault(1);
Exit;
end; end;
AltHost_Menus[I].Caption := Data;
AltHost_MenuItems[I][1].Enabled := True; AltHost_Menus[I].Menu.Caption := Data;
AltHost_MenuItems[I][2].Enabled := True; Settings.setKeyValue('Host' + IntToStr(AltHost_Menus[I].Index), Data);
AltHost_MenuItems[I][4].Enabled := True; end;
Settings.setKeyValue('Host' + IntToStr(I), Data); end;
procedure OnClick(Sender: TObject); forward;
procedure CreateAltMenu(I: integer);
var
J: integer;
begin
J := Length(AltHost_Menus);
SetLength(AltHost_Menus, J + 1);
with AltHost_Menus[J] do
begin
Index := I;
Menu := TMenuItem.Create(AltHost_Menu);
Menu.Name := 'Host_' + IntToStr(I) + '_Menu'
Menu.Caption := Settings.getKeyValueDef('Host' + IntToStr(I), '');
AltHost_Menu.Insert(Divider_MenuItems[3].MenuIndex, Menu);
Paste_MenuItem := TMenuItem.Create(Menu);
Paste_MenuItem.Name := Menu.Name + '_Paste';
Paste_MenuItem.Caption := 'Paste Script';
Paste_MenuItem.OnClick := @OnClick;
Menu.Add(Paste_MenuItem);
PasteS_MenuItem := TMenuItem.Create(Menu);
PasteS_MenuItem.Name := Menu.Name + '_PasteS';
PasteS_MenuItem.Caption := 'Paste Selection';
PasteS_MenuItem.OnClick := @OnClick;
Menu.Add(PasteS_MenuItem);
GetPaste_MenuItem := TMenuItem.Create(Menu);
GetPaste_MenuItem.Name := Menu.Name + '_GetPaste';
GetPaste_MenuItem.Caption := 'Get Paste';
GetPaste_MenuItem.OnClick := @OnClick;
Menu.Add(GetPaste_MenuItem);
Divider_MenuItem := TMenuItem.Create(Menu);
Divider_MenuItem.Caption := '-';
Menu.Add(Divider_MenuItem);
Default_MenuItem := TMenuItem.Create(Menu);
Default_MenuItem.Name := Menu.Name + '_Default';
Default_MenuItem.Caption := 'Default';
Default_MenuItem.Checked := (Settings.getKeyValueDef('DefaultHost', '1') = IntToStr(I));
Default_MenuItem.OnClick := @OnClick;
Menu.Add(Default_MenuItem);
Update_MenuItem := TMenuItem.Create(Menu);
Update_MenuItem.Name := Menu.Name + '_Update';
Update_MenuItem.Caption := 'Update Host';
Update_MenuItem.OnClick := @OnClick;
Menu.Add(Update_MenuItem);
Delete_MenuItem := TMenuItem.Create(Menu);
Delete_MenuItem.Name := Menu.Name + '_Delete';
Delete_MenuItem.Caption := 'Delete Host';
Delete_MenuItem.OnClick := @OnClick;
Menu.Add(Delete_MenuItem);
end; end;
end; end;
procedure OnClick(Sender: TObject); procedure OnClick(Sender: TObject);
var var
I, K: integer; I, K: integer;
Data: string;
begin; begin;
{$IFDEF DEV} {$IFDEF DEV}
if (Sender is TMenuItem) then if (Sender is TMenuItem) then
WriteLn('Sender is '#39 + TMenuItem(Sender).Name + #39'.'); //(Sender as TMenuItem).Name WriteLn('Sender is '#39 + TMenuItem(Sender).Name + #39'.'); //(Sender as TMenuItem).Name
{$ENDIF} {$ENDIF}
case Sender of case Sender of
Paster_MenuItem: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '1'))); Paster_MenuItems[1]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')), ScriptText);
GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '1'))); Paster_MenuItems[2]: Paste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')), GetSelectedText);
GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + Settings.getKeyValueDef('DefaultHost', '-1')));
AltHostAdd_MenuItem: begin
I := 1;
while (Settings.IsKey('Host' + IntToStr(I))) do
Inc(I);
if InputQuery(GetName + ' ' + GetVersion + ' Extension', 'Please input the LodgeIt Host! (Ex: paste.pocoo.org)', Data) then
begin
{$IFDEF DEV}WriteLn('Data := '#39 + Data + #39';');{$ENDIF}
if (Data = '') then
begin
WriteLn('[Paster]Error: The host cannot be blank!');
Exit;
end;
Settings.setKeyValue('Host' + IntToStr(I), Data);
CreateAltMenu(I);
Inc(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
if (I = 1) then
UpdateDefault(I);
end;
end;
Private_MenuItem: begin Private_MenuItem: begin
Private_MenuItem.Checked := (not (Private_MenuItem.Checked)); Private_MenuItem.Checked := (not (Private_MenuItem.Checked));
Settings.setKeyValue('Private', Lowercase(BoolToStr(Private_MenuItem.Checked))); Settings.setKeyValue('Private', Lowercase(BoolToStr(Private_MenuItem.Checked)));
@ -203,17 +309,42 @@ begin;
{$IFDEF DEV}WriteLn('OpenBrowser = ' + Lowercase(BoolToStr(Browser_MenuItem.Checked)));{$ENDIF} {$IFDEF DEV}WriteLn('OpenBrowser = ' + Lowercase(BoolToStr(Browser_MenuItem.Checked)));{$ENDIF}
end; end;
end; end;
for I := 1 to 5 do
for K := 1 to 5 do for I := 0 to High(AltHost_Menus) do
if (Sender = AltHost_MenuItems[I][K]) then with AltHost_Menus[I] do
case Sender of
Paste_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), ScriptText);
PasteS_MenuItem: Paste(Settings.getKeyValue('Host' + IntToStr(Index)), GetSelectedText);
GetPaste_MenuItem: GetPaste(Settings.getKeyValue('Host' + IntToStr(Index)));
Default_MenuItem: UpdateDefault(Index);
Update_MenuItem: UpdateHost(I);
Delete_MenuItem: begin
if (not (MessageDlg(GetName + ' ' + GetVersion + ' Extension', 'Are you sure you would like to delete the "' + Settings.getKeyValue('Host' + IntToStr(Index)) + '" host?', mtConfirmation, [mbYes, mbCancel], 0) = mrYes)) then
Exit;
if (Settings.getKeyValueDef('DefaultHost', '-1') = IntToStr(Index)) then
UpdateDefault(-1);
Menu.Free;
if (not (Index = AltHost_Top)) then
begin begin
case K of for K := I to High(AltHost_Menus) - 1 do
1: Paste(Settings.getKeyValue('Host' + IntToStr(I))); begin
2: GetPaste(Settings.getKeyValue('Host' + IntToStr(I))); AltHost_Menus[K] := AltHost_Menus[K + 1];
4: UpdateDefault(I); Dec(AltHost_Menus[K].Index);
5: UpdateHost(I); end;
for K := Index to AltHost_Top - 1 do
Settings.setKeyValue('Host' + IntToStr(K), Settings.getKeyValue('Host' + IntToStr(K + 1)));
Settings.deleteKey('Host' + IntToStr(AltHost_Top));
end else
Settings.deleteKey('Host' + IntToStr(Index));
SetLength(AltHost_Menus, Length(AltHost_Menus) - 1);
Dec(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
Exit;
end; end;
Break;
end; end;
end; end;
@ -228,46 +359,74 @@ begin
Paster_Menu.Visible := False; Paster_Menu.Visible := False;
end; end;
procedure Free; procedure UpdateCheck;
{var var
I, K: integer;} V: string;
I: integer;
SA: TStringArray;
begin begin
{for I := 5 downto 1 do if (not (Settings.isKey('Version'))) then
Settings.setKeyValue('Version', '-1');
V := Settings.getKeyValue('Version');
if (V = GetVersion) then
Exit;
case V of
'-1', '0.4a': begin
SetLength(SA, 1);
SA[0] := HOSTDef;
for I := 1 to 5 do
begin begin
for K := 5 downto 1 do if (Settings.isKey('Host' + IntToStr(I))) then
AltHost_MenuItems[I][K].Free; begin
AltHost_Menus[I].Free; SetLength(SA, Length(SA) + 1);
SA[High(SA)] := Settings.getKeyValue('Host' + IntToStr(I));
Settings.DeleteKey('Host' + IntToStr(I));
end; end;
AltHost_Menu.Free; end;
Private_MenuItem.Free;
for I := 2 downto 1 do for I := 0 to High(SA) do
Divider_MenuItems[I].Free; Settings.setKeyValue('Host' + IntToStr(I + 1), SA[I]);
Paster_MenuItem.Free; end;
Paster_Menu.Free;} end;
Settings.setKeyValue('Version', GetVersion);
end; end;
procedure init; procedure Init;
var var
I, K: integer; I, K: integer;
begin; begin;
UpdateCheck;
Paster_Menu := TMenuItem.Create(Simba_MainMenu); Paster_Menu := TMenuItem.Create(Simba_MainMenu);
Paster_Menu.Caption := GetName; Paster_Menu.Caption := GetName;
Simba_MainMenu.Items.Add(Paster_Menu); Simba_MainMenu.Items.Add(Paster_Menu);
Paster_MenuItem := TMenuItem.Create(Paster_Menu); Paster_MenuItems[1] := TMenuItem.Create(Paster_Menu);
with Paster_MenuItem do with Paster_MenuItems[1] do
begin begin
Name := 'Default_Paste'; Name := 'Default_Paste';
Caption := 'Paste It!'; Caption := 'Paste Script';
OnClick := @OnClick; OnClick := @OnClick;
end; end;
Paster_Menu.Add(Paster_MenuItem); Paster_Menu.Add(Paster_MenuItems[1]);
Paster_MenuItems[2] := TMenuItem.Create(Paster_Menu);
with Paster_MenuItems[2] do
begin
Name := 'Default_PasteS';
Caption := 'Paste Selection';
OnClick := @OnClick;
end;
Paster_Menu.Add(Paster_MenuItems[2]);
GetPaste_MenuItem := TMenuItem.Create(Paster_Menu); GetPaste_MenuItem := TMenuItem.Create(Paster_Menu);
with GetPaste_MenuItem do with GetPaste_MenuItem do
begin begin
Name := 'Default_GetPaste'; Name := 'Default_GetPaste';
Caption := 'Get Paste!'; Caption := 'Get Paste';
OnClick := @OnClick; OnClick := @OnClick;
end; end;
Paster_Menu.Add(GetPaste_MenuItem); Paster_Menu.Add(GetPaste_MenuItem);
@ -306,46 +465,36 @@ begin;
AltHost_Menu.Caption := 'Hosts'; AltHost_Menu.Caption := 'Hosts';
Paster_Menu.Add(AltHost_Menu); Paster_Menu.Add(AltHost_Menu);
for I := 1 to 5 do Divider_MenuItems[3] := TMenuItem.Create(AltHost_Menu);
begin Divider_MenuItems[3].Caption := '-';
AltHost_Menus[I] := TMenuItem.Create(AltHost_Menu); Divider_MenuItems[3].Visible := False;
if (I = 1) then AltHost_Menu.Add(Divider_MenuItems[3]);
AltHost_Menus[I].Caption := HOSTDef
else
AltHost_Menus[I].Caption := Settings.getKeyValueDef('Host' + IntToStr(I), 'Host ' + IntToStr(I));
AltHost_Menu.Add(AltHost_Menus[I]);
for K := 1 to 5 do AltHostAdd_MenuItem := TMenuItem.Create(AltHost_Menu);
AltHostAdd_MenuItem.Name := 'AddHost';
AltHostAdd_MenuItem.Caption := 'Add Host';
AltHostAdd_MenuItem.OnClick := @OnClick;
AltHost_Menu.Add(AltHostAdd_MenuItem);
if (not (Settings.IsKey('Host1'))) then
begin begin
AltHost_MenuItems[I][K] := TMenuItem.Create(AltHost_Menus[I]); if (Settings.getKeyValueDef('DefaultHost', '-1') = '-1') then
case K of Settings.setKeyValue('DefaultHost', '1');
1: begin Settings.setKeyValue('Host1', HOSTDef);
AltHost_MenuItems[I][1].Name := 'Host' + IntToStr(I) + '_Paste';
AltHost_MenuItems[I][1].Caption := 'Paste It!';
end;
2: begin
AltHost_MenuItems[I][2].Name := 'Host' + IntToStr(I) + '_GetPaste';
AltHost_MenuItems[I][2].Caption := 'Get Paste!';
end;
3: AltHost_MenuItems[I][3].Caption := '-';
4: begin
AltHost_MenuItems[I][4].Name := 'Host' + IntToStr(I) + '_Default';
AltHost_MenuItems[I][4].Caption := 'Default';
AltHost_MenuItems[I][4].Checked := (Settings.getKeyValueDef('DefaultHost', '1') = IntToStr(I));
end;
5: begin
AltHost_MenuItems[I][5].Name := 'Host' + IntToStr(I) + '_Update';
AltHost_MenuItems[I][5].Caption := 'Update Host';
end;
end;
AltHost_MenuItems[I][K].OnClick := @OnClick;
if ((not ((K = 3) or (K = 5))) and (AltHost_Menus[I].Caption = 'Host ' + IntToStr(I))) then
AltHost_MenuItems[I][K].Enabled := False;
if ((I = 1) and (K = 5)) then
AltHost_MenuItems[I][K].Visible := False;
AltHost_Menus[I].Add(AltHost_MenuItems[I][K]);
end; end;
AltHost_Top := 1;
while (Settings.IsKey('Host' + IntToStr(AltHost_Top))) do
begin
if (Settings.GetKeyValue('Host' + IntToStr(AltHost_Top)) = 'Host ' + IntToStr(AltHost_Top)) then
Continue;
CreateAltMenu(AltHost_Top);
Inc(AltHost_Top);
end; end;
Dec(AltHost_Top);
Divider_MenuItems[3].Visible := (Divider_MenuItems[3].MenuIndex > 0);
UpdateDefault(StrToInt(Settings.getKeyValueDef('DefaultHost', '-1')));
end; end;
{$ENDIF} {$ENDIF}
@ -358,3 +507,4 @@ begin
{$ENDIF} {$ENDIF}
end. end.

27
Extensions/srl.sex
View File

@ -22,19 +22,28 @@ procedure OpenDefScript(Sender: TObject);
var var
Script: TStringArray; Script: TStringArray;
begin begin
SetLength(Script, 6); SetLength(Script, 7);
Script[0] := 'program Untitled;'; Script[0] := 'program Untitled;';
Script[1] := '//{$DEFINE SMART} //Uncomment for SMART'; Script[1] := '{$DEFINE SMART}';
Script[2] := '{.include SRL/SRL.scar}'; Script[2] := '{$I SRL/SRL.scar}';
if (TMenuItem(Sender).Parent.Caption = 'Reflection') then if (TMenuItem(Sender).Parent.Caption = 'Reflection') then
begin begin
SetLength(Script, 7); SetLength(Script, Length(Script) + 1);
Script[1] := '{$DEFINE SMART}'; Script[High(Script) - 4] := '{$I Reflection/Reflection.simba}';
Script[3] := '{.include Reflection/Reflection.scar}';
end; end;
Script[Length(Script) - 3] := '';
Script[Length(Script) - 2] := 'begin'; Script[High(Script) - 3] := '';
Script[Length(Script) - 1] := 'end.'; Script[High(Script) - 2] := 'begin';
Script[High(Script) - 1] := ' SetupSRL;';
if (TMenuItem(Sender).Parent.Caption = 'Reflection') then
begin
SetLength(Script, Length(Script) + 1);
Script[High(Script) - 1] := ' SetupReflection;';
end;
Script[High(Script)] := 'end.';
WriteLn('Opening ' + TMenuItem(Sender).Parent.Caption + ' Default Script...'); WriteLn('Opening ' + TMenuItem(Sender).Parent.Caption + ' Default Script...');
OpenScript('', Implode({$IFDEF WIN}#13+{$ENDIF}#10, Script), False); OpenScript('', Implode({$IFDEF WIN}#13+{$ENDIF}#10, Script), False);