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

* custapp.inc not necessary anymore. Left it in for targets I don't know.

Browse Source 
git-svn-id: trunk@914 -
This commit is contained in:
marco 2005-08-22 12:09:19 +00:00
parent 66613d4cc7
commit 99ff593cf1
4 changed files with 0 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -833,7 +833,6 @@ fcl/passrc/paswrite.pp svneol=native#text/plain
fcl/passrc/pparser.pp svneol=native#text/plain
fcl/passrc/pscanner.pp svneol=native#text/plain
fcl/passrc/readme.txt svneol=native#text/plain
fcl/posix/custapp.inc svneol=native#text/plain
fcl/posix/ezcgi.inc svneol=native#text/plain
fcl/posix/pipes.inc svneol=native#text/plain
fcl/posix/readme.txt svneol=native#text/plain
@ -937,13 +936,11 @@ fcl/tests/txmlreg.pp svneol=native#text/plain
fcl/tests/xmldump.pp svneol=native#text/plain
fcl/unix/asyncio.inc svneol=native#text/plain
fcl/unix/asyncioh.inc svneol=native#text/plain
fcl/unix/custapp.inc svneol=native#text/plain
fcl/unix/eventlog.inc svneol=native#text/plain
fcl/unix/ezcgi.inc svneol=native#text/plain
fcl/unix/pipes.inc svneol=native#text/plain
fcl/unix/process.inc svneol=native#text/plain
fcl/unix/resolve.inc svneol=native#text/plain
fcl/win32/custapp.inc svneol=native#text/plain
fcl/win32/eventlog.inc svneol=native#text/plain
fcl/win32/ezcgi.inc svneol=native#text/plain
fcl/win32/fclel.mc -text

40
fcl/posix/custapp.inc
View File

@ -1,40 +0,0 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team
Linux version of custom app object routines.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
Var
P : PPChar;
S : String;
I : Integer;
begin
List.Clear;
P:=EnvP;
if (P<>Nil) then
While (P^<>Nil) do
begin
S:=StrPas(P^);
If NamesOnly then
begin
I:=Pos('=',S);
If (I>1) then
S:=Copy(S,1,I-1);
end;
List.Add(S);
Inc(P);
end;
end;

40
fcl/unix/custapp.inc
View File

@ -1,40 +0,0 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team
Linux version of custom app object routines.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
Var
P : PPChar;
S : String;
I : Integer;
begin
List.Clear;
P:=EnvP;
if (P<>Nil) then
While (P^<>Nil) do
begin
S:=StrPas(P^);
If NamesOnly then
begin
I:=Pos('=',S);
If (I>0) then
S:=Copy(S,1,I-1);
end;
List.Add(S);
Inc(P);
end;
end;

43
fcl/win32/custapp.inc
View File

@ -1,43 +0,0 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2003 by the Free Pascal development team
Linux version of custom app object routines.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
function GetEnvironmentStrings : pchar; stdcall; external 'kernel32' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : longbool; stdcall; external 'kernel32' name 'FreeEnvironmentStringsA';
Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
var
s : string;
i,l : longint;
hp,p : pchar;
begin
p:=GetEnvironmentStrings;
hp:=p;
while hp^<>#0 do
begin
s:=strpas(hp);
l:=Length(s);
If NamesOnly then
begin
I:=pos('=',s);
If (I>0) then
S:=Copy(S,1,I-1);
end;
List.Add(S);
hp:=hp+l+1;
end;
FreeEnvironmentStrings(p);
end;