|
From: Marko N. <mar...@us...> - 2004-08-01 22:32:09
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12456/Source Modified Files: SynHighlighterRuby.pas Log Message: Removed unused code Index: SynHighlighterRuby.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynHighlighterRuby.pas,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- SynHighlighterRuby.pas 31 Jul 2004 23:41:55 -0000 1.8 +++ SynHighlighterRuby.pas 1 Aug 2004 22:31:59 -0000 1.9 @@ -68,8 +68,7 @@ tkSpace, tkString, tkSymbol, tkUnknown); {$IFDEF SYN_HEREDOC} - TRangeState = (rsUnknown, rsAnsi, rsPasStyle, rsCStyle, rsHeredoc, - rsIndentedHeredoc); + TRangeState = (rsUnknown, rsHeredoc, rsIndentedHeredoc); TRangePointer = packed record case Boolean of @@ -77,7 +76,7 @@ False : (Range: Byte; Length: Byte; Checksum: Word); end; {$ELSE} - TRangeState = (rsUnknown, rsAnsi, rsPasStyle, rsCStyle); + TRangeState = (rsUnknown); {$ENDIF} TProcTableProc = procedure of object; @@ -121,9 +120,6 @@ procedure StringProc; procedure UnknownProc; procedure MakeMethodTables; - procedure AnsiProc; - procedure PasStyleProc; - procedure CStyleProc; {$IFDEF SYN_HEREDOC} procedure HeredocProc; {$ENDIF} @@ -339,119 +335,6 @@ Next; end; { SetLine } -procedure TSynRubySyn.AnsiProc; -begin - fTokenID := tkComment; - case FLine[Run] of - #0: - begin - NullProc; - exit; - end; - #10: - begin - LFProc; - exit; - end; - - #13: - begin - CRProc; - exit; - end; - end; - - while fLine[Run] <> #0 do - case fLine[Run] of - '*': - if fLine[Run + 1] = ')' then - begin - fRange := rsUnKnown; - inc(Run, 2); - break; - end else inc(Run); - #10: break; - - #13: break; - else inc(Run); - end; -end; - -procedure TSynRubySyn.PasStyleProc; -begin - fTokenID := tkComment; - case FLine[Run] of - #0: - begin - NullProc; - exit; - end; - #10: - begin - LFProc; - exit; - end; - - #13: - begin - CRProc; - exit; - end; - end; - - while FLine[Run] <> #0 do - case FLine[Run] of - '}': - begin - fRange := rsUnKnown; - inc(Run); - break; - end; - #10: break; - - #13: break; - else inc(Run); - end; -end; - -procedure TSynRubySyn.CStyleProc; -begin - fTokenID := tkComment; - case FLine[Run] of - #0: - begin - NullProc; - exit; - end; - #10: - begin - LFProc; - exit; - end; - - #13: - begin - CRProc; - exit; - end; - end; - - while fLine[Run] <> #0 do - case fLine[Run] of - '*': - if fLine[Run + 1] = '/' then - begin - fRange := rsUnKnown; - inc(Run, 2); - break; - end else inc(Run); - #10: break; - - #13: break; - else inc(Run); - end; -end; - procedure TSynRubySyn.BraceOpenProc; begin inc(Run); @@ -726,16 +609,12 @@ procedure TSynRubySyn.Next; begin fTokenPos := Run; - case fRange of - rsAnsi: AnsiProc; - rsPasStyle: PasStyleProc; - rsCStyle: CStyleProc; {$IFDEF SYN_HEREDOC} - rsHeredoc, rsIndentedHeredoc : HeredocProc; -{$ENDIF} + if fRange in [rsHeredoc, rsIndentedHeredoc] then + HeredocProc else +{$ENDIF} fProcTable[fLine[Run]]; - end; end; function TSynRubySyn.GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; |