paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 18:19:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* gettoken add support for " quotes

Browse Source 
git-svn-id: trunk@5244 -
This commit is contained in:
peter 2006-11-05 13:27:12 +00:00
parent 35c21515a9
commit b7cb804c50
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cutils.pas
View File

@ -578,21 +578,23 @@ implementation
function GetToken(var s:string;endchar:char):string;
var
i : longint;
quote : char;
begin
GetToken:='';
s:=TrimSpace(s);
if (length(s)>0) and
(s[1]='''') then
(s[1] in ['''','"']) then
begin
quote:=s[1];
i:=1;
while (i<length(s)) do
begin
inc(i);
if s[i]='''' then
if s[i]=quote then
begin
{ Remove double quote }
if (i<length(s)) and
(s[i+1]='''') then
(s[i+1]=quote) then
begin
Delete(s,i,1);
inc(i);