--- jvhlparser.pas	Wed Aug 17 14:33:12 2005
+++ 3.0\jvhlparser.pas	Thu Feb 17 11:20:36 2005
@@ -54,7 +54,7 @@
   ieBadRemark = 1;
 
 type
-  TIParserStyle = (psNone, psPascal, psCpp, psPython, psVB, psHtml, psPerl, psCocoR, psPhp, psSql);
+  TIParserStyle = (psNone, psPascal, psCpp, psPython, psVB, psHtml, psPerl, psCocoR, psPhp);
 
   TJvIParser = class(TObject)
   protected
@@ -293,39 +293,6 @@
             F := StrEnd(P + 1);
           P := F;
         end;
-      (* 17/08 - Eswar: Support for the SQL -- comments *)
-      '-':
-        if (FStyle = psSql) and (P[1] = '-') then
-        begin
-          F := StrScan(P + 1, Cr);
-          if F = nil then
-            F := StrEnd(P + 1);
-          P := F;
-        end;
-      (* 17/08 - Eswar: Support for multiline comments for HTML *)
-      '<':
-        if (FStyle = psHtml) and (P[1] = '!') then
-        begin
-          // we need the next 2 chars to be --
-          if (P[2] = #0) or (P[3] = #0) then
-            Exit; // line end
-          if (P[2] <> '-') and (P[3] <> '-') then
-            Exit;
-          F := P + 3;
-          while True do
-          begin
-            F := StrScan(F, '-');
-            if F = nil then //IParserError(ieBadRemark, P - FpcProgram);
-              Exit;
-            if (F[1] = '-') and (F[2] = '>') then
-            begin
-              Inc(F, 2);
-              Break;
-            end;
-            Inc(F);
-          end;
-          P := F + 1;
-        end;
     end;
     SkipComments := False;
   end;
@@ -689,39 +656,6 @@
           if F = nil then
             F := StrEndW(P + 1);
           P := F;
-        end;
-      (* 17/08 - Eswar: Support for the SQL -- comments *)
-      '-':
-        if (FStyle = psSql) and (P[1] = '-') then
-        begin
-          F := StrScanW(P + 1, WideChar(Cr));
-          if F = nil then
-            F := StrEndW(P + 1);
-          P := F;
-        end;
-      (* 17/08 - Eswar: Support for multiline comments for HTML *)
-      '<':
-        if (FStyle = psHtml) and (P[1] = '!') then
-        begin
-          // we need the next 2 chars to be --
-          if (P[2] = #0) or (P[3] = #0) then
-            Exit; // line end
-          if (P[2] <> '-') and (P[3] <> '-') then
-            Exit;
-          F := P + 3;
-          while True do
-          begin
-            F := StrScanW(F, WideChar('-'));
-            if F = nil then //IParserError(ieBadRemark, P - FpcProgram);
-              Exit;
-            if (F[1] = '-') and (F[2] = '>') then
-            begin
-              Inc(F, 2);
-              Break;
-            end;
-            Inc(F);
-          end;
-          P := F + 1;
         end;
     end;
     SkipComments := False;