codetools: implemented some more c tokens

git-svn-id: trunk@14301 -

components/codetools/examples/h2pastest.lpi

@@ -32,12 +32,16 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="1">
+    <Units Count="2">
       <Unit0>
         <Filename Value="h2pastest.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="H2PasTest"/>
       </Unit0>
+      <Unit1>
+        <Filename Value="scanexamples/test.h"/>
+        <IsPartOfProject Value="True"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

components/codetools/nonpascalcodetools.pas

@@ -316,23 +316,24 @@ begin
            end;
          end;
        end;
-     '$':  // hex constant
-      begin
-        inc(Position);
-        while (Position<=Len)
-        and (IsHexNumberChar[Source[Position]]) do
-          inc(Position);
-      end;
     else
       inc(Position);
       if Position<=Len then begin
         c2:=Source[Position];
-        // test for double char operators :=, +=, -=, /=, *=, <>, <=, >=, **, ^^
+        // test for double char operators :=, +=, -=, /=, *=, !=, ==, <=, >=, **, ^^, ::
         if ((c2='=') and  (IsEqualOperatorStartChar[c1]))
-        or ((c1='<') and (c2='>'))
+        or ((c1='=') and (c2='='))
-        or ((c1='.') and (c2='.'))
+        or ((c1='!') and (c2='='))
+        or ((c1=':') and (c2=':'))
         or ((c1='*') and (c2='*'))
         or ((c1='^') and (c2='^'))
+        or ((c1='|') and (c2='|'))
+        or ((c1='&') and (c2='&'))
+        or ((c1='+') and (c2='+'))
+        or ((c1='-') and (c2='-'))
+        or ((c1='-') and (c2='>'))
+        or ((c1='>') and (c2='>'))
+        or ((c1='<') and (c2='<'))
         then
           inc(Position);
       end;