Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added AMXX-Studio to CVS

Browse Source
This commit is contained in:
Christian Hammacher
2005-08-26 18:29:39 +00:00
parent ac279b37e4
commit 9e035dc744
49 changed files with 28087 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
editor/studio/UnitCodeSnippets.pas Executable file
View File

@ -0,0 +1,92 @@
unit UnitCodeSnippets;
interface
uses SysUtils, Classes, Windows;
function GetSnippet(Lang, Ident: String): String;
function GetSnippetList(Lang: String): TStringList;
procedure AddSnippet(Lang, Ident, Code: String);
procedure DelSnippet(Lang, Ident: String);
procedure SetSnippet(Lang, Ident, Code: String);
implementation
function GetSnippet(Lang, Ident: String): String;
var eFile: TStringList;
i: Integer;
begin
eFile := TStringList.Create;
eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
for i := 0 to eFile.Count -1 do begin
if Pos(Ident + #1, eFile[i]) = 1 then begin
Result := eFile[i];
Delete(Result, 1, Length(Ident) +1);
Result := StringReplace(Result, #2, #13#10, [rfReplaceAll]);
end;
end;
eFile.Free;
end;
function GetSnippetList(Lang: String): TStringList;
var i: Integer;
begin
Result := TStringList.Create;
if FileExists(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl') then begin
Result.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
for i := 0 to Result.Count -1 do
Result[i] := Copy(Result[i], 1, Pos(#1, Result[i]) -1);
end;
end;
procedure AddSnippet(Lang, Ident, Code: String);
var eFile: TStringList;
begin
Code := StringReplace(Code, #13#10, #2, [rfReplaceAll]);
eFile := TStringList.Create;
eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
eFile.Add(Ident + #1 + Code);
eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
eFile.Free;
end;
procedure DelSnippet(Lang, Ident: String);
var eFile: TStringList;
i: Integer;
begin
eFile := TStringList.Create;
eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
for i := eFile.Count -1 downto 0 do begin
if Pos(Ident + #1, eFile[i]) = 1 then
eFile.Delete(i);
end;
eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
eFile.Free;
end;
procedure SetSnippet(Lang, Ident, Code: String);
var eFile: TStringList;
i: Integer;
begin
Code := StringReplace(Code, #13#10, #2, [rfReplaceAll]);
eFile := TStringList.Create;
eFile.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
{ If item exists... }
for i := 0 to eFile.Count -1 do begin
if Pos(Ident + #1, eFile[i]) = 1 then begin
eFile[i] := Ident + #1 + Code;
eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
eFile.Free;
exit;
end;
end;
{ else... }
eFile.Add(Ident + #1 + Code);
eFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\' + Lang + '.csl'); // ... .csl = CodeSnippetList
eFile.Free;
end;
end.