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

* fixes #7534

Browse Source 
git-svn-id: trunk@5008 -
This commit is contained in:
Almindor 2006-10-22 21:43:37 +00:00
parent 88fd6f0727
commit 5aca3c65f8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/unix/process.inc
View File

@ -103,9 +103,14 @@ Procedure CommandToList(S : String; List : TStrings);
end;
inc(wend);
end;
Result:=Copy(S,WStart,WEnd-WStart);
Result:=StringReplace(Result,'"','',[rfReplaceAll]);
Result:=StringReplace(Result,'''','',[rfReplaceAll]);
if (Length(Result) > 0)
and (Result[1] = Result[Length(Result)]) // if 1st char = last char and..
and (Result[1] in Literals) then // it's one of the literals, then
Result:=Copy(Result, 2, Length(Result) - 2); //delete the 2 (but not others in it)
While (WEnd<=Length(S)) and (S[Wend] in WhiteSpace) do
inc(Wend);
Delete(S,1,WEnd-1);