paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 07:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test is wrong

Browse Source
This commit is contained in:
peter 2004-02-11 19:29:43 +00:00
parent d47da881ed
commit 99b68a7227
1 changed files with 0 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
tests/webtbs/tw2968.pp
View File

@ -1,59 +0,0 @@
{ Source provided for Free Pascal Bug Report 2968 }
{ Submitted by "Marco (gory bugs)" on 2004-02-10 }
{ e-mail: }
uses
dos;
function ArrayStringToPPchar(const S:Array of AnsiString;reserveone:boolean):ppchar; // const ?
// ReserveOne:=True -> one extra pchar is allocated and the first ( p[0]) is left for commandline
var p : ppchar;
Res,
i : LongInt;
begin
if High(s)<Low(s) Then Exit(NIL);
Res:=0;
If ReserveOne Then
Res:=1 ;
Getmem(p,1+sizeof(pchar)*(high(s)-low(s))); // one more for NIL, one more
// for cmd
for i:=low(s) to high(s) do
p[i+Res]:=@pchar(@s[i])[1];
// p[i+Res]:=@ansistring(s[i])[1];
p[high(s)+1+Res]:=nil;
ArrayStringToPPchar:=p;
end;
function intFpExec (Const PathName:AnsiString;const S:Array Of AnsiString):longint;
Var
p : ppchar;
NewCmd : ansistring;
ThePath : String;
begin
p:=ArrayStringToPPchar(s,True);
newcmd:=PathName;
{ If SearchPath Then
Begin}
Thepath:=getenv('PATH');
if thepath='' then
thepath:='.';
newcmd:=FSearch(newcmd,thepath);
writeln(newcmd);
{ End;}
// p^:=@NewCmd[1];
// IntFpExec:=fpExecVE(p^,p,MyEnv);
end;
function FpExecLP(Const PathName:AnsiString;const S:Array Of AnsiString):longint;
Begin
FpExecLP:=intFPExec(PathName,S);
End;
begin
fpexeclp('sh',['-c','echo hello']);
end.