[Synedit-checkins] SynEdit/Source SynHighlighterRuby.pas,1.8,1.9

[Marko N. <mar...@us...>]

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;