paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 15:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: implemented some more c tokens

Browse Source 
git-svn-id: trunk@14301 -
This commit is contained in:
mattias 2008-02-28 13:06:06 +00:00
parent e4cad5b120
commit cab6632f4c
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/examples/h2pastest.lpi
View File

@ -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>

21
components/codetools/nonpascalcodetools.pas
View File

@ -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;