From 99ff593cf176a055539888a314e0d03db89c97d1 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Mon, 22 Aug 2005 12:09:19 +0000
Subject: [PATCH]  * custapp.inc not necessary anymore. Left it in for targets
 I don't know.

git-svn-id: trunk@914 -
---
 .gitattributes        |  3 ---
 fcl/posix/custapp.inc | 40 ----------------------------------------
 fcl/unix/custapp.inc  | 40 ----------------------------------------
 fcl/win32/custapp.inc | 43 -------------------------------------------
 4 files changed, 126 deletions(-)
 delete mode 100644 fcl/posix/custapp.inc
 delete mode 100644 fcl/unix/custapp.inc
 delete mode 100644 fcl/win32/custapp.inc

diff --git a/.gitattributes b/.gitattributes
index ff0c7f0749..1484d752ac 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -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
diff --git a/fcl/posix/custapp.inc b/fcl/posix/custapp.inc
deleted file mode 100644
index 9148e0fd0b..0000000000
--- a/fcl/posix/custapp.inc
+++ /dev/null
@@ -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;
-
diff --git a/fcl/unix/custapp.inc b/fcl/unix/custapp.inc
deleted file mode 100644
index b402d68510..0000000000
--- a/fcl/unix/custapp.inc
+++ /dev/null
@@ -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;
-
diff --git a/fcl/win32/custapp.inc b/fcl/win32/custapp.inc
deleted file mode 100644
index 33678adf39..0000000000
--- a/fcl/win32/custapp.inc
+++ /dev/null
@@ -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;