Added AMXX-Studio to CVS
This commit is contained in:
Christian Hammacher
431
editor/studio/UnitCodeUtils.pas
Executable file
431
editor/studio/UnitCodeUtils.pas
Executable file
@ -0,0 +1,431 @@
|
||||
unit UnitCodeUtils;
|
||||
|
||||
interface
|
||||
|
||||
uses SysUtils, Classes, Forms, Controls, Windows, ScintillaLanguageManager,
|
||||
RichEdit, ComCtrls, JvInspector;
|
||||
|
||||
function IsAtStart(eSubStr, eStr: String; AllowFunctions: Boolean = True): Boolean;
|
||||
function GetIndents(Line: Integer = -1): String;
|
||||
function GetStyleAt(ePos: Integer): TSciStyle;
|
||||
function LineFromPos(ePos: Integer): Integer;
|
||||
function RemoveSemicolon(eStr: String): String;
|
||||
procedure IndentCode;
|
||||
procedure UnindentCode;
|
||||
function Between(eText, eFirst, eSecond: String): String;
|
||||
procedure Delay(eTime: Integer);
|
||||
function CountChars(eIn: String; eChar: Char): Integer;
|
||||
function RemoveStringsAndComments(eLine: String; eRemoveStrings: Boolean): String;
|
||||
function GetMatchingBrace(eString: String): Integer;
|
||||
function GetColoredLine(eLine: Integer): String;
|
||||
|
||||
function GetRTFText(ARichEdit: TRichedit): string;
|
||||
procedure SetRTFText(ARichEdit: TRichedit; ARTFText: String);
|
||||
|
||||
implementation
|
||||
|
||||
uses UnitfrmMain, UnitMainTools, UnitLanguages;
|
||||
|
||||
function IsAtStart(eSubStr, eStr: String; AllowFunctions: Boolean = True): Boolean;
|
||||
begin
|
||||
eStr := LowerCase(Trim(StringReplace(eStr, #9, #32, [rfReplaceAll])));
|
||||
eSubStr := LowerCase(eSubStr);
|
||||
if Pos(eSubStr + #32, eStr) = 1 then
|
||||
Result := True
|
||||
else if (Pos(eSubStr + '(', eStr) = 1) and (AllowFunctions) then
|
||||
Result := True
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
|
||||
function GetIndents(Line: Integer = -1): String;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := '';
|
||||
if Line = -1 then
|
||||
Line := frmMain.sciEditor.GetCurrentLineNumber;
|
||||
|
||||
if Length(frmMain.sciEditor.Lines[Line]) <> 0 then begin
|
||||
for i := 1 to Length(frmMain.sciEditor.Lines[Line]) do begin
|
||||
if (frmMain.sciEditor.Lines[Line][i] <> #32) and (frmMain.sciEditor.Lines[Line][i] <> #9) then
|
||||
break
|
||||
else
|
||||
Result := Result + frmMain.sciEditor.Lines[Line][i];
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetStyleAt(ePos: Integer): TSciStyle;
|
||||
var eBits: Integer;
|
||||
eStyleNo: Byte;
|
||||
i: integer;
|
||||
begin
|
||||
Result := nil;
|
||||
|
||||
eStyleNo := Byte(frmMain.sciEditor.GetStyleAt(ePos));
|
||||
eBits := frmMain.sciEditor.GetStyleBits;
|
||||
|
||||
if eBits = 5 then
|
||||
eStyleNo := eStyleNo and $1f //Strip away the indicators (3 bits)
|
||||
else if eBits = 7 then
|
||||
eStyleNo := eStyleNo and $7f //Strip away the indicators (1 bit)
|
||||
else if eBits = 6 then
|
||||
eStyleNo := eStyleNo and $3f; //Strip away the indicators (2 bits)
|
||||
|
||||
if eStyleNo <> 32 then begin
|
||||
with frmMain.sciEditor.LanguageManager.LanguageList.Find(ActiveDoc.Highlighter).Styles do begin
|
||||
for i := 0 to Count -1 do begin
|
||||
if TSciStyle(Items[i]).StyleNumber = eStyleNo then
|
||||
Result := TSciStyle(Items[i]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function LineFromPos(ePos: Integer): Integer;
|
||||
var i: integer;
|
||||
eLength: Integer;
|
||||
begin
|
||||
Result := -1;
|
||||
eLength := 0;
|
||||
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
eLength := eLength + Length(frmMain.sciEditor.Lines[i]);
|
||||
if eLength >= ePos then begin
|
||||
Result := i;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function RemoveSemicolon(eStr: String): String;
|
||||
begin
|
||||
if Length(eStr) <> 0 then begin
|
||||
if eStr[Length(eStr)] = ';' then
|
||||
Result := Copy(eStr, 1, Length(eStr) -1)
|
||||
else
|
||||
Result := eStr;
|
||||
end
|
||||
else
|
||||
Result := eStr;
|
||||
end;
|
||||
|
||||
procedure IndentCode;
|
||||
var eStr: TStringList;
|
||||
i, k: integer;
|
||||
eIdent, eTempIdent: Integer;
|
||||
eString: String;
|
||||
begin
|
||||
Screen.Cursor := crHourGlass;
|
||||
frmMain.sciEditor.Enabled := False;
|
||||
eStr := TStringList.Create;
|
||||
eIdent := 0;
|
||||
eTempIdent := 0;
|
||||
|
||||
ShowProgress;
|
||||
frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count *2 -2;
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
if Cancel then begin
|
||||
Cancel := False;
|
||||
exit;
|
||||
end;
|
||||
eStr.Add(TrimLeft(frmMain.sciEditor.Lines[i]));
|
||||
// Remove strings and comments virtually because they could include brackets
|
||||
frmMain.pbLoading.Position := i;
|
||||
SetProgressStatus('Indenting Code...');
|
||||
eStr[i] := RemoveStringsAndComments(eStr[i], True);
|
||||
end;
|
||||
|
||||
for i := 0 to eStr.Count -1 do begin
|
||||
if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
|
||||
eIdent := eIdent - CountChars(eStr[i], '}');
|
||||
frmMain.sciEditor.Lines[i] := TrimLeft(frmMain.sciEditor.Lines[i]);
|
||||
|
||||
for k := 1 to eIdent + eTempIdent do
|
||||
frmMain.sciEditor.Lines[i] := ' ' + frmMain.sciEditor.Lines[i];
|
||||
if eTempIdent <> 0 then
|
||||
eTempIdent := eTempIdent -1;
|
||||
|
||||
if (IsAtStart('if', eStr[i], True)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 3) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 2);
|
||||
if (eString[1] <> Trim(eString)[1]) or (eString[1] = '(') then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end
|
||||
else if (IsAtStart('for', eStr[i], True)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 4) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 3);
|
||||
if (eString[1] <> Trim(eString)[1]) or (eString[1] = '(') then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end
|
||||
else if (IsAtStart('else', eStr[i], False)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 5) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 4);
|
||||
if eString[1] <> Trim(eString)[1] then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end
|
||||
else if (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 6) then begin
|
||||
if (IsAtStart('stock', eStr[i], False)) or (IsAtStart('while', eStr[i], True)) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 5);
|
||||
if (eString[1] <> Trim(eString)[1]) or (eString[1] = '(') then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 7) then begin
|
||||
if (Pos('public', eStr[i]) = 1) or (Pos('native', eStr[i]) = 1) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 6);
|
||||
if eString[1] <> Trim(eString)[1] then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end;
|
||||
end
|
||||
else if (IsAtStart('forward', eStr[i], False)) and (Pos('{', eStr[i]) = 0) and (Length(eStr[i]) > 8) then begin
|
||||
eString := eStr[i];
|
||||
Delete(eString, 1, 7);
|
||||
if eString[1] <> Trim(eString)[1] then begin
|
||||
eString := Trim(eString);
|
||||
if GetMatchingBrace(eString) = Length(eString) then
|
||||
eTempIdent := eTempIdent +1;
|
||||
end;
|
||||
end;
|
||||
|
||||
if CountChars(eStr[i], '{') <> CountChars(eStr[i], '}') then
|
||||
eIdent := eIdent + CountChars(eStr[i], '{');
|
||||
|
||||
frmMain.pbLoading.Position := frmMain.sciEditor.Lines.Count + i -1;
|
||||
SetProgressStatus('Indenting Code...');
|
||||
end;
|
||||
|
||||
ActiveDoc.Modified := True;
|
||||
frmMain.mnuModified.Caption := lModified;
|
||||
HideProgress;
|
||||
|
||||
frmMain.sciEditor.Enabled := True;
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
|
||||
procedure UnindentCode;
|
||||
var i: integer;
|
||||
begin
|
||||
Screen.Cursor := crHourGlass;
|
||||
frmMain.sciEditor.Enabled := False;
|
||||
ShowProgress;
|
||||
frmMain.pbLoading.Max := frmMain.sciEditor.Lines.Count -1;
|
||||
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
|
||||
if Cancel then begin
|
||||
Cancel := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
frmMain.sciEditor.Lines[i] := TrimLeft(frmMain.sciEditor.Lines[i]);
|
||||
frmMain.pbLoading.Position := i;
|
||||
SetProgressStatus('Unintending Code...');
|
||||
end;
|
||||
HideProgress;
|
||||
frmMain.sciEditor.Enabled := True;
|
||||
Screen.Cursor := crDefault;
|
||||
end;
|
||||
|
||||
function RemoveStringsAndComments(eLine: String; eRemoveStrings: Boolean): String;
|
||||
begin
|
||||
// Remove comments
|
||||
if (Pos(GetCurrLang.CommentBoxStart, eLine) = 1) or (Pos(GetCurrLang.CommentBoxMiddle, eLine) = 1) or (Pos(GetCurrLang.CommentBoxEnd, eLine) = 1) or (Pos(GetCurrLang.CommentBlock, eLine) = 1) then
|
||||
eLine := '';
|
||||
if Pos(GetCurrLang.CommentBlock, eLine) <> 0 then
|
||||
eLine := Copy(eLine, 1, Pos('//', eLine) -2);
|
||||
if (Pos(GetCurrLang.CommentStreamStart, eLine) < Pos(GetCurrLang.CommentStreamEnd, eLine)) and (Pos(GetCurrLang.CommentStreamStart, eLine) <> 0) then
|
||||
eLine := StringReplace(eLine, GetCurrLang.CommentStreamStart + Between(eLine, GetCurrLang.CommentStreamStart, GetCurrLang.CommentStreamEnd) + GetCurrLang.CommentStreamEnd, '', [rfReplaceAll]); // maybe not the best method, but simple and quite easy
|
||||
// Remove quotes
|
||||
if eRemoveStrings then begin
|
||||
while CountChars(eLine, '"') > 1 do
|
||||
eLine := StringReplace(eLine, '"' + Between(eLine, '"', '"') + '"', '', [rfReplaceAll]);
|
||||
end;
|
||||
|
||||
Result := eLine;
|
||||
end;
|
||||
|
||||
procedure Delay(eTime: Integer);
|
||||
var i: integer;
|
||||
begin
|
||||
for i := 1 to eTime do begin
|
||||
Sleep(1);
|
||||
Application.ProcessMessages;
|
||||
if Application.Terminated then
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
function CountChars(eIn: String; eChar: Char): Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
Result := 0;
|
||||
if Length(eIn) <> 0 then begin
|
||||
for i := 1 to Length(eIn) do begin
|
||||
if eIn[i] = eChar then
|
||||
Inc(Result, 1);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function Between(eText, eFirst, eSecond: String): String;
|
||||
var eTemp: String;
|
||||
begin
|
||||
if (Pos(eFirst, eText) = 0) or (Pos(eSecond, eText) = 0) then
|
||||
Result := ''
|
||||
else begin
|
||||
eTemp := eText;
|
||||
Delete(eTemp, 1, Pos(eFirst, eText) + Length(eFirst) - 1);
|
||||
Delete(eTemp, Pos(eSecond, eTemp), Length(eTemp));
|
||||
Result := eTemp;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetMatchingBrace(eString: String): Integer;
|
||||
var a, b,c : integer;
|
||||
begin
|
||||
Result := 0;
|
||||
if Length(eString) < 1 then exit;
|
||||
|
||||
b := 0;
|
||||
c := 0;
|
||||
|
||||
for a := 1 to Length(eString) do begin
|
||||
if eString[a] = '(' then begin
|
||||
b := b +1;
|
||||
c := 1;
|
||||
end
|
||||
else if eString[a] = ')' then begin
|
||||
b := b -1;
|
||||
c := 1;
|
||||
end;
|
||||
|
||||
if (b = 0) and (c = 1) then begin
|
||||
Result := a;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function GetColoredLine(eLine: Integer): String;
|
||||
var eCurrStyle: String;
|
||||
eChars: Integer;
|
||||
i: integer;
|
||||
begin
|
||||
eChars := 0;
|
||||
if eLine <> 0 then begin
|
||||
for i := 0 to eLine -1 do
|
||||
eChars := eChars + Length(frmMain.sciEditor.Lines[i]) + 2; // +2 for #13#10
|
||||
end;
|
||||
|
||||
eCurrStyle := '';
|
||||
Result := IntToStr(eLine +1) + '] ';
|
||||
if Length(frmMain.sciEditor.Lines[eLine]) = 0 then exit;
|
||||
|
||||
for i := 0 to Length(frmMain.sciEditor.Lines[eLine]) -1 do begin
|
||||
if eCurrStyle <> GetStyleAt(eChars + i).Name then begin
|
||||
eCurrStyle := GetStyleAt(eChars + i).Name;
|
||||
|
||||
if (eCurrStyle = 'White Space') and (Length(Result) <> Length(IntToStr(eLine +1) + '] ')) then
|
||||
Result := Result + '';
|
||||
if eCurrStyle = 'Ok Braces' then
|
||||
Result := Result + '02';
|
||||
if eCurrStyle = 'Bad Braces' then
|
||||
Result := Result + '04';
|
||||
if eCurrStyle = 'White Space' then
|
||||
Result := Result + '12';
|
||||
if eCurrStyle = 'Comment' then
|
||||
Result := Result + '07';
|
||||
if eCurrStyle = 'Line Comment' then
|
||||
Result := Result + '07';
|
||||
if eCurrStyle = 'Doc Comment' then
|
||||
Result := Result + '07';
|
||||
if eCurrStyle = 'Number' then
|
||||
Result := Result + '12';
|
||||
if eCurrStyle = 'Keyword' then
|
||||
Result := Result + '03';
|
||||
if eCurrStyle = 'Double quoted string' then
|
||||
Result := Result + '04';
|
||||
if eCurrStyle = 'Single quoted string' then
|
||||
Result := Result + '04';
|
||||
if eCurrStyle = 'Symbols/UUID' then
|
||||
Result := Result + '04';
|
||||
if eCurrStyle = 'Preprocessor' then
|
||||
Result := Result + '07';
|
||||
if eCurrStyle = 'Operators' then
|
||||
Result := Result + '12';
|
||||
if eCurrStyle = 'Identifier' then
|
||||
Result := Result + '12';
|
||||
if eCurrStyle = 'Regular expressions' then
|
||||
Result := Result + '10';
|
||||
if eCurrStyle = 'Doc Comment Line' then
|
||||
Result := Result + '07';
|
||||
if eCurrStyle = 'User-defined keywords' then
|
||||
Result := Result + '04';
|
||||
end;
|
||||
Result := Result + frmMain.sciEditor.Lines[eLine][i +1];
|
||||
end;
|
||||
Result := StringReplace(Result, ' ', ' ', [rfReplaceAll]);
|
||||
end;
|
||||
|
||||
{ ------------------ NOTES ------------------ }
|
||||
|
||||
function GetRTFText(ARichEdit: TRichedit): string;
|
||||
var
|
||||
ss: TStringStream;
|
||||
emptystr: string;
|
||||
|
||||
eStr: TStringList;
|
||||
i: integer;
|
||||
begin
|
||||
Result := '';
|
||||
|
||||
emptystr := '';
|
||||
ss := TStringStream.Create(emptystr);
|
||||
eStr := TStringList.Create;
|
||||
try
|
||||
ARichEdit.PlainText := False;
|
||||
ARichEdit.Lines.SaveToStream(ss);
|
||||
eStr.Text := StringReplace(ss.DataString, '\', '\\ ', [rfReplaceAll]);
|
||||
for i := 0 to eStr.Count -1 do
|
||||
Result := Result + '\n' + eStr[i];
|
||||
Delete(Result, 1, 2);
|
||||
finally
|
||||
ss.Free;
|
||||
eStr.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SetRTFText(ARichEdit: TRichedit; ARTFText: String);
|
||||
var
|
||||
ss: TStringStream;
|
||||
begin
|
||||
ARTFText := StringReplace(ARTFText, '\n', #13#10, [rfReplaceAll]);
|
||||
ARTFText := StringReplace(ARTFText, '\\ ', '\', [rfReplaceAll]);
|
||||
|
||||
ss := TStringStream.Create(ARTFText);
|
||||
try
|
||||
ARichEdit.PlainText := False;
|
||||
ARichEdit.Lines.LoadFromStream(ss);
|
||||
finally
|
||||
ss.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user