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

* updated to be compilable with win32

Browse Source
This commit is contained in:
florian 2004-02-10 22:25:50 +00:00
parent c5fae16a0d
commit 366b09627c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw2968.pas
View File

@ -1,7 +1,8 @@
{ Source provided for Free Pascal Bug Report 2968 }
{ Submitted by "Marco (gory bugs)" on 2004-02-10 }
{ e-mail: }
Uses Unix,BaseUnix;
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
@ -23,7 +24,7 @@ begin
ArrayStringToPPchar:=p;
end;
function intFpExec (Const PathName:AnsiString;const S:Array Of AnsiString):cint;
function intFpExec (Const PathName:AnsiString;const S:Array Of AnsiString):longint;
Var
p : ppchar;
@ -35,7 +36,7 @@ begin
newcmd:=PathName;
{ If SearchPath Then
Begin}
Thepath:=strpas(fpgetenv('PATH'));
Thepath:=getenv('PATH');
if thepath='' then
thepath:='.';
newcmd:=FSearch(newcmd,thepath);
@ -46,7 +47,7 @@ begin
end;
function FpExecLP(Const PathName:AnsiString;const S:Array Of AnsiString):cint;
function FpExecLP(Const PathName:AnsiString;const S:Array Of AnsiString):longint;
Begin
FpExecLP:=intFPExec(PathName,S);
@ -55,4 +56,4 @@ End;
begin
fpexeclp('sh',['-c','echo hello']);
end.
end.