+ added fcl/wince more fcl units compile

git-svn-id: trunk@2008 -

.gitattributes

@@ -1039,6 +1039,9 @@ fcl/win32/resolve.inc svneol=native#text/plain
 fcl/win32/simpleipc.inc svneol=native#text/plain
 fcl/win32/syncobjs.pp svneol=native#text/plain
 fcl/win32/winreg.inc svneol=native#text/plain
+fcl/wince/eventlog.inc svneol=native#text/plain
+fcl/wince/ezcgi.inc svneol=native#text/plain
+fcl/wince/pipes.inc svneol=native#text/plain
 fcl/xml/Makefile svneol=native#text/plain
 fcl/xml/Makefile.fpc svneol=native#text/plain
 fcl/xml/README -text

fcl/wince/eventlog.inc

@@ -0,0 +1,22 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 2003 by the Free Pascal development team
+
+    DOS event logging facility.
+
+    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.
+
+ **********************************************************************}
+
+{ ---------------------------------------------------------------------
+    Include event log that maps to file event log.
+  ---------------------------------------------------------------------}
+
+{$i felog.inc}
+
+

fcl/wince/ezcgi.inc

@@ -0,0 +1,14 @@
+Uses dos;
+
+{ Declared EXPLICITLY with Ansistring, so NO mistaking is possible }
+
+{
+  This function is VERY inefficient, but the downsize would be to
+  have initialization/finalization code to get/free the environment
+  settings.
+}
+
+Function Getenv (Var EnvVar  : AnsiString): AnsiString;
+begin
+ Getenv:=dos.GetEnv(EnvVar);
+end;

fcl/wince/pipes.inc

@@ -0,0 +1,20 @@
+{
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1998 by Michael Van Canneyt
+
+    Win32 part of pipe stream.
+
+    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 CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
+// No pipes under dos, sorry...
+begin
+  Result := False;
+end;