Completely rewrote syntax highlighting. 3 times faster now, and no quirky bugs.
This commit is contained in:
mysticbbs
parent
399537f115
commit
a7f0ec49fd
306
mystic/mide.pas
306
mystic/mide.pas
|
|
@ -60,14 +60,8 @@ Const
|
||||||
colEditPosBar = 9 + 1 * 16;
|
colEditPosBar = 9 + 1 * 16;
|
||||||
|
|
||||||
Const
|
Const
|
||||||
Keywords = 29;
|
Keywords = 23;
|
||||||
Keyword : Array[1..Keywords] of String[9] = (
|
Keyword : Array[1..Keywords] of String[9] = (
|
||||||
( '=' ),
|
|
||||||
( ':=' ),
|
|
||||||
( '+' ),
|
|
||||||
( '-' ),
|
|
||||||
( '/' ),
|
|
||||||
( '*' ),
|
|
||||||
( 'AND' ),
|
( 'AND' ),
|
||||||
( 'BEGIN' ),
|
( 'BEGIN' ),
|
||||||
( 'CASE' ),
|
( 'CASE' ),
|
||||||
|
|
@ -106,6 +100,8 @@ Var
|
||||||
cfg_TextComment : Byte;
|
cfg_TextComment : Byte;
|
||||||
cfg_TextNormal : Byte;
|
cfg_TextNormal : Byte;
|
||||||
cfg_TextNumber : Byte;
|
cfg_TextNumber : Byte;
|
||||||
|
cfg_TextHex : Byte;
|
||||||
|
cfg_TextCharStr : Byte;
|
||||||
|
|
||||||
Type
|
Type
|
||||||
PEditorWindow = ^TEditorWindow;
|
PEditorWindow = ^TEditorWindow;
|
||||||
|
|
@ -300,116 +296,217 @@ Begin
|
||||||
Load := True;
|
Load := True;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Procedure DrawLine (Y: Byte; S: String);
|
Procedure DrawLineHighlight (Y: Byte; S: String);
|
||||||
Var
|
Const
|
||||||
sPos : Byte;
|
chNumber = ['0'..'9','.'];
|
||||||
|
chIdent = ['a'..'z','A'..'Z','_'];
|
||||||
|
chIdent2 = ['a'..'z','A'..'Z','_','0'..'9'];
|
||||||
|
chOpChar = ['+', '-', '/', '*', ':', '='];
|
||||||
|
chHexNum = ['a'..'f', 'A'..'F', '0'..'9'];
|
||||||
|
chOther = ['(', ')', ',', '.', '[', ']'];
|
||||||
|
|
||||||
Procedure pWrite (Str : String);
|
Type
|
||||||
|
Tokens = (
|
||||||
|
tSTRING,
|
||||||
|
tCOMMENT,
|
||||||
|
tTEXT,
|
||||||
|
tNUMBER,
|
||||||
|
tKEYWORD,
|
||||||
|
tOPCHAR,
|
||||||
|
tCHARNUM,
|
||||||
|
tHEXNUM,
|
||||||
|
tEOL
|
||||||
|
);
|
||||||
|
|
||||||
|
Var
|
||||||
|
ResStr : String = '';
|
||||||
|
StrPos : Byte = 0;
|
||||||
|
ScrollPos : Byte = 1;
|
||||||
|
Done : Boolean = False;
|
||||||
|
|
||||||
|
Function GetChar : Char;
|
||||||
|
Begin
|
||||||
|
Result := #00;
|
||||||
|
|
||||||
|
While StrPos < Length(S) Do Begin
|
||||||
|
Inc (StrPos);
|
||||||
|
|
||||||
|
Result := S[StrPos];
|
||||||
|
ResStr := ResStr + Result;
|
||||||
|
|
||||||
|
Break;
|
||||||
|
End;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Function NextToken : Tokens;
|
||||||
|
Var
|
||||||
|
Ch : Char;
|
||||||
|
Key : String;
|
||||||
|
Count : Byte;
|
||||||
|
Begin
|
||||||
|
Result := tEOL;
|
||||||
|
ResStr := '';
|
||||||
|
Key := '';
|
||||||
|
|
||||||
|
Repeat
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Break;
|
||||||
|
|
||||||
|
If Ch <> #32 Then Key := Key + Ch;
|
||||||
|
|
||||||
|
If Ch in chIdent Then Begin
|
||||||
|
Result := tTEXT;
|
||||||
|
|
||||||
|
While Ch in chIdent2 Do Begin
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Break;
|
||||||
|
|
||||||
|
Key := Key + Ch;
|
||||||
|
End;
|
||||||
|
|
||||||
|
If Ch <> #00 Then Begin
|
||||||
|
Dec(StrPos);
|
||||||
|
Dec(Key[0]);
|
||||||
|
Dec(ResStr[0]);
|
||||||
|
End;
|
||||||
|
|
||||||
|
For Count := 1 to Keywords Do
|
||||||
|
If Keyword[Count] = strUpper(Key) Then Begin
|
||||||
|
Result := tKEYWORD;
|
||||||
|
Exit;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else
|
||||||
|
If Ch = '''' Then Begin
|
||||||
|
Result := tSTRING;
|
||||||
|
|
||||||
|
Repeat
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
Case Ch of
|
||||||
|
#00 : Exit;
|
||||||
|
'''' : If S[StrPos + 1] = '''' Then GetChar Else Exit;
|
||||||
|
End;
|
||||||
|
Until False;
|
||||||
|
End Else
|
||||||
|
If (Ch = '/') and (S[StrPos + 1] = '/') Then Begin
|
||||||
|
Result := tCOMMENT;
|
||||||
|
|
||||||
|
Repeat Until GetChar = #00;
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else
|
||||||
|
If Ch in chNumber Then Begin
|
||||||
|
Result := tNUMBER;
|
||||||
|
|
||||||
|
While Ch in chNumber Do Begin
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Exit;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Dec(StrPos);
|
||||||
|
Dec(ResStr[0]);
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else
|
||||||
|
If Ch in chOpChar Then Begin
|
||||||
|
Result := tOPCHAR;
|
||||||
|
|
||||||
|
While Ch in chOpChar Do Begin
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Break;
|
||||||
|
|
||||||
|
Key := Key + Ch;
|
||||||
|
End;
|
||||||
|
|
||||||
|
If Ch <> #00 Then Begin
|
||||||
|
Dec(StrPos);
|
||||||
|
Dec(Key[0]);
|
||||||
|
Dec(ResStr[0]);
|
||||||
|
End;
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else
|
||||||
|
If Ch = '#' Then Begin
|
||||||
|
Result := tCHARNUM;
|
||||||
|
|
||||||
|
Repeat
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Exit;
|
||||||
|
Until Not (Ch in chNumber);
|
||||||
|
|
||||||
|
Dec(StrPos);
|
||||||
|
Dec(ResStr[0]);
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else
|
||||||
|
If Ch = '$' Then Begin
|
||||||
|
Result := tHEXNUM;
|
||||||
|
|
||||||
|
Repeat
|
||||||
|
Ch := GetChar;
|
||||||
|
|
||||||
|
If Ch = #00 Then Exit;
|
||||||
|
Until Not (Ch in chNumber);
|
||||||
|
|
||||||
|
Dec(StrPos);
|
||||||
|
Dec(ResStr[0]);
|
||||||
|
|
||||||
|
Exit;
|
||||||
|
End Else Begin
|
||||||
|
Result := tTEXT;
|
||||||
|
Exit;
|
||||||
|
End;
|
||||||
|
Until False;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Procedure WritePart (Str: String);
|
||||||
Var
|
Var
|
||||||
A : Byte;
|
A : Byte;
|
||||||
Begin
|
Begin
|
||||||
If Console.CursorX >= 79 Then Exit;
|
|
||||||
|
|
||||||
For A := 1 to Length(Str) Do Begin
|
For A := 1 to Length(Str) Do Begin
|
||||||
If sPos < CurWin[CurWinNum]^.ScrlX + 1 Then
|
If ScrollPos < CurWin[CurWinNum]^.ScrlX + 1 Then
|
||||||
Inc (sPos)
|
Inc (ScrollPos)
|
||||||
Else
|
Else
|
||||||
If Console.CursorX < 79 Then Console.WriteChar (Str[A]);
|
If Console.CursorX < 79 Then Console.WriteChar (Str[A]);
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Var
|
|
||||||
InString : Boolean;
|
|
||||||
A, B : Byte;
|
|
||||||
W : String;
|
|
||||||
LC : Char;
|
|
||||||
Begin
|
Begin
|
||||||
If cfg_Highlight Then Begin
|
Console.CursorXY(2, Y);
|
||||||
InString := False;
|
|
||||||
W := '';
|
|
||||||
Console.TextAttr := cfg_TextNormal;
|
|
||||||
sPos := 1;
|
|
||||||
|
|
||||||
Console.CursorXY (2, Y);
|
Repeat
|
||||||
|
Case NextToken of
|
||||||
For A := 1 to Length(S) Do Begin
|
tEOL : Break;
|
||||||
(*
|
tNUMBER : Console.TextAttr := cfg_TextNumber;
|
||||||
If (S[A] in [';', '.']) and not InString Then Begin
|
tCOMMENT : Console.TextAttr := cfg_TextComment;
|
||||||
For B := 1 to Keywords Do
|
tKEYWORD : Console.TextAttr := cfg_TextKeyword;
|
||||||
If strUpper(W) = Keyword[B] Then Console.TextAttr := colTextKeyword;
|
tOPCHAR : Console.TextAttr := cfg_TextKeyword;
|
||||||
pWrite(W);
|
tSTRING,
|
||||||
Console.TextAttr := colTextNormal;
|
tCHARNUM : Console.TextAttr := cfg_TextCharStr;
|
||||||
pWrite(S[A]);
|
tHEXNUM : Console.TextAttr := cfg_TextHex;
|
||||||
W := '';
|
Else
|
||||||
Continue;
|
Console.TextAttr := cfg_TextNormal;
|
||||||
End Else
|
|
||||||
*)
|
|
||||||
If S[A] = '''' Then Begin
|
|
||||||
pWrite (W);
|
|
||||||
|
|
||||||
InString := Not InString;
|
|
||||||
|
|
||||||
If InString Then Begin
|
|
||||||
Console.TextAttr := cfg_TextString;
|
|
||||||
pWrite('''');
|
|
||||||
End Else Begin
|
|
||||||
pWrite('''');
|
|
||||||
Console.TextAttr := cfg_TextNormal;
|
|
||||||
End;
|
|
||||||
|
|
||||||
W := '';
|
|
||||||
End Else
|
|
||||||
If (S[A] = '/') And (S[A+1] = '/') And (Not InString) Then Begin
|
|
||||||
pWrite (W);
|
|
||||||
|
|
||||||
Console.TextAttr := cfg_TextComment;
|
|
||||||
|
|
||||||
pWrite (Copy(S, A, 255));
|
|
||||||
|
|
||||||
While Console.CursorX < 79 Do Console.WriteChar(' ');
|
|
||||||
|
|
||||||
Exit;
|
|
||||||
End Else
|
|
||||||
If ((S[A] = ' ') or (A = Length(S))) and (Not InString) Then Begin
|
|
||||||
For B := 1 to Keywords Do
|
|
||||||
If (A = Length(S)) and (S[A] <> ';') Then Begin
|
|
||||||
If Keyword[B] = strUpper(W + S[A]) Then
|
|
||||||
Console.TextAttr := cfg_TextKeyword;
|
|
||||||
End Else
|
|
||||||
If Keyword[B] = strUpper(W) Then
|
|
||||||
Console.TextAttr := cfg_TextKeyword;
|
|
||||||
|
|
||||||
pWrite (W + S[A]);
|
|
||||||
W := '';
|
|
||||||
Console.TextAttr := cfg_TextNormal;
|
|
||||||
End Else Begin
|
|
||||||
If Not InString Then
|
|
||||||
If (LC in ['0'..'9', '#', ' ', '[', '(', ',', '-', '.']) and (S[A] in ['#', '$', '0'..'9']) Then Begin
|
|
||||||
If Console.TextAttr = cfg_TextNormal Then Begin
|
|
||||||
pWrite(W);
|
|
||||||
W := '';
|
|
||||||
End;
|
|
||||||
|
|
||||||
Console.TextAttr := cfg_TextNumber;
|
|
||||||
End Else Begin
|
|
||||||
If Console.TextAttr = cfg_TextNumber Then Begin
|
|
||||||
pWrite(W);
|
|
||||||
W := '';
|
|
||||||
End;
|
|
||||||
|
|
||||||
Console.TextAttr := cfg_TextNormal;
|
|
||||||
End;
|
|
||||||
|
|
||||||
W := W + S[A];
|
|
||||||
End;
|
|
||||||
|
|
||||||
LC := S[A];
|
|
||||||
End;
|
End;
|
||||||
|
|
||||||
If W <> '' Then pWrite (W);
|
WritePart(ResStr);
|
||||||
|
Until Done;
|
||||||
|
|
||||||
Console.WriteStr(strRep(' ', 79 - Console.CursorX));
|
Console.ClearEOL;
|
||||||
End Else
|
Console.WriteXY (80, Y, colEditStatus, '°');
|
||||||
|
End;
|
||||||
|
|
||||||
|
Procedure DrawLine (Y: Byte; S: String);
|
||||||
|
Begin
|
||||||
|
If cfg_Highlight Then
|
||||||
|
DrawLineHighlight (Y, S)
|
||||||
|
Else
|
||||||
Console.WriteXY (2, Y, cfg_TextNormal, strPadR(Copy(S, CurWin[CurWinNum]^.ScrlX + 1, 255), 77, ' '));
|
Console.WriteXY (2, Y, cfg_TextNormal, strPadR(Copy(S, CurWin[CurWinNum]^.ScrlX + 1, 255), 77, ' '));
|
||||||
End;
|
End;
|
||||||
|
|
||||||
|
|
@ -1750,6 +1847,8 @@ Begin
|
||||||
cfg_TextString := INI.ReadInteger('Colors', 'syn_string', 27);
|
cfg_TextString := INI.ReadInteger('Colors', 'syn_string', 27);
|
||||||
cfg_TextNumber := INI.ReadInteger('Colors', 'syn_number', 19);
|
cfg_TextNumber := INI.ReadInteger('Colors', 'syn_number', 19);
|
||||||
cfg_TextComment := INI.ReadInteger('Colors', 'syn_comment', 23);
|
cfg_TextComment := INI.ReadInteger('Colors', 'syn_comment', 23);
|
||||||
|
cfg_TextHex := INI.ReadInteger('Colors', 'syn_hex', 28);
|
||||||
|
cfg_TextCharStr := INI.ReadInteger('Colors', 'syn_charstr', 27);
|
||||||
|
|
||||||
INI.Free;
|
INI.Free;
|
||||||
|
|
||||||
|
|
@ -1793,8 +1892,7 @@ Begin
|
||||||
Else
|
Else
|
||||||
BarPos := Round(CurLine / TotalLines * (mideWinSize - 4)) + 3;
|
BarPos := Round(CurLine / TotalLines * (mideWinSize - 4)) + 3;
|
||||||
|
|
||||||
Console.WriteXY (80, BarPos, colEditPosBar, 'Û');
|
Console.WriteXY (80, BarPos, colEditPosBar, 'Û');
|
||||||
|
|
||||||
Console.CursorXY (CurX + 1, CurY + 1);
|
Console.CursorXY (CurX + 1, CurY + 1);
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue