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

* Patch from Inoussa OUEDRAOGO so it can work with Delphi2009 and unicode chars

Browse Source 
git-svn-id: trunk@12403 -
This commit is contained in:
michael 2008-12-19 17:49:24 +00:00
parent 7ebbcb4c9f
commit a580fe60d0
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/getopts.pp
View File

@ -68,6 +68,8 @@ type
var
argc : longint;
argv : apchar;
const
CHAR_SIZE = SizeOf(Char);
procedure setup_arguments;
var
@ -83,7 +85,7 @@ begin
{ create argv[0] which is the started filename }
s:=paramstr(0);
arglen:=length(s);
getmem(argsbuf[0],arglen + 1);
getmem(argsbuf[0], ( ( arglen + 1 ) * CHAR_SIZE ) );
strpcopy(argsbuf[0],s);
{ create commandline }
s:='';
@ -97,16 +99,16 @@ begin
repeat
{ skip leading spaces }
while cmdline^ in [' ',#9,#13] do
inc(PtrInt(cmdline));
inc(PtrInt(cmdline),CHAR_SIZE);
case cmdline^ of
#0 : break;
'"' : begin
quote:=['"'];
inc(PtrInt(cmdline));
inc(PtrInt(cmdline),CHAR_SIZE);
end;
'''' : begin
quote:=[''''];
inc(PtrInt(cmdline));
inc(PtrInt(cmdline),CHAR_SIZE);
end;
else
quote:=[' ',#9,#13];
@ -114,15 +116,15 @@ begin
{ scan until the end of the argument }
argstart:=cmdline;
while (cmdline^<>#0) and not(cmdline^ in quote) do
inc(PtrInt(cmdline));
inc(PtrInt(cmdline),CHAR_SIZE);
{ reserve some memory }
arglen:=cmdline-argstart;
getmem(argsbuf[count],arglen+1);
move(argstart^,argsbuf[count]^,arglen);
getmem(argsbuf[count],(arglen+1) * CHAR_SIZE);
move(argstart^,argsbuf[count]^,arglen * CHAR_SIZE);
argsbuf[count][arglen]:=#0;
{ skip quote }
if cmdline^ in quote then
inc(PtrInt(cmdline));
inc(PtrInt(cmdline),CHAR_SIZE);
inc(count);
until false;
{ create argc }