paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +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; function GetToken(var s:string;endchar:char):string;
var var
i : longint; i : longint;
quote : char;
begin begin
GetToken:=''; GetToken:='';
s:=TrimSpace(s); s:=TrimSpace(s);
if (length(s)>0) and if (length(s)>0) and
(s[1]='''') then (s[1] in ['''','"']) then
begin begin
quote:=s[1];
i:=1; i:=1;
while (i<length(s)) do while (i<length(s)) do
begin begin
inc(i); inc(i);
if s[i]='''' then if s[i]=quote then
begin begin
{ Remove double quote } { Remove double quote }
if (i<length(s)) and if (i<length(s)) and
(s[i+1]='''') then (s[i+1]=quote) then
begin begin
Delete(s,i,1); Delete(s,i,1);
inc(i); inc(i);