SynEdit-Highlighter, der Strings ignorieren soll

[marabu]

Hallo Matthias,

Delphi-Quellcode:

procedure TSynAdaSyn.Next;
begin
  fTokenPos := Run;
  case fRange of  // <== Hier fehlt natürlich etwas
  else
    begin
      fRange := rsUnknown;
      fProcTable[fLine[Run]];
    end;
  end;
end;

wie kommst du darauf, dass an der bezeichneten Stelle etwas fehlt? Hast du denn MultiLine-Einträge spezifiziert?

marabu

[Matze]

Zitat:

Zitat von marabu

wie kommst du darauf, dass an der bezeichneten Stelle etwas fehlt?

Delphi-Quellcode:

case xyz of
else

ergibt doch keinen Sinn. Es fehlen ja die Werte der Variablen, auf die überprüft wird.

Zitat:

Zitat von marabu

Hast du denn MultiLine-Einträge spezifiziert?

Wie meinst du das?

[marabu]

Nur wenn du im Abschnitt ENCLOSEDBY Einträge spezifizierst, die als letzten Parameter "Multiline" aufweisen (wie beim BraceComment - der von Ada sollte wohl besser LineEndComment heißen) werden auch Selektoren für das CASE Statement generiert. Probiere es doch einfach aus, indem du den PASCAL BraceComment aufnimmst:

Code:

Comment,BraceComment,{,},Multiline

marabu

[Matze]

Hallo

Ja, so geht es ja, aber ich benötige ja kein Multiline, sondern möchte sowas wie

Delphi-Quellcode:

Comment,BraceComment,--

haben. Dein Beispiel würde schon gehen.

[marabu]

Hast du denn die generierte Unit einmal verwendet? Der Erfolg meiner Anpassung macht sich in der generierten Unit in der Prozedur LineEndCommentProc bemerkbar - wenn der Ada-Comment LineEndComment genannt wurde:

Delphi-Quellcode:

procedure TSynSampleSyn.LineEndCommentProc;
begin
  fTokenID := tkComment;
  repeat
// es ist dieser Teil der bei EOL terminierten enclosures 
// nicht erzeugt werden darf...
{
    if  then
    begin
      Inc(Run, 0);
      fRange := rsUnKnown;
      Break;
    end;
}
    if not (fLine[Run] in [#0, #10, #13]) then
      Inc(Run);
  until fLine[Run] in [#0, #10, #13];
end;

Sobald ich kann werde ich es selbst überprüfen.

marabu

[Matze]

Hallo

Zitat:

Zitat von marabu

Hast du denn die generierte Unit einmal verwendet? Der Erfolg meiner Anpassung macht sich in der generierten Unit in der Prozedur LineEndCommentProc bemerkbar - wenn der Ada-Comment LineEndComment genannt wurde [...]

Hm ja, ich habe es so aufgerufen:

Delphi-Quellcode:

Comment,LineEndComment,--

Nur klappt das nicht, wie gesagt, es tritt immer der Fehler auf, dass die Case-Anweisung leer ist.

[marabu]

Hallo Matthias,

ich habe mir SynGen nochmal genauer angesehen und noch zwei Dinge nachgebessert.

Das erste betrifft deine Beobachtung mit dem leeren CASE Statement. SynGen kann in der Original-Fassung (1.1) keine Grammatiken verarbeiten, die in der ENCLOSEDBY section nicht mindestens ein MULTILINE token aufweisen. Nun geht das.

Das zweite Problem entsteht durch deine Schreibweise des LineEndComment. SynGen ist ja erst durch meine Änderung überhaupt in der Lage EOL terminierte token über die ENCLOSEDBY section zu verarbeiten. In der Original-Fassung ist nur der MULTILINE-Parameter optional. Ich habe jetzt auch ENDSWITH optional gemacht - ist nur konsequent.

Ich habe die modifizierte Unit SynGenUnit angehängt - und sicherheitshalber noch die Datei SynEdit.inc, auch wenn du die wohl schon selbst angepasst hast.

Ich habe den Kommentar im Ada-Style dann in der HighlighterDemo von SynEdit erfolgreich getestet.

Schönes Wochenende

marabu

PS: Meine Änderungen habe ich mit meinem nick gekennzeichnet, damit du sie nachvollziehen kannst.

[Matze]

Hallo marabu,

das war ja doch mehr als ich dachte, alle Achtung. Vielen Dank, dass du dir die Mühe gemacht hast, die Datei anzupassen, es funktioniert genau so, wie es soll. Super. :thumb:

[Matze]

Hi,

nicht schlimm, aber irgendwie seltsam:
Gebe ich 4 Bindestriche ein, wird der letzte Strich nicht grün, sondern schwarz dargestellt. Das geht in 3er Schritten nach oben:
Der letzte von 7 / 10 / 13 / 16 / ... Strichen ist immer schwarz. Woran kann das liegen?

[marabu]

Hallo Matthias,

das liegt daran, dass ich gepatzt habe.

Ich habe in der Prozedur SynGenUnit.RetrieveEnclosedBy() vergessen die konsumierten Zeichen am Zeilenende zu löschen. Ich habe das jetzt nachgebessert und getestet und jetzt sollten deine Farben stimmen. Im Anhang das ZIP-Archiv mit der berichtigten Unit.

Grüße vom marabu