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

+ added proc DePascalQuote

Browse Source
This commit is contained in:
olle 2004-08-31 21:44:18 +00:00
parent 491071539b
commit 883dfac48d
1 changed files with 45 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
compiler/cutils.pas
View File

@ -84,6 +84,13 @@ interface
function backspace_quote(const s:string;const qchars:Tcharset):string;
function octal_quote(const s:string;const qchars:Tcharset):string;
function maybequoted(const s:string):string;
{# If the string is quoted, in accordance with pascal, it is
dequoted and returned in s, and the function returns true.
If it is not quoted, or if the quoting is bad, s is not touched,
and false is returned.
}
function DePascalQuote(var s: string): Boolean;
function CompareText(S1, S2: string): longint;
{ releases the string p and assignes nil to p }
@ -729,6 +736,40 @@ uses
maybequoted:=s;
end;
function DePascalQuote(var s: string): Boolean;
var
destPos, sourcePos, len: Integer;
t: string;
ch: Char;
begin
DePascalQuote:= false;
len:= length(s);
if (len >= 1) and (s[1] = '''') then
begin
{Remove quotes, exchange '' against ' }
destPos := 0;
for sourcePos := 2 to len do
begin
ch := s[sourcePos];
if ch = '''' then
begin
inc(sourcePos);
if (sourcePos <= len) and (s[sourcePos] = '''') then
{Add the quote as part of string}
else
begin
SetLength(t, destPos);
s:= t;
Exit(true);
end;
end;
inc(destPos);
t[destPos] := ch;
end;
end;
end;
function pchar2pstring(p : pchar) : pstring;
var
@ -1191,7 +1232,10 @@ initialization
end.
{
$Log$
Revision 1.41 2004-06-20 08:55:29 florian
Revision 1.42 2004-08-31 21:44:18 olle
+ added proc DePascalQuote
Revision 1.41 2004/06/20 08:55:29 florian
* logs truncated
Revision 1.40 2004/06/16 20:07:07 florian